BG type Emperium breaking

biohazard0134 · October 13, 2012

hmm at Bat_a01 = battle field..

Team A is at the Top of the map

Team B is at the Bottom of the map

each base have their respective emperium

first 1 to break the emperium wins the round

there are 3 rounds first team to get 2 points win the event

i like to have walls at there bases so that in a count of 5 the battle begins

so a team nid to reach the enemy's emperium and destroy it

once destroyed..

announce that Team A or Team B's Emperium is destroyed by "+ strcharinfo " if im right..

then all teams will be warped back at their respective bases and the emperium is refreshed..

then start round two.. if Tie..

announce iTs a Tie.. We are going to the last round..

then begin again

the team who gets two points wins and get the prize

can anyone make it?? sorry got bad explanation..

anyone's effort is much appreciated.. thx

GM Takumirai · November 1, 2012

thanks annie your the best /kis

cadz · November 1, 2012

got error bg_emp0.3.txt

.inprogress = 2;

Edited November 1, 2012 by cadz

xilence01 · November 2, 2012

Does this script works for eAthena?

GM Takumirai · November 11, 2012

*bg_team_setxy <Battle Group ID>,<x>,<y>;
Update the respawn point of the given battle group to x, y on the same map. The <Battle Group ID> can be retrieved using getcharid(4)

Example:

bg_team_setxy getcharid(4),56,212;

mapannounce "bat_a01", "Group [1] has taken the work shop, and will now respawn there.",bc_map,"0xFFCE00";

end;

- @annie sorry for the wrong post , this is the topic that i intended to post..

- where should i put the bg_team_setxy party annie?..

- thanks

@annie i have a question how to put a bg monster in the script a guardian for red team and a guardian for blue team??..

AnnieRuru · November 11, 2012

find

bg_monster .red,"bat_a01",171,346, "--ja--",1915, strnpcinfo(3)+"::OnRedDown";
bg_monster .blue,"bat_a01",162,50, "--ja--",1914, strnpcinfo(3)+"::OnBlueDown";

add below

bg_monster .red,"bat_a01",171,346, "--ja--",1285, strnpcinfo(3)+"::Onguardian";
bg_monster .red,"bat_a01",171,346, "--ja--",1286, strnpcinfo(3)+"::Onguardian";
bg_monster .red,"bat_a01",171,346, "--ja--",1287, strnpcinfo(3)+"::Onguardian";

bg_monster .blue,"bat_a01",162,50, "--ja--",1285, strnpcinfo(3)+"::Onguardian";
bg_monster .blue,"bat_a01",162,50, "--ja--",1286, strnpcinfo(3)+"::Onguardian";
bg_monster .blue,"bat_a01",162,50, "--ja--",1287, strnpcinfo(3)+"::Onguardian";

find

killmonster "bat_a01", strnpcinfo(3)+"::OnRedDown";
killmonster "bat_a01", strnpcinfo(3)+"::OnBlueDown";

add below

killmonster "bat_a01", strnpcinfo(3)+"::Onguardian";

add somewhere

Onguardian: end;

btw did you realize you just asked a noob question :ani_swt3:

Edited November 11, 2012 by AnnieRuru

GM Takumirai · November 12, 2012

Thanks Annie..

- yes im sorry if my question are all noobbish but in that question and you answered back i've learned new things.. although i can search it but examples are better and the wiki explanations..

I Request again Annie.. hope you grant it..

- how to put if 1 of the member of a team die he will gain a full hp after he respawn in the respawning area.

- also how to make a set_cell basilica bat_a01 163 49 blue team and set_cell basilica bat_a01 171 346 red team..

- thanks annie

- full hp [done]

- and basilica onself [done]

i just made it like this

OnRedDead:

OnBlueDead:

sleep2 1500;

percentheal 100,100;

sc_start SC_BASILICA,5000,1;

end;

xilence01 · November 14, 2012

is this working on eathena? i tried it but too many errors on mapserver.

AnnieRuru · November 14, 2012

nope, not compatible with eathena or 3ceam anymore

it just like eamod, that emulator also has their own battleground script commands

I will soon turn script needed source modification to make this script only compatible with rathena only

so ... sry this script is for rathena users only, its the same meaning where that script is only meant for eamod only

Jezu · November 22, 2012

I'll bump this topic.

Found a bug when the game started, the Announcement repeat always on '5'.

Like 5.. 5... 5... 5.. 5... 5...

is there a problem on script or on the SVN?

AnnieRuru · November 22, 2012

mapannounce "bat_a01", "Round "+ .round++ +" start!", 0;

is

mapannounce "bat_a01", "Round "+( set( .round, .round +1 ) )+" start!", 0;

    for ( .@i = 5; .@i > 0; .@i-- ) {
       mapannounce "bat_a01", .@i +"", 0;

is

    for ( set .@i, 5; .@i > 0; set .@i, .@i -1 ) {
       mapannounce "bat_a01", .@i +"", 0;

you probably not using rathena ... perhaps ?

GM Takumirai · November 22, 2012

Yes maybe he is not using rathena.. i cant reproduce the problem..

Feefty · November 30, 2012

lol

actually I'm even more amazed that you can edit until this standard

proved that you almost mastered level2 event script ( 80% experience now... about to level up )

( I still remember before I went inactive last year, you still learning how to make level1 event script )

no wonder that party vs party script I saw that day has your name in the credit

right now if you make 2 or 3 more pvp/gvg scripts I'm sure you can start writing a battleground scripts

still, I think this is your 1st attempt to edit a battleground script

like I said in other topic, battleground and instance script is a level3 event script

because they got their own sets of script commands to effectively cut down the length of the script

using the techniques learn from pvp/gvg scripts without utilizing battleground script commands will make your script looks big

nvm, suddenly I got motivation to update this script

bg_emp0.3.txt

I still doesn't make the respawn area outside of crystal though

how can you make only level 150 can enter the pub?

GM Takumirai · November 30, 2012

- the best i can think is to hide the 2 pub in map that can't be warp by your players,

then put this NPC outside or in your town this will be their portal entry to go to the 2 pub


gonryun,167,98,3 script BG Portal 1015,{
if (BaseLevel <= 149 && JobLevel <= 30){
mes "[banker]";
mes "Welcome to the BG Emperium Portal!";
next;
mes "Do you want to participate?";
next;
select("Yes");
warp "prontera",42,369;
}
else {
mes "[bG Manager]";
mes "Sorry, you are not allowed to participate.";
next;
mes "You need to have at least";
mes "^FF0000Job Level 30 Above^000000 and ^FF0000Base Level 150^000000";
close;
}

Edited November 30, 2012 by GM Takumirai

Feefty · November 30, 2012

- the best i can think is to hide the 2 pub in map that can't be warp by your players,

then put this NPC outside or in your town this will be their portal entry to go to the 2 pub


gonryun,167,98,3 script BG Portal 1015,{
if (BaseLevel <= 149 && JobLevel <= 30){
mes "[banker]";
mes "Welcome to the BG Emperium Portal!";
next;
mes "Do you want to participate?";
next;
select("Yes");
warp "prontera",42,369;
}
else {
mes "[bG Manager]";
mes "Sorry, you are not allowed to participate.";
next;
mes "You need to have at least";
mes "^FF0000Job Level 30 Above^000000 and ^FF0000Base Level 150^000000";
close;
}

i also think about that. thanks.

is it possible to make this an instance?

Edited: my client is crashing after moving the npc to different location.

Edited November 30, 2012 by Feefty

cadz · November 30, 2012

annie can you make this in eathena?

GM Takumirai · November 30, 2012

check your map..

Feefty · November 30, 2012

check your map..

i did check the map and it's working fine but when the waiting is ready to port us im getting the crash.

- script bg_emp#control -1,{
OnInit:
setarray .rewarditem, 31003, 9; // reward to the winning team
set .winningscore, 2; // final score to win
set .eventlasting, 20 * 60; // abort the system if there's no progress, 20 mins * seconds
set .register_lasting, 10 * 60; // 10 minutes to joins, else abort registration, 10 mins * seconds
sleep 1;
disablenpc .rednpcname$;
disablenpc .bluenpcname$;
disablenpc "BG Warper#bg_emp";
end;
OnStart:
if ( getwaitingroomstate( 0, .rednpcname$ ) < .minplayer2start || getwaitingroomstate( 0, .bluenpcname$ ) < .minplayer2start ) end;
set .red, waitingroom2bg( "bat_c01", 53,128, strnpcinfo(0)+"::OnRedQuit", strnpcinfo(0)+"::OnRedDead", .rednpcname$ );
copyarray .team1aid, $@arenamembers, $@arenamembersnum;
set .blue, waitingroom2bg( "bat_c01", 146,55, strnpcinfo(0)+"::OnBlueQuit", strnpcinfo(0)+"::OnBlueDead", .bluenpcname$ );
copyarray .team2aid, $@arenamembers, $@arenamembersnum;
.inprogress = 2;
awake strnpcinfo(0);
bg_warp .red, "bat_c01", 53,128;
bg_warp .blue, "bat_c01", 146,55;
setwall "bat_c01", 145,61, 5, 2, 0, "bg_emp_town_blue1";
setwall "bat_c01", 140,56, 5, 0, 0, "bg_emp_town_blue2";
setwall "bat_c01", 59,127, 5, 4, 0, "bg_emp_town_red1";
setwall "bat_c01", 54,122, 5, 6, 0, "bg_emp_town_red2";
bg_updatescore "bat_c01", 0, 0;
sleep 6000; if ( .inprogress == 0 ) goto L_Abort;
mapannounce "bat_c01", "Rules are simple. The first one to break the opponent's emperium will get a score.", 0;
sleep 3000; if ( .inprogress == 0 ) goto L_Abort;
mapannounce "bat_c01", "Score "+ .winningscore +" rounds to win ! ... GET READY", 0;
sleep 2000; if ( .inprogress == 0 ) goto L_Abort;
while (1) {
 for ( .@i = 5; .@i > 0; .@i-- ) {
  mapannounce "bat_c01", .@i +"", 0;
  sleep 1000; if ( .inprogress == 0 ) goto L_Abort;
 }
 if ( .score[1] == .winningscore -1 && .score[2] == .winningscore -1 )
  mapannounce "bat_c01", "Final Round start!", 0;
 else
  mapannounce "bat_c01", "Round "+ .round++ +" start!", 0;
 bg_monster .red,"bat_c01",53,128, "--ja--",1915, strnpcinfo(3)+"::OnRedDown";
 bg_monster .blue,"bat_c01",146,55, "--ja--",1914, strnpcinfo(3)+"::OnBlueDown";
 delwall "bg_emp_town_red1";
 delwall "bg_emp_town_red2";
 delwall "bg_emp_town_blue1";
 delwall "bg_emp_town_blue2";
 sleep .eventlasting * 1000; if ( .inprogress == 0 ) goto L_Abort;
 .score[ .winside ]++;
 bg_updatescore "bat_c01", .score[1], .score[2];
 killmonster "bat_c01", strnpcinfo(3)+"::OnRedDown";
 killmonster "bat_c01", strnpcinfo(3)+"::OnBlueDown";
 if ( .winside )
  mapannounce "bat_c01", .empkiller$ +" has Destroy "+( ( .winside == 1 )?"Blue":"Red" )+"'s side Emperium. "+( ( .winside == 1 )?"Red":"Blue" )+" team score a point !", 0;
 if ( .score[1] == .winningscore || .score[2] == .winningscore || !.winside ) break;
 sleep 5000; if ( .inprogress == 0 ) goto L_Abort;
 bg_warp .red, "bat_c01", 53,128;
 bg_warp .blue, "bat_c01", 146,55;
 setwall "bat_c01", 143,61, 5, 2, 0, "bg_emp_town_blue1";
 setwall "bat_c01", 140,58, 5, 0, 0, "bg_emp_town_blue2";
 setwall "bat_c01", 59,125, 5, 0, 0, "bg_emp_town_red1";
 setwall "bat_c01", 57,122, 5, 2, 0, "bg_emp_town_red2";
 .winside = 0;
}
if ( .winside ) {
 mapannounce "bat_c01", ( ( .winside == 1 )?"Red":"Blue" )+" side wins !", 0;
 .@size = getarraysize( getd(".team"+ .winside +"aid") );
 for ( .@i = 0; .@i < .@size; .@i++ )
  getitem .rewarditem[0], .rewarditem[1], getd(".team"+ .winside +"aid["+ .@i +"]" );
} else
 mapannounce "bat_c01", "Time Out. Aborting the match.", 0;
sleep 5000;
L_Abort:
bg_warp .red, "heiron", 100,37;
bg_warp .blue, "heiron", 100,37;
bg_destroy .red;
bg_destroy .blue;
delwall "bg_emp_town_red1";
delwall "bg_emp_town_red2";
delwall "bg_emp_town_blue1";
delwall "bg_emp_town_blue2";
deletearray .team1aid;
deletearray .team2aid;
.round = .winside = .score[2] = .score[1] = .inprogress = 0;
end;
OnRedDown: callsub L_EmpDown, 2;
OnBlueDown: callsub L_EmpDown, 1;
L_EmpDown:
.empkiller$ = strcharinfo(0);
.winside = getarg(0);
awake strnpcinfo(3);
OnRedDead:
OnBlueDead:
end;
OnRedQuit: callsub L_quit, .red, "Red", "Blue", 2;
OnBlueQuit: callsub L_quit, .blue, "Blue", "Red", 1;
L_quit:
if ( bg_get_data( getarg(0), 0 ) ) end;
mapannounce "bat_c01", "All "+ getarg(1) +" team members has Quit ! "+ getarg(2) +" side wins !", 0;
.@size = getarraysize( getd(".team"+ getarg(3) +"aid") );
for ( .@i = 0; .@i < .@size; .@i++ )
 getitem .rewarditem[0], .rewarditem[1], getd(".team"+ getarg(3) +"aid["+ .@i +"]" );
goto L_Abort;
OnAutoAbort:
sleep .register_lasting * 1000;
delwaitingroom .rednpcname$;
delwaitingroom .bluenpcname$;
disablenpc .rednpcname$;
disablenpc .bluenpcname$;
disablenpc "BG Warper#bg_emp";
if ( .inprogress == 1 ) {
 .inprogress = 0;
 announce "battleground has self-aborted because not enough members", 0;
}
end;
}
- script bg_start -1,{

OnInit:
 bindatcmd("bgemp", "bg_start::OnAtcommand", 90, 90);
end;

OnAtcommand:
if ( getgmlevel() < 99 ) {
 mes "I only talk to gm";
 close;
}
if ( getvariableofnpc( .inprogress, "bg_emp#control" ) ) {
 mes "abort ?";
 next;
 if ( select ( "Yes", "No" ) == 2 ) close;
 set getvariableofnpc( .inprogress, "bg_emp#control" ), 0;
 awake "bg_emp#control";
 killmonster "bat_c01", "bg_emp#control::OnRedDown";
 killmonster "bat_c01", "bg_emp#control::OnBlueDown";
 announce strcharinfo(0) +" has abort the battleground", 0;
 close;
}
mes "select how many players to start";
next;
if ( input( .@a, 1, 30 ) ) close;
set getvariableofnpc( .minplayer2start, "bg_emp#control" ), .@a;
announce strcharinfo(0) +" has hosted "+ .@a +" vs "+ .@a +" Battle Ground.", 0;
enablenpc getvariableofnpc( .rednpcname$, "bg_emp#control" );
enablenpc getvariableofnpc( .bluenpcname$, "bg_emp#control" );
enablenpc "BG Warper#bg_emp";
donpcevent getvariableofnpc( .rednpcname$, "bg_emp#control" ) +"::OnStart";
donpcevent getvariableofnpc( .bluenpcname$, "bg_emp#control" ) +"::OnStart";
set getvariableofnpc( .inprogress, "bg_emp#control" ), 1;
donpcevent "bg_emp#control::OnAutoAbort";
close;
end;
}
06guild_01,45,54,5 script Red Side#bg_emp 100,{
end;
OnStart:waitingroom "Red side", getvariableofnpc( .minplayer2start, "bg_emp#control" ) +1, "bg_emp#control::OnStart", getvariableofnpc( .minplayer2start, "bg_emp#control" );
end;
OnInit:
set getvariableofnpc( .rednpcname$, "bg_emp#control" ), strnpcinfo(0);
end;
}
06guild_01,54,54,5 script Blue Side#bg_emp 100,{
end;
OnStart:
waitingroom "Blue side", getvariableofnpc( .minplayer2start, "bg_emp#control" ) +1, "bg_emp#control::OnStart", getvariableofnpc( .minplayer2start, "bg_emp#control" );
end;
OnInit:
set getvariableofnpc( .bluenpcname$, "bg_emp#control" ), strnpcinfo(0);
end;
}
heiron,99,35,4 script BG Warper#bg_emp 827,{
set .name$, "^ff0000[bG Warper]^000000";

mes .name$;
mes "Do you want to go in BG Waiting Room?";
next;
menu "Yes", L_Yes, "No", L_No;

L_Yes:
 mes .name$;
 if (BaseLevel < 150)
 {
  mes "You need to be level 150 to get in the BG Waiting Room";
  close;
 }
 mes "Good luck and have fun.";
 warp "06guild_01",50,50;
end;

L_No:
 close;
end;
}
06guild_01,50,6,0 warp toheiron 2,2,heiron,99,35
bat_c01 mapflag battleground 2
bat_c01 mapflag nosave SavePoint
bat_c01 mapflag nowarp
bat_c01 mapflag nowarpto
bat_c01 mapflag noteleport
bat_c01 mapflag nomemo
bat_c01 mapflag nopenalty
bat_c01 mapflag nobranch
bat_c01 mapflag noicewall
bat_c01 mapflag nocommand 10
06guild_01 mapflag pvp off
06guild_01 mapflag gvg off
06guild_01 mapflag nobranch
06guild_01 mapflag noicewall
06guild_01 mapflag nomemo
06guild_01 mapflag nowarp
06guild_01 mapflag nowarpto
06guild_01 mapflag noteleport
06guild_01 mapflag nosave SavePoint

Edited November 30, 2012 by Emistry
Please use [CODEBOX] or Attachments for long contents.

AnnieRuru · November 30, 2012

what are you doing ???

this topic has went in wrong direction

*waitingroom "<chatroom name>",<limit>{,<event label>,<trigger>,<required zeny>,<min lvl>,<max lvl>};

change

waitingroom "Red side", getvariableofnpc( .minplayer2start, "bg_emp#control" ) +1, "bg_emp#control::OnStart", getvariableofnpc( .minplayer2start, "bg_emp#control" );

into

waitingroom "Red side", getvariableofnpc( .minplayer2start, "bg_emp#control" ) +1, "bg_emp#control::OnStart", getvariableofnpc( .minplayer2start, "bg_emp#control" ), 0, 150, 150;

I want to repeat this again <.<

I want to make a reminder

still, I think this is your 1st attempt to edit a battleground script

like I said in other topic, battleground and instance script is a level3 event script

because they got their own sets of script commands to effectively cut down the length of the script

using the techniques learn from pvp/gvg scripts without utilizing battleground script commands will make your script looks big

that's why even though I already know how to script pvp/gvg script 3 years ago,

now I am still learning how to produce battleground scripts

its a totally different experience

@cadz

no I don't want <3

only rathena and eamod has custom battleground script release

go figure out yourself, or switch to rathena

Edited December 1, 2012 by AnnieRuru

uDe · December 1, 2012

May I request to add more function for this script?

AnnieRuru · December 1, 2012

May I request to add more function for this script?

please follow script request rules and open a new topic for it

as this topic has already done its discussion

so you can do something like -> .. in a new topic

I like to request add modification of this script ...

I want to add this blah blah blah feature ...

I'm using rathena 16xxx

uDe · December 2, 2012

May I request to add more function for this script?

please follow script request rules and open a new topic for it
as this topic has already done its discussion

so you can do something like -> .. in a new topic

I like to request add modification of this script ...

I want to add this blah blah blah feature ...

I'm using rathena 16xxx

All right! Thanks /kis

caspa · January 28, 2013

how can you make this script automatic?no need for the GM to activate or whatever........

Edited January 30, 2013 by caspa

xmaniacx · January 29, 2013

NVM....... Problem SOLVED.......

Edited January 30, 2013 by xmaniacx

Wise · April 13, 2013

sorry to bump on this topic but...

is it possible to actually change the emperium's style of destroying it?

example: im red team, emperium at beginning is neutral. red team destroys the neutral emperium. emperium now belongs to red team (red team cant attack their own emperium and emperium's name will be [Red] Emperium) and red team gains rand(200,500); points. every 2 seconds, red team gains rand(4,12); points because they still have the emperium. Blue team has to destroy it and red team has to protect it.

first team to get 5000 points wins.

*something like Tera Online's fraywind canyon script, which is kind-of this XD

Erba · September 25, 2013

does this still needs the src modification which was made by annie for bg?

Sign In

BG type Emperium breaking

Question

Link to comment

Share on other sites

Top Posters For This Question

Popular Days

Top Posters For This Question

Popular Days

Popular Posts

AnnieRuru

Posted Images

55 answers to this question

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members