//Zoe Quest in Tulimshar
//Quest For New Players
//Creator: Depredador
//////////////////////////////
021-1.gat,129,58,0 script Zock 134,{
set @BugLeg, 100;
set @MaggotSlime, 100;
set @ScorpionStinger, 50;
set @PileOfAsh, 25;
set @FancyHat, 1;
set @ChainmailShirt, 1;
set @JeansShorts, 1;
set @Boots, 1;
set @MinerGloves, 1;
set @Dagger, 1;
if (QUEST_newplayer == 0 && BaseLevel <15) goto L_Nolevel;
if (QUEST_newplayer == 1) goto L_Return;
if (QUEST_newplayer == 2) goto L_Finish;
goto L_QuestStart;
L_Nolevel:
mes "[Zock]";
mes "Heya Noob!, Come back when you are stronger";
close;
L_QuestStart:
mes "[Zock]";
mes "Hello "+strcharinfo(0)+" Welcome.";
next;
mes "["+strcharinfo(0)+"]";
mes "Hello Zock";
next;
mes "[Zock]";
mes "Friend you can help me please?.";
next;
menu
"Yes Friend.",L_Yes,
"No Sorry.",L_Not;
goto L_Not;
L_Yes:
mes "[Zock]";
mes "Friend you can give me many objects.";
next;
mes "["+strcharinfo(0)+"]";
menu
"What Objects?.",L_List,
"Nah Thanks, dont have time for help you",L_Not;
goto L_Not;
L_Not:
mes "[Zock]";
mes "Ok see you later, sorry for stole you time";
close;
L_List:
mes "[Zock]";
mes "Nice friend, check the list.";
mes "* 100 Bug Legs.";
mes "* 100 Maggot Slime.";
mes "* 50 Scorpion Stinger.";
mes "* 25 Pile Of Ash.";
next;
mes "["+strcharinfo(0)+"]";
mes "Ok l want get you list, see you later.";
set QUEST_newplayer, 1;
close;
L_Return:
mes "[Zock]";
mes "You have my objects?";
next;
mes "["+strcharinfo(0)+"]";
menu
"Yes Friend, check my inventory.",L_Check,
"No Sorry, are very hard get.",L_Nohave;
goto L_Nohave;
L_Check:
mes "[Zock]";
mes "Ok wait me l need check you inventory";
next;
if(countitem("BugLeg") < 100) goto L_Nolist;
if(countitem("MaggotSlime") < 100) goto L_Nolist;
if(countitem("ScorpionStinger") < 50) goto L_Nolist;
if(countitem("PileOfAsh") < 25) goto L_Nolist;
getinventorylist;
if(@inventorylist_count>= 100) goto L_Notspace;
delitem "BugLeg", 100;
delitem "MaggotSlime", 100;
delitem "ScorpionStinger", 50;
delitem "PileOfAsh", 25;
mes "[Zock]";
mes "Thanks Man";
next;
mes "[Zock]";
mes "Thought you would not give you a reward? =P get my presents.";
getitem "FancyHat", 1;
getitem "ChainmailShirt", 1;
getitem "JeansShorts", 1;
getitem "Boots", 1;
getitem "MinerGloves", 1;
getitem "Dagger", 1;
set QUEST_newplayer, 2;
close;
L_Nolist:
mes "[Zock]";
mes "Ok Man come when you have my list";
close;
L_Nohave:
mes "[Zock]";
mes "Ok Man get my list please";
close;
L_Notspace:
mes "[Zock]";
mes "Man you dont have enough space in your inventory, come back when you have space in you inventory";
close;
L_Finish:
mes "[Zock]";
mes "Hello "+strcharinfo(0)+" nice to see you =P";
close;
}
Thanks Everyone =) my quest dont have none bug l use my quest in my localhost and dont have none error
Depredador lvl 98
