Page 1 of 1

New Mini-Quest in Tulimshar =)

Posted: 03 Jan 2013, 18:15
by Psychodelic
//////////////////////////////
//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 :D :lol: :lol:

Re: New Mini-Quest in Tulimshar =)

Posted: 03 Jan 2013, 21:09
by Jenalya
Your NPC doesn't have any story. Who is he, why does he want those items, why does he give those other items in return? Also, the items he wants aren't very valuable, while some of the reward items are, so it's rather unbalanced.
There are also some coding style issues. I just worked a bit on the wiki article about that, you can have a look here: http://wiki.themanaworld.org/index.php/ ... Formatting

Re: New Mini-Quest in Tulimshar =)

Posted: 03 Jan 2013, 21:16
by Psychodelic
Jenalya wrote:Your NPC doesn't have any story. Who is he, why does he want those items, why does he give those other items in return? Also, the items he wants aren't very valuable, while some of the reward items are, so it's rather unbalanced.
There are also some coding style issues. I just worked a bit on the wiki article about that, you can have a look here: http://wiki.themanaworld.org/index.php/ ... Formatting
Ok no problem l'm noob for QuestStart only me test :)