here my script please help thanks
amatsu,132,161,6 script Lotti Girl 714,{
mes "[Lotti Girl]";
mes "Hello Sir! Are you out";
mes "shopping in the city?!";
next;
mes "[Lotti Girl]";
mes "I'm Lotti! I'll exchange cool";
mes "random prizes for every";
mes "^ff00001 Lotti Ticket Need If Wanna Play^000000.";
next;
mes "[Lotti Girl]";
mes "Our Grand prize is:";
mes "^ff0000Proof of Donation^000000";
mes "Special prizes are:";
mes "^ff0000Event Coin^000000";
mes "^ff0000Castle Drop ETC^000000";
next;
mes "[Lotti Girl]";
mes "You can still get random item";
mes "if you failed to get the grand";
mes "prize and special prizes.";
if (countitem(30008) < 1)
close;
next;
if(select("Deal me in!:No way...")==2)
close;
mes "[Lotti Girl]";
mes "Here we go...";
delitem 30008,1;
set .@Total,20;
//<%>,<ItemID>,<Amount>
setarray .@P2[0],90,673,1;
setarray .@P2[0],70,7227,1;
setarray .@P3[0],60,7776,1;
setarray .@P4[0],50,12903,1;
setarray .@P5[0],50,12904,1;
setarray .@P6[0],50,12905,1;
setarray .@P7[0],50,12906,1;
setarray .@P8[0],50,12907,1;
setarray .@P9[0],50,12908,1;
setarray .@P14[0],30,7830,1;
setarray .@P15[0],30,7091,1;
setarray .@P16[0],30,7075,1;
setarray .@P17[0],30,7085,1;
setarray .@P18[0],30,7835,1;
setarray .@P19[0],10,30004,20;
setarray .@P20[0],1,7179,1;
setarray .@Default[0],969,10;
set .@i, rand(1,.@Total);
if (rand(1,100) > getd(".@P"+.@i+"[0]"))
{
for(set .@j,0; .@j<getarraysize(.@Default); set .@j,.@j+2)
{
getitem .@Default[.@j], .@Default[.@j+1];
if(!.@k[0])
setarray .@k[0], .@Default[.@j], .@Default[.@j+1];
}
}
else{
for(set .@j,1; .@j<getarraysize(getd(".@P"+.@i)); set .@j,.@j+2)
{
getitem getd(".@P"+.@i+"["+.@j+"]"), getd(".@P"+.@i+"["+(.@j+1)+"]");
if (!.@k[0])
{
set .@gz,.@i;
setarray .@k[0], getd(".@P"+.@i+"["+.@j+"]"), getd(".@P"+.@i+"["+(.@j+1)+"]");
break;
}
}
}
if(1<=.@gz&&.@gz<=4)
announce "Congratulations! "+strcharinfo(0)+" just received "+getitemname(.@k[0])+" x "+.@k[1]+" from Lotti Girl (amatsu 139 173)!",0;
specialeffect2 248;
close;
}