4v4

// ------------------------------------------------------------------------------------------
// ------ rAthena Script Release
// Title: Simple 4 vs 4 PVP Gateway
// Author: jTynne - justin@justintynne.com
// Version: 0.1 (Beta)
// Notes:
// v0.1: This is the UNOPTIMIZED release of a simple 4vs4vs4vs4 PVP gateway.
//       There are likely bugs in this version. Please report them as you find them!
//       Please note that this script uses a TON of global variables. Keep that in mind
//       when using this script in the current version.
// ------------------------------------------------------------------------------------------
prontera,161,190,4 script PVP 4vs4 91,{
set .@n$,"[^FF0000PVP Manager^000000]";
set .@charid,getcharid(0);
mes .@n$;
mes "Would you like to register for a 4vs4 PVP Battle?";
next;
menu "Yes",-,"No",L_cancel;
if(getmapusers("guild_vs1") > 0) { mes .@n$; mes "There appears to be a match currently in session. Check back momentarily."; close; end; }
mes .@n$;
mes "Which side of the arena would you like to join?";
next;
menu "North ("+$pvp4nA+"/4)",L_north,"South ("+$pvp4nB+"/4)",L_south,"East ("+$pvp4nC+"/4)",L_east,"West ("+$pvp4nD+"/4)",L_west,"Cancel",L_cancel;
L_north:
if(.@charid == $pvp4nAchar1 || .@charid == $pvp4nAchar2 || .@charid == $pvp4nAchar3 || .@charid == $pvp4nAchar4 || .@charid == $pvp4nBchar1 || .@charid == $pvp4nBchar2 || .@charid == $pvp4nBchar3 || .@charid == $pvp4nBchar4 || .@charid == $pvp4nCchar1 || .@charid == $pvp4nCchar2 || .@charid == $pvp4nCchar3 || .@charid == $pvp4nCchar4 || .@charid == $pvp4nDchar1 || .@charid == $pvp4nDchar2 || .@charid == $pvp4nDchar3 || .@charid == $pvp4nDchar4) { mes .@n$; mes "You may only register once per round."; close; end; }
if($pvp4nA < 4) {
set $pvp4nA,$pvp4nA+1;
if($pvp4nA == 1) { set $pvp4nAchar1,getcharid(0); }
if($pvp4nA == 2) { set $pvp4nAchar2,getcharid(0); }
if($pvp4nA == 3) { set $pvp4nAchar3,getcharid(0); }
if($pvp4nA == 4) { set $pvp4nAchar4,getcharid(0); }
if($pvp4nA == 1 || $pvp4nB == 1 || $pvp4nC == 1 || $pvp4nD == 1) { if($pvp4timer == 0 ) { initnpctimer; set $pvp4timer,1; } }
mes .@n$;
mes "You've joined the selected team. Once the other four teams have filled up, you'll automatically be transferred into the PVP arena. If all four teams do not fill up within the next 30 seconds, this session will be cleared.";
npctalk strcharinfo(0)+" has entered the round on the North side.";
if($pvp4nA == 4 && $pvp4nB == 4 && $pvp4nC == 4 && $pvp4nD == 4) { stopnpctimer; goto L_begin;}
close;
end;
}
goto L_full;
L_south:
if(.@charid == $pvp4nAchar1 || .@charid == $pvp4nAchar2 || .@charid == $pvp4nAchar3 || .@charid == $pvp4nAchar4 || .@charid == $pvp4nBchar1 || .@charid == $pvp4nBchar2 || .@charid == $pvp4nBchar3 || .@charid == $pvp4nBchar4 || .@charid == $pvp4nCchar1 || .@charid == $pvp4nCchar2 || .@charid == $pvp4nCchar3 || .@charid == $pvp4nCchar4 || .@charid == $pvp4nDchar1 || .@charid == $pvp4nDchar2 || .@charid == $pvp4nDchar3 || .@charid == $pvp4nDchar4) { mes .@n$; mes "You may only register once per round."; close; end; }
if($pvp4nB < 4) {
set $pvp4nB,$pvp4nB+1;
if($pvp4nB == 1) { set $pvp4nBchar1,getcharid(0); }
if($pvp4nB == 2) { set $pvp4nBchar2,getcharid(0); }
if($pvp4nB == 3) { set $pvp4nBchar3,getcharid(0); }
if($pvp4nB == 4) { set $pvp4nBchar4,getcharid(0); }
if($pvp4nA == 1 || $pvp4nB == 1 || $pvp4nC == 1 || $pvp4nD == 1) { if($pvp4timer == 0 ) { initnpctimer; } else {set $pvp4timer,1; } }
mes .@n$;
mes "You've joined the selected team. Once the other four teams have filled up, you'll automatically be transferred into the PVP arena. If all four teams do not fill up within the next 30 seconds, this session will be cleared.";
npctalk strcharinfo(0)+" has entered the round on the South side.";
if($pvp4nA == 4 && $pvp4nB == 4 && $pvp4nC == 4 && $pvp4nD == 4) { stopnpctimer; goto L_begin;}
close;
end;
}
goto L_full;
L_east:
if(.@charid == $pvp4nAchar1 || .@charid == $pvp4nAchar2 || .@charid == $pvp4nAchar3 || .@charid == $pvp4nAchar4 || .@charid == $pvp4nBchar1 || .@charid == $pvp4nBchar2 || .@charid == $pvp4nBchar3 || .@charid == $pvp4nBchar4 || .@charid == $pvp4nCchar1 || .@charid == $pvp4nCchar2 || .@charid == $pvp4nCchar3 || .@charid == $pvp4nCchar4 || .@charid == $pvp4nDchar1 || .@charid == $pvp4nDchar2 || .@charid == $pvp4nDchar3 || .@charid == $pvp4nDchar4) { mes .@n$; mes "You may only register once per round."; close; end; }
if($pvp4nC < 4) {
set $pvp4nC,$pvp4nC+1;
if($pvp4nC == 1) { set $pvp4nCchar1,getcharid(0); }
if($pvp4nC == 2) { set $pvp4nCchar2,getcharid(0); }
if($pvp4nC == 3) { set $pvp4nCchar3,getcharid(0); }
if($pvp4nC == 4) { set $pvp4nCchar4,getcharid(0); }
if($pvp4nA == 1 || $pvp4nB == 1 || $pvp4nC == 1 || $pvp4nD == 1) { if($pvp4timer == 0 ) { initnpctimer; } else {set $pvp4timer,1; } }
mes .@n$;
mes "You've joined the selected team. Once the other four teams have filled up, you'll automatically be transferred into the PVP arena. If all four teams do not fill up within the next 30 seconds, this session will be cleared.";
npctalk strcharinfo(0)+" has entered the round on the East side.";
if($pvp4nA == 4 && $pvp4nB == 4 && $pvp4nC == 4 && $pvp4nD == 4) { stopnpctimer; goto L_begin;}
close;
end;
}
goto L_full;
L_west:
if(.@charid == $pvp4nAchar1 || .@charid == $pvp4nAchar2 || .@charid == $pvp4nAchar3 || .@charid == $pvp4nAchar4 || .@charid == $pvp4nBchar1 || .@charid == $pvp4nBchar2 || .@charid == $pvp4nBchar3 || .@charid == $pvp4nBchar4 || .@charid == $pvp4nCchar1 || .@charid == $pvp4nCchar2 || .@charid == $pvp4nCchar3 || .@charid == $pvp4nCchar4 || .@charid == $pvp4nDchar1 || .@charid == $pvp4nDchar2 || .@charid == $pvp4nDchar3 || .@charid == $pvp4nDchar4) { mes .@n$; mes "You may only register once per round."; close; end; }
if($pvp4nD < 4) {
set $pvp4nD,$pvp4nD+1;
if($pvp4nD == 1) { set $pvp4nDchar1,getcharid(0); }
if($pvp4nD == 2) { set $pvp4nDchar2,getcharid(0); }
if($pvp4nD == 3) { set $pvp4nDchar3,getcharid(0); }
if($pvp4nD == 4) { set $pvp4nDchar4,getcharid(0); }
if($pvp4nA == 1 || $pvp4nB == 1 || $pvp4nC == 1 || $pvp4nD == 1) { if($pvp4timer == 0 ) { initnpctimer; } else {set $pvp4timer,1; } }
mes .@n$;
mes "You've joined the selected team. Once the other four teams have filled up, you'll automatically be transferred into the PVP arena. If all four teams do not fill up within the next 30 seconds, this session will be cleared.";
npctalk strcharinfo(0)+" has entered the round on the West side.";
if($pvp4nA == 4 && $pvp4nB == 4 && $pvp4nC == 4 && $pvp4nD == 4) { stopnpctimer; goto L_begin;}
close;
end;
}
goto L_full;
L_full:
mes .@n$;
mes "Sorry, but this team is full. Try another team, please.";
close;
end;
L_begin:
npctalk "All four teams have been filled. All participants currently logged in will be transferred to the arena in ten seconds.";
sleep2 10000;
set .@x,0;
L_warploop:
while (.@x < 16) {
  if (.@x == 0)
   { warpchar "guild_vs1",49,92,$pvp4nAchar1; }
  else if (.@x == 1)
   { warpchar "guild_vs1",49,92,$pvp4nAchar2; }
  else if (.@x == 2)
   { warpchar "guild_vs1",49,92,$pvp4nAchar3; }
  else if (.@x == 3)
   { warpchar "guild_vs1",49,92,$pvp4nAchar4; }
  else if (.@x == 4)
   { warpchar "guild_vs1",49,8,$pvp4nBchar1; }
  else if (.@x == 5)
   { warpchar "guild_vs1",49,8,$pvp4nBchar2; }
  else if (.@x == 6)
   { warpchar "guild_vs1",49,8,$pvp4nBchar3; }
  else if (.@x == 7)
   { warpchar "guild_vs1",49,8,$pvp4nBchar4; }
  else if (.@x == 8)
   { warpchar "guild_vs1",92,50,$pvp4nCchar1; }
  else if (.@x == 9)
   { warpchar "guild_vs1",92,50,$pvp4nCchar2; }
  else if (.@x == 10)
   { warpchar "guild_vs1",92,50,$pvp4nCchar3; }
  else if (.@x == 11)
   { warpchar "guild_vs1",92,50,$pvp4nCchar4; }
  else if (.@x == 12)
   { warpchar "guild_vs1",7,50,$pvp4nDchar1; }
  else if (.@x == 13)
   { warpchar "guild_vs1",7,50,$pvp4nDchar2; }
  else if (.@x == 14)
   { warpchar "guild_vs1",7,50,$pvp4nDchar3; }
  else if (.@x == 15)
   { warpchar "guild_vs1",7,50,$pvp4nDchar4; }
  else
   { npctalk "A round is now in session."; goto L_clear;}
set .@x, .@x + 1;
}
goto L_warploop;
end;
L_cancel:
mes .@n$;
mes "Do come back if you change your mind.";
close;
end;
OnTimer10000:
npctalk "Ten seconds have passed. Entry to the round ends in 20 seconds.";
end;
OnTimer20000:
npctalk "Twenty seconds have passed. Entry to the round ends in 10 seconds.";
end;
OnTimer30000:
npctalk "Thirty seconds have passed and thus I have canceled the round.";
stopnpctimer;
goto L_clear;
L_clear:
set $pvp4timer,0;
set $pvp4nA,0;
set $pvp4nB,0;
set $pvp4nC,0;
set $pvp4nD,0;
set $pvp4nAchar1,0;
set $pvp4nAchar2,0;
set $pvp4nAchar3,0;
set $pvp4nAchar4,0;
set $pvp4nBchar1,0;
set $pvp4nBchar2,0;
set $pvp4nBchar3,0;
set $pvp4nBchar4,0;
set $pvp4nCchar1,0;
set $pvp4nCchar2,0;
set $pvp4nCchar3,0;
set $pvp4nCchar4,0;
set $pvp4nDchar1,0;
set $pvp4nDchar2,0;
set $pvp4nDchar3,0;
set $pvp4nDchar4,0;
end;
}
- script pvp4vs4#1 -1,{
OnPCDieEvent:
getmapxy (.@map$, .@x, .@y, 0);
if(.@map$ == "guild_vs1") { warp "SavePoint",0,0;}
end;
OnPCKillEvent:
getmapxy (.@map$, .@x, .@y, 0);
if( .@map$ == "guild_vs1") {
set .@tempn1$,strcharinfo(0);
set .@tempn2$,rid2name(killedrid);
mapannounce "guild_vs1",""+.@tempn1$+" has killed "+.@tempn2$+".",1,0xD6A4E6;}
end;
}