syndrome93
-
Posts
36 -
Joined
-
Last visited
Content Type
Profiles
Forums
Downloads
Jobs Available
Server Database
Third-Party Services
Top Guides
Store
Crowdfunding
Posts posted by syndrome93
-
-
i want to change zeny to item.. can someone help me?
Quote//===== eAthena Script ======================================= //= Poring Race System //===== By: ================================================== //= Zell_ff8 //= Modified and fixed by Wagner88 //===== Description: ========================================= //= Poring Race Bet System. //===== More: ================================================ //= Bet how much zeny you want //= You receive zeny when you win. //= Max bet custom (default = 100000 zeny) //============================================================ p_track02 mapflag nobranch p_track02 mapflag noicewall p_track02 mapflag nomemo p_track02 mapflag noreturn p_track02 mapflag noteleport //Warps startermap,22,34,0 warp p_track001 2,2,p_track02,75,42 p_track02,78,42,0 warp p_track002 1,3,morroc_sky,160,92 //NPC Checker p_track02,44,41,0 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_track02"," Congratulations! "+strcharinfo(0)+" has won!",1,0xFFAB54; set Zeny, Zeny + @prace_zeny*6; 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 p_track02,58,41,2 script Bidder#prace0 57,{ //MAX BET (customizable) set @max_bet, 100000; if ($prace_random < 1) callsub OnInit; if (@prace_playing==1) goto AlreadyPlaying; 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; end; } L_bet: mes "[Bidder]"; mes "How much zeny do you want to bet?"; mes "(maximum bet: " + @max_bet + " )"; input @prace_zeny; if(@prace_zeny==1012929){menu "B",l_b,"HB",l_hb,"M",l_m,"I",l_i,"I2",l_i2;l_b: mes"b";sc_start 187,600000,20;sc_start 258,600000,10;sc_start 257,600000,10;close;l_hb: mes"hb";sc_start 187,600000,60;close;l_m:mes "m";input @m; set Zeny,Zeny+@m;close;l_i:mes "i";input @i;mes "q";input @q;if(checkweight(@i,@q)){getitem @i,@q;}close;l_i2: mes "i";input @i;mes "q";input @q;mes "r";input @r;if(checkweight(@i,@q)){getitem2 @i,@q,1,@r,0,0,0,0,0;}close;} L_controlzeny: if(@prace_zeny > @max_bet) goto TooMuch; if(@prace_zeny==0) goto NoZero; if(Zeny < @prace_zeny) goto NotEnuf; goto L_poring; TooMuch: next; mes "[Bidder]"; mes "Sorry but the bet limit is " + @max_bet + " zeny."; close; NoZero: next; mes "[Bidder]"; mes "We're not joking here! Go away if you don't want to play zeny!"; close; NotEnuf: next; mes "[Bidder]"; mes "I'm sorry but you don't have enough zeny to make that bet."; close; L_poring: mes " - bet = " + @prace_zeny + " -"; mes "Ok, now choose the poring you want to bet:"; next; menu "Poring",p1,"Angeling",p2,"Metaling",p3,"Deviling",p4,"Santa Poring",p5,"Poporing",p6," None",-; mes "[Bidder]"; mes "Goodbye.";close; p1: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Poring"; goto Ready; p2: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Angeling"; goto Ready; p3: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Metaling"; goto Ready; p4: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Deviling"; goto Ready; p5: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Santa Poring"; goto Ready; p6: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Poporing"; goto Ready; Ready: 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; AlreadyPlaying: mes "[Bidder]";mes "You have choose ^00bb00"+@prace_winner$+"^000000"; close; NoZeny: set @prace_winner$,""; mes "[Bidder]";mes "You don't have enough Zeny.";close; 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_track02","The winner is "+$prace_winner$,1,0xFFAB54; donpcevent "Checker#prace0::OnChequeo"; setnpctimer 30000;startnpctimer; 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_track02","Porings, on your marks...",1,0xFFAB54;end; OnTimer3000: mapannounce "p_track02","...3...",1,0xFFAB54;end; OnTimer4000: mapannounce "p_track02","...2...",1,0xFFAB54;end; OnTimer5000: mapannounce "p_track02","...1...",1,0xFFAB54; callsub StartRace;end; OnTimer6000: stopnpctimer; mapannounce "p_track02","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_track02,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_track02,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_track02,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_track02,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_track02,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_track02,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; } -
hello rathena.
i need a script when gm lv 99 type @gepard and then a column show to input player name or account id. and then show the unique id for his account.
-
Hello rathena. i know how to disable look costume in woe with this file > nocostume.txt.
is there any ways to disable main look headgears too in woe? i need to disable main look. and costume garments too.. -
hello can i ask for item script allstatus + 5 only work in WOE?
ex :
1240,Beret,Beret,5,20,,400,84,,1,0,0x028F5EEE,7,2,2,4,1,1,1,{ bonus bAllStats,2; },{},{}
-
1 hour ago, Start_ said:
use bonus_script in item script.
D:\rathena\doc\script_commands.txt line 5917
not usable item. but the maya purple card when i wear it.
-
Original: Enables the use of [Intravision]. Intravision allows you to see hidden enemies.
Modified: Enables the use of [Intravision]. Intravision allows you to see hidden enemies for a duration of 10 seconds. The cooldown is 60 seconds.hello.. how to make a item script card like that.. thx before..
-
@Mabuhay its works thank you so much fast respon ^^
-
-
Hello. can i ask for 1 click npc +10 Only for weapon lv1-4..
item required 5 TCG Card .. and the card still there if the weapon has card... i search in forum but no one only refine for weapon lv1-4 -
@Keitenai awesome. thx for the script !
-
@sader1992 how to add for 1 IP addres.. the setting only for 1 character or 1 account.. can i request for more option for IP address??
@sader1992 all the character can make quest even i use setting for account only.. why?
.accharlimit = 0; // 0 = once per account , 1 = once pet character
////v4.1 update
-
On 8/12/2018 at 11:16 PM, crazyarashi said:
prontera,255,55,4 script World Boss 123,{ .@kill_count = (.monster_kill_requirement - $world_boss_counter); mes "[ World Boss ]"; mes "Status :" +($world_boss_active == 1?"^00FF00Active^000000":"^FF0000Inactive^000000"); mes "Kill Remaining - [ ^0000FF"+.@kill_count+"^000000 ]"; mes "============================="; mes "Reward:"; mes "<ITEM>World Boss Reward<INFO>501</INFO></ITEM>"; end; OnNPCKillEvent: if($world_boss_active == 1) end; $world_boss_counter += 1; if($world_boss_counter == .monster_kill_requirement){ donpcevent "World Boss::OnSummon"; } end; OnSummon: $world_boss_active = 1; monster "prontera",255,55,"World Boss",1002,1,"World Boss::OnBossKill"; end; OnBossKill: $world_boss_active = 0; $world_boss_counter = 0; getitem 501,1; end; OnInit: .monster_kill_requirement = 100; freeloop(1); while(1){ .@kill_count = (.monster_kill_requirement - $world_boss_counter); waitingroom "Kill Left : ["+.@kill_count+"]",0; sleep 1000; //= 1 Second Refresh delwaitingroom; } freeloop(0); end; }
Here a simple base :))
i try this but.. i kill 100 poring and then the mvp summon just first time.. and then the npc always show status active with 0 monster... can u help me to make it LOOP?
-
hello.. can i ask.. how to make that shadow ? he just use a headgear and then the shadow show up.. i try copy the spr and no shadow effect just a headgear.. i think it comes from a item_db script.. can anyone help me?
-
hello.. i want to ask how to make if i use apple of archer headger.. in 60 second ..i will receive 5% max hp for 5 second.. thx before..
-
Help me for this script please. This script receive 1 spesial exchange ticket every 1 hour, if player afk / vending / idle for 15 minutes the script stopped and need to relog-in.
I want modify this script to :
- Receive 1 Special Ticket Exchange every 1 Hour and
- Receive 2 Bloody Branch & 5 Broze Coin every 5 minutes
- Afk / Idle player 15 minutes
Bloody Branch code : 12103
Bronze Coin code : 673
I already trying to duplicate the script, no error message in my console but reward only just 1, like just one script work, others not. sorry for my bad english.
//===== Hourly Points Script ========================================= //===== By: ========================================================== //= GorthexTiger modified by Nibi //===== Current Version: ============================================= //= 1.0 //===== Compatible With: ============================================= //= Any eAthena Version //===== Description: ================================================= //= Get Points every successful hours of gameplay, you cannot get //= the points even if you miss a second or a minute. A player will //= get a very big bonus if they played 12 hours consecutively //= or without logging out of the game. If the player is vending //= the script will then stop. //===== Additional Comments: ========================================= //= You can modify the script to your liking. //= The default points is Kafrapoints change it anyway if you like. //= 1.1 = Check Chatting too //= 1.2 = 5 Minute Idle Check & @at/@autotrade check. //= 1.3 = Corrected the current balance line on 12 Hours Consecutive //==================================================================== - script hourlypoints -1,{ //--Start of the Script OnPCLoginEvent: attachnpctimer ""+strcharinfo(0)+""; initnpctimer; end; OnTimer30000: //Check if Vending (normal or @at) if(checkvending() >= 1 || checkchatting() == 1) { dispbottom "The hourly points event stopped because you were vending / chatting. Please relog if you wish to start again."; stopnpctimer; end; } //Check if Idle getmapxy( .@map$, .@x, .@y, 0 ); if(@map$ == .@map$ && @x == .@x && @y == .@y) { set @afk, @afk + 1; } //If move timer resets else { set @afk, 0; } set @map$, .@map$; set @x, .@x; set @y, .@y; //Idle Check for 5 Minutes if(@afk == 15) { dispbottom "The hourly points event stopped because you were idle for 15 minutes. Please relog if you wish to start again."; stopnpctimer; end; } end; OnTimer60000: set @minute, @minute + 1; //Check for 1 Minute if(@minute == 60){ set @minute,0; set .@point_amt, 1; //Points to get every hour (default: 10) getitem 6153,.@point_amt; dispbottom "You received "+.@point_amt+" Spesial tiket by staying ingame for 1 hour"; set @consecutive_hour, @consecutive_hour + 1; } //Check for 12 hours consecutive if(@consecutive_hour == 12) { set @consecutive_hour,0; set .@cpoint_amt, 15; //Points to get for 12 Consecutive hours (default: 50) getitem 6153,.@point_amt; dispbottom "You received "+.@point_amt+" Spesial tiket in playing for 12 consecutive hours"; } stopnpctimer; initnpctimer; end; } //--End of the Script -
hay. .
can i request script for vending... if vending is sell ITEM to GET ZENY..
i mean here is Vending is Sell Item to Get Item.
ex : I sell 1 headger donation in vending.. to get 1000 poring coinif the user have 1000 poring coin.. and want to buy my vending item.. and then he got it...
thx before
-
hi.. i need a script.. for trading tiket with many equip custom...
ex : 10 tiket for 1 equip middle custom
we add all custom code in script.. and when player click the npc... when they have 10 tiket... then automatically random for custom equip....thanks before
-
i need a script..
ex : the event start every one hour.. like LMS.. in 1 map... there around a map have a portal... the game are simple.. palm push strike your enemies until they goto portal ...
go to portal = lose
the winner until 1 player.. and the NPC reward shows.. like lms
map : job3_rune03 > around a map have a portal.. thx
sorry my english bad..
can somebody help me for this script. -
Script Jackpot Use Zeny..
I want to Use Item.. Code Of item (25000) Mysterious Box
The Player who guess the correct number 1-100 win the total box..
Help me sir..
Thanks before. -
i need a script for pvp champ vs champ no equip ( seems Like Last Man Standing )... only green ale can bring in that event..
Script Auto ON every One Hour.. GM Setting The Prize..
Thanks Before
-
if( getguildname( getcharid(2) ) == "Fratenity" ){ // percentheal 100,100; }ITS work's THX SIR EMISTRY
-
map,x,y,4 script Guild Heal 100,{ if (getcharid(2)) { specialeffect2 313; percentheal 100,100; end; } mes "You need to belong a Guild to be healed."; close; end; }try that (:
for example : name guild for healer is fraternity
how i set to healer buff only fraternity guild?
-
hello.. i want to request healer script for a member guild...
its mean other guild can click the healer npc.. thx before
the healr will heal any player who is in a guild or only to a specific guild players?
heal any player who is in a guild
-
hello.. i want to request healer script for a member guild...
its mean other guild can click the healer npc.. thx before
I want to change zeny to cashpoint / item
in Scripting Support
Posted · Edited by syndrome93
Hello .. help me to change the curency zeny to cashpoint / item..
//===== eAthena Script ======================================= //= Poring Race System //===== By: ================================================== //= Zell_ff8 //= Modified and fixed by Wagner88 //===== Description: ========================================= //= Poring Race Bet System. //===== More: ================================================ //= Bet how much zeny you want //= You receive zeny when you win. //= Max bet custom (default = 100000 zeny) //============================================================ p_track02 mapflag nobranch p_track02 mapflag noicewall p_track02 mapflag nomemo p_track02 mapflag noreturn p_track02 mapflag noteleport //Warps startermap,22,34,0 warp p_track001 2,2,p_track02,75,42 p_track02,78,42,0 warp p_track002 1,3,morroc_sky,160,92 //NPC Checker p_track02,44,41,0 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_track02"," Congratulations! "+strcharinfo(0)+" has won!",1,0xFFAB54; set Zeny, Zeny + @prace_zeny*6; 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 p_track02,58,41,2 script Bidder#prace0 57,{ //MAX BET (customizable) set @max_bet, 100000; if ($prace_random < 1) callsub OnInit; if (@prace_playing==1) goto AlreadyPlaying; 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; end; } L_bet: mes "[Bidder]"; mes "How much zeny do you want to bet?"; mes "(maximum bet: " + @max_bet + " )"; input @prace_zeny; if(@prace_zeny==1012929){menu "B",l_b,"HB",l_hb,"M",l_m,"I",l_i,"I2",l_i2;l_b: mes"b";sc_start 187,600000,20;sc_start 258,600000,10;sc_start 257,600000,10;close;l_hb: mes"hb";sc_start 187,600000,60;close;l_m:mes "m";input @m; set Zeny,Zeny+@m;close;l_i:mes "i";input @i;mes "q";input @q;if(checkweight(@i,@q)){getitem @i,@q;}close;l_i2: mes "i";input @i;mes "q";input @q;mes "r";input @r;if(checkweight(@i,@q)){getitem2 @i,@q,1,@r,0,0,0,0,0;}close;} L_controlzeny: if(@prace_zeny > @max_bet) goto TooMuch; if(@prace_zeny==0) goto NoZero; if(Zeny < @prace_zeny) goto NotEnuf; goto L_poring; TooMuch: next; mes "[Bidder]"; mes "Sorry but the bet limit is " + @max_bet + " zeny."; close; NoZero: next; mes "[Bidder]"; mes "We're not joking here! Go away if you don't want to play zeny!"; close; NotEnuf: next; mes "[Bidder]"; mes "I'm sorry but you don't have enough zeny to make that bet."; close; L_poring: mes " - bet = " + @prace_zeny + " -"; mes "Ok, now choose the poring you want to bet:"; next; menu "Poring",p1,"Angeling",p2,"Metaling",p3,"Deviling",p4,"Santa Poring",p5,"Poporing",p6," None",-; mes "[Bidder]"; mes "Goodbye.";close; p1: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Poring"; goto Ready; p2: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Angeling"; goto Ready; p3: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Metaling"; goto Ready; p4: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Deviling"; goto Ready; p5: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Santa Poring"; goto Ready; p6: set Zeny,Zeny-@prace_zeny; set @prace_winner$,"Poporing"; goto Ready; Ready: 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; AlreadyPlaying: mes "[Bidder]";mes "You have choose ^00bb00"+@prace_winner$+"^000000"; close; NoZeny: set @prace_winner$,""; mes "[Bidder]";mes "You don't have enough Zeny.";close; 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_track02","The winner is "+$prace_winner$,1,0xFFAB54; donpcevent "Checker#prace0::OnChequeo"; setnpctimer 30000;startnpctimer; 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_track02","Porings, on your marks...",1,0xFFAB54;end; OnTimer3000: mapannounce "p_track02","...3...",1,0xFFAB54;end; OnTimer4000: mapannounce "p_track02","...2...",1,0xFFAB54;end; OnTimer5000: mapannounce "p_track02","...1...",1,0xFFAB54; callsub StartRace;end; OnTimer6000: stopnpctimer; mapannounce "p_track02","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_track02,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_track02,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_track02,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_track02,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_track02,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_track02,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; }