//======Name========================================
// Poring Race
//======Version=====================================
// 1.0
//======Author(s)===================================
// Sandbox
//======Comments====================================
// In loving memory of AstralRO
//==================================================


//======================================Race Trigger Function=========================================
//====================================================================================================

prontera,156,182,5	script	Poring Race Warper	909,{

mes "[Poring Race Warper]";
mes "Would you like to join the Poring Race Event?";
next;
	menu "Yes!",P_Yes,"Nevermind.",P_NVM;

P_Yes:
	warp "p_track02",73,33;
	end;

P_NVM:
	close;

}

-	script	pracetrigger	-1,{


OnInit:
disablenpc "Poring Race Warper";
disablenpc "Bet Manager";
end;


OnRaceTrigger:
if(agitcheck() == 1) end;
enablenpc "Poring Race Warper";
announce "We are going to have a Poring Race Event! Place a bet and you could win 700 SPECs!",bc_all;
sleep2 1000;
announce "Warper to the event map is located in the middle Prontera! Anyone can join!",bc_all;
sleep2 1000;
announce "The Warper would be open for 2 minutes",bc_all;
sleep2 90000;
announce "Last 30 seconds..",bc_all;
sleep2 30000;
announce "Warper Closed.",bc_all;
disablenpc "Poring Race Warper";
donpcevent "Poring Race Event::OnPoringRaceStart";
end;

}

-	script	Poring Race Event	-1,{

OnPoringRaceStart:
set $@race,1;
enablenpc "Poring#race";
movenpc "Poring#race",58,38;
enablenpc "Drops#race";
movenpc "Drops#race",58,36;
enablenpc "Poporing#race";
movenpc "Poporing#race",58,34;
enablenpc "Marin#race";
movenpc "Marin#race",58,32;
enablenpc "Pouring#race";
movenpc "Pouring#race",58,30;
enablenpc "Santa Poring#race";
movenpc "Santa Poring#race",58,28;
mapannounce "p_track02","The Poring Race will start in a minute.",bc_blue;
enablenpc "Bet Manager";
sleep2 1500;
mapannounce "p_track02","We will be collecting your bets now, when the race starts, you can't place bets anymore.",bc_blue;
sleep2 1500;
mapannounce "p_track02","You can talk to the Bet Manager found at the bottom right corner of the map if you want to place a bet.",bc_blue;
sleep2 2000;
//mapannounce "p_track02","3 minutes before the race starts..",bc_blue;
//sleep2 60000;
//mapannounce "p_track02","2 minutes before the race starts..",bc_blue;
//sleep2 60000;
mapannounce "p_track02","1 minute before the race starts..",bc_blue;
sleep2 30000;
mapannounce "p_track02","30 seconds before the race starts..",bc_blue;
sleep2 1500;
mapannounce "p_track02","We are not accepting bets anymore.",bc_blue;
disablenpc "Bet Manager";
set $@race,2;
sleep2 1500;
mapannounce "p_track02","When the race ends, you'll have 25 minutes to claim your prizes, after that the NPC closes.",bc_blue;
sleep2 25000;
mapannounce "p_track02","Gentlerings, get ready!",bc_blue;
sleep2 5000;
mapannounce "p_track02","On your mark!",bc_blue;
sleep2 3000;
mapannounce "p_track02","Get set!",bc_blue;
sleep2 3000;
mapannounce "p_track02","GOO!",bc_blue;
areawarp "p_track02",58,42,76,18,"p_track02",61,32;
set $@win,rand(1,6);
switch($@win)
{
case 1: donpcevent "Poring#race::OnPoringWin"; break;
case 2: donpcevent "Drops#race::OnDropsWin"; break;
case 3: donpcevent "Poporing#race::OnPoporingWin"; break;
case 4: donpcevent "Marin#race::OnMarinWin"; break;
case 5: donpcevent "Pouring#race::OnPouringWin"; break;
default: donpcevent "Santa Poring#race::OnSantaWin"; break;
}
donpcevent "Bet Manager::OnRaceStart";
end;


}


//=================================Bet Manager========================================================
//====================================================================================================


p_track02,73,22,1	script	Bet Manager	109,{

mes "[ ^0000FFBet Manager^000000 ]";
mes "Hi, what would you want to do?";
menu "Place a Bet",-,"Claim Prize",Lclaim,"Warp Back to Prontera",Lwarp;
next;
if(@bet > 0) goto Lalreadybet;
if($@race < 1) goto Lnorace;
if($@race == 2) goto Lracestarted;
mes "[ ^0000FFBet Manager^000000 ]";
mes "Where would you place your bet?";
mes "There's a 100,000z fee and you could only bet once."; 
//Edit bet type you want, by default it is set to 1,000,000z for a player to place a bet. The player can only bet once
menu "Poring",-,"Drops",Ldrops,"Poporing",Lpopo,"Marin",Lmarin,"Pouring",Lpour,"Santa Poring",Lsanta;
next;
if(Zeny < 50000) goto Lnenough; //Edit to match the desired bet type.
mes "[ ^0000FFBet Manager^000000 ]";
mes "You've placed your bet on ^0000FFPoring^000000, Goodluck!";
set @bet,1;
set Zeny,Zeny-50000; //Edit to match the desired bet type.
close;
	
Lwarp:
next;
warp "prontera",155,181;
end;

Ldrops:
next;
if(Zeny < 50000) goto Lnenough; //Edit to match the desired bet type.
mes "[ ^0000FFBet Manager^000000 ]";
mes "You've placed your bet on ^0000FFDrops^000000, Goodluck!";
set @bet,2;
set Zeny,Zeny-50000; //Edit to match the desired bet type.
close;

Lpopo:
next;
if(Zeny < 50000) goto Lnenough; //Edit to match the desired bet type.
mes "[ ^0000FFBet Manager^000000 ]";
mes "You've placed your bet on ^0000FFPoporing^000000, Goodluck!";
set @bet,3;
set Zeny,Zeny-50000; //Edit to match the desired bet type.
close;

Lmarin:
next;
if(Zeny < 50000) goto Lnenough; //Edit to match the desired bet type.
mes "[ ^0000FFBet Manager^000000 ]";
mes "You've placed your bet on ^0000FFMarin^000000, Goodluck!";
set @bet,4;
set Zeny,Zeny-50000; //Edit to match the desired bet type.
close;

Lpour:
next;
if(Zeny < 50000) goto Lnenough; //Edit to match the desired bet type.
mes "[ ^0000FFBet Manager^000000 ]";
mes "You've placed your bet on ^0000FFPouring^000000, Goodluck!";
set @bet,5;
set Zeny,Zeny-50000; //Edit to match the desired bet type.
close;

Lsanta:
next;
if(Zeny < 50000) goto Lnenough;//Edit to match the desired bet type.
mes "[ ^0000FFBet Manager^000000 ]";
mes "You've placed your bet on ^0000FFSanta Poring^000000, Goodluck!";
set @bet,6;
set Zeny,Zeny-50000;//Edit to match the desired bet type.
close;

Lnenough:
next;
mes "[ ^0000FFBet Manager^000000 ]";
mes "We need zeny for the race maintenance!"; //Edit to match the desired bet type.
close;

Lalreadybet:
mes "[ ^0000FFBet Manager^000000 ]";
mes "You've already placed your bet on: ^0000FF";
switch(@bet){
case 1: mes "Poring"; break;
case 2: mes "Drops"; break;
case 3: mes "Poporing"; break;
case 4: mes "Marin"; break;
case 5: mes "Pouring"; break;
case 6: mes "Santa Poring"; break;
default: mes "None"; break;
}
mes "^000000";
close;

Lnorace:
mes "[ ^0000FFBet Manager^000000 ]";
mes "There's no race being held at the moment, or it's finished already.";
close;

Lclaim:
next;
if($@race == 1) goto Lnoclaim;
if($@win != @bet) goto Lnowin;
mes "[ ^0000FFBet Manager^000000 ]";
mes "Congratulations! You've won!";
set @bet,0;
getitem 6153,700; //Edit to the prize that you want if a bettor's bet wins.
close;

Lnoclaim:
mes "[ ^0000FFBet Manager^000000 ]";
mes "You can't claim prizes during the bet collection process.";
close;


Lracestarted:
mes "[ ^0000FFBet Manager^000000 ]";
mes "The race has started, you can't place bets anymore.";
close;


Lnowin:
mes "[ ^0000FFBet Manager^000000 ]";
mes "Either you've already got your prize or the monster you've placed your bet on didn't won.";
close;


OnRaceStart:
set $@win,7;
disablenpc "Bet Manager";
disablenpc "Poring#race";
disablenpc "Drops#race";
disablenpc "Poporing#race";
disablenpc "Marin#race";
disablenpc "Pouring#race";
disablenpc "Santa Poring#race";
sleep2 1800000;
announce "Poring Race Event: Congratulations to the winner/s! Thank you all for participating!",bc_all;
end;

}


//======================================Race Function=================================================
//====================================================================================================
p_track02,58,38,3	script	Poring#race	1002,{
end;
npcspeed 200;

OnInit:
disablenpc "Poring#race";
disablenpc "Bet Manager";
end;



OnPoringWin:
npcwalkto 55,38;
donpcevent "Drops#race::OnDropsLose";
donpcevent "Poporing#race::OnPoporingLose";
donpcevent "Marin#race::OnMarinLose";
donpcevent "Pouring#race::OnPouringLose";
donpcevent "Santa Poring#race::OnSantaLose";
sleep2 2500;
npcwalkto 52,38;
sleep2 4000;
npcwalkto 46,38;
sleep2 2500;
npcwalkto 41,38;
sleep2 2500;
npcwalkto 37,38;
sleep2 2500;
npcwalkto 30,38;
sleep2 10000;
mapannounce "p_track02","Poring won the Race!!",bc_blue;
set $@race,0;
enablenpc "Bet Manager";
npcwalkto 58,38;
end;

OnPoringLose:
npcwalkto 53,38;
sleep2 4000;
npcwalkto 46,38;
sleep2 2500;
npcwalkto 44,38;
sleep2 2500;
npcwalkto 39,38;
sleep2 2500;
npcwalkto 36,38;
sleep2 4500;
npcwalkto 30,38;
sleep2 3000;
npcwalkto 58,38;
end;



}

p_track02,58,36,3	script	Drops#race	1113,{
end;
npcspeed 200;

OnInit:
disablenpc "Drops#race";
end;

OnDropsWin:
npcwalkto 55,36;
donpcevent "Poring#race::OnPoringLose";
donpcevent "Poporing#race::OnPoporingLose";
donpcevent "Marin#race::OnMarinLose";
donpcevent "Pouring#race::OnPouringLose";
donpcevent "Santa Poring#race::OnSantaLose";
sleep2 2500;
npcwalkto 52,36;
sleep2 4000;
npcwalkto 46,36;
sleep2 2500;
npcwalkto 41,36;
sleep2 2500;
npcwalkto 37,36;
sleep2 2500;
npcwalkto 30,36;
sleep2 10000;
mapannounce "p_track02","Drops won the Race!!",bc_blue;
set $@race,0;
enablenpc "Bet Manager";
npcwalkto 58,36;
end;

OnDropsLose:
npcwalkto 54,36;
sleep2 4000;
npcwalkto 47,36;
sleep2 2500;
npcwalkto 43,36;
sleep2 2500;
npcwalkto 37,36;
sleep2 2500;
npcwalkto 35,36;
sleep2 4500;
npcwalkto 30,36;
sleep2 3000;
npcwalkto 58,36;
end;




}

p_track02,58,34,3	script	Poporing#race	1031,{
end;
npcspeed 200;

OnInit:
disablenpc "Poporing#race";
end;

OnPoporingWin:
npcwalkto 55,34;
donpcevent "Poring#race::OnPoringLose";
donpcevent "Drops#race::OnDropsLose";
donpcevent "Marin#race::OnMarinLose";
donpcevent "Pouring#race::OnPouringLose";
donpcevent "Santa Poring#race::OnSantaLose";
sleep2 500;
npcwalkto 52,34;
sleep2 4000;
npcwalkto 46,34;
sleep2 2500;
npcwalkto 41,34;
sleep2 2500;
npcwalkto 37,34;
sleep2 2500;
npcwalkto 30,34;
sleep2 10000;
mapannounce "p_track02","Poporing won the Race!!",bc_blue;
set $@race,0;
enablenpc "Bet Manager";
npcwalkto 58,34;
end;


OnPoporingLose:
npcwalkto 54,34;
sleep2 4000;
npcwalkto 47,34;
sleep2 2500;
npcwalkto 43,34;
sleep2 2500;
npcwalkto 37,34;
sleep2 2500;
npcwalkto 34,34;
sleep2 4500;
npcwalkto 30,34;
sleep2 3000;
npcwalkto 58,34;
end;

}

p_track02,58,32,3	script	Marin#race	1242,{
end;
npcspeed 200;

OnInit:
disablenpc "Marin#race";
end;

OnMarinWin:
npcwalkto 55,32;
donpcevent "Poring#race::OnPoringLose";
donpcevent "Drops#race::OnDropsLose";
donpcevent "Poporing#race::OnPoporingLose";
donpcevent "Pouring#race::OnPouringLose";
donpcevent "Santa Poring#race::OnSantaLose";
sleep2 2500;
npcwalkto 52,32;
sleep2 4000;
npcwalkto 46,32;
sleep2 2500;
npcwalkto 41,32;
sleep2 2500;
npcwalkto 37,32;
sleep2 2500;
npcwalkto 30,32;
sleep2 10000;
mapannounce "p_track02","Marin won the Race!!",bc_blue;
set $@race,0;
enablenpc "Bet Manager";
npcwalkto 58,32;
end;


OnMarinLose:
npcwalkto 52,32;
sleep2 4000;
npcwalkto 48,32;
sleep2 2500;
npcwalkto 40,32;
sleep2 2500;
npcwalkto 37,32;
sleep2 2500;
npcwalkto 33,32;
sleep2 4500;
npcwalkto 30,32;
sleep2 3000;
npcwalkto 58,32;
end;


}

p_track02,58,30,3	script	Pouring#race	1894,{
end;
npcspeed 200;

OnInit:
disablenpc "Pouring#race";
end;


OnPouringWin:
npcwalkto 55,30;
donpcevent "Poring#race::OnPoringLose";
donpcevent "Drops#race::OnDropsLose";
donpcevent "Poporing#race::OnPoporingLose";
donpcevent "Marin#race::OnMarinLose";
donpcevent "Santa Poring#race::OnSantaLose";
sleep2 2500;
npcwalkto 52,30;
sleep2 4000;
npcwalkto 46,30;
sleep2 2500;
npcwalkto 41,30;
sleep2 2500;
npcwalkto 37,30;
sleep2 2500;
npcwalkto 30,30;
sleep2 10000;
mapannounce "p_track02","Pouring won the Race!!",bc_blue;
set $@race,0;
enablenpc "Bet Manager";
npcwalkto 58,30;
end;

OnPouringLose:
npcwalkto 50,30;
sleep2 4000;
npcwalkto 43,30;
sleep2 2500;
npcwalkto 38,30;
sleep2 2500;
npcwalkto 35,30;
sleep2 2500;
npcwalkto 31,30;
sleep2 4500;
npcwalkto 30,30;
sleep2 3000;
npcwalkto 58,30;
end;



}

p_track02,58,28,3	script	Santa Poring#race	1062,{
end;
npcspeed 200;

OnInit:
disablenpc "Santa Poring#race";
end;


OnSantaWin:
npcwalkto 55,28;
donpcevent "Poring#race::OnPoringLose";
donpcevent "Drops#race::OnDropsLose";
donpcevent "Poporing#race::OnPoporingLose";
donpcevent "Pouring#race::OnPouringLose";
donpcevent "Marin#race::OnMarinLose";
sleep2 2500;
npcwalkto 52,28;
sleep2 4000;
npcwalkto 46,28;
sleep2 2500;
npcwalkto 41,28;
sleep2 2500;
npcwalkto 37,28;
sleep2 4500;
npcwalkto 30,28;
sleep2 10000;
mapannounce "p_track02","Santa Poring won the Race!!",bc_blue;
set $@race,0;
enablenpc "Bet Manager";
npcwalkto 58,28;
end;

OnSantaLose:
npcwalkto 49,28;
sleep2 4000;
npcwalkto 48,28;
sleep2 2500;
npcwalkto 47,28;
sleep2 2500;
npcwalkto 35,28;
sleep2 2500;
npcwalkto 32,28;
sleep2 4500;
npcwalkto 30,28;
sleep2 3000;
npcwalkto 58,28;
end;


}

p_track02,78,41,5	script	Warp Back to Prontera	723,{

mes "[Warp Back to Prontera]";
mes "Are you sure?";
next;
	menu "Yes!",P_Yes;

P_Yes:
	warp "prontera",155,181;
	end;

P_NVM:
	close;


}

p_track02	mapflag	nowarp
p_track02	mapflag	nowarpto
p_track02	mapflag	noskill
p_track02	mapflag	noteleport
p_track02	mapflag	nomemo
p_track02	mapflag	nosave	SavePoint
p_track02	mapflag	noicewall
p_track02	mapflag	noreturn
p_track02	mapflag	noloot