viewing paste Unknown #505 | Plain text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
prontera,164,170,3      script  Identifier      831,{
set .@n$,"^0000FF[ Identifier ]^000000";
mes .@n$;
mes "Hello "+strcharinfo(0)+",for 100";
mes "Zenny I'm going to identify";
mes "all items in your inventory.";
next;
mes .@n$;
mes "Do you want me to Identify your Items?";
next;
switch(select("Yes:No")) {
case 1:
if(Zeny < 100) {
mes .@n$;
mes "Sorry,but you don't have enough Zeny!";
close;
}
mes .@n$;
mes "Okay identifying!";
set Zeny,Zeny - 100;
getinventorylist;
for( set .@i,0; .@i < @inventorylist_count; set .@i, .@i + 1 ) {
if ( @inventorylist_identify[.@i] == 1 ) continue;
 
delitem2 @inventorylist_id[.@i],1,0,0,0,0,0,0,0;
getitem @inventorylist_id[.@i],1;
}
case 2:
close;
}
}
Viewed 2066 times, submitted by unknown.