request help myy

anginputih · February 16, 2012

// ------------------------------------------------------------------------------------------
// ------ rAthena Script Release
// Title: Simple 4 vs 4 PVP Gateway
// Author: jTynne - [email protected]
// 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 [email protected]$,"[^FF0000PVP Manager^000000]";
set [email protected],getcharid(0);
mes [email protected]$;
mes "Would you like to register for a 4vs4 PVP Battle?";
next;
menu "Yes",-,"No",L_cancel;
if(getmapusers("guild_vs1") > 0) { mes [email protected]$; mes "There appears to be a match currently in session. Check back momentarily."; close; end; }
mes [email protected]$;
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([email protected] == $pvp4nAchar1 || [email protected] == $pvp4nAchar2 || [email protected] == $pvp4nAchar3 || [email protected] == $pvp4nAchar4 || [email protected] == $pvp4nBchar1 || [email protected] == $pvp4nBchar2 || [email protected] == $pvp4nBchar3 || [email protected] == $pvp4nBchar4 || [email protected] == $pvp4nCchar1 || [email protected] == $pvp4nCchar2 || [email protected] == $pvp4nCchar3 || [email protected] == $pvp4nCchar4 || [email protected] == $pvp4nDchar1 || [email protected] == $pvp4nDchar2 || [email protected] == $pvp4nDchar3 || [email protected] == $pvp4nDchar4) { mes [email protected]$; 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 [email protected]$;
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([email protected] == $pvp4nAchar1 || [email protected] == $pvp4nAchar2 || [email protected] == $pvp4nAchar3 || [email protected] == $pvp4nAchar4 || [email protected] == $pvp4nBchar1 || [email protected] == $pvp4nBchar2 || [email protected] == $pvp4nBchar3 || [email protected] == $pvp4nBchar4 || [email protected] == $pvp4nCchar1 || [email protected] == $pvp4nCchar2 || [email protected] == $pvp4nCchar3 || [email protected] == $pvp4nCchar4 || [email protected] == $pvp4nDchar1 || [email protected] == $pvp4nDchar2 || [email protected] == $pvp4nDchar3 || [email protected] == $pvp4nDchar4) { mes [email protected]$; 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 [email protected]$;
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([email protected] == $pvp4nAchar1 || [email protected] == $pvp4nAchar2 || [email protected] == $pvp4nAchar3 || [email protected] == $pvp4nAchar4 || [email protected] == $pvp4nBchar1 || [email protected] == $pvp4nBchar2 || [email protected] == $pvp4nBchar3 || [email protected] == $pvp4nBchar4 || [email protected] == $pvp4nCchar1 || [email protected] == $pvp4nCchar2 || [email protected] == $pvp4nCchar3 || [email protected] == $pvp4nCchar4 || [email protected] == $pvp4nDchar1 || [email protected] == $pvp4nDchar2 || [email protected] == $pvp4nDchar3 || [email protected] == $pvp4nDchar4) { mes [email protected]$; 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 [email protected]$;
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([email protected] == $pvp4nAchar1 || [email protected] == $pvp4nAchar2 || [email protected] == $pvp4nAchar3 || [email protected] == $pvp4nAchar4 || [email protected] == $pvp4nBchar1 || [email protected] == $pvp4nBchar2 || [email protected] == $pvp4nBchar3 || [email protected] == $pvp4nBchar4 || [email protected] == $pvp4nCchar1 || [email protected] == $pvp4nCchar2 || [email protected] == $pvp4nCchar3 || [email protected] == $pvp4nCchar4 || [email protected] == $pvp4nDchar1 || [email protected] == $pvp4nDchar2 || [email protected] == $pvp4nDchar3 || [email protected] == $pvp4nDchar4) { mes [email protected]$; 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 [email protected]$;
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 [email protected]$;
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 [email protected],0;
L_warploop:
while ([email protected] < 16) {
	if ([email protected] == 0)
		{ warpchar "guild_vs1",49,92,$pvp4nAchar1; }
	else if ([email protected] == 1)
		{ warpchar "guild_vs1",49,92,$pvp4nAchar2; }
	else if ([email protected] == 2)
		{ warpchar "guild_vs1",49,92,$pvp4nAchar3; }
	else if ([email protected] == 3)
		{ warpchar "guild_vs1",49,92,$pvp4nAchar4; }
	else if ([email protected] == 4)
		{ warpchar "guild_vs1",49,8,$pvp4nBchar1; }
	else if ([email protected] == 5)
		{ warpchar "guild_vs1",49,8,$pvp4nBchar2; }
	else if ([email protected] == 6)
		{ warpchar "guild_vs1",49,8,$pvp4nBchar3; }
	else if ([email protected] == 7)
		{ warpchar "guild_vs1",49,8,$pvp4nBchar4; }
	else if ([email protected] == 8)
		{ warpchar "guild_vs1",92,50,$pvp4nCchar1; }
	else if ([email protected] == 9)
		{ warpchar "guild_vs1",92,50,$pvp4nCchar2; }
	else if ([email protected] == 10)
		{ warpchar "guild_vs1",92,50,$pvp4nCchar3; }
	else if ([email protected] == 11)
		{ warpchar "guild_vs1",92,50,$pvp4nCchar4; }
	else if ([email protected] == 12)
		{ warpchar "guild_vs1",7,50,$pvp4nDchar1; }
	else if ([email protected] == 13)
		{ warpchar "guild_vs1",7,50,$pvp4nDchar2; }
	else if ([email protected] == 14)
		{ warpchar "guild_vs1",7,50,$pvp4nDchar3; }
	else if ([email protected] == 15)
		{ warpchar "guild_vs1",7,50,$pvp4nDchar4; }
	else
		{ npctalk "A round is now in session."; goto L_clear;}
set [email protected], [email protected] + 1;
}
goto L_warploop;
end;

L_cancel:
mes [email protected]$;
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 ([email protected]$, [email protected], [email protected], 0);
if([email protected]$ == "guild_vs1") { warp "SavePoint",0,0;}
end;

OnPCKillEvent:
getmapxy ([email protected]$, [email protected], [email protected], 0);
if( [email protected]$ == "guild_vs1") {
set [email protected]$,strcharinfo(0);
set [email protected]$,rid2name(killedrid);
mapannounce "guild_vs1",""[email protected]$+" has killed "[email protected]$+".",1,0xD6A4E6;}
end;
}

pleas help my for set my prize blodybranch

idont understand script size prize blodybranch script party vs party

Edited February 16, 2012 by Arcenciel
Codeboxed

topechi · February 6, 2017

Why can't i register even though i am the party leader? it keeps saying that i have to be a party leader to register?

Akkarin · February 6, 2017

9 hours ago, topechi said:

Why can't i register even though i am the party leader? it keeps saying that i have to be a party leader to register?

Please stop necro'ing old posts

Also, I wouldn't expect old scripts to be 100% compatible with the current rAthena scripting engine.

Emistry · February 16, 2012

erm..i see your script using alot of Permanent Global Variable...

it is better not to use Permanent Global Variable to store this type of information or data...

if you want..you can try script it like this way..

( Untested Script due to my PC Messed up....my Test Server Gone.. )

prontera,155,181,5 script Sample 757,{
mes "Do you want to register for Team PK ?";
if( getarraysize( .TeamCount ) ){
for( set [email protected],0; [email protected] < getarraysize( .TeamCount ); set [email protected],[email protected] + 1 )
 mes "[ ^FF0000"+getarraysize( .TeamCount )+"th Team^000000 ] : ^0000FF"+getpartyname( .TeamCount[[email protected]] )+"^000000";
}
next;
if( select("Register as "+( getarraysize( .TeamCount ) + 1 )+"th Team:Cancel") == 2 ) close;
if( !getcharid(1) || getpartyleader( getcharid(1),2 ) != getcharid(1) ){
mes "You must be a ^0000FFLeader^000000 of a party to register for this .";
close;
}
deletearray [email protected],getarraysize( [email protected] );
deletearray [email protected],getarraysize( [email protected] );
getpartymember getcharid(1),1;
if( [email protected] != .RequiredMember ){
mes "Your party required total of ^FF0000"+.RequiredMember+"^000000 Members to register.";
close;
}
if( getarraysize( .TeamCount ) >= .TeamLimit ){
mes "Sorry to inform you that there is no more Slot for you to register.";
mes "Maximum of ^FF0000"+.TeamLimit+" Team^000000 each match.";
close;
}
for( set [email protected],0; getarraysize( .TeamCount ); set [email protected],[email protected] + 1 )
if( getcharid(1) == .TeamCount[[email protected]] ){
 mes "Sorry, you cant register twice in a match.";
 close;
}
set .TeamCount[ getarraysize( .TeamCount ) ],getcharid(1);
announce "New Team Registered, "+getarraysize( .TeamCount )+"th Team is "+getpartyname( getcharid(1) )+" .",bc_map;
mes "Your Team has been Registered.";
mes "However, the Registration will be eliminate if there is not enough team sign up in the next minutes.";
initnpctimer;
close;
OnTimer60000:
if( getarraysize( .TeamCount ) < .TeamLimit ){
announce "[ Team PK ] : Cancelled due to not enough teams Register in given time.",0;
deletearray .TeamCount,getarraysize( .TeamCount );
}else{
announce "[ Team PK ] : Match is going to start now. Prepare yourself..",0;
for( set [email protected],0; getarraysize( .TeamCount ); set [email protected],[email protected] + 1 )
 warpparty .Map$,0,0,.TeamCount[[email protected]];
}
stopnpctimer;
end;
OnPCDieEvent:
if( strcharinfo(3) == .Map$ ){
announce "[ "+strcharinfo(0)+" ] killed by "+rid2name( killerrid )+" .",bc_map;
warp "SavePoint",0,0;
}
end;
OnInit:
// How many Available team for PK
set .TeamLimit,4;
// How many Party Members required each teams
set .RequiredMember,4;
// What Map will be used
set .Map$,"guild_vs5";
end;

}

anyway..based on your topic...

i dunno how you want to determine which guild win.....

>.<

Altimage · December 16, 2012

edit script party vs party to guild vs guild?

guild master can register only.

AnnieRuru · December 16, 2012

http://www.eathena.w...howtopic=262755

this script has a minor bug

change this

OnPCDieEvent:

into

OnPCDieEvent:
OnPCLogoutEvent:

and add guildlock mapflag at the end of the script

then should be working as a new

Sign In

request help myy

Question

anginputih

Link to comment

Share on other sites

5 answers to this question

Recommended Posts

topechi

Link to comment

Share on other sites

Akkarin

Link to comment

Share on other sites

Emistry

Link to comment

Share on other sites

Altimage

Link to comment

Share on other sites

AnnieRuru

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Issues

Community

Supporting rA

My Account

Important Information