@help quest using cash

[PapaZola]

how i can make add cash point 500 on this npc

morocc_in,80,100,4 script Gunslinger Quest 523,{
mes "[Dynamic Quest NPC]";
mes "Which quest would you like to do?";
mes "^FF0000Visit Our Forum To Know Effect Quest^000000";
mes "^FF0000www.1worldro.com/forum^000000";
set .i,select(.Menu$);
next;
goto Quest_Setup;
OnInit:
waitingroom "Gunslinger Set",0;
set .BuildQuest,1;
set .Menu$,"";
set .i,1;
goto Quest_Setup;
Quest_Display:
if(.BuildQuest) {
if(compare(getarg(0),"Stop Quest Loading")) {
set .BuildQuest,0;
end;
}
set .Menu$,.Menu$+getarg(0)+":";
set .i,.i+1;
goto Quest_Setup;
}
mes "[" + getarg(0) + "]";
mes "I require the following:";
for(set @i,1; getarg(@i)!=0; set @i,@i+2) mes "^FF0000"+((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
mes "^000000In exchange, I will give you:^0000FF";
for(set @i,@i+1; getarg(@i)!=0; set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
if(select("Exchange:No thanks")==2) close;
for(set @i,1; getarg(@i)!=0; set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
next;
mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
mes "Please obtain ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
close;
}
for(set @i,1; getarg(@i)!=0; set @i,@i+2) delitem getarg(@i),getarg(@i+1);
for(set @i,@i+1; getarg(@i)!=0; set @i,@i+2) getitem getarg(@i),getarg(@i+1);
close;
Quest_Setup:
switch(.i) {
case 1: callsub Quest_Display,"^FF9900Gunslinger Set[1]^000000^CC00FF3 Items Will Get^000000",949,150,7510,10,7562,2,20003,10,20004,10,20005,5,0,28022,1,28023,1,28024,1,0;

default: callsub Quest_Display,"Stop Quest Loading";
}
}

Edited May 24, 2012 by Arcenciel
Codeboxed