Jump to content
  • 0

Poring Race SCRIPT the bidder got the

lelouchxv

Asked by lelouchxv,

 Share

Question

lelouchxv Marin

lelouchxv

Posted
Posted

the bidder got the bets but the race is not start and how can i make this accessible all the time. like you can always play it? Thanks in advance!  

//===== Description: =================================================
//= Poring Race
//==================================================================
/*
if(getgmlevel()){
if(select("Start Bidding:Skip")==1){
goto Start1;
} else
close;
} else
*/

p_track01	mapflag	nobranch
p_track01	mapflag	noicewall
p_track01	mapflag	nomemo
p_track01	mapflag	noreturn
p_track01	mapflag	noteleport
p_track01	mapflag	nowarpto
p_track01	mapflag	nowarp
p_track01	mapflag	pvp	off
p_track01	mapflag	nosave

-	script	PraceAnnouncer	-1,{
OnInit:
	disablenpc "Prace";
	disablenpc "Bidder#prace0";
	end;

OnMinute50:

announce "Poring Race : It's time to play Poring Race!",0;
	set $accessPrace, 1;
	sleep2 10000;
	announce "Poring Race : Please make your way to Prontera 180 132.",0;
	sleep2 10000;
	announce "Poring Race : After one minute the portal will close.",0;
	sleep2 10000;
	announce "Poring Race : Enter the warp portal now if you want to join.",0;
	enablenpc "Prace";
	initnpctimer;
	end;

OnTimer30000:
	announce "Poring Race : Last 30 seconds.",0;
	sleep2 5000;
	announce "Poring Race : Hurry up! at Prontera 180 132 if you want to join.",0;
	end;
	
OnTimer50000:
	announce "Poring Race : Last 10 seconds.",0;
	end;
	
OnTimer55000:
	announce "Poring Race : 5.",0;
	end;
	
OnTimer56000:
	announce "Poring Race : 4.",0;
	end;
	
OnTimer57000:
	announce "Poring Race : 3.",0;
	end;
	
OnTimer58000:
	announce "Poring Race : 2.",0;
	end;
	
OnTimer59000:
	announce "Poring Race : 1.",0;
	end;
	
OnTimer60000:
	announce "Poring Race : Time's up. Portal Will Open again in 50 minutes.",0;
	end;
	
OnTimer61000:
	disablenpc "Prace";
	enablenpc "Bidder#prace0";
	stopnpctimer;
	end;

OnPraceEnd:
set $accessPrace, 0;
announce "Poring Race is over!",0,0xFFAB54;
end;

}

prontera,180,132,5	script	Poring Race::Prace	723,{

if( $accessPrace == 0) {
mes "[Poring Race Staff]";
mes "Poring Race has ended.";

close;
}
mes "[Poring Race Staff]";
mes "Do you want to participate on Poring Race?";
menu "Yes",-,"No",L_no;
if( $accessPrace == 0) {
mes "[Poring Race Staff]";
mes "...";
mes "...";
mes "Cheater!!~~";
close;
}
close2;
warp "p_track01",52,41;
end;

L_no:
next;
mes "[Poring Race Staff]";
mes "See you again next time!";
close;
}

p_track01,78,42,0	warp	p_track002	1,3,prontera,142,170

//NPC Checker
-	script	Checker#prace0	-1,{
end;

OnChequeo:
for(set .@tmp1,0;.@tmp1<(getarraysize($prace_bidders));set .@tmp1,.@tmp1+1) {
if(attachrid($prace_bidders[.@tmp1])) {
if( prace_playing != 1) end;
dispbottom "The winner is "+$prace_winner$+" and you have bet for "+prace_winner$+".";
if( prace_winner$ == $prace_winner$ && prace_winner$ != "") {
dispbottom "You have won!"+Pods;
mapannounce "p_track01"," Congratulations! "+strcharinfo(0)+" has won with",1,0xFFAB54;
getitem 7179, (Pods * 2);
emotion 21,1;
} else
dispbottom "You have lost."; emotion 28,1;
set prace_winner$,"";
set prace_playing,0;
} //else { announce .@tmp1+" || "+$prace_bidders[.@tmp1],bc_all; } //debug
}
for( set .@tmp1,0; .@tmp1 < (getarraysize( $prace_bidders )); set .@tmp1,.@tmp1 + 1 ) {
set $prace_bidders[.@tmp1],0;
}
}
//NPC Principal 765
p_track01,58,41,3	script	Bidder#prace0	877,{
if($prace_random < 1) callsub OnInit;
if( prace_playing == 1) {
mes "[Bidder]";
mes "You have choose ^00bb00"+prace_winner$+"^000000";
close;
}
getmapxy(.@mapname$,.@x1,.@y,1,"Poring#prace1");
getmapxy(.@mapname$,.@x2,.@y,1,"Angeling#prace2");
getmapxy(.@mapname$,.@x3,.@y,1,"Metaling#prace3");
getmapxy(.@mapname$,.@x4,.@y,1,"Deviling#prace4");
getmapxy(.@mapname$,.@x5,.@y,1,"Santa Poring#prace5");
getmapxy(.@mapname$,.@x6,.@y,1,"Poporing#prace6");
if (.@x1 != 58 || .@x2 != 58 || .@x3 != 58 || .@x4 != 58 || .@x5 != 58 || .@x6 != 58) {
mes "[Bidder]";
mes "There is a race in progress...";
close;
}
//set .@prace_zeny,3500;
input Pods;
mes "[Bidder]";
mes "Choose the poring you want to bet:";
mes "It will cost "+Pods+" PODS.";
//next;
switch( select("Poring","Angeling","Metaling","Deviling","Santa Poring","Poporing","None.") ) {
case 1: set .@thining$,"Poring"; break;
case 2: set .@thining$,"Angeling"; break;
case 3: set .@thining$,"Metaling"; break;
case 4: set .@thining$,"Deviling"; break;
case 5: set .@thining$,"Santa Poring"; break;
case 6: set .@thining$,"Poporing"; break;
case 7:
mes "[Bidder]";
mes "Goodbye.";
close;
}
getmapxy(.@mapname$,.@x1,.@y,1,"Poring#prace1");
getmapxy(.@mapname$,.@x2,.@y,1,"Angeling#prace2");
getmapxy(.@mapname$,.@x3,.@y,1,"Metaling#prace3");
getmapxy(.@mapname$,.@x4,.@y,1,"Deviling#prace4");
getmapxy(.@mapname$,.@x5,.@y,1,"Santa Poring#prace5");
getmapxy(.@mapname$,.@x6,.@y,1,"Poporing#prace6");
if (.@x1 != 58 || .@x2 != 58 || .@x3 != 58 || .@x4 != 58 || .@x5 != 58 || .@x6 != 58) {
mes "[Bidder]";
mes "...";
mes "...";
mes "Cheater!!~~";
close;
}

if (countitem(7179) <= 0) {
mes "[Bidder]";
mes "You dont have enough Pots.";
close;
}

if ((Pods) <= 0) {
mes "[Bidder]";
mes "Please place your bet!";
close;
}
if ((Pods) > (countitem(7179))) {
mes "[Bidder]";
mes "You dont have enough PODS to bet";
close;
}
if (countitem(7179) == 30000) {
mes "[Bidder]";
mes "You have reach the maximum number of credits";
close;
}


delitem 7179,Pods;
set prace_winner$,.@thining$;
set $prace_bets,$prace_bets+1;
set $prace_bidders[$prace_bets],getcharid(3);
set prace_playing,1;
mes "[Bidder]";
mes "I have "+$prace_bets+" bets.";
setnpctimer 60000;
startnpctimer;
npctalk "I got "+strcharinfo(0)+" bet!";
close;

Start1:
setnpctimer 0;
startnpctimer;
end;

StartRace:
donpcevent "Metaling#prace3::OnRace";
donpcevent "Poring#prace1::OnRace";
donpcevent "Poporing#prace6::OnRace";
donpcevent "Angeling#prace2::OnRace";
donpcevent "Santa Poring#prace5::OnRace";
donpcevent "Deviling#prace4::OnRace";
end;

OnStopRace:
donpcevent "Poring#prace1::OnStop";
donpcevent "Angeling#prace2::OnStop";
donpcevent "Metaling#prace3::OnStop";
donpcevent "Deviling#prace4::OnStop";
donpcevent "Santa Poring#prace5::OnStop";
donpcevent "Poporing#prace6::OnStop";
if($prace_winner$!="") callsub WinRace;
end;

ReturnRace:
donpcevent "Poring#prace1::OnReturn";
donpcevent "Angeling#prace2::OnReturn";
donpcevent "Metaling#prace3::OnReturn";
donpcevent "Deviling#prace4::OnReturn";
donpcevent "Santa Poring#prace5::OnReturn";
donpcevent "Poporing#prace6::OnReturn";
end;

WinRace:
mapannounce "p_track01","The winner is "+$prace_winner$,1,0xFFAB54;
donpcevent "Checker#prace0::OnChequeo";
sleep2 10000;
mapwarp "p_track01","prontera",156,181;
set $accessPrace, 0;
setnpctimer 30000;
startnpctimer;
donpcevent "PraceAnnouncer::OnPraceEnd";
end;

OnInit:
set $prace_random,70;
set $prace_random2,600;
set $prace_winner$,"";
set $prace_bets,0;
set $prace_bidders,0;
end;

OnTimer500:
mapannounce "p_track01","Porings, on your marks...",1,0xFFAB54;
end;

OnTimer3000:
mapannounce "p_track01","...3...",1,0xFFAB54;
end;

OnTimer4000:
mapannounce "p_track01","...2...",1,0xFFAB54;
end;

OnTimer5000:
mapannounce "p_track01","...1...",1,0xFFAB54;
callsub StartRace;
end;

OnTimer6000:
stopnpctimer;
mapannounce "p_track01","Gooo!!!",1,0xFFAB54;
end;

OnTimer35000:
set $prace_winner$,"";
set $prace_bets,0;
stopnpctimer;
callsub ReturnRace;
end;

OnTimer90000:
npctalk "I got "+$prace_bets+" bets. Anyone else?";
end;

OnTimer110000:
npctalk "The race will start soon. Last chance.";
end;

OnTimer120000:
goto Start1;
end;
}
//-----------------------------------
// Racer NPC's
//-----------------------------------
p_track01,58,38,2	script	Poring#prace1	1002,{
end;
OnRace:
initnpctimer;
startnpctimer;
end;
OnStop:
stopnpctimer;
end;
OnReturn:
npcwalkto 58,38;
end;
OnTimer1100:
getmapxy(.@mapname$,.@x,.@y,1,"Poring#prace1");
if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
setnpctimer rand($prace_random2);
startnpctimer;
if ((.@x-1) == 29) {
set $prace_winner$,"Poring";
emotion 29;
donpcevent "Bidder#prace0::OnStopRace";
}
end;
}
p_track01,58,36,2	script	Angeling#prace2	1096,{
end;
OnRace:
initnpctimer;
startnpctimer;
end;
OnStop:
stopnpctimer;
end;
OnReturn:
npcwalkto 58,36;
end;
OnTimer1100:
getmapxy(.@mapname$,.@x,.@y,1,"Angeling#prace2");
if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
setnpctimer rand($prace_random2);startnpctimer;
if ((.@x-1) == 29) {
set $prace_winner$,"Angeling";
emotion 29;
donpcevent "Bidder#prace0::OnStopRace";
}
end;
}
p_track01,58,34,2	script	Metaling#prace3	1613,{
end;
OnRace:
initnpctimer;
startnpctimer;
end;
OnStop:
stopnpctimer;
end;
OnReturn:
npcwalkto 58,34;
end;
OnTimer1100:
getmapxy(.@mapname$,.@x,.@y,1,"Metaling#prace3");
if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
setnpctimer rand($prace_random2);startnpctimer;
if ((.@x-1) == 29) {
set $prace_winner$,"Metaling";
emotion 29;
donpcevent "Bidder#prace0::OnStopRace";
}
end;
}
p_track01,58,32,2	script	Deviling#prace4	1582,{
end;
OnRace:
initnpctimer;
startnpctimer;
end;
OnStop:
stopnpctimer;
end;
OnReturn:
npcwalkto 58,32;
end;
OnTimer1100:
getmapxy(.@mapname$,.@x,.@y,1,"Deviling#prace4");
if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
setnpctimer rand($prace_random2);startnpctimer;
if ((.@x-1) == 29) {
set $prace_winner$,"Deviling";
emotion 29;
donpcevent "Bidder#prace0::OnStopRace";
}
end;
}
p_track01,58,30,2	script	Santa Poring#prace5	1062,{
end;
OnRace:
initnpctimer;
startnpctimer;
end;
OnStop:
stopnpctimer;
end;
OnReturn:
npcwalkto 58,30;
end;
OnTimer1100:
getmapxy( .@mapname$,.@x,.@y,1,"Santa Poring#prace5");
if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
setnpctimer rand($prace_random2);startnpctimer;
if ((.@x-1) == 29) {
set $prace_winner$,"Santa Poring";
emotion 29;
donpcevent "Bidder#prace0::OnStopRace";
}
end;
}
p_track01,58,28,2	script	Poporing#prace6	1031,{
end;
OnRace:
initnpctimer;
startnpctimer;
end;
OnStop:
stopnpctimer;
end;
OnReturn:
npcwalkto 58,28;
end;
OnTimer1100:
getmapxy(.@mapname$,.@x,.@y,1,"Poporing#prace6");
if(rand(100) < $prace_random) npcwalkto .@x-1,.@y;
setnpctimer rand($prace_random2);startnpctimer;
if ((.@x-1) == 29) {
set $prace_winner$,"Poporing";
emotion 29;
donpcevent "Bidder#prace0::OnStopRace";
}
end;
}

 

screenHex RO000.jpg

2 answers to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...