I want to change zeny to cashpoint / item

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

 

Edited May 28, 2020 by syndrome93

[Humble_Bee]

If you check out the exchanger scripts here, you will probably find your answer: