Автор: Dwarf: Дата: 06.12.2008
//===== eAthena Script =======================================
//= Poring Ball Script
//===== By: ==================================================
//= [email][email protected][/email]
//= For ArcadyaOnline with Agora-online
//= Translated to English by diedlikeahero & GM Team
//===== Current Version: =====================================
//= 1.3
//===== Compatible With: =====================================
//= Any eAthena Version
//===== Description: =========================================
//= Football game made for Ragnarok Online, with a poring
//= as a ball.
//= The red team is on the east of the field
//= The blue team is on the west of the field
//===== Variables ============================================
//=
//= Variables temporary servers (?) :
//= $@state_match = 0 -> is free, writting possible
//= $@state_match = 1 -> confirmation of writtings
//= $@state_match = 2 -> a match is currently launching
//= $@state_match = 3 -> a match is in play
//= $@state_match = 4 -> delay after match
//=
//= $@score_blue_match
//= $@score_red_match
//=
//= $@isballonfield = 0 -> да, 1 -> нет
//= $@Activeplayers$ = имя последнего игрока, ударившего мяч
//= $@ActiveteamID = id команды которая последней ударила мяч
//=
//= $@teampossessingballID = id красной или синей команды
//=
//= $@blueteamID = id синей команды
//= $@redteamID = id красной команды
//=
//=$@redconfirmation -> 0 : not confirmed, 1 : confirmed, 2 : request to cancel
//=$@blueconfirmation
//=
//===== Prerequisite ==========================================
//= A football field : ball2
//= 2 palettes (one for the red team and one for the blue team) here the palettes 78 and 79.
//= (see OnInit method of the organizer)
//= red palette : $paletteRed
//= blue palette : $paletteBlue
//=============================================================
quiz_02,349,390,4 script Организатор#orga_ball 869,{
//cutin "lhz_diguts02",2;
set @palette, getlook(7);
if ($@state_match == 1) goto OnConfirmation;
if ($@state_match >= 2) goto OnMatchinplay;
Showgamerules:
mes "[Организатор]";
mes "Poring Ball простая игра,";
mes "Вы должны забить поринга в ворота противника.";
mes "Команда забившая большее количество раз выигрывает.";
next;
mes "[Организатор]";
mes "Чтобы начать матч необходимо собрать 2 команды.";
mes "Все учасники команды должны быть в одной пати.";
mes "Затем человет от группы должен записаться у ассистента.";
mes "Когда обе команды записаны, вы должны подтвердить это у меня.";
mes "Только когда команды подтверждены, все игроки должны подойти ко мне, для переправки к тренерам.";
mes "Тренера отправят вас на поле, матч не будет вас ждать, так что поторопитесь!";
next;
mes "[Организатор]";
mes "If the subscriptions slack off too much they will be cancelled to open their place to more active teams...";
next;
goto OnClose;
// OnSubscriptionteam called by the assistants during the subscription of each team
OnSubscriptionteam:
// if the 2 teams are subscribed
if (($@redteamID!=0) && ($@blueteamID!=0) && (getpartyname($@redteamID)!="null") && (getpartyname($@blueteamID)!="null")) {
announce "Организатор : Две команды готовы : "+getpartyname($@blueteamID)+" и "+getpartyname($@redteamID)+".",bc_yellow|bc_map;
announce "Организатор : У вас есть одна минута чтобы каждый член команды подтвердил свое участие.",bc_yellow|bc_map;
if ($@state_match!=1) {
set $@state_match, 1;
stopnpctimer;
initnpctimer;
}
}
end;
OnConfirmation:
if ((getcharid(1)!=$@redteamID) && (getcharid(1)!=$@blueteamID)) {
// if the player isn't in one of the teams send him back to the game rules.
goto Showgamerules;
}
if (getcharid(1)==$@redteamID) {
// confirm if the player is part of the red team
mes "[Организатор]";
mes "Спасибо что присоеденились к красной команде.";
if ($@redconfirmation==1) goto OnClose; // if we have already confirmed, no need to go further.
set $@redconfirmation, 1;
close2;
}
// else
if (getcharid(1)==$@blueteamID) {
// confirm if player is part of the blue team
mes "[Организатор]";
mes "Спасибо что присоединились к синей команде.";
if ($@blueconfirmation==1) goto OnClose; // if we have already confirmed, no need to go further.
set $@blueconfirmation, 1;
close2;
}
// verify that the groups haven't been sorted
if ((getpartyname($@redteamID)=="null") || (getpartyname($@blueteamID)=="null")) {
announce "Организатор : Команды были распущены, матч отменяется...",bc_yellow|bc_map;
stopnpctimer;
callsub OnMatchcancellation;
end;
}
if (($@state_match!=2) && ($@blueconfirmation==1) && ($@redconfirmation==1)) {
stopnpctimer;
announce "Организатор : Матч скоро начнется! Все игроки должны подойти ко мне для переправления на поле.",bc_yellow|bc_map;
set $@state_match, 2;
donpcevent "TimerInitMatch::OnStart";
}
cutin "",255;
end;
OnTimer60000:
announce "Организатор : Время на подготовку закончено, не все подтвердили участие, матч отменен...",bc_npc|bc_map;
callsub OnMatchcancellation;
end;
OnMatchcancellation:
set $@state_match, 0;
set $@blueteamID, 0;
set $@redteamID, 0;
set $@redconfirmation, 0;
set $@blueconfirmation, 0;
set $@isballonfield, 0;
set $@teampossessingballID, 0;
return;
OnMatchinplay:
if (getcharid(1)==$@redteamID) { // if the player is from the red team
mes "[Организатор]";
mes "Готовы к игре?";
switch (select("Я хочу на поле","Я хочу отменить матч")) {
case 1:
// Test actual palette
if (@palette != $paletteRed) {
if (@palette != $paletteBlue) {
// The player isn't wearing a suit, you need to save his suit at the lockers, to give it back after
set savePalette, @palette;
}
setlook 7, $paletteRed;
}
savepoint "quiz_02",335,345;
percentheal 100,100;
warp "quiz_02",335,345;
goto OnClose;
case 2:
cutin "",255;
cutin "lhz_diguts07",2;
set $@redconfirmation,2;
announce "Организатор : "+strcharinfo(0)+" просит отменить матч.",bc_npc|bc_map;
}
} else if (getcharid(1)==$@blueteamID) { // if the player is from the blue team
mes "[Организатор]";
mes "Ready to play?";
switch (select("I want to go on the field.","I want to cancel the match.")) {
case 1:
// Test actual palette
if (@palette != $paletteBlue) {
if (@palette != $paletteRed) {
// The player isn't wearing a suit, you need to save his suit at the lockers, to give it back after
set savePalette, @palette;
}
setlook 7, $paletteBlue;
}
savepoint "quiz_02",364,345;
percentheal 100,100;
warp "quiz_02",364,345;
goto OnClose;
case 2:
cutin "",255;
cutin "lhz_diguts07",2;
set $@blueconfirmation,2;
announce "Organizer : "+strcharinfo(0)+" of the Blue Team asks for a match cancellation.",bc_npc|bc_map;
}
} else {
// if the player isn't in one of the teams send him back to the game rules.
goto Showgamerules;
}
if (($@blueconfirmation==2) && ($@redconfirmation==2)) {
announce "Organizer : Like the 2 teams wish, the match is cancelled!",bc_npc|bc_map;
callsub OnMatchcancellation;
donpcevent "TimerMatchcancellation::OnMatchcancellation";
end;
}
goto OnClose;
// At the start of map server :
OnInit:
set $paletteRed, 79;
set $paletteBlue, 78;
// Warp all the players from map ball2 near the Organizer.
callsub OnMatchcancellation;
end;
OnClose:
close2;
cutin "",255;
end;
}
quiz_02,363,365,4 script Red Assistant#ass_coach_R 911,{
// If a match is in play
if ($@state_match >= 2) {
mes "[Red Assistant]";
mes "The subscriptions are currently unavailable because a match is in progress. Don't hesitate to try again in a few minutes!";
close;
}
// Does the player belong to a group?
if (getcharid(1)==0) {
mes "[Red Assistant]";
mes "The subscriptions are for groups, and you're not in a group. Come back with your friends!";
close;
}
// Isn't the group of the player subscribed as the blue team?
if (getcharid(1)==$@blueteamID) {
mes "[Red Assistant]";
mes "Hey! A player from the opposing team! Get ready to face off one of the best teams!";
mes "The formidable Red Team!";
close;
}
// If a team is already subscribed, and that team still exists
if (($@redteamID!=0) && (getpartyname($@redteamID)!="null")) {
// if the player belongs to that team that's already subscribed
if ($@redteamID==getcharid(1)) {
mes "[Red Assistant]";
mes "Do you wish to unsubscribe your team?";
next;
if (select("Yes, we want to stop the match.","No, we're staying.")==2) close;
// if the player wishes to unsubscribe their team
announce "Team "+getpartyname($@redteamID)+" has disbanded. There is no more Red Team!",bc_yellow|bc_map;
set $@redteamID, 0;
close;
}
mes "[Red Assistant]";
mes "A team is already subscribed! It's Team "+getpartyname($@redteamID)+".";
close;
}
// if there are no teams subscribed and that the subscriptions are open
mes "[Red Assistant]";
mes "Do you wish to subscribe your team?";
next;
if (select("Yes, we want to subscribe.","No.")==2) close;
// Team subscription
if ($@redteamID==0 || (getpartyname($@redteamID)=="null")) {
set $@redteamID, getcharid(1);
mes "[Red Assistant]";
mes "Your team is now subscribed, good luck!";
announce ""+getpartyname($@redteamID)+" Team has subscribed as the Red Team!",bc_yellow|bc_map;
close2;
doevent "Organizer#orga_ball::OnSubscriptionteam";
} else {
mes "[Red Assistant]";
mes "I'm sorry! Another team has subscribed before you...";
close2;
}
end;
}
quiz_02,336,365,4 script Blue Assistant#ass_coach_B 912,{
// If a match is in play
if ($@state_match >= 2) {
mes "[Blue Assistant]";
mes "The subscriptions are currently unavailable because a match is in progress. Don't hesitate to try again in a few minutes!";
close;
}
// Does the player belong to a group?
if (getcharid(1)==0) {
mes "[Blue Assistant]";
mes "The subscriptions are for groups, and you're not in a group. Come back with your friends!";
close;
}
// Isn't the group of the player subscribed as the red team?
if (getcharid(1)==$@redteamID) {
mes "[Blue Assistant]";
mes "Hey! A player from the opposing team! Get ready to face off one of the best teams!";
mes "The formidable Blue Team!";
close;
}
// If a team is already subscribed, and that team still exists
if (($@blueteamID!=0) && (getpartyname($@blueteamID)!="null")) {
// if the player belongs to that team that's already subscribed
if ($@blueteamID==getcharid(1)) {
mes "[Blue Assistant]";
mes "Do you wish to unsubscribe your team?";
next;
if (select("Yes, we want to stop the match.","No, we're staying.")==2) close;
// if the player wishes to unsubscribe their team
announce "Team "+getpartyname($@blueteamID)+" has disbanded. There is no more Blue Team!",bc_yellow|bc_map;
set $@blueteamID, 0;
close;
}
mes "[Blue Assistant]";
mes "A team is already subscribed! It's Team "+getpartyname($@blueteamID)+".";
close;
}
// if there are no teams subscribed and that the subscriptions are open
mes "[Blue Assistant]";
mes "Do you wish to subscribe your team?";
next;
if (select("Yes, we want to subscribe.","No.")==2) close;
// Team subscription
if ($@blueteamID==0 || (getpartyname($@blueteamID)=="null")) {
set $@blueteamID, getcharid(1);
mes "[Blue Assistant]";
mes "Your team is now subscribed, good luck!";
announce ""+getpartyname($@blueteamID)+" Team has subscribed as the Blue Team!",bc_yellow|bc_map;
close2;
doevent "Organizer#orga_ball::OnSubscriptionteam";
} else {
mes "[Blue Assistant]";
mes "I'm sorry! Another team has subscribed before you...";
close2;
}
end;
}
quiz_02,326,336,4 script Red Coach#coach_R 911,{
mes "[Red Coach]";
if (getcharid(1)!=$@redteamID) {
mes "It looks like you got nothing to do here...";
close2;
goto OnLeave;
}
mes "Hello, I am the Coach of the Red Team!";
next;
percentheal 100,20;
switch(select("Go on the field","Leave","Cancel")) {
case 1:
// If the match begins, warp immediately,
if ($@state_match==2) goto OnReadyformatch;
// otherwise, determine waiting time before being rewarped on the field
set @waiting_time, 5000;
if ($@state_match==3) {
mes "[Red Coach]";
mes "You will be sent on the field in "+(@waiting_time/1000)+ " seconds, be ready!";
close2;
addtimer @waiting_time, "Red Coach#coach_R::OnReadyformatch";
}
break;
case 2:
goto OnLeave;
break;
case 3:
break;
}
close;
OnLeave:
warp "quiz_02",350,374;
close;
// Warp on the field
OnReadyformatch:
set @poringBallAura, 0;
warp "ball2",66,56;
end;
}
quiz_02,373,336,4 script Blue Coach#coach_B 912,{
mes "[Blue Coach]";
if (getcharid(1)!=$@blueteamID) {
mes "It looks like you got nothing to do here...";
close2;
goto OnLeave;
}
mes "Hello, I am the coach of the Blue Team!";
next;
percentheal 100,20;
switch(select("Go on the field","Leave","Cancel")) {
case 1:
// If the match begins, warp immediately,
if ($@state_match==2) goto OnReadyformatch;
// otherwise, determine waiting time before being rewarped on the field
else if ($@state_match==3) {
set @waiting_time, 5000;
mes "[Blue Coach]";
mes "You will be sent on the field in "+(@waiting_time/1000)+ " seconds, be ready!";
close2;
addtimer @waiting_time, "Blue Coach#coach_B::OnReadyformatch";
}
break;
case 2:
goto OnLeave;
break;
case 3:
break;
}
close;
OnLeave:
warp "quiz_02",350,374;
close;
// Warp on the field
OnReadyformatch:
set @poringBallAura, 0;
warp "ball2",54,56;
close;
}
ball2,0,0,0 script TimerInitMatch -1,{
OnStart:
// countdown before the match begins
set $@teampossessingballID, 0;
set $@score_blue_match, 0;
set $@score_red_match, 0;
stopnpctimer; // normally pointless, but seeing the consequences of a npc timer, we won't take a chance.
initnpctimer;
announce "Match will begin in 30 seconds.",bc_npc|bc_map;
//doevent "Ball::OnReturntomiddle";
end;
OnTimer5000:
announce "Match will begin in 25 seconds.",bc_npc|bc_map;
end;
OnTimer10000:
announce "Match will begin in 20 seconds.",bc_npc|bc_map;
end;
OnTimer15000:
announce "Match will begin in 15 seconds.",bc_npc|bc_map;
end;
OnTimer20000:
announce "Match will begin in 10 seconds.",bc_npc|bc_map;
end;
OnTimer25000:
announce "Match will begin in 5 seconds.",bc_npc|bc_map;
end;
OnTimer30000:
announce "The match has begun!",bc_npc|bc_map;
stopnpctimer;
donpcevent "TimerMatch::OnStartMatch";
pvpon "ball2";
end;
}
ball2,0,0,0 script TimerMatch -1,{
OnStartMatch:
stopnpctimer; // normally pointless, but seeing the consequences of a npc timer, we won't take a chance.
initnpctimer;
set $@state_match,3;
end;
OnTimer180000:
mapannounce "ball2", "Halftime! Score is currently "+$@score_blue_match+" (Blue) / "+$@score_red_match+" (Red)",bc_map;
end;
OnTimer360000:
mapannounce "ball2", "The match is over! Scores end with "+$@score_blue_match+" (Blue) / "+$@score_red_match+" (Red)",bc_map;
set $@state_match,4;
pvpoff "ball2";
end;
OnTimer362000:
if ($@score_blue_match<$@score_red_match)
mapannounce "ball2", "Congratulations to the Red Team!!",bc_map;
else if ($@score_blue_match>$@score_red_match)
mapannounce "ball2", "Congratulations to the Blue Team!!",bc_map;
else mapannounce "ball2", "It's a tie!!",bc_map;
donpcevent "Ball::OnReturntomiddle";
end;
OnTimer420000:
mapwarp "ball2","quiz_02",350,374;
set $@state_match,0;
set $@blueteamID, 0;
set $@redteamID, 0;
set $@redconfirmation, 0;
set $@blueconfirmation, 0;
set $@teampossessingballID, 0;
end;
}
ball2,0,0,0 script TimerMatchcancellation -1,{
OnMatchcancellation:
set $@state_match, 4;
mapannounce "ball2", "Score is currently "+$@score_blue_match+" (Blue) / "+$@score_red_match+" (Red)",bc_map;
mapannounce "ball2", "The match has been cancelled to a team or coach's request!",bc_map;
donpcevent "Ball::OnReturntomiddle";
stopnpctimer;
initnpctimer;
end;
OnTimer4000:
stopnpctimer;
mapwarp "ball2","quiz_02",350,374;
set $@state_match,0;
end;
}
ball2,60,56,4 script Ball 1002,{
// Kicking the ball allows it to move from many squares,
// however its location is determined square by square.
// The ball draws its course by moving forward from a square every 150 ms.
// Every time it lands on a square it makes some tests to determine if a goal has been made,
// if it came out of the field, etc.
// If that is the case it returns to its place on its own (middle of the field, corners, etc.)
if ($@state_match!=3) {
// If there are no matches in progress ( hasn't started yet, just finished, etc.)
npctalk "No match! Don't touch!";
end;
}
if ($@destinationType>0) {
end;
}
// If the player isn't in one of the 2 subscribed teams :
if ((getcharid(1) == 0) || ((getcharid(1) != $@redteamID) && (getcharid(1) != $@blueteamID))) {
npctalk "A trespasser!! Get out "+strcharinfo(0)+" !";
warp "quiz_02",350,374;
end;
}
set $@Activeplayers$, strcharinfo(0);
set $@ActiveteamID, getcharid(1);
// Player and ball coordinates at the time of the shot
getmapxy $@mapname$,$@mapxNPC,$@mapyNPC,1;
getmapxy $@mapname$,$@mapxPC,$@mapyPC,0;
// verification of the player's distance / ball : the player must be 1 square from the ball.
if (distance($@mapxNPC,$@mapyNPC,$@mapxPC,$@mapyPC)>2) {
dispbottom "You cannot shoot the Poring Ball at distance.";
end;
}
// Watch out for the position of the stopnpctimer, some tests must be made beforehand (has the player really hit the ball?)
stopnpctimer;
specialeffect 26;
specialeffect 44;
npcspeed 98;
// Research of the distance the ball will travel
// (still for now)
set $@distance,4;
// Research of the position of the ball X
if ($@mapxPC<$@mapxNPC) set $@movementX, 1;
else if ($@mapxPC>$@mapxNPC) set $@movementX, -1;
else set $@movementX, 0;
// Research of the position of the ball Y
if ($@mapyPC<$@mapyNPC) set $@movementY, 1;
else if ($@mapyPC>$@mapyNPC) set $@movementY, -1;
else set $@movementY, 0;
// If the ball is already out of the field, it cannot be moved further away from the field
if ($@isballonfield==1) {
if ((23>=$@mapyNPC+$@movementY)||($@mapyNPC+$@movementY>=89)||(12>=$@mapxNPC+$@movementX)||($@mapxNPC+$@movementX>=108)) end;
}
// Check if the ball is in a team's possession (for example after the ball's been kicked out of the field by a team,
// only the other team has the right to give the first hit to the ball)
if ($@teampossessingballID != 0) && ($@ActiveteamID != $@teampossessingballID) {
dispbottom "The other team gets the Poring.";
end;
}
else set $@teampossessingballID, 0;
// start of the ball's movement
set $@mapxNPC, $@mapxNPC+$@movementX;
set $@mapyNPC, $@mapyNPC+$@movementY;
npcwalkto $@mapxNPC,$@mapyNPC;
//npctalk "npcwalkto A "+$@mapxNPC+" "+$@mapyNPC;
goto Whereistheball;
end;
OnTimer150:
stopnpctimer;
getmapxy $@mapname$,$@mapxNPC,$@mapyNPC,1;
//npctalk "getmapxy "+$@mapxNPC+" "+$@mapyNPC;
// Research of the direction if the ball already has one
if ($@destinationType>0) {
switch($@destinationType) {
case 0: break;
case 1: // Go to the middle of the field
set $@destinationX, 60;
set $@destinationY, 56;
break;
case 2: // Go to the North West corner
set $@destinationX, 15;
set $@destinationY, 86;
break;
case 3: // Go to the North East corner
set $@destinationX, 105;
set $@destinationY, 86;
break;
case 4: // Go to the South West corner
set $@destinationX, 15;
set $@destinationY, 26;
break;
case 5: // Go to the South East corner
set $@destinationX, 105;
set $@destinationY, 26;
break;
case 6: // Go to the West Goal
set $@destinationX, 19;
set $@destinationY, 56;
break;
case 7: // Go to the East Goal
set $@destinationX, 101;
set $@destinationY, 56;
break;
}
// Research of the movement X of the ball to get closer to destination
if ($@destinationX<$@mapxNPC) set $@movementX, -1;
else if ($@destinationX>$@mapxNPC) set $@movementX, 1;
else set $@movementX, 0;
// Research of the movement Y of the ball to get closer to destination
if ($@destinationY<$@mapyNPC) set $@movementY, -1;
else if ($@destinationY>$@mapyNPC) set $@movementY, 1;
else set $@movementY, 0;
// Movement of the ball
npcwalkto $@mapxNPC+$@movementX,$@mapyNPC+$@movementY;
getmapxy $@mapname$,$@mapxNPC,$@mapyNPC,1;
// if the ball still hasn't reached its destination, restart the timer
if (($@mapxNPC==$@destinationX) && ($@mapyNPC==$@destinationY)) set $@destinationType,0;
else {
stopnpctimer;
initnpctimer;
}
end;
}
// save the coordinates " before movement " (to delete the players from the minimaps)
//set $@mapxNPCold, $@mapxNPC;
//set $@mapyNPCold, $@mapyNPC;
// If the ball doesn't have a precise destination, it continues its previous movement
set $@mapxNPC, $@mapxNPC+$@movementX;
set $@mapyNPC, $@mapyNPC+$@movementY;
npcwalkto $@mapxNPC,$@mapyNPC;
//npctalk "npcwalkto B "+$@mapxNPC+" "+$@mapyNPC;
// Update the movement of the Poring on the minimap
// for every player on the map
// affects rid with a thing like : getcharid(3)
//attachrid($@thingmabob_rid);
// delete old save point
// draw new save point
goto Whereistheball;
end;
OnReturntomiddle:
set $@destinationType, 1;
stopnpctimer;
initnpctimer;
end;
Whereistheball:
// Note :
// the command "getmapxy $@mapname$,$@mapxNPC,$@mapyNPC,1;" previously used here
// wasn't allowing enough time for the ball to move, and often gave its coordinated to the movement
// so instead I update the coordinates of the ball manually when it is being moved. This means that we work with
// the " supposed " coordinates of the ball.
// If the supposed coordinates ever didn't fit with the real coordinates, there would be a need to think
// a way to give the ball the time to move, before doing the getmapxy.
//If the ball was out, test if it came back on the field
if ($@isballonfield==1) {
if (((23<$@mapyNPC)&&($@mapyNPC<89))&&((12<$@mapxNPC)&&($@mapxNPC<108))) {
mapannounce "ball2", "The Poring is back on the field.",bc_blue;
set $@isballonfield,0;
}
} else {
if ($@mapxNPC>=108) {
// T h e b a l l i s o n t h e e a s t s i d e
// Check if we are in the right-side goal
if ((53<=$@mapyNPC)&&($@mapyNPC<=59)) {
mapannounce "ball2", " "+$@Activeplayers$+" has scored a goal for the Blue Team!",bc_blue;
npctalk "Goal! I'll return to the middle of the field.";
set $@score_blue_match, $@score_blue_match+1;
set $@destinationType, 1;
set $@teampossessingballID, $@redteamID;
stopnpctimer;
initnpctimer;
end;
}
// if we are not in the goal,
mapannounce "ball2", " "+$@Activeplayers$+" has sent the Poring Ball out of the field!",0xFF0000;
//set isballonfield,1;
if ($@ActiveteamID==$@redteamID) {
// If the ball gets kicked by a player from the defending team, send the ball in the right corner :
if ($@mapyNPC<=56) {
npctalk "Out of the field! I am going to the corner.";
set $@destinationType, 5; // Destination South East
} else {
npctalk "Out of the field! I am going to the corner.";
set $@destinationType, 3; // Destination North West
}
// It's the blue team (attackers) that now possess the ball:
set $@teampossessingballID, $@blueteamID;
} else if ($@ActiveteamID==$@blueteamID) {
// If the ball gets kicked by a player from the attacking team, send the ball in front of the goal
npctalk "Out of the field! I am going in front of the Red Team's goal.";
set $@destinationType, 7; // Destination East Goal
// It's the red team (defenders) that now possess the ball:
set $@teampossessingballID, $@redteamID;
} else end;
stopnpctimer;
initnpctimer;
end;
} else if ($@mapxNPC<=12) {
// T h e b a l l i s o n t h e w e s t s i d e
// Check if we are in the left-side goal
if ((53<=$@mapyNPC)&&($@mapyNPC<=59)) {
mapannounce "ball2", " "+$@Activeplayers$+" has scored a goal for the Red Team!",bc_blue;
npctalk "Goal! I'll return in the middle of the field.";
set $@score_red_match, $@score_red_match+1;
set $@destinationType, 1; // Destination middle of the field
set $@teampossessingballID, $@blueteamID;
stopnpctimer;
initnpctimer;
end;
}
mapannounce "ball2", " "+$@Activeplayers$+" has sent the Poring Ball out of the field!",0xFF0000;
//set isballonfield,1;
if ($@ActiveteamID==$@blueteamID) {
// If the ball gets kicked by a player from the defending team, send the ball in the right corner:
if ($@mapyNPC<=56) {
npctalk "Out of the field! I am going to the corner.";
set $@destinationType, 4; // Destination South East
} else {
npctalk "Out of the field! I am going to the corner.";
set $@destinationType, 2; // Destination North West
}
// It's the red team (attackers) that now possess the ball:
set $@teampossessingballID, $@redteamID;
} else if ($@ActiveteamID==$@redteamID) {
// If the ball gets kicked by a player from the attacking team, send the ball in front of the goal
npctalk "Out of the field! I am going in front of the Blue Team's goal.";
set $@destinationType, 6; // Destination West Goal
// It's the blue team (defenders) that now possess the ball:
set $@teampossessingballID, $@blueteamID;
} else end;
stopnpctimer;
initnpctimer;
end;
} else if (($@mapyNPC>=89)||($@mapyNPC<=23)) {
// T h e b a l l i s o n ( e i t h e r N o r t h o r S o u t h s i d e )
mapannounce "ball2", " "+$@Activeplayers$+" has sent the Poring Ball out of the field!",0xFF0000;
set $@isballonfield,1;
if ($@ActiveteamID==$@redteamID) {
set $@teampossessingballID, $@blueteamID;
npctalk "Poring for the Blue Team.";
} else if ($@ActiveteamID==$@blueteamID) {
set $@teampossessingballID, $@redteamID;
npctalk "Poring for the Red team.";
}
end;
}
}
// Preparation for the next movement
set $@distance,$@distance-1;
if ($@distance>0) {
stopnpctimer;
initnpctimer;
}
end;
}
// *******************************************************************
// Others NPCs
// *******************************************************************
ball2,108,52,2 script Red Flag#fred1 722,{
end;
}
ball2,108,60,2 script Red Flag#fred2 722,{
end;
}
ball2,12,52,6 script Blue Flag#fblue1 722,{
end;
}
ball2,12,60,6 script Blue Flag#fblue2 722,{
end;
}
ball2,60,17,8 script Field Assistant 913,{
mes "[Field Assistant]";
mes "Hi, what do you want?";
next;
if (getgmlevel()>79) {
switch(select("Leave","Cancel","Cancel the match","Give a point to the Red Team","Give a point to the Blue Team","Put the ball back in the middle")) {
case 1:
goto OnLeave;
break;
case 2:
break;
case 3:
if ($@state_match == 3) {
set $@blueteamID, 0;
set $@redteamID, 0;
set $@redconfirmation, 0;
set $@blueconfirmation, 0;
set $@state_match, 0;
set $@isballonfield, 0;
set $@teampossessingballID, 0;
donpcevent "TimerMatchcancellation::OnMatchcancellation";
} else mes "No match is in progress.";
break;
case 4:
if ($@state_match == 3) {
mapannounce "ball2", " "+strcharinfo(0)+ " has added a point for the Red Team!",bc_blue;
set $@score_match_rouge, $@score_match_rouge+1;
} else mes "No match is in progress.";
break;
case 5:
if ($@state_match == 3) {
mapannounce "ball2", " "+strcharinfo(0)+ " has added a point for the Blue Team!",bc_blue;
set $@score_blue_match, $@score_blue_match+1;
} else mes "No match is in progress.";
break;
case 6:
mes "To be continued.";
break;
}
} else {
switch(select("Leave","Cancel")) {
case 1:
goto OnLeave;
break;
case 2:
break;
}
}
close;
OnLeave:
warp "quiz_02",350,374;
close;
}
// map football field
ball2 mapflag noicewall
//ball2 mapflag pvp
ball2 mapflag pvp_noguild
ball2 mapflag nomemo
ball2 mapflag noteleport
ball2 mapflag nowarp
ball2 mapflag nosave SavePoint
ball2 mapflag nopenalty
ball2 mapflag nobranch
ball2 mapflag noexp
// map for team constitution
quiz_02 mapflag noskill
quiz_02 mapflag nomemo
quiz_02 mapflag nobranch
quiz_02 mapflag nopenalty
quiz_02 mapflag noexpАвтор: : Дата: 01.01.1970