163a98cbc4
These scripts have been chosen for being unique and useful, yet structurally simple. In this way, they can serve as usable reference material for future user scripts. Contents: * Battleground: bg_emp (Emperium breaker), bg_pvp (PVP match) * Event: mvp_ladder (kill every MVP to win), devil_square (3-round monster summoning event) * Utility: card_seller (sells all monster cards), mvp_room (private MVP summoning room), autopot (automatically use potions when hit) Credits to AnnieRuru for offering up her scripts and modifying them for use. Other changes: * Moved previous custom battleground scripts into 'battleground/unofficial/'. * Moved custom holiday event scripts into 'event/holiday/'. Signed-off-by: Euphy <euphy.raliel@rathena.org>
128 lines
4.4 KiB
Plaintext
128 lines
4.4 KiB
Plaintext
//===== rAthena Script =======================================
|
|
//= Battleground: PVP
|
|
//===== By: ==================================================
|
|
//= AnnieRuru
|
|
//===== Current Version: =====================================
|
|
//= 1.0
|
|
//===== Compatible With: =====================================
|
|
//= rAthena Project
|
|
//===== Description: =========================================
|
|
//= A simple battleground script:
|
|
//= Kill players from the other team.
|
|
//===== Additional Comments: =================================
|
|
//= 1.0 First version, edited. [Euphy]
|
|
//============================================================
|
|
|
|
- script bg_pvp#control -1,{
|
|
OnInit:
|
|
.minplayer2start = 2; // minimum players to start (ex. if 3vs3, set to 3)
|
|
.eventlasting = 20*60; // event duration before auto-reset (20 minutes * seconds)
|
|
setarray .rewarditem[0], // rewards for the winning team: <item>,<amount>,...
|
|
501, 10;
|
|
end;
|
|
OnStart:
|
|
if ( getwaitingroomstate( 0, .rednpcname$ ) < .minplayer2start || getwaitingroomstate( 0, .bluenpcname$ ) < .minplayer2start )
|
|
end;
|
|
|
|
// create Battleground and teams
|
|
.red = waitingroom2bg( "guild_vs3", 13,50, strnpcinfo(0)+"::OnRedQuit", strnpcinfo(0)+"::OnRedDead", .rednpcname$ );
|
|
copyarray .team1aid, $@arenamembers, $@arenamembersnum;
|
|
.team1count = .minplayer2start;
|
|
.blue = waitingroom2bg( "guild_vs3", 86,50, strnpcinfo(0)+"::OnBlueQuit", strnpcinfo(0)+"::OnBlueDead", .bluenpcname$ );
|
|
copyarray .team2aid, $@arenamembers, $@arenamembersnum;
|
|
.team2count = .minplayer2start;
|
|
delwaitingroom .rednpcname$;
|
|
delwaitingroom .bluenpcname$;
|
|
bg_warp .red, "guild_vs3", 13,50;
|
|
bg_warp .blue, "guild_vs3", 86,50;
|
|
.score[1] = .score[2] = .minplayer2start;
|
|
bg_updatescore "guild_vs3", .score[1], .score[2];
|
|
|
|
// match duration
|
|
sleep .eventlasting * 1000;
|
|
|
|
// end match, destroy Battleground, reset NPCs
|
|
if ( .score[1] > .score[2] ) {
|
|
mapannounce "guild_vs3", "- Red Team is victorious! -", bc_map;
|
|
callsub L_Reward, 1;
|
|
}
|
|
else if ( .score[1] < .score[2] ) {
|
|
mapannounce "guild_vs3", "- Blue Team is victorious! -", bc_map;
|
|
callsub L_Reward, 2;
|
|
}
|
|
else
|
|
mapannounce "guild_vs3", "- The match has ended in a draw! -", bc_map;
|
|
bg_warp .red, "prontera",152,178;
|
|
bg_warp .blue, "prontera",154,178;
|
|
bg_destroy .red;
|
|
bg_destroy .blue;
|
|
donpcevent .rednpcname$ +"::OnStart";
|
|
donpcevent .bluenpcname$ +"::OnStart";
|
|
end;
|
|
|
|
L_Reward:
|
|
for ( .@i = 0; .@i < getd(".team"+ getarg(0) +"count"); .@i++ )
|
|
getitem .rewarditem[0], .rewarditem[1], getd(".team"+ getarg(0) +"aid["+ .@i +"]" );
|
|
return;
|
|
|
|
// "OnDeath" event
|
|
OnRedDead: callsub L_Dead, 1;
|
|
OnBlueDead: callsub L_Dead, 2;
|
|
L_Dead:
|
|
.score[ getarg(0) ]--;
|
|
bg_updatescore "guild_vs3", .score[1], .score[2];
|
|
while ( getd( ".team"+ getarg(0) +"aid["+ .@i +"]" ) != getcharid(3) && .@i < getd(".team"+ getarg(0) +"count") ) .@i++;
|
|
deletearray getd( ".team"+ getarg(0) +"aid["+ .@i +"]" ), 1;
|
|
setd ".team"+ getarg(0) +"count", getd(".team"+ getarg(0) +"count") -1;
|
|
bg_leave;
|
|
if ( !.score[ getarg(0) ] )
|
|
awake strnpcinfo(0);
|
|
sleep2 1250;
|
|
percentheal 100,100;
|
|
end;
|
|
|
|
// "OnQuit" event
|
|
OnRedQuit: callsub L_Quit, 1;
|
|
OnBlueQuit: callsub L_Quit, 2;
|
|
L_Quit:
|
|
.score[ getarg(0) ]--;
|
|
bg_updatescore "guild_vs3", .score[1], .score[2];
|
|
percentheal 100, 100;
|
|
while ( getd( ".team"+ getarg(0) +"aid["+ .@i +"]" ) != getcharid(3) && .@i < getd(".team"+ getarg(0) +"count") ) .@i++;
|
|
deletearray getd( ".team"+ getarg(0) +"aid["+ .@i +"]" ), 1;
|
|
setd ".team"+ getarg(0) +"count", getd(".team"+ getarg(0) +"count") -1;
|
|
if ( !.score[ getarg(0) ] )
|
|
awake strnpcinfo(0);
|
|
end;
|
|
}
|
|
|
|
prontera,152,178,5 script Red Team#bg_pvp 733,{
|
|
end;
|
|
OnInit:
|
|
sleep 1;
|
|
set getvariableofnpc( .rednpcname$, "bg_pvp#control" ), strnpcinfo(0);
|
|
OnStart:
|
|
waitingroom "Red Team", getvariableofnpc( .minplayer2start, "bg_pvp#control" ) +1, "bg_pvp#control::OnStart", getvariableofnpc( .minplayer2start, "bg_pvp#control" );
|
|
end;
|
|
}
|
|
|
|
prontera,154,178,5 script Blue Team#bg_pvp 734,{
|
|
end;
|
|
OnInit:
|
|
sleep 1;
|
|
set getvariableofnpc( .bluenpcname$, "bg_pvp#control" ), strnpcinfo(0);
|
|
OnStart:
|
|
waitingroom "Blue Team", getvariableofnpc( .minplayer2start, "bg_pvp#control" ) +1, "bg_pvp#control::OnStart", getvariableofnpc( .minplayer2start, "bg_pvp#control" );
|
|
end;
|
|
}
|
|
|
|
guild_vs3 mapflag battleground 2
|
|
guild_vs3 mapflag nosave SavePoint
|
|
guild_vs3 mapflag nowarp
|
|
guild_vs3 mapflag nowarpto
|
|
guild_vs3 mapflag noteleport
|
|
guild_vs3 mapflag nomemo
|
|
guild_vs3 mapflag nopenalty
|
|
guild_vs3 mapflag nobranch
|
|
guild_vs3 mapflag noicewall
|