Need Help Guys para sa BattleGround ng EaMode

furry · June 4, 2013

pa help naman po pano po ba baguhin ang reward ng CTF or Capture The Flag.

Valor Badge Po kasi ang reward nya gusto ko lang palitan ng 30TCG pag panalo at 10 TCG naman po pag talo ....

Thanks mga idol!

Jaburak · June 4, 2013

Please post the script.

eJay · June 4, 2013

You must post the script

or find this line

getitem <itemid>,<howmanyitems>;

for example

getitem 7227,30;

Edited June 4, 2013 by eJay

furry · June 5, 2013

Please post the script.

// (c) 2008 - 2012 eAmod Project; Andres Garbanzo / Zephyrus

//
//  - [email protected]
//  - MSN [email protected]
//  - Skype: Zephyrus_cr
//  - Site: http://dev.terra-gaming.com
//
// This file is NOT public - you are not allowed to distribute it.
// Authorized Server List : http://dev.terra-gaming.com/index.php?/topic/72-authorized-eamod-servers/
// eAmod is a non Free, extended version of eAthena Ragnarok Private Server.


// ==============================================================================
// BattleGround System - Flavius Capture the Flag
// ==============================================================================


// Battleground Flags
// *********************************************************************


bat_b02,328,150,0    script    Alpha Crystal::Team1_Flag    1914,1,1,{
    end;


OnTouch:
    if( $@BG_Status != 1 || getvariableofnpc(.BG_Arena$,"BG_Queue_Join") != "Flavius_CTF" || HP < 1 )
        end;


    if( getcharid(4) == $@BG_Team2 && .Flag_Status < 2 )
    { // Flag Captured
        set .Flag_Status, 2; // Taken
        set .Flag_Carrier, getcharid(0);


        sc_end SC_HIDING;
        sc_end SC_CLOAKING;
        sc_end SC_CHASEWALK;
        // Renewal invisibility
        sc_end SC_CLOAKINGEXCEED;
        sc_end SC_CAMOUFLAGE;
        sc_end SC__INVISIBILITY;


        pcblock 1,1; // Block Skills/Items


        mapannounce "bat_b02","Alpha Crystal Taken by [ " + strcharinfo(0) + " ]",1,bg_get_data($@BG_Team1,4);
        bg_rankpoints "ctf_taken",1;
        disablenpc "Team1_Flag";
        addtimer 2000, "Flavius_CTF::OnAlphaFlash";
        stopnpctimer;
    }
    else if( getcharid(4) == $@BG_Team1 )
    {
        if( .Flag_Status == 0 && getvariableofnpc(.Flag_Carrier,"Team2_Flag") == getcharid(0) )
        {
            set getvariableofnpc(.Flag_Carrier,"Team2_Flag"),0;
            set .Flag_Carrier, 0;
            mapannounce "bat_b02","Omega Crystal Captured by [ " + strcharinfo(0) + " ]!!",1,bg_get_data($@BG_Team2,4);
            bg_rankpoints "ctf_captured",1;
            pcblock 1,0; // UnBlock Skills/Items
            stopnpctimer;
            donpcevent "Flavius_CTF::OnTeam1Score";
        }
        else if( .Flag_Status == 1 )
        {
            mapannounce "bat_b02","Alpha Crystal Returned by [ " + strcharinfo(0) + " ]!!",1,bg_get_data($@BG_Team1,4);
            bg_rankpoints "fame",1;
            disablenpc "Team1_Flag";
            sleep 2000;
            movenpc "Team1_Flag",328,150; // Back to Base
            set .Flag_Status, 0;
            initnpctimer;
            enablenpc "Team1_Flag";
        }
    }
    end;


OnTimer2000:
    stopnpctimer;
    if( .Flag_Status < 2 )
    {
        getmapxy .@m$, .@x, .@y, 1;
        viewpointmap "bat_b02",1, .@x, .@y, 1, bg_get_data($@BG_Team1,4);
        specialeffect 223;
        initnpctimer;
    }
    end;


OnBase:
    movenpc "Team1_Flag",328,150;
    set .Flag_Status, 0;
    set .Flag_Carrier, 0;
    initnpctimer;
    enablenpc "Team1_Flag";
    end;
}


bat_b02,62,150,0    script    Omega Crystal::Team2_Flag    1915,1,1,{
    end;


OnTouch:
    if( $@BG_Status != 1 || getvariableofnpc(.BG_Arena$,"BG_Queue_Join") != "Flavius_CTF" || HP < 1 )
        end;


    if( getcharid(4) == $@BG_Team1 && .Flag_Status < 2 )
    { // Flag Captured
        set .Flag_Status, 2; // Taken
        set .Flag_Carrier, getcharid(0);


        sc_end SC_HIDING;
        sc_end SC_CLOAKING;
        sc_end SC_CHASEWALK;
        // Renewal invisibility
        sc_end SC_CLOAKINGEXCEED;
        sc_end SC_CAMOUFLAGE;
        sc_end SC__INVISIBILITY;


        pcblock 1,1; // Block Skills/Items


        mapannounce "bat_b02","Omega Crystal Taken by [ " + strcharinfo(0) + " ]",1,bg_get_data($@BG_Team2,4);
        bg_rankpoints "ctf_taken",1;
        disablenpc "Team2_Flag";
        addtimer 2000, "Flavius_CTF::OnOmegaFlash";
        stopnpctimer;
    }
    else if( getcharid(4) == $@BG_Team2 )
    {
        if( .Flag_Status == 0 && getvariableofnpc(.Flag_Carrier,"Team1_Flag") == getcharid(0) )
        {
            set getvariableofnpc(.Flag_Carrier,"Team1_Flag"),0;
            set .Flag_Carrier, 0;
            mapannounce "bat_b02","Alpha Crystal Captured by [ " + strcharinfo(0) + " ]!!",1,bg_get_data($@BG_Team1,4);
            bg_rankpoints "ctf_captured",1;
            pcblock 1,0; // UnBlock Skills/Items
            stopnpctimer;
            donpcevent "Flavius_CTF::OnTeam2Score";
        }
        else if( .Flag_Status == 1 )
        {
            mapannounce "bat_b02","Omega Crystal Returned by [ " + strcharinfo(0) + " ]!!",1,bg_get_data($@BG_Team2,4);
            bg_rankpoints "fame",1;
            disablenpc "Team2_Flag";
            sleep 2000;
            movenpc "Team2_Flag",62,150; // Back to Base
            set .Flag_Status, 0;
            initnpctimer;
            enablenpc "Team2_Flag";
        }
    }
    end;


OnTimer2000:
    stopnpctimer;
    if( .Flag_Status < 2 )
    {
        getmapxy .@m$, .@x, .@y, 1;
        viewpointmap "bat_b02",1, .@x, .@y, 2, bg_get_data($@BG_Team2,4);
        specialeffect 223;
        initnpctimer;
    }
    end;


OnBase:
    movenpc "Team2_Flag",62,150;
    set .Flag_Status, 0;
    set .Flag_Carrier, 0;
    initnpctimer;
    enablenpc "Team2_Flag";
    end;
}


// Battleground Engine
// *********************************************************************


-    script    Flavius_CTF    -1,{
    end;


OnAlphaFlash:
    if( getvariableofnpc(.Flag_Carrier,"Team1_Flag") == getcharid(0) && $@BG_Status == 1 && getvariableofnpc(.BG_Arena$,"BG_Queue_Join") == "Flavius_CTF" )
    {
        getmapxy .@m$, .@x, .@y, 0;
        viewpointmap "bat_b02",1, .@x, .@y, 1, bg_get_data($@BG_Team1,4);
        specialeffect2 73;
        emotion e_hlp,1;
        addtimer 2000, "Flavius_CTF::OnAlphaFlash";
        percentheal -5,-5;
    }
    end;


OnOmegaFlash:
    if( getvariableofnpc(.Flag_Carrier,"Team2_Flag") == getcharid(0) && $@BG_Status == 1 && getvariableofnpc(.BG_Arena$,"BG_Queue_Join") == "Flavius_CTF" )
    {
        getmapxy .@m$, .@x, .@y, 0;
        viewpointmap "bat_b02",1, .@x, .@y, 2, bg_get_data($@BG_Team2,4);
        specialeffect2 73;
        emotion e_hlp,1;
        addtimer 2000, "Flavius_CTF::OnOmegaFlash";
        percentheal -5,-5;
    }
    end;


OnInit:
    disablenpc "Team1_Flag";
    disablenpc "Team2_Flag";
    end;


OnTeam1Quit:
    setquest 8506; // Deserter
    set @killer_bg_src, 0;
    if( $@BG_Status != 0 && getvariableofnpc(.BG_Arena$,"BG_Queue_Join") == "Flavius_CTF" )
        donpcevent "BG_Queue_Join::OnJoinEvent";
OnTeam1Die:
    if( $@BG_Status == 1 && getvariableofnpc(.BG_Arena$,"BG_Queue_Join") == "Flavius_CTF" && getvariableofnpc(.Flag_Carrier,"Team2_Flag") == getcharid(0) )
    { // Drop Flag
        set getvariableofnpc(.Flag_Carrier,"Team2_Flag"), 0;
        pcblock 1,0; // UnBlock Skills/Items
        getmapxy .@m$, .@x, .@y, 0;
        movenpc "Team2_Flag", .@x, .@y;
        mapannounce "bat_b02","Omega Flag Droped by [ " + strcharinfo(0) + " ]",1,bg_get_data($@BG_Team2,4);
        bg_rankpoints "ctf_droped",1;
        bg_rankpoints "fame",1,@killer_bg_src;
        set getvariableofnpc(.Flag_Status,"Team2_Flag"), 1; // OnFloor
        initnpctimer "Team2_Flag";
        enablenpc "Team2_Flag";
    }
    end;
    
OnTeam2Quit:
    setquest 8506; // Deserter
    set @killer_bg_src, 0;
    if( $@BG_Status != 0 && getvariableofnpc(.BG_Arena$,"BG_Queue_Join") == "Flavius_CTF" )
        donpcevent "BG_Queue_Join::OnJoinEvent";
OnTeam2Die:
    if( $@BG_Status == 1 && getvariableofnpc(.BG_Arena$,"BG_Queue_Join") == "Flavius_CTF" && getvariableofnpc(.Flag_Carrier,"Team1_Flag") == getcharid(0) )
    { // Drop Flag
        set getvariableofnpc(.Flag_Carrier,"Team1_Flag"), 0;
        pcblock 1,0; // UnBlock Skills/Items
        getmapxy .@m$, .@x, .@y, 0;
        movenpc "Team1_Flag", .@x, .@y;
        mapannounce "bat_b02","Alpha Flag Droped by [ " + strcharinfo(0) + " ]",1,bg_get_data($@BG_Team1,4);
        bg_rankpoints "ctf_droped",1;
        bg_rankpoints "fame",1,@killer_bg_src;
        set getvariableofnpc(.Flag_Status,"Team1_Flag"), 1; // OnFloor
        initnpctimer "Team1_Flag";
        enablenpc "Team1_Flag";
    }
    end;


OnBuildTeams:
    set $@BG_Team1,bg_team_create("bat_b02",390,10,0,"Flavius_CTF::OnTeam1Quit","Flavius_CTF::OnTeam1Die");
    set $@BG_Team2,bg_team_create("bat_b02",10,290,1,"Flavius_CTF::OnTeam2Quit","Flavius_CTF::OnTeam2Die");
    end;


OnReady:
    if( getvariableofnpc(.BG_Arena$,"BG_Queue_Join") != "Flavius_CTF" )
        end;


    initnpctimer;
    // BG Variables
    set .Team1_Score, 0;
    set .Team2_Score, 0;
    sleep 2000;
    bg_warp $@BG_Team1,"bat_b02",311,224;
    bg_warp $@BG_Team2,"bat_b02",87,75;
    sleep 2000;
    // Respawn NPC's
    donpcevent "#guictf_respawn::OnBGStart";
    donpcevent "#croctf_respawn::OnBGStart";
    // Start Match!!
    donpcevent "Flavius_CTF::OnMatchStart";
    end;


OnMatchStart:
    if( $@BG_Status != 1 || getvariableofnpc(.BG_Arena$,"BG_Queue_Join") != "Flavius_CTF" )
        end;


    // Flags2Base
    donpcevent "Team1_Flag::OnBase";
    donpcevent "Team2_Flag::OnBase";
    mapannounce "bat_b02","The Flags have been set to their Bases!!",8;
    end;


OnTeam1Score:
    set .Team1_Score, .Team1_Score + 1;
    donpcevent "Flavius_CTF::OnMatchStop";
    end;


OnTeam2Score:
    set .Team2_Score, .Team2_Score + 1;
    donpcevent "Flavius_CTF::OnMatchStop";
    end;


OnMatchStop:
    disablenpc "Team1_Flag";
    disablenpc "Team2_Flag";
    bg_updatescore "bat_b02",.Team1_Score,.Team2_Score;


    viewpointmap "bat_b02",2, 0, 0, 1, 0x0000FF;
    viewpointmap "bat_b02",2, 0, 0, 2, 0xFF0000;
    
    if( .Team1_Score > 2 )
    { // Team 1 Won
        mapannounce "bat_b02","The " + bg_get_data($@BG_Team1,2) + " army has won the Battle of Flavius CTF!",1,bg_get_data($@BG_Team1,4);
        donpcevent "Flavius_CTF::OnMatchEnd";
    }
    else if( .Team2_Score > 2 )
    { // Team 2 Won
        mapannounce "bat_b02","The " + bg_get_data($@BG_Team2,2) + " army has won the Battle of Flavius CTF!",1,bg_get_data($@BG_Team2,4);
        donpcevent "Flavius_CTF::OnMatchEnd";
    }
    else
    { // Keep Playing
        sleep 8000;
        donpcevent "Flavius_CTF::OnMatchStart";
    }
    end;


OnTimer600000:
    mapannounce "bat_b02","The Battle will ends in 5 minutes!!",1,0xA0522D;
    end;


OnTimer840000:
    mapannounce "bat_b02","The Battle will ends in 1 minute!!",1,0xA0522D;
    end;


OnTimer900000:
    disablenpc "Team1_Flag";
    disablenpc "Team2_Flag";


    viewpointmap "bat_b02",2, 0, 0, 1, bg_get_data($@BG_Team1,4);
    viewpointmap "bat_b02",2, 0, 0, 2, bg_get_data($@BG_Team2,4);


    if( .Team1_Score > .Team2_Score )
        mapannounce "bat_b02","The " + bg_get_data($@BG_Team1,2) + " army has won the Battle of Flavius CTF!",1,bg_get_data($@BG_Team1,4);
    else if( .Team1_Score < .Team2_Score )
        mapannounce "bat_b02","The " + bg_get_data($@BG_Team2,2) + " army has won the Battle of Flavius CTF!",1,bg_get_data($@BG_Team2,4);
    else
        mapannounce "bat_b02","The battle is over. This is a Tie...!",1,0xA0522D;
    donpcevent "Flavius_CTF::OnMatchEnd";
    end;


OnMatchEnd:
    stopnpctimer;
    disablenpc "Team1_Flag";
    disablenpc "Team2_Flag";
    donpcevent "#guictf_respawn::OnBGStop";
    donpcevent "#croctf_respawn::OnBGStop";
    set $@BG_Status, 2;
    // =======================================================
    // Team Rewards
    // =======================================================
    if( .Team1_Score > .Team2_Score )
    {
        bg_reward $@BG_Team1,7227,30 + .Team1_Score,0,0,"BG_CTF",1,3,0;
        bg_reward $@BG_Team2,7227,10 + .Team2_Score,0,0,"BG_CTF",1,3,2;
    }
    else if( .Team2_Score > .Team1_Score )
    {
        bg_reward $@BG_Team1,7227,30 + .Team1_Score,0,0,"BG_CTF",1,3,2;
        bg_reward $@BG_Team2,7227,10 + .Team2_Score,0,0,"BG_CTF",1,3,0;
    }
    else
    {
        bg_reward $@BG_Team1,7227,10 + .Team1_Score,0,0,"BG_CTF",1,3,1;
        bg_reward $@BG_Team2,7227,10 + .Team2_Score,0,0,"BG_CTF",1,3,1;
    }
    // =======================================================
    set .Team1_Score, 0;
    set .Team2_Score, 0;
    sleep 5000;
    donpcevent "BG_Queue_Join::OnRotate";
    bg_updatescore "bat_b02",0,0;
    end;
}


// Battleground Therapist
// *********************************************************************


bat_b02,390,13,5    script    Therapist in battle#ctf1    95,{
    mes "[Therapist in battle]";
    mes "Just close your eyes, and take a deep breathe.";
    mes "You can be free from pain.";
    specialeffect2 312;
    percentheal 100,100;
    repairall;
    close2;
    openstorage;
    end;
}


bat_b02,10,293,5    script    Therapist in battle#ctf2    95,{
    mes "[Therapist in battle]";
    mes "Just close your eyes, and take a deep breathe.";
    mes "You can be free from pain.";
    specialeffect2 312;
    percentheal 100,100;
    repairall;
    close2;
    openstorage;
    end;
}


// Battleground Respawn
// *********************************************************************


bat_b02,390,10,0    script    #guictf_respawn    139,{
    end;


OnBGStart:
    initnpctimer;
    end;


OnBGStop:
    stopnpctimer;
    end;


OnTimer24000:
    misceffect 83;
    end;


OnTimer25000:
    areapercentheal "bat_b02",382,2,397,17,100,100;
    areawarp "bat_b02",382,2,397,17,"bat_b02",311,224;
    initnpctimer;
    end;
}


bat_b02,10,290,0    script    #croctf_respawn    139,{
    end;


OnBGStart:
    initnpctimer;
    end;


OnBGStop:
    stopnpctimer;
    end;


OnTimer24000:
    misceffect 83;
    end;


OnTimer25000:
    areapercentheal "bat_b02",2,282,17,297,100,100;
    areawarp "bat_b02",2,282,17,297,"bat_b02",87,75;
    initnpctimer;
    end;
}


// Flags
// *********************************************************************


bat_b02,304,231,1    duplicate(Base Flag#bg)    Alpha Base#bat23    973
bat_b02,319,231,1    duplicate(Base Flag#bg)    Alpha Base#bat24    973
bat_b02,304,218,1    duplicate(Base Flag#bg)    Alpha Base#bat25    973
bat_b02,319,218,1    duplicate(Base Flag#bg)    Alpha Base#bat26    973
bat_b02,304,231,1    duplicate(Base Flag#bg)    Alpha Base#bat27    973
bat_b02,304,231,1    duplicate(Base Flag#bg)    Alpha Base#bat28    973
bat_b02,335,142,1    duplicate(Base Flag#bg)    Alpha Base#bat29    973
bat_b02,335,157,1    duplicate(Base Flag#bg)    Alpha Base#bat30    973
bat_b02,390,16,1    duplicate(Base Flag#bg)    Alpha Base#bat31    973
bat_b02,292,163,1    duplicate(Base Flag#bg)    Alpha Base#bat32    973
bat_b02,292,136,1    duplicate(Base Flag#bg)    Alpha Base#bat33    973
bat_b02,241,185,1    duplicate(Base Flag#bg)    Alpha Base#bat34    973
bat_b02,247,179,1    duplicate(Base Flag#bg)    Alpha Base#bat35    973


bat_b02,96,81,1    duplicate(Base Flag#bg)    Omega Base#bat22    974
bat_b02,96,68,1    duplicate(Base Flag#bg)    Omega Base#bat23    974
bat_b02,79,81,1    duplicate(Base Flag#bg)    Omega Base#bat24    974
bat_b02,79,68,1    duplicate(Base Flag#bg)    Omega Base#bat25    974
bat_b02,96,81,1    duplicate(Base Flag#bg)    Omega Base#bat26    974
bat_b02,96,81,1    duplicate(Base Flag#bg)    Omega Base#bat27    974
bat_b02,59,164,1    duplicate(Base Flag#bg)    Omega Base#bat28    974
bat_b02,59,137,1    duplicate(Base Flag#bg)    Omega Base#bat29    974
bat_b02,10,296,1    duplicate(Base Flag#bg)    Omega Base#bat30    974
bat_b02,110,162,1    duplicate(Base Flag#bg)    Omega Base#bat31    974
bat_b02,110,137,1    duplicate(Base Flag#bg)    Omega Base#bat32    974
bat_b02,152,120,1    duplicate(Base Flag#bg)    Omega Base#bat33    974
bat_b02,158,114,1    duplicate(Base Flag#bg)    Omega Base#bat34    974


// MapFlags
// *********************************************************************


bat_b02    mapflag    battleground    2
bat_b02    mapflag    nomemo
bat_b02    mapflag    nosave    SavePoint
bat_b02    mapflag    noteleport
bat_b02    mapflag    nowarp
bat_b02    mapflag    nowarpto
bat_b02    mapflag    noreturn
bat_b02    mapflag    nobranch
bat_b02    mapflag    nopenalty
bat_b02    mapflag    noemergencycall

napalitan ko na kasi ng TCG yan ung 7227 kaso wala namanng reward ngayon na nalabas

Edited June 23, 2013 by Magnetix

Jaburak · June 5, 2013

Please post it as code.

furry · June 5, 2013

e2 na po

Please post it as code.

e2 po

bg_flavius_ctf.txt

Magnetix · June 23, 2013

Learn use the code (<>) tag.

If you already have a script but want to change elements or how it runs or etc, then please avoid posting under Script Request. It falls under Script Support.

Edited June 23, 2013 by Magnetix

Sign In

Need Help Guys para sa BattleGround ng EaMode

Recommended Posts

furry

Link to comment

Share on other sites

Jaburak

Link to comment

Share on other sites

eJay

Link to comment

Share on other sites

furry

Link to comment

Share on other sites

Jaburak

Link to comment

Share on other sites

furry

Link to comment

Share on other sites

Magnetix

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account