Jump to content
  • 0

request Poring Race Script

enjay

Asked by enjay,

 Share

Question

enjay Poring

enjay

Posted
  • Group:  Members
  • Topic Count:  6
  • Topics Per Day:  0.00
  • Content Count:  13
  • Reputation:   0
  • Joined:  12/08/12
  • Last Seen:  
Posted

I want to request a Poring Race Event Script. it announces to all map every 2hours when it will gonna started . thanks in advance ^_^

Link to comment
Share on other sites

16 answers to this question

Recommended Posts

Capuche Poporing

Capuche

Posted
  • Group:  Developer
  • Topic Count:  10
  • Topics Per Day:  0.00
  • Content Count:  2407
  • Reputation:   616
  • Joined:  07/05/12
  • Last Seen:  
Posted

I want to request a Poring Race Event Script. it announces to all map every 2hours when it will gonna started . thanks in advance ^_^

http://pastebin.com/raw.php?i=s3JKaycq

Works on rA only

  • Upvote 1
Link to comment
Share on other sites
enjay Poring

enjay

Posted
  • Group:  Members
  • Topic Count:  6
  • Topics Per Day:  0.00
  • Content Count:  13
  • Reputation:   0
  • Joined:  12/08/12
  • Last Seen:  
  • Author
Posted

thanks Capuche ^___^

Link to comment
Share on other sites
Cheria Poring

Cheria

Posted
  • Group:  Members
  • Topic Count:  3
  • Topics Per Day:  0.00
  • Content Count:  6
  • Reputation:   0
  • Joined:  02/04/12
  • Last Seen:  
Posted

Link down. Can somebody re-upload it?

Link to comment
Share on other sites
Emistry Deviling

Emistry

Posted
  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10018
  • Reputation:   2370
  • Joined:  10/28/11
  • Last Seen:  
Posted

I want to request a Poring Race Event Script. it announces to all map every 2hours when it will gonna started . thanks in advance ^_^

http://pastebin.com/raw.php?i=s3JKaycq

Works on rA only

the link work fine for me...

Link to comment
Share on other sites
Cheria Poring

Cheria

Posted
  • Group:  Members
  • Topic Count:  3
  • Topics Per Day:  0.00
  • Content Count:  6
  • Reputation:   0
  • Joined:  02/04/12
  • Last Seen:  
Posted

Not for me.

 

I tried with Google Chrome and Firefox. Can you attach it please?

 

Thanks.

Link to comment
Share on other sites
Capuche Poporing

Capuche

Posted
  • Group:  Developer
  • Topic Count:  10
  • Topics Per Day:  0.00
  • Content Count:  2407
  • Reputation:   616
  • Joined:  07/05/12
  • Last Seen:  
Posted 




// Capuche cleaning Base on the poring race by Zell_ff8, xianz, Neko



prontera,139,184,5	script	Poring Race	882,{



	if( .access_Prace == 0 ) {



		mes "[Poring Race Staff]";



		mes "Poring Race has ended.";



		close;



	}



	mes "[Poring Race Staff]";



	mes "Do you want to participate on Poring Race?";



	if( select( "Yes","No" ) -1 ) {



		next;



		mes "[Poring Race Staff]";



		mes "See you again next time!";



		close;



	}



	if( .access_Prace == 0 ) {



		next;



		mes "[Poring Race Staff]";



		mes "...";



		mes "...";



		mes "Cheater!!~~";



		close;



	}



	close2;



	@prace_winner$ = "";



	warp "p_track01",52,41;



	end;



// OnInit:



OnMinute20:



	if( gettime(3)%2 ) end;



	set .access_Prace, 1;



	announce "Poring Race is now open!",0,0xFFAB54;



	setnpctimer 100000,"Bidder#prace0";



	startnpctimer "Bidder#prace0";



	end;



OnPraceEnd:



	set .access_Prace, 0;



	announce "Poring Race is over!",0,0xFFAB54;



	end;



}



p_track01,58,41,3	script	Bidder#prace0	877,{



function checkevent;



	mes "[Bidder]";



	if( getstrlen( @prace_winner$ ) ) {



		mes "You have choose ^00bb00"+ @prace_winner$ +"^000000";



		close;



	}



	else if ( checkevent() || .start ) {



		mes "There is a race in progress...";



		close;



	}



	else if( !getvariableofnpc( .access_Prace,"Poring Race" ) ) {



		mes "There is no race.";



		close;



	}



	mes "Choose the poring you want to bet:";



	mes "It will cost "+ .zeny_req +" Zeny.";



	.@s = select( .menu_$ );



	if( .@s == 7 ) {



		next;



		mes "[Bidder]";



		mes "Goodbye.";



		close;



	}



	.@c$ = .monst_$[ .@s -1 ];



	if ( checkevent() ) {



		next;



		mes "[Bidder]";



		mes "...";



		mes "...";



		mes "Cheater!!~~";



		close;



	}



	else if( Zeny < .zeny_req ) {



		next;



		mes "[Bidder]";



		mes "You don't have enough Zeny.";



		close;



	}



	Zeny -= .zeny_req;



	@prace_winner$ = .@c$;



	.prace_bidders[ .prace_bets ] = getcharid(3);



	.prace_bets++;



	next;



	mes "[Bidder]";



	mes "I have "+ .prace_bets +" bets.";



	initnpctimer;



	npctalk "I got "+ strcharinfo(0) +" bet!";



	close;



OnTimer60000:



	npctalk "I got "+ .prace_bets +" bets. Anyone else?";



	end;



OnTimer80000:



	npctalk "The race will start soon. Last chance.";



	end;



OnTimer90000:



	stopnpctimer;



	.start = 1;



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



	sleep 2500;



	for( .@i = 3; .@i > 0; .@i-- ) {



		mapannounce "p_track01","..."+ .@i +"...",1,0xFFAB54;



		sleep 1000;



	}



	donpcevent strnpcinfo(0) +"::OnStartRace";



	sleep 1000;



	mapannounce "p_track01","Gooo!!!",1,0xFFAB54;



	end;



OnTimer320000:



	mapwarp "p_track01","prontera",142,170;



	donpcevent "Poring Race::OnPraceEnd";



	.prace_winner$ = "";



	.start = .prace_bets = 0;



	donpcevent strnpcinfo(0) +"::OnReturnRace";



	end;



OnStartRace:



	callsub L_label, "OnRace";



OnStopRace:



	callsub L_label, "OnStop";



OnReturnRace:



	callsub L_label, "OnReturn";



L_label:



	donpcevent "Metaling#prace3::"+ getarg(0);



	donpcevent "Poring#prace1::"+ getarg(0);



	donpcevent "Poporing#prace6::"+ getarg(0);



	donpcevent "Angeling#prace2::"+ getarg(0);



	donpcevent "Santa Poring#prace5::"+ getarg(0);



	donpcevent "Deviling#prace4::"+ getarg(0);



	if( getarg(0) == "OnStop" && .prace_winner$ != "" )



		callsub L_WinRace;



	end;



L_WinRace:



	mapannounce "p_track01", "The winner is "+ .prace_winner$,1,0xFFAB54;



	donpcevent strnpcinfo(0) +"::OnChequeo";



	sleep 3000;



	donpcevent strnpcinfo(0) +"::OnReturnRace";



	sleep 10000;



	mapwarp "p_track01","prontera",142,170;



	donpcevent "Poring Race::OnPraceEnd";



	.prace_winner$ = "";



	.start = .prace_bets = 0;



	end;



OnChequeo:



	for( .@i = 0 ; .@i < getarraysize( .prace_bidders ); .@i++ ) {



		if( attachrid( .prace_bidders[.@i] ) && getstrlen( @prace_winner$ ) ) {



			dispbottom "The winner is "+ .prace_winner$ +" and you have bet for "+ @prace_winner$ +".";



			if( @prace_winner$ == .prace_winner$ ) {



				dispbottom "You have won!";



				mapannounce "p_track01"," Congratulations! "+ strcharinfo(0) +" has won!",1,0xFFAB54;



				getitem .item_gained, .item_num_gain;



				emotion 21,1;



			}



			else {



				dispbottom "You have lost.";



				emotion 28,1;



			}



			@prace_winner$ = "";



		}



	}



	deletearray .prace_bidders;



	end;



OnInit:



	.zeny_req = 3500;



	.item_gained = 7199;



	.item_num_gain = 2;



	setarray .monst_$,"Poring","Angeling","Metaling","Deviling","Santa Poring","Poporing","None";



	.menu_$ = implode( .monst_$, ":" );



	end;



function checkevent {



	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";



	.@t = ( .@x1 + .@x2 + .@x3 + .@x4 + .@x5 + .@x6 ) != 58 * 6;



	return .@t;



}



}



//-----------------------------------



// Racer NPC's



//-----------------------------------



-	script	pori_race	-1,{



OnRace:



	initnpctimer;



	end;



OnStop:



	stopnpctimer;



	end;



OnReturn:



	sleep 1000;



	while( strnpcinfo(1) != .monst$[ .@i ] ) .@i++;



	movenpc strnpcinfo(3), 58, .walk_t[.@i];



	end;



OnTimer1100:



	getmapxy .@mapname$,.@x,.@y,1, strnpcinfo(3);



	if( rand(100) < .prace_random )



		npcwalkto .@x-1, .@y;



	.@r = rand( .prace_random2 );



	if ( .@x -1 == 29 ) {



		while( strnpcinfo(1) != .monst$[ .@i ] ) .@i++;



		set getvariableofnpc( .prace_winner$, "Bidder#prace0" ), .monst$[ .@i ];



		emotion 29;



		donpcevent "Bidder#prace0::OnStopRace";



		end;



	}



	stopnpctimer;



	setnpctimer .@r;



	startnpctimer;



	end;



OnInit:



	deletearray .walk_t;



	deletearray .monst$;



	setarray .walk_t, 38, 36, 34, 32, 30, 28;



	setarray .monst$, "Poring", "Angeling", "Metaling", "Deviling", "Santa Poring", "Poporing";



	.prace_random = 70;



	.prace_random2 = 600;



	end;



}



p_track01,58,38,2	duplicate(pori_race)	Poring#prace1	1002



p_track01,58,36,2	duplicate(pori_race)	Angeling#prace2	1096



p_track01,58,34,2	duplicate(pori_race)	Metaling#prace3	1613



p_track01,58,32,2	duplicate(pori_race)	Deviling#prace4	1582



p_track01,58,30,2	duplicate(pori_race)	Santa Poring#prace5	1062



p_track01,58,28,2	duplicate(pori_race)	Poporing#prace6	1031



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



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







			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				
			
    • 

		
			
  • 
				
			
    • 
		
	
	




	

	

	

		

			

				


	
		Brynner
	

				
				
					
						
Metaling
					
				
			

		

		

			

				


Brynner
			

			

				Posted 
				
			

		

	


	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
    
		
    
		
			
		
		
			
				
  • 
					 Group:
					 Members
				
    • 
			
		
					  
			
		
		
			
				
  • 
					 Topic Count:
					 120
				
    • 
			
		
		
			
				
  • 
					 Topics Per Day:
					 0.02
				
    • 
			
		
		
			
				
  • 
					 Content Count:
					 1963
				
    • 
			
		
		
			
		
		
			
				
  • 
					 Reputation:
					 

	
		
	
			 203
	
		
	

				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
				
					
  • 
						 Joined:
						 01/08/12
					
    • 
				
			
		
		
			
				
			
		
		
			
				
  • 
					 Last Seen:
					 
				
    • 
			
		
		
		
			
		
		
			
		
		
			
		

		

		
    

	


	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			
how can i make this event automatically starts every 2hrs?


			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				
			
    • 

		
			
  • 
				
			
    • 
		
	
	




	

	

	

		

			

				


	
		Yonko
	

				
				
					
						
Poring
					
				
			

		

		

			

				


Yonko
			

			

				Posted 
				
			

		

	


	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
    
		
    
		
			
		
		
			
				
  • 
					 Group:
					 Members
				
    • 
			
		
					  
			
		
		
			
				
  • 
					 Topic Count:
					 166
				
    • 
			
		
		
			
				
  • 
					 Topics Per Day:
					 0.03
				
    • 
			
		
		
			
				
  • 
					 Content Count:
					 789
				
    • 
			
		
		
			
		
		
			
				
  • 
					 Reputation:
					 

	
		
	
			 50
	
		
	

				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
				
					
  • 
						 Joined:
						 04/16/12
					
    • 
				
			
		
		
			
				
			
		
		
			
				
  • 
					 Last Seen:
					 
				
    • 
			
		
		
		
			
		
		
			
		
		
			
		

		

		
    

	


	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

how can i make this event automatically starts every 2hrs?


// OnInit:


OnMinute120:


    if( gettime(3)%2 ) end;


    set .access_Prace, 1;


    announce "Poring Race is now open!",0,0xFFAB54;


    setnpctimer 100000,"Bidder#prace0";


    startnpctimer "Bidder#prace0";


    end;


 


 


try that



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				
			
    • 

		
			
  • 
				
			
    • 
		
	
	




	

	

	

		

			

				


	
		Brynner
	

				
				
					
						
Metaling
					
				
			

		

		

			

				


Brynner
			

			

				Posted 
				
			

		

	


	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
    
		
    
		
			
		
		
			
				
  • 
					 Group:
					 Members
				
    • 
			
		
					  
			
		
		
			
				
  • 
					 Topic Count:
					 120
				
    • 
			
		
		
			
				
  • 
					 Topics Per Day:
					 0.02
				
    • 
			
		
		
			
				
  • 
					 Content Count:
					 1963
				
    • 
			
		
		
			
		
		
			
				
  • 
					 Reputation:
					 

	
		
	
			 203
	
		
	

				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
				
					
  • 
						 Joined:
						 01/08/12
					
    • 
				
			
		
		
			
				
			
		
		
			
				
  • 
					 Last Seen:
					 
				
    • 
			
		
		
		
			
		
		
			
		
		
			
		

		

		
    

	


	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			
there is a bug on this script. sometimes the porings start to run. without getting the bet. so you can bet on the leading porings so you'll gonna win instantly.


			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				
			
    • 

		
			
  • 
				
			
    • 
		
	
	




	

	

	

		

			

				


	
		Capuche
	

				
				
				
				
					
						
Poporing
					
				
			

		

		

			

				


Capuche
			

			

				Posted 
				
			

		

	


	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
    
		
    
		
			
		
		
			
				
  • 
					 Group:
					 Developer
				
    • 
			
		
					  
			
		
		
			
				
  • 
					 Topic Count:
					 10
				
    • 
			
		
		
			
				
  • 
					 Topics Per Day:
					 0.00
				
    • 
			
		
		
			
				
  • 
					 Content Count:
					 2407
				
    • 
			
		
		
			
		
		
			
				
  • 
					 Reputation:
					 

	
		
	
			 616
	
		
	

				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
				
					
  • 
						 Joined:
						 07/05/12
					
    • 
				
			
		
		
			
				
			
		
		
			
				
  • 
					 Last Seen:
					 
				
    • 
			
		
		
		
			
		
		
			
		
		
			
		

		

		
    

	


	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

It may be because of the next button


// Capuche cleaning Base on the poring race by Zell_ff8, xianz, Neko
prontera,139,184,5	script	Poring Race	882,{

	if( .access_Prace == 0 ) {
		mes "[Poring Race Staff]";
		mes "Poring Race has ended.";
		close;
	}
	mes "[Poring Race Staff]";
	mes "Do you want to participate on Poring Race?";
	if( select( "Yes","No" ) -1 ) {
		next;
		mes "[Poring Race Staff]";
		mes "See you again next time!";
		close;
	}
	if( .access_Prace == 0 ) {
		next;
		mes "[Poring Race Staff]";
		mes "...";
		mes "...";
		mes "Cheater!!~~";
		close;
	}
	close2;
	@prace_winner$ = "";
	warp "p_track01",52,41;
	end;
// OnInit:
OnMinute20:
	if( gettime(3)%2 ) end;
	set .access_Prace, 1;
	announce "Poring Race is now open!",0,0xFFAB54;
	setnpctimer 100000,"Bidder#prace0";
	startnpctimer "Bidder#prace0";
	end;
OnPraceEnd:
	set .access_Prace, 0;
	announce "Poring Race is over!",0,0xFFAB54;
	end;
}


p_track01,58,41,3	script	Bidder#prace0	877,{
function checkevent;

	mes "[Bidder]";
	if( getstrlen( @prace_winner$ ) ) {
		mes "You have choose ^00bb00"+ @prace_winner$ +"^000000";
		close;
	}
	else if ( checkevent() || .start ) {
		mes "There is a race in progress...";
		close;
	}
	else if( !getvariableofnpc( .access_Prace,"Poring Race" ) ) {
		mes "There is no race.";
		close;
	}
	mes "Choose the poring you want to bet:";
	mes "It will cost "+ .zeny_req +" Zeny.";
	next;
	.@s = select( .menu_$ );
	if( .@s == 7 ) {
		mes "[Bidder]";
		mes "Goodbye.";
		close;
	}
	.@c$ = .monst_$[ .@s -1 ];

	if ( checkevent() ) {
		mes "[Bidder]";
		mes "...";
		mes "...";
		mes "Cheater!!~~";
		close;
	}
	else if( Zeny < .zeny_req ) {
		mes "[Bidder]";
		mes "You don't have enough Zeny.";
		close;
	}
	Zeny -= .zeny_req;
	@prace_winner$ = .@c$;
	.prace_bidders[ .prace_bets ] = getcharid(3);
	.prace_bets++;

	mes "[Bidder]";
	mes "I have "+ .prace_bets +" bets.";
	initnpctimer;
	npctalk "I got "+ strcharinfo(0) +" bet!";
	close;
OnTimer60000:
	npctalk "I got "+ .prace_bets +" bets. Anyone else?";
	end;
OnTimer80000:
	npctalk "The race will start soon. Last chance.";
	end;
OnTimer90000:
	stopnpctimer;
	.start = 1;
	mapannounce "p_track01","Porings, on your marks...",1,0xFFAB54;
	sleep 2500;
	for( .@i = 3; .@i > 0; .@i-- ) {
		mapannounce "p_track01","..."+ .@i +"...",1,0xFFAB54;
		sleep 1000;
	}
	donpcevent strnpcinfo(0) +"::OnStartRace";
	sleep 1000;
	mapannounce "p_track01","Gooo!!!",1,0xFFAB54;
	end;
OnTimer320000:
	mapwarp "p_track01","prontera",142,170;
	donpcevent "Poring Race::OnPraceEnd";
	.prace_winner$ = "";
	.start = .prace_bets = 0;
	donpcevent strnpcinfo(0) +"::OnReturnRace";
	end;

OnStartRace:
	callsub L_label, "OnRace";
OnStopRace:
	callsub L_label, "OnStop";
OnReturnRace:
	callsub L_label, "OnReturn";
L_label:
	donpcevent "Metaling#prace3::"+ getarg(0);
	donpcevent "Poring#prace1::"+ getarg(0);
	donpcevent "Poporing#prace6::"+ getarg(0);
	donpcevent "Angeling#prace2::"+ getarg(0);
	donpcevent "Santa Poring#prace5::"+ getarg(0);
	donpcevent "Deviling#prace4::"+ getarg(0);
	if( getarg(0) == "OnStop" && .prace_winner$ != "" ) {
		mapannounce "p_track01", "The winner is "+ .prace_winner$,1,0xFFAB54;
		donpcevent strnpcinfo(0) +"::OnChequeo";
		sleep 3000;
		donpcevent strnpcinfo(0) +"::OnReturnRace";
		sleep 10000;
		mapwarp "p_track01","prontera",142,170;
		donpcevent "Poring Race::OnPraceEnd";
		.prace_winner$ = "";
		.start = .prace_bets = 0;
	}
	end;

OnChequeo:
	for( .@i = 0 ; .@i < .prace_bets; .@i++ ) {
		if( attachrid( .prace_bidders[.@i] ) && getstrlen( @prace_winner$ ) ) {
			dispbottom "The winner is "+ .prace_winner$ +" and you have bet for "+ @prace_winner$ +".";
			if( @prace_winner$ == .prace_winner$ ) {
				dispbottom "You have won!";
				mapannounce "p_track01"," Congratulations! "+ strcharinfo(0) +" has won!",1,0xFFAB54;
				getitem .item_gained, .item_num_gain;
				emotion 21,1;
			}
			else {
				dispbottom "You have lost.";
				emotion 28,1;
			}
			@prace_winner$ = "";
		}
	}
	deletearray .prace_bidders, .prace_bets;
	end;
OnInit:
	.zeny_req = 3500;
	.item_gained = 7199;
	.item_num_gain = 2;
	setarray .monst_$,"Poring","Angeling","Metaling","Deviling","Santa Poring","Poporing","None";
	.menu_$ = implode( .monst_$, ":" );
	end;

function checkevent {
	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";
	.@tmp = ( .@x1 + .@x2 + .@x3 + .@x4 + .@x5 + .@x6 ) != 58 * 6;
	return .@tmp;
}
}
//-----------------------------------
// Racer NPC's
//-----------------------------------

-	script	pori_race	-1,{
OnRace:
	initnpctimer;
	end;
OnStop:
	stopnpctimer;
	end;
OnReturn:
	sleep 1000;
	while( strnpcinfo(1) != .monst$[ .@i ] ) .@i++;
	movenpc strnpcinfo(3), 58, .walk_t[.@i];
	end;
OnTimer1100:
	getmapxy .@mapname$,.@x,.@y,1, strnpcinfo(3);
	if( rand(100) < .prace_random )
		npcwalkto .@x-1, .@y;
	.@r = rand( .prace_random2 );
	if ( .@x -1 == 29 ) {
		while( strnpcinfo(1) != .monst$[ .@i ] ) .@i++;
		set getvariableofnpc( .prace_winner$, "Bidder#prace0" ), .monst$[ .@i ];
		emotion 29;
		donpcevent "Bidder#prace0::OnStopRace";
		end;
	}
	stopnpctimer;
	setnpctimer .@r;
	startnpctimer;
	end;
OnInit:
	if ( strnpcinfo(2) != "" ) end;
	setarray .walk_t, 38, 36, 34, 32, 30, 28;
	setarray .monst$, "Poring", "Angeling", "Metaling", "Deviling", "Santa Poring", "Poporing";
	.prace_random = 70;
	.prace_random2 = 600;
	end;
}

p_track01,58,38,2	duplicate(pori_race)	Poring#prace1	1002
p_track01,58,36,2	duplicate(pori_race)	Angeling#prace2	1096
p_track01,58,34,2	duplicate(pori_race)	Metaling#prace3	1613
p_track01,58,32,2	duplicate(pori_race)	Deviling#prace4	1582
p_track01,58,30,2	duplicate(pori_race)	Santa Poring#prace5	1062
p_track01,58,28,2	duplicate(pori_race)	Poporing#prace6	1031

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

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




			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				
			
    • 

		
			
  • 
				
			
    • 
		
	
	




	

	

	

		

			

				


	
		Brynner
	

				
				
					
						
Metaling
					
				
			

		

		

			

				


Brynner
			

			

				Posted 
				
			

		

	


	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
    
		
    
		
			
		
		
			
				
  • 
					 Group:
					 Members
				
    • 
			
		
					  
			
		
		
			
				
  • 
					 Topic Count:
					 120
				
    • 
			
		
		
			
				
  • 
					 Topics Per Day:
					 0.02
				
    • 
			
		
		
			
				
  • 
					 Content Count:
					 1963
				
    • 
			
		
		
			
		
		
			
				
  • 
					 Reputation:
					 

	
		
	
			 203
	
		
	

				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
				
					
  • 
						 Joined:
						 01/08/12
					
    • 
				
			
		
		
			
				
			
		
		
			
				
  • 
					 Last Seen:
					 
				
    • 
			
		
		
		
			
		
		
			
		
		
			
		

		

		
    

	


	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			
thanks. im gonna try this if its gonna work normally.


			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				
			
    • 

		
			
  • 
				
			
    • 
		
	
	




	

	

	

		

			

				


	
		Lelantos
	

				
				
					
						
Poring
					
				
			

		

		

			

				


Lelantos
			

			

				Posted 
				
			

		

	


	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
    
		
    
		
			
		
		
			
				
  • 
					 Group:
					 Members
				
    • 
			
		
					  
			
		
		
			
				
  • 
					 Topic Count:
					 0
				
    • 
			
		
		
			
				
  • 
					 Topics Per Day:
					 0
				
    • 
			
		
		
			
				
  • 
					 Content Count:
					 15
				
    • 
			
		
		
			
		
		
			
				
  • 
					 Reputation:
					 

	
		
	
			 0
	
		
	

				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
				
					
  • 
						 Joined:
						 03/30/13
					
    • 
				
			
		
		
			
				
			
		
		
			
				
  • 
					 Last Seen:
					 
				
    • 
			
		
		
		
			
		
		
			
		
		
			
		

		

		
    

	


	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			
Hello sir Capuche. There's till a bug in this event. After placing the bet the players just click on the porings and then the race start right away even if the bet npc is still now finish collecting bets. hope you can fix this bug. Thanks in advance.


			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				
			
    • 

		
			
  • 
				
			
    • 
		
	
	




	

	

	

		

			

				


	
		Brynner
	

				
				
					
						
Metaling
					
				
			

		

		

			

				


Brynner
			

			

				Posted 
				
			

		

	


	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
    
		
    
		
			
		
		
			
				
  • 
					 Group:
					 Members
				
    • 
			
		
					  
			
		
		
			
				
  • 
					 Topic Count:
					 120
				
    • 
			
		
		
			
				
  • 
					 Topics Per Day:
					 0.02
				
    • 
			
		
		
			
				
  • 
					 Content Count:
					 1963
				
    • 
			
		
		
			
		
		
			
				
  • 
					 Reputation:
					 

	
		
	
			 203
	
		
	

				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
				
					
  • 
						 Joined:
						 01/08/12
					
    • 
				
			
		
		
			
				
			
		
		
			
				
  • 
					 Last Seen:
					 
				
    • 
			
		
		
		
			
		
		
			
		
		
			
		

		

		
    

	


	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			
still the same. sometimes the event start without the bets


			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				
			
    • 

		
			
  • 
				
			
    • 
		
	
	




	

	

	

		

			

				


	
		caizercafe
	

				
				
					
						
Poring
					
				
			

		

		

			

				


caizercafe
			

			

				Posted 
				
			

		

	


	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
    
		
    
		
			
		
		
			
				
  • 
					 Group:
					 Members
				
    • 
			
		
					  
			
		
		
			
				
  • 
					 Topic Count:
					 13
				
    • 
			
		
		
			
				
  • 
					 Topics Per Day:
					 0.00
				
    • 
			
		
		
			
				
  • 
					 Content Count:
					 62
				
    • 
			
		
		
			
		
		
			
				
  • 
					 Reputation:
					 

	
		
	
			 1
	
		
	

				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
				
					
  • 
						 Joined:
						 10/09/13
					
    • 
				
			
		
		
			
				
			
		
		
			
				
  • 
					 Last Seen:
					 
				
    • 
			
		
		
		
			
		
		
			
		
		
			
		

		

		
    

	


	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

// Capuche cleaning Base on the poring race by Zell_ff8, xianz, Neko
alberta,141,158,5	script	Poring Race	882,{

    if( .access_Prace == 0 ) {
        mes "[Poring Race Staff]";
        mes "Poring Race has ended.";
        close;
    }
    mes "[Poring Race Staff]";
    mes "Do you want to participate on Poring Race?";
    if( select( "Yes","No" ) -1 ) {
        next;
        mes "[Poring Race Staff]";
        mes "See you again next time!";
        close;
    }
    if( .access_Prace == 0 ) {
        next;
        mes "[Poring Race Staff]";
        mes "...";
        mes "...";
        mes "Cheater!!~~";
        close;
    }
    close2;
    @prace_winner$ = "";
    warp "p_track01",52,41;
    end;
// OnInit:
OnMinute120:
    if( gettime(3)%2 ) end;
    set .access_Prace, 1;
    announce "Poring Race is now open!",0,0xFFAB54;
    setnpctimer 100000,"Bidder#prace0";
    startnpctimer "Bidder#prace0";
    end;
OnPraceEnd:
    set .access_Prace, 0;
    announce "Poring Race is over!",0,0xFFAB54;
    end;
}


p_track01,58,41,3	script	Bidder#prace0	877,{
function checkevent;

    mes "[Bidder]";
    if( getstrlen( @prace_winner$ ) ) {
        mes "You have choose ^00bb00"+ @prace_winner$ +"^000000";
        close;
    }
    else if ( checkevent() || .start ) {
        mes "There is a race in progress...";
        close;
    }
    else if( !getvariableofnpc( .access_Prace,"Poring Race" ) ) {
        mes "There is no race.";
        close;
    }
    mes "Choose the poring you want to bet:";
    mes "It will cost "+ .zeny_req +" Zeny.";

    .@s = select( .menu_$ );
    if( .@s == 7 ) {
        next;
        mes "[Bidder]";
        mes "Goodbye.";
        close;
    }
    .@c$ = .monst_$[ .@s -1 ];

    if ( checkevent() ) {
        next;
        mes "[Bidder]";
        mes "...";
        mes "...";
        mes "Cheater!!~~";
        close;
    }
    else if( Zeny < .zeny_req ) {
        next;
        mes "[Bidder]";
        mes "You don't have enough Zeny.";
        close;
    }
    Zeny -= .zeny_req;
    @prace_winner$ = .@c$;
    .prace_bidders[ .prace_bets ] = getcharid(3);
    .prace_bets++;

    next;
    mes "[Bidder]";
    mes "I have "+ .prace_bets +" bets.";
    initnpctimer;
    npctalk "I got "+ strcharinfo(0) +" bet!";
    close;
OnTimer60000:
    npctalk "I got "+ .prace_bets +" bets. Anyone else?";
    end;
OnTimer80000:
    npctalk "The race will start soon. Last chance.";
    end;
OnTimer90000:
    stopnpctimer;
    .start = 1;
    mapannounce "p_track01","Porings, on your marks...",1,0xFFAB54;
    sleep 2500;
    for( .@i = 3; .@i > 0; .@i-- ) {
        mapannounce "p_track01","..."+ .@i +"...",1,0xFFAB54;
        sleep 1000;
    }
    donpcevent strnpcinfo(0) +"::OnStartRace";
    sleep 1000;
    mapannounce "p_track01","Gooo!!!",1,0xFFAB54;
    end;
OnTimer320000:
    mapwarp "p_track01","prontera",142,170;
    donpcevent "Poring Race::OnPraceEnd";
    .prace_winner$ = "";
    .start = .prace_bets = 0;
    donpcevent strnpcinfo(0) +"::OnReturnRace";
    end;

OnStartRace:
    callsub L_label, "OnRace";
OnStopRace:
    callsub L_label, "OnStop";
OnReturnRace:
    callsub L_label, "OnReturn";
L_label:
    donpcevent "Metaling#prace3::"+ getarg(0);
    donpcevent "Poring#prace1::"+ getarg(0);
    donpcevent "Poporing#prace6::"+ getarg(0);
    donpcevent "Angeling#prace2::"+ getarg(0);
    donpcevent "Santa Poring#prace5::"+ getarg(0);
    donpcevent "Deviling#prace4::"+ getarg(0);
    if( getarg(0) == "OnStop" && .prace_winner$ != "" )
        callsub L_WinRace;
    end;
L_WinRace:
    mapannounce "p_track01", "The winner is "+ .prace_winner$,1,0xFFAB54;
    donpcevent strnpcinfo(0) +"::OnChequeo";
    sleep 3000;
    donpcevent strnpcinfo(0) +"::OnReturnRace";
    sleep 10000;
    mapwarp "p_track01","prontera",142,170;
    donpcevent "Poring Race::OnPraceEnd";
    .prace_winner$ = "";
    .start = .prace_bets = 0;
    end;
OnChequeo:
    for( .@i = 0 ; .@i < getarraysize( .prace_bidders ); .@i++ ) {
        if( attachrid( .prace_bidders[.@i] ) && getstrlen( @prace_winner$ ) ) {
            dispbottom "The winner is "+ .prace_winner$ +" and you have bet for "+ @prace_winner$ +".";
            if( @prace_winner$ == .prace_winner$ ) {
                dispbottom "You have won!";
                mapannounce "p_track01"," Congratulations! "+ strcharinfo(0) +" has won!",1,0xFFAB54;
                getitem .item_gained, .item_num_gain;
                emotion 21,1;
            }
            else {
                dispbottom "You have lost.";
                emotion 28,1;
            }
            @prace_winner$ = "";
        }
    }
    deletearray .prace_bidders;
    end;
OnInit:
    .zeny_req = 3500;
    .item_gained = 7199;
    .item_num_gain = 2;
    setarray .monst_$,"Poring","Angeling","Metaling","Deviling","Santa Poring","Poporing","None";
    .menu_$ = implode( .monst_$, ":" );
    end;

function checkevent {
    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";
    .@t = ( .@x1 + .@x2 + .@x3 + .@x4 + .@x5 + .@x6 ) != 58 * 6;
    return .@t;
}
}
//-----------------------------------
// Racer NPC's
//-----------------------------------

-	script	pori_race	-1,{
OnRace:
    initnpctimer;
    end;
OnStop:
    stopnpctimer;
    end;
OnReturn:
    sleep 1000;
    while( strnpcinfo(1) != .monst$[ .@i ] ) .@i++;
    movenpc strnpcinfo(3), 58, .walk_t[.@i];
    end;
OnTimer1100:
    getmapxy .@mapname$,.@x,.@y,1, strnpcinfo(3);
    if( rand(100) < .prace_random )
        npcwalkto .@x-1, .@y;
    .@r = rand( .prace_random2 );
    if ( .@x -1 == 29 ) {
        while( strnpcinfo(1) != .monst$[ .@i ] ) .@i++;
        set getvariableofnpc( .prace_winner$, "Bidder#prace0" ), .monst$[ .@i ];
        emotion 29;
        donpcevent "Bidder#prace0::OnStopRace";
        end;
    }
    stopnpctimer;
    setnpctimer .@r;
    startnpctimer;
    end;
OnInit:
    deletearray .walk_t;
    deletearray .monst$;
    setarray .walk_t, 38, 36, 34, 32, 30, 28;
    setarray .monst$, "Poring", "Angeling", "Metaling", "Deviling", "Santa Poring", "Poporing";
    .prace_random = 70;
    .prace_random2 = 600;
    end;
}

p_track01,58,38,2	duplicate(pori_race)	Poring#prace1	1002
p_track01,58,36,2	duplicate(pori_race)	Angeling#prace2	1096
p_track01,58,34,2	duplicate(pori_race)	Metaling#prace3	1613
p_track01,58,32,2	duplicate(pori_race)	Deviling#prace4	1582
p_track01,58,30,2	duplicate(pori_race)	Santa Poring#prace5	1062
p_track01,58,28,2	duplicate(pori_race)	Poporing#prace6	1031

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

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

 



hi guys, How to make this automatically open for 5 minutes?



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				
			
    • 

		
			
  • 
				
			
    • 
		
	
	




	

	

	

		

			

				


	
		Fresh prince
	

				
				
					
						
Poring
					
				
			

		

		

			

				


Fresh prince
			

			

				Posted 
				
			

		

	


	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
    
		
    
		
			
		
		
			
				
  • 
					 Group:
					 Members
				
    • 
			
		
					  
			
		
		
			
				
  • 
					 Topic Count:
					 69
				
    • 
			
		
		
			
				
  • 
					 Topics Per Day:
					 0.02
				
    • 
			
		
		
			
				
  • 
					 Content Count:
					 295
				
    • 
			
		
		
			
		
		
			
				
  • 
					 Reputation:
					 

	
		
	
			 6
	
		
	

				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
				
					
  • 
						 Joined:
						 10/14/12
					
    • 
				
			
		
		
			
				
			
		
		
			
				
  • 
					 Last Seen:
					 
				
    • 
			
		
		
		
			
		
		
			
		
		
			
		

		

		
    

	


	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

still the same. sometimes the event start without the bets


Same here, the event starts when you click the poring monsters (even without betting)



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				
			
    • 

		
			
  • 
				
			
    • 
		
	
	




	

	

	

		

			

				


	
		Mau
	

				
				
					
						
Poring
					
				
			

		

		

			

				


Mau
			

			

				Posted 
				
			

		

	


	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
    
		
    
		
			
		
		
			
				
  • 
					 Group:
					 Members
				
    • 
			
		
					  
			
		
		
			
				
  • 
					 Topic Count:
					 27
				
    • 
			
		
		
			
				
  • 
					 Topics Per Day:
					 0.01
				
    • 
			
		
		
			
				
  • 
					 Content Count:
					 120
				
    • 
			
		
		
			
		
		
			
				
  • 
					 Reputation:
					 

	
		
	
			 3
	
		
	

				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
				
					
  • 
						 Joined:
						 07/04/13
					
    • 
				
			
		
		
			
				
			
		
		
			
				
  • 
					 Last Seen:
					 
				
    • 
			
		
		
			
		
		
			
		
		
			
		
		
			
		

		

		
    

	


	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
					(edited)
				
				
			
		

	


	

    

	

		
		

			
Update it?
 


			
				


	Edited  by Mau
	
	

			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	




					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
				

	
		

			
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
			
		
	

	




								


	

		
	


							

							


						

					

					
				

				

				

			

		

		
		



	

		×
		


    
	





			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •