Jump to content
  • 0

Poring Race Glitch /BUG

irawrsilentpls

Asked by irawrsilentpls,

 Share

Question

irawrsilentpls Poring

irawrsilentpls

Posted
  • Group:  Members
  • Topic Count:  4
  • Topics Per Day:  0.00
  • Content Count:  20
  • Reputation:   0
  • Joined:  05/29/12
  • Last Seen:  
Posted (edited)

Poring Race Script 


//===== Athena Script ========================================
//= Poring Race System
//===== By: ==================================================
//= Masao
//= Original Script from Zell_ff8 & xianz
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= Any eAthena SVN
//===== Description: =========================================
//= Poring Race
//===== Additional Comments: =================================
//= Version 1.0 if there are any Bugs please let me know.
//= Thanks to goddameit for helping me with the prize distribution.
//============================================================

goodev_c02.gat,0,0,0 script PraceAnnouncer -1,{

Onclock0120:
Onclock0320:
Onclock0520:
Onclock0720:
Onclock0920:
Onclock1120:
Onclock1320:
Onclock1520:
Onclock1720:
Onclock1920:
Onclock2120:
Onclock2320:
set $accessPrace,1;
initnpctimer "Race Manager#prace0";
announce "The Poring Race is now Open!",0;
end;
}

quiz_00,14,128,6 script Poring Race Warper 909,{

set .@name$,"[Warper]";
if ($accessPrace == 0) goto L_PraceOff;

mes .@name$;
mes "Would you like to be warped onto the Poringrace Map??";
menu "Yes, please!",-,"No, thanks.",L_Cancel;
close2;
announce strcharinfo(0)+" has Participated in Event Poring Race!",0,0xEB5E66;
warp "p_track01.gat",74,42;
end;

L_Cancel:
mes .@name$;
mes "Ok, bye.";
close;

L_PraceOff:
set @Hour, gettime(3);
set @Minute, gettime(2);
set @PraceTime, gettime(3) + 4;
if (gettime(3) == 1) set @PraceTime, @PraceTime-1;
if (gettime(3) == 2) set @PraceTime, @PraceTime-2;
if (gettime(3) == 3) set @PraceTime, @PraceTime-3;
if (gettime(3) == 5) set @PraceTime, @PraceTime-1;
if (gettime(3) == 6) set @PraceTime, @PraceTime-2;
if (gettime(3) == 7) set @PraceTime, @PraceTime-3;
if (gettime(3) == 9) set @PraceTime, @PraceTime-1;
if (gettime(3) == 10) set @PraceTime, @PraceTime-2;
if (gettime(3) == 11) set @PraceTime, @PraceTime-3;
if (gettime(3) == 13) set @PraceTime, @PraceTime-1;
if (gettime(3) == 14) set @PraceTime, @PraceTime-2;
if (gettime(3) == 15) set @PraceTime, @PraceTime-3;
if (gettime(3) == 17) set @PraceTime, @PraceTime-1;
if (gettime(3) == 18) set @PraceTime, @PraceTime-2;
if (gettime(3) == 19) set @PraceTime, @PraceTime-3;
if (gettime(3) == 21) set @PraceTime, @PraceTime-1;
if (gettime(3) == 22) set @PraceTime, @PraceTime-2;
if (gettime(3) == 23) set @PraceTime, @PraceTime-3;
mes .@name$;
mes "The Poringrace is closed right now..";
mes "The next Race takes place on "+@PraceTime+".";
mes "And right now it is "+@Hour+":"+@Minute+".";
close;
}

p_track01,58,41,2 script Race Manager#prace0 765,{

set .@name$,"[Race Manager]";
set .@prace_zeny,10000;
if ($prace_random < 1) callsub OnInit;
if (@prace_bet == 1) goto L_AlreadyPlaying;

getmapxy(.@mapname$,.@mapx1,.@mapy,1,"Poring#prace1");
getmapxy(.@mapname$,.@mapx2,.@mapy,1,"Angeling#prace2");
getmapxy(.@mapname$,.@mapx3,.@mapy,1,"Metaling#prace3");
getmapxy(.@mapname$,.@mapx4,.@mapy,1,"Deviling#prace4");
getmapxy(.@mapname$,.@mapx5,.@mapy,1,"Santa Poring#prace5");
getmapxy(.@mapname$,.@mapx6,.@mapy,1,"Poporing#prace6");
if (.@mapx1 != 58 || .@mapx2 != 58 || .@mapx3 != 58 || .@mapx4 != 58 || .@mapx5 != 58 || .@mapx6 != 58) {
mes .@name$;
mes "The Race alreday begun...";
close;
}

mes .@name$;
mes "On which Poring would you like to bet??";
mes "It only costs you "+.@prace_zeny+" Zeny to make a bet.";
next;
menu "Poring",L_P1,"Angeling",L_P2,"Metaling",L_P3,"Deviling",L_P4,"Santa Poring",L_P5,"Poporing",L_P6,"Keines",-;

mes .@name$;
mes "Have a nice day.";
close;

L_P1:
if (Zeny < .@prace_zeny) goto L_NoZeny;
set Zeny,Zeny-.@prace_zeny;
set @prace_winner$,"Poring";
goto L_Ready;
L_P2:
if (Zeny < .@prace_zeny) goto L_NoZeny;
set Zeny,Zeny-.@prace_zeny;
set @prace_winner$,"Angeling";
goto L_Ready;
L_P3:
if (Zeny < .@prace_zeny) goto L_NoZeny;
set Zeny,Zeny-.@prace_zeny;
set @prace_winner$,"Metaling";
goto L_Ready;
L_P4:
if (Zeny < .@prace_zeny) goto L_NoZeny;
set Zeny,Zeny-.@prace_zeny;
set @prace_winner$,"Deviling";
goto L_Ready;
L_P5:
if (Zeny < .@prace_zeny) goto L_NoZeny;
set Zeny,Zeny-.@prace_zeny;
set @prace_winner$,"Santa Poring";
goto L_Ready;
L_P6:
if (Zeny < .@prace_zeny) goto L_NoZeny;
set Zeny,Zeny-.@prace_zeny;
set @prace_winner$,"Poporing";
goto L_Ready;

L_Ready:
set $@prace_bets,$@prace_bets+1;
set $prace_bidders[$@prace_bets],getcharid(3);
set @prace_bet,1;
mes .@name$;
mes "I've got "+$@prace_bets+" bets so far.";
npctalk "I've got "+strcharinfo(0)+"'s bet for this race!";
close;

L_AlreadyPlaying:
mes .@name$;
mes "You've already chosen ^00bb00"+@prace_winner$+"^000000.";
close;

L_NoZeny:
mes .@name$;
mes "You do not have enough zeny.";
close;

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

OnTimer60000:
mapannounce "p_track01","3 minutes until the Race starts!",1,0xFFAB54;
end;

OnTimer120000:
mapannounce "p_track01","2 minutes until the Race starts!",1,0xFFAB54;
end;

OnTimer180000:
mapannounce "p_track01","1 minute until the Race starts!",1,0xFFAB54;
end;

OnTimer240000:
mapannounce "p_track01","Porings, on your marks... get ready...",1,0xFFAB54;
end;

OnTimer241000:
mapannounce "p_track01","...1...",1,0xFFAB54;
end;

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

OnTimer243000:
donpcevent "Race Manager#prace0::OnStartRace";
mapannounce "p_track01","...3...",1,0xFFAB54;
end;

OnTimer243500:
mapannounce "p_track01","Goooo!!!",1,0xFFAB54;
end;

OnTimer303500:
set $prace_winner$,"";
set $@prace_bets,0;
callsub ReturnRace;
end;

OnStartRace:
donpcevent "Poring#prace1::OnRace";
donpcevent "Angeling#prace2::OnRace";
donpcevent "Metaling#prace3::OnRace";
donpcevent "Deviling#prace4::OnRace";
donpcevent "Santa Poring#prace5::OnRace";
donpcevent "Poporing#prace6::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","And the Winner is "+$prace_winner$,1,0xFFAB54;
donpcevent "Checker#prace0::OnCheck";
sleep2 10000;
mapwarp "p_track01.gat","goodev_c02",102,49;
set $accessPrace,0;
end;
}

- script Checker#prace0 -1,{
OnCheck:
for(set .@tmp1,1;.@tmp1<=$@prace_bets;set .@tmp1,.@tmp1+1){
	if(attachrid($prace_bidders[.@tmp1])){
		dispbottom "The winner is "+$prace_winner$+" and you bet on "+@prace_winner$+".";
		if (@prace_winner$ == $prace_winner$) {
dispbottom "You've won!";
			getitem 20010,2;
getitem 7227,1;
			emotion 21,1;
		} else {
			dispbottom "You've lost.";
			emotion 28,1;
		}
		set @prace_winner$,"";
		set @prace_bet,0;
		detachrid;
	}
}
deletearray $prace_bidders[1],128;
set $@prace_bets,0;
end;
}

p_track01,58,38,2 script Poring#prace1 1002,{
end;

OnRace:
initnpctimer;
end;

OnStop:
stopnpctimer;
end;

OnReturn:
npcwalkto 58,38;
end;

OnTimer1000:
getmapxy(.@mapname$,.@mapx,.@mapy,1,"Poring#prace1");
if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy;
setnpctimer rand($prace_random2);
startnpctimer;
if ((.@mapx-1) == 29) {
set $prace_winner$,"Poring";
emotion 29;
donpcevent "Race Manager#prace0::OnStopRace";
}
end;
}

p_track01,58,36,2 script Angeling#prace2 1096,{
end;

OnRace:
initnpctimer;
end;

OnStop:
stopnpctimer;
end;

OnReturn:
npcwalkto 58,36;
end;

OnTimer1000:
getmapxy(.@mapname$,.@mapx,.@mapy,1,"Angeling#prace2");
if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy;
setnpctimer rand($prace_random2);
startnpctimer;
if ((.@mapx-1) == 29) {
set $prace_winner$,"Angeling";
emotion 29;
donpcevent "Race Manager#prace0::OnStopRace";
}
end;
}

p_track01,58,34,2 script Metaling#prace3 1613,{
end;

OnRace:
initnpctimer;
end;

OnStop:
stopnpctimer;
end;

OnReturn:
npcwalkto 58,34;
end;

OnTimer1000:
getmapxy(.@mapname$,.@mapx,.@mapy,1,"Metaling#prace3");
if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy;
setnpctimer rand($prace_random2);
startnpctimer;
if ((.@mapx-1) == 29) {
set $prace_winner$,"Metaling";
emotion 29;
donpcevent "Race Manager#prace0::OnStopRace";
}
end;
}

p_track01,58,32,2 script Deviling#prace4 1582,{
end;

OnRace:
initnpctimer;
end;

OnStop:
stopnpctimer;
end;

OnReturn:
npcwalkto 58,32;
end;

OnTimer1000:
getmapxy(.@mapname$,.@mapx,.@mapy,1,"Deviling#prace4");
if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy;
setnpctimer rand($prace_random2);
startnpctimer;
if ((.@mapx-1) == 29) {
set $prace_winner$,"Deviling";
emotion 29;
donpcevent "Race Manager#prace0::OnStopRace";
}
end;
}

p_track01,58,30,2 script Santa Poring#prace5 1062,{
end;

OnRace:
initnpctimer;
end;

OnStop:
stopnpctimer;
end;

OnReturn:
npcwalkto 58,30;
end;

OnTimer1000:
getmapxy(.@mapname$,.@mapx,.@mapy,1,"Santa Poring#prace5");
if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy;
setnpctimer rand($prace_random2);
startnpctimer;
if ((.@mapx-1) == 29) {
set $prace_winner$,"Santa Poring";
emotion 29;
donpcevent "Race Manager#prace0::OnStopRace";
}
end;
}

p_track01,58,28,2 script Poporing#prace6 1031,{
end;

OnRace:
initnpctimer;
end;

OnStop:
stopnpctimer;
end;

OnReturn:
npcwalkto 58,28;
end;

OnTimer1000:
getmapxy(.@mapname$,.@mapx,.@mapy,1,"Poporing#prace6");
if (rand(100) < $prace_random) npcwalkto .@mapx-1,.@mapy;
setnpctimer rand($prace_random2);
startnpctimer;
if ((.@mapx-1) == 29) {
set $prace_winner$,"Poporing";
emotion 29;
donpcevent "Race Manager#prace0::OnStopRace";
}
end;
}

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

Main Problem

* Click the NPC wait for the poring race start, see whose leading.

* Click Bet to the leading poring, and then you win easy.

Any solution guys?

Edited by irawrsilentpls
Link to comment
Share on other sites

3 answers to this question

Recommended Posts

goddameit Poring

goddameit

Posted
  • Group:  Members
  • Topic Count:  60
  • Topics Per Day:  0.01
  • Content Count:  562
  • Reputation:   219
  • Joined:  11/22/11
  • Last Seen:  
Posted

I think just need to add a variable for check is event start or not.

Link to comment
Share on other sites
irawrsilentpls Poring

irawrsilentpls

Posted
  • Group:  Members
  • Topic Count:  4
  • Topics Per Day:  0.00
  • Content Count:  20
  • Reputation:   0
  • Joined:  05/29/12
  • Last Seen:  
  • Author
Posted

if you're not busy sir god dam, mind fixing it :(

condition : when poring race starts = NPC Hide the chat will be auto close. if is it possible thanks in advance.

Link to comment
Share on other sites
Euro Poring

Euro

Posted
  • Group:  Members
  • Topic Count:  8
  • Topics Per Day:  0.00
  • Content Count:  26
  • Reputation:   10
  • Joined:  01/01/12
  • Last Seen:  
Posted (edited)

This might be better:

//===== eAthena Script ===============================================
//= Poring Race System
//===== By: =========================================================
//= Zell_ff8
//=  -Made for Daegaladh, www.Sha-Ro.com Admin
//=  -and RUNE, http://ro-enhanced.net
//=
//= xianz
//=  -Added more features to it.
//= Some Rights Reserved
//=	 http://creativecommons.org/licenses/by-nc-sa/2.5/ar/
//=  
//= Neko
//=  Rescripted some things.
//=  Killed the Evils goto's �_�
//=	Did the facking tabs, code was all screwed up, now is more readable
//===== Current Version: ==============================================
//= 1.00
//===== Compatible With: =============================================
//= eAthena SVN 9991+
//===== Description: =================================================
//= Poring Race
//===== Additional Comments: =========================================
//= Tested, eA SVN Stable r10128 working 100%
//= Need a lot of clean up... but, WORKS!! WTH xD
//= 1.00
//=  Kinda Cleaned up
//=  Fixed some exploits and bugs.
//=  Still need to be Converted the array to store the players ID's Maybe
//=	I will do it later.
//==================================================================
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,{
OnMinute20:
set $accessPrace, 1;
announce "Poring Race is now open!",0,0xFFAB54;
end;
OnPraceEnd:
set $accessPrace, 0;
announce "Poring Race is over!",0,0xFFAB54;
end;
}
prontera,139,184,5 script Poring Race::Prace 882,{
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!";
mapannounce "p_track01"," Congratulations! "+strcharinfo(0)+" has won!",1,0xFFAB54;
getitem 7199,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;
mes "[bidder]";
mes "Choose the poring you want to bet:";
mes "It will cost "+.@prace_zeny+" Zeny.";
//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( Zeny < .@prace_zeny) {
 set prace_winner$,"";
 mes "[bidder]";
 mes "You don't have enough Zeny.";
 close;
}
set Zeny,Zeny - .@prace_zeny;
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",142,170;
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;
}

Edited by Emistry
Please use [CODEBOX] or Attachments for long contents.
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...