// http://herc.ws/board/topic/15915-a-battleground-idea-d/
prontera,150,185,5 script bg_assassination 1_F_MARIA,{
if ( .start ) {
mes "battleground in progress...";
close;
}
.@it = queueiterator( .qid );
for ( .@aid = qiget(.@it); qicheck(.@it); .@aid = qiget(.@it) ) {
if ( .@aid == getcharid(CHAR_ID_ACCOUNT) ) {
mes "You already join the queue.";
qiclear .@it;
close;
}
}
qiclear .@it;
select "join";
mes "you have to stick to this map";
close2;
queueadd .qid, getcharid(CHAR_ID_ACCOUNT);
if ( queuesize(.qid) < .minplayer2start *2 ) {
announce queuesize(.qid) +" players join", bc_npc | bc_area;
end;
}
.start = true;
.red = bg_create_team( "bat_c01", 53,128 );
.blue = bg_create_team( "bat_c01", 146,56 );
.qred = queue();
.qblue = queue();
queueopt .qred, QUEUEOPT_DEATH, strnpcinfo(NPC_NAME) +"::OnRedDead";
queueopt .qred, QUEUEOPT_LOGOUT, strnpcinfo(NPC_NAME) +"::OnRedQuit";
queueopt .qblue, QUEUEOPT_DEATH, strnpcinfo(NPC_NAME) +"::OnBlueDead";
queueopt .qblue, QUEUEOPT_LOGOUT, strnpcinfo(NPC_NAME) +"::OnBlueQuit";
.@it = queueiterator( .qid );
while ( .@num = qiget(.@it) )
.@aid[.@size++] = .@num;
qiclear .@it;
queuedel .qid;
.qid = queue();
queueopt .qid, QUEUEOPT_LOGOUT, strnpcinfo(0)+"::OnQuitRegister";
queueopt .qid, QUEUEOPT_MAPCHANGE, strnpcinfo(0)+"::OnQuitRegister";
callfunc "F_ShuffleNumbers", 0, .@size -1, .@r;
for ( .@i = 0; .@i < .@size; ++.@i ) {
bg_join_team ( .@i % 2 )? .red : .blue, .@aid[ .@r[.@i] ];
queueadd ( .@i % 2 )? .qred : .qblue, .@aid[ .@r[.@i] ];
}
bg_updatescore "bat_c01", 0, 0;
bg_warp .red, "bat_c01", 53,128;
bg_warp .blue, "bat_c01", 146,56;
queueopt .qred, QUEUEOPT_MAPCHANGE, strnpcinfo(NPC_NAME) +"::OnRedMapChange";
queueopt .qblue, QUEUEOPT_MAPCHANGE, strnpcinfo(NPC_NAME) +"::OnBlueMapChange";
setwall "bat_c01", 54,122, 6, DIR_NORTHEAST, 0, "bg_pvp_leader_red";
setwall "bat_c01", 140,56, 6, DIR_NORTHEAST, 0, "bg_pvp_leader_blue";
if ( !.skip ) sleep 10000;
bg_updatescore "bat_c01", .score[ .red ], .score[ .blue ];
while ( true ) {
for ( .@i = 5; .@i > 0; --.@i ) {
mapannounce "bat_c01", "["+ .@i +"]", bc_map;
if ( !.skip ) sleep 1000;
}
if ( .score[ .red ] == .winningscore -1 && .score[ .blue ] == .winningscore -1 )
mapannounce "bat_c01", "Final Round start!", bc_map;
else
mapannounce "bat_c01", "Round "+ ++.round +" start!", bc_map;
callsub L_SetLeader, .qred, "Red";
callsub L_SetLeader, .qblue, "Blue";
detachrid;
delwall "bg_pvp_leader_red";
delwall "bg_pvp_leader_blue";
if ( !.skip ) sleep .eventlasting * 1000;
deletearray .leader_aid;
bg_updatescore "bat_c01", .score[ .red ], .score[ .blue ];
if ( .score[ .red ] == .winningscore || .score[ .blue ] == .winningscore || !.winside ) break;
.winside = 0;
if ( !.skip ) sleep 1000;
bg_warp .red, "bat_c01", 53,128;
bg_warp .blue, "bat_c01", 146,56;
setwall "bat_c01", 54,122, 6, DIR_NORTHEAST, 0, "bg_pvp_leader_red";
setwall "bat_c01", 140,56, 6, DIR_NORTHEAST, 0, "bg_pvp_leader_blue";
}
if ( .score[ .red ] > .score[ .blue ] ) {
mapannounce "bat_c01", "- Red side wins !", bc_map;
.@it = queueiterator( .qred );
while ( .@aid = qiget(.@it) )
getitem .rewarditem[0], .rewarditem[1], .@aid;
qiclear .@it;
}
else if ( .score[ .blue ] > .score[ .red ] ) {
mapannounce "bat_c01", "- Blue side wins !", bc_map;
.@it = queueiterator( .qblue );
while ( .@aid = qiget(.@it) )
getitem .rewarditem[0], .rewarditem[1], .@aid;
qiclear .@it;
}
else
mapannounce "bat_c01", "Time Out. Aborting the match.", bc_map;
sleep 5000;
queuedel .qred;
queuedel .qblue;
bg_warp .red, "prontera", 145,182;
bg_warp .blue, "prontera", 155,182;
bg_destroy .red;
bg_destroy .blue;
.round = .winside = .skip = .start = 0;
deletearray .score;
end;
OnQuitRegister:
queueremove .qid, getcharid(CHAR_ID_ACCOUNT);
end;
OnInit:
.minplayer2start = 2; // minimum players to start (ex. if 3vs3, set to 3).
.winningscore = 2; // how many rounds to win
.eventlasting = 20*60; // event duration before auto-reset (20 minutes * seconds)
setarray .rewarditem[0], // rewards for the winning team: <item>,<amount>,...
501, 10;
.qid = queue();
queueopt .qid, QUEUEOPT_LOGOUT, strnpcinfo(0)+"::OnQuitRegister";
queueopt .qid, QUEUEOPT_MAPCHANGE, strnpcinfo(0)+"::OnQuitRegister";
end;
OnRedDead: callsub L_Dead, .qred, "Red", .blue;
OnBlueDead: callsub L_Dead, .qblue, "Blue", .red;
L_Dead:
if ( .leader_aid[ getarg(0) ] == getcharid(CHAR_ID_ACCOUNT) ) {
if ( killerrid == getcharid(CHAR_ID_ACCOUNT) )
mapannounce "bat_c01", "The target ["+ strcharinfo(PC_NAME) +"] From "+ getarg(1) +" Team has suicide !", bc_map;
else if ( killerrid )
mapannounce "bat_c01", "The target ["+ strcharinfo(PC_NAME) +"] From "+ getarg(1) +" Team has assassinated by ["+ rid2name(killerrid) +"] !", bc_map;
else
mapannounce "bat_c01", "The target ["+ strcharinfo(PC_NAME) +"] From "+ getarg(1) +" Team has been killed !", bc_map;
.winside = getarg(2);
++.score[ .winside ];
awake strnpcinfo(0);
}
sleep2 1250;
percentheal 100,100;
end;
OnRedMapChange: OnRedQuit: callsub L_Quit, .red, "Red", .blue, .qred;
OnBlueMapChange: OnBlueQuit: callsub L_Quit, .blue, "Blue", .red, .qblue;
L_Quit:
percentheal 100, 100;
bg_leave;
if ( !bg_get_data( getarg(0), 0 ) ) {
mapannounce "bat_c01", "All "+ getarg(1) +" Team members has left the Game !", bc_map;
.score[ getarg(2) ] = .winningscore;
.skip = true;
awake strnpcinfo(0);
}
else if ( .leader_aid[ getarg(3) ] == getcharid(CHAR_ID_ACCOUNT) ) {
mapannounce "bat_c01", "The target ["+ strcharinfo(PC_NAME) +"] From "+ getarg(1) +" Team has left the Game !", bc_map;
.winside = getarg(2);
++.score[ .winside ];
awake strnpcinfo(0);
}
end;
L_SetLeader:
.@it = queueiterator( getarg(0) );
while ( .@num = qiget(.@it) )
.@aid[.@c++] = .@num;
qiclear .@it;
.leader_aid[ getarg(0) ] = .@aid[ rand(.@c) ];
attachrid .leader_aid[ getarg(0) ];
addtimer 1, strnpcinfo(0) +"::OnSetTeam"+ getarg(1) +"Leader";
return;
OnSetTeamRedLeader: callsub L_LeaderEffect, .qred, EF_RED_HIT;
OnSetTeamBlueLeader: callsub L_LeaderEffect, .qblue, EF_BLUE_HIT;
L_LeaderEffect:
while ( .leader_aid[ getarg(0) ] == getcharid(CHAR_ID_ACCOUNT) ) {
specialeffect getarg(1), AREA, getcharid(CHAR_ID_ACCOUNT);
sleep2 1000;
}
end;
}
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