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

i want to change zeny to item.. can someone help me?

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; },{},{}

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 ^^

@Mabuhay thx alot .. it works ! @Mabuhay hello i've a little problem here. when i use +10 knife and click the npc. the npc still take my tcg card. can u add some message there if i use +10 equip it show a message " The Equipment already +10 ".

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

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..