at the first script
getitem .itemrew,itemrewq;
it's .itemrewq not itemrewq
prontera,164,219,4 script Collector 116,{
if (getgmlevel()>60) goto admin;
if (.help == 1) goto reward;
mes "Welcome "+strcharinfo(0)+",";
mes "I'm Collector rune midgard item";
switch(select("What item do you collect:Ok, nice to meet you")) {
case 1:
next;
if (.itemcoll == 0) { mes "Sorry, I'm not collecting item for now."; end;}
mes "please collect "+getitemname(.itemcoll)+" for "+.itemquan +" pcs.";
mes "and i will reward you "+getitemname(.itemrew)+" for "+.itemrewq +" pcs.";
set .help,1;
end;
case 2:
next;
mes "Okay, see you later.";
end;
}
reward:
set .amounts, countitem(.itemcoll);
if ( .amounts <= .itemquan) {mes "the quantity item not enough.";}
mes "Thanks for your help";
mes "here my reward for you.";
delitem .itemcoll,.itemquan;
getitem .itemrew,.itemrewq;
set help,0;
end;
admin:
mes "Welcome "+strcharinfo(0)+",";
mes "Please input what item for player to collect.";
next;
input .itemcoll;
//set .itemcoll,.itemcoll;
next;
mes "Please input how many item to collect.";
next;
input .itemquan;
//set .itemquan,.itemquan;
next;
mes "Please input what the reward item.";
input .itemrew;
//set .itemrew,.itemrew;
next;
mes "Please input how many item reward.";
input .itemrewq;
//set .itemrewq,.itemrewq;
next;
mes "Are you done?";
switch(select("Yes:No.")) {
case 1:
mes "Item to collect "+getitemname(.itemcoll)+" for "+.itemquan +" pcs.";
mes "Item reward "+getitemname(.itemrew)+" for "+.itemrewq +" pcs.";
end;
case 2:
mes "Okay, to re entry, please start form the begining.";
end;
}
end;
OnInit:
set .itemrew,0;
set .itemrewq,0;
set .itemcoll,0;
set .itemquan,0;
end;
}