Yggdrasil Berry Quest

prontera,44,270,4 script YggBerry Quest 870,{
mes "[Yggdrasil Berry Quest]";
mes "Good Day "+ strcharinfo(0) + ", Do you come here for YggBerry Quest?";
next;
mes "Well I can exchange you my berry if you can give me my favorite strawberry";
mes "Are you interested?";
next;
switch(select("Trade 100 strawberry = 100 Berry:Trade 200 strawberry = 200 Berry:No Thanks")){
case 1:
mes "[Yggdrasil Berry Quest]";
mes "Are you sure you have 100 strawberries?";
next;
mes "Let me check you first";
if(checkweight(607,100)==0) goto L_OW;
if(countitem(578) < 100){
mes "Sorry I think you don't have enough Strawberries";
mes "Come Back if you are sure you have it";
close;
}
else {
delitem 578,100;
mes "Thank You!";
getitem 607,100;
close;
}
case 2:
mes "[Yggdrasil Berry Quest]";
mes "Are you sure you have 200 strawberries?";
next;
mes "Let me check you first";
set @NowWeight, MaxWeight - Weight;
if(checkweight(607,100)==0) goto L_OW;
if(countitem(578) < 200){
mes "Sorry I think you don't have enough Strawberries";
mes "Come Back if you are sure you have it";
close;
}
else {
delitem 578,200;
mes "Thank You!";
getitem 607,200;
close;
}
case 3:
mes "[Yggdrasil Berry Quest]";
mes "Come back if you change your mind, See Yah!";
close;
}
L_OW:
mes "Sorry You can't carry my Berries because you are overweight";
close;
}


=====================================================

you can change strawberry to other item =)
if got any error..pls tell me ya!

seelok2nya barisan pertama tu tulis camni untuk mengelakkan newbie dapat error dengan script ni

prontera,44,270,4(TAB)script(TAB)YggBerry Quest(TAB)870