Skull Collector

-   script  Skull Collector 449,{
mes "I'm collecting dead people skull.";
mes "Hmm... well well looks like you have something there aye!";
mes " ";
mes " ";
mes " ";
mes "Let me just check it.............";
next;
mes "You have "+( .@skulls = countitem(7420) )+" skulls";
mes "And";
mes "You currently have "+ #CASHPOINTS +" Cash points";
next;
if ( !.@skulls ) {
    mes "I don't see any Skulls you have >_< so get LOSS! you wasting my time.";
    close;
}
if ( input ( .@amount, 1, .@skulls ) ) {
    mes "invalid amount";
    close;
}
delitem 7420, .@amount;
#CASHPOINTS = #CASHPOINTS + .@amount *2;
dispbottom "[ Cash ] Gained "+( .@amount *2 )+" Points. Total : "+ #CASHPOINTS +" Points.";
mes "Gained "+( .@amount *2 )+" Points.";
mes "Total : "+ #CASHPOINTS +" Points.";
close;
}

sec_in02,169,173,2  duplicate(Skull Collector)  Dark Magician#sec   449