added "work in progress" scripts

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@9177 54d463be-8e91-2dee-dedb-b68131a5f0ec

npc/Changelog.txt

@@ -34,6 +34,7 @@ KarLaeda
 Date		Added
 ======
 11/08
+	* Added quest\WIP (work in progress folder) with scripts by Dunkle and CallNIX [Lupus]
 	* Small fix in Hunter Job Quest [KarLaeda]
 11/07
 	* Another one set of fixes for the scripts syntax. [KarLaeda]

npc/quests/WIP/4.txt

@@ -0,0 +1,112 @@
+// by CallNix v.0.0
+
+airplane.gat,236,63,4    script    Hallen    55,{
+    if (fragmentauest==2) {
+        mes "[Hallen]";
+        mes "Oh, thx hero!Do you like my girls? She's reallybeatiful. Maybe you";
+        mes "shall become her boyfriend?";
+        next;
+        mes "[Hallen]";
+        mes " Its a joke ^_- Never mind.";
+        mes "And you know, there is one thing im really ineterested in....";
+        if (airshipquest != 0) {
+            mes "[Hallen]";
+            mes "You should better ask captain about the airship";
+            mes "You cant understand me if you dont do that...";
+            close;
+        };
+        mes "You see its about the airship works. Heart of Ymir...";
+        mes "Very interesting thing i think...";
+        getitem 501,1;
+        next;
+        mes "[Hallen]";
+        mes "I really want to know something about it.. if somebody could help me...";
+        mes "pity I cant go to einbroch Laboratory...";
+        mes "never mind it just my feelings. Thanks for help..";
+        next;
+        if (select("I can do it for you:Sup, guy..") == 1) {
+            mes "[Hallen]";
+            mes "Really??? Thx. I will wait for you";
+        } else {
+            mes "Hallen";
+	    mes "Well, Thanks afterall.";
+        }
+        close;
+    }
+    if (fragmentauest==3) {
+        mes "[Hallen]";
+        mes "Thanks to you now i got it.. What is that Heart of Ymir..";
+        close2;
+        getexp 700,400;
+        set fragmentauest,4;
+        end;
+    }
+    mes "[Hallen]";
+    disablenpc "Ferlok";
+    mes "Hello, "+strcharinfo(0)+". Nice to see you on ship.";
+    mes "Hows your trips? I suppose you have lots of to tell";
+    mes "your children about";
+    next;
+	menu "Ye.. I have lots of tales..",-,"Nothing really interesting",l_inter,"Have any work for me?",l_work;
+        mes "[Hallen]";
+        mes "Ye.. I would like to listen to them too...";
+        mes "But not now. I have some work to do";
+        close;
+    l_inter:
+        mes "[Hallen]";
+        mes "You are really shy to tell us. ^_- It doesnt matter";
+        mes "we all know about your doings.";
+        mes "Glad to see such a hero i can say";
+        close;
+    l_work:
+        mes "[Hallen]";
+        mes "Hm.. let me see... Ye. Its not so important, but if you have some";
+        mes "free time, can you deliver the letter to my cousin Kaci?";
+        next;
+	if (select("yes, of course:no, sory") == 1) {
+            mes "[Hallen]";
+            mes "She can be found near gaming tables under deck. Thank you";
+            getitem 7148,1;
+            set fragmentauest,1;
+        } else {
+            mes "[Hallen]";
+            mes "Its a pity. Good luck in training";
+        }
+        close;
+}
+//=====================================================================
+ein_in01,261,35,4    script    reader    111,3,3,{
+    mes "[Code reader]";
+    mes "Enter a valid 3 dig code to get information";
+    mes "You can do it 3 times only. Be careful";
+    next;
+    set @number, rand(100,999);
+    set @count, 0;
+l_input:
+    input @input;
+    if (@input != @number) {
+        mes "[Code reader]";
+        mes "you enter not valid digital";
+        set @count,@count+1;
+        next;
+        if (@count < 3) goto l_input;
+        mes "[Code reader]";
+        mes "You have not enter code correct";
+        close;
+    }
+    mes "[Card reader]";
+    mes "It seems to you that you find the information. You try to learn it";
+    next;
+    enablenpc "Ferlok";
+    mes "[Hallen]";
+    mes "Please leave this plce. I will meet you on airplane";
+    set fragmentauset,3;
+    close;
+    }
+}
+//===========================================================================
+ein_in01,255,33,4    script    Ferlok    55,{
+    mes "[Hallen]";
+    mes "I have already told you to go to plane. Hurry!";
+    close;
+}

npc/quests/WIP/6.txt

@@ -0,0 +1,127 @@
+// by CallNix v.0.0
+
+//======================================Juno to Izlude  airship=====================================================================
+airplane_01.gat,238,154,4	script	Captain	854,{
+if (airshipquest==0) {
+mes "[Fayroll]";
+mes "I have nothing to say to you anymore";
+close;
+}
+
+if (airshipquest==3) {
+mes "[Fayroll]";
+mes "Oh, you have finished that work. Great. Now i shall read this letter.";
+mes "Dont interrupt me please";
+delitem 7276,1;
+set airshipquest,4;
+//addtimer 30000,"Captain::OnFinish";  Âîçìîæíî ñäåëàòü òàê. Íî òóò ïî òàéìåðó, à íå ïî êëèêàì íà ÍÏÖ
+close;
+}
+
+if (airshipquest==4) {
+set @k,rand(4);
+if (@k == 2) goto OnFinish;
+mes "[Fayroll]";
+mes "I had not finished the letter yet";
+close;
+}
+
+mes "[Fayroll]";
+mes "Hello, "+strcharinfo(0)+". Nice to see you";
+mes "Anything want from me?";
+next;
+if (select("yes,about airships:no, nothing") == 1) {
+	mes "[Fayroll]";
+	mes "So i think you want to know how airship works";
+	mes "This is the top secret that only a captain will know. Anyway, if you're willing ti help me, I will let you know.";
+	next;
+	menu "I will help you. But what must I do?",-,"No, sorry, I have no time for this.",L_SORRY;
+		mes "[Fayroll]";
+		mes " You see, I have a brother. He is also a captain of airplane in Juno to Lighthalzen airship.";
+		mes "As we are on different ships, i cant communicate with him. Yor is to deliver this letter to him.";
+		mes "If you will do this, I shall tell you the secret.";
+		getitem 7276,1;  //Tarloks letter. Íå íàøåë â áàçå
+		set airshipquest,1;
+} else {
+	mes "[Fayroll]";
+	mes "Then dont interrupt me. I have alot of work to do.";
+	mes "Go to the Casino on ship. And spen some time there";
+}
+close;
+
+L_SORRY:
+mes "[Fayroll]";
+mes "Ye this is bad, but i cant insist on it. Follow your way";
+mes "See you the other day.";
+close;
+
+OnFinish:
+mes "[Fayroll]";
+mes "Whoo... I finally got it.Now i shall tell you the secret.";
+next;
+mes "[Fayroll]";
+mes "The cocept of the flight of airship";
+mes "is the energy produced from the boiler wich push the propeller";
+mes "that moves the giant beauty. Do you understand now?";
+next;
+menu "Is That all???",-;
+mes "[Fayroll]";
+mes "You cant lift this thing up only with steam.";
+mes "thats why the machien ^5566FF'Enchancer'^000000 is used";
+mes "It is working on Heart of Ymir. Thats all the secret. Now go.";
+set airshipquest,0;
+getexp 200000,10000;
+close;
+}
+//=======================================Juno to Lighthalzen airship====================================================================
+airplane.gat,236,163,4	script	Aiplane Captain	855,{
+if (airshipquest == 1) goto L_QUEST;
+if (airshipquest == 2) goto L_FINISH;
+mes "[Dulu]";
+mes "Welcome on the board of ourship. Guess you will have lots of time here";
+close;
+
+L_QUEST:
+mes "[Dulu]";
+mes "Hello, stranger. I am the Airplane Captain of this ship.";
+mes "If you have any problems with our stuff you can simply tell me about this.";
+next;
+if (select("I have letter for you:hmm.. sorry") == 1) {
+	mes "[Dulu]";
+	mes "You have letter for me?? Really??";
+	delitem 7276,1;
+	mes "WOHHOOO! Its from my brother. Thx alot, stranger..";
+	mes "You see, he has borrowed something from me long ago. But unfortunatly he had lost it";
+	mes "and this reallly bed for you...";
+	next;
+	mes "*Dulu shows you a letter*";
+	mes "^5566FF'The one who send you the letter will find it for me. Don't reply to me if he refuses to do so'^000000";
+	next;
+	mes "[Dulu]";
+	mes "So when you accept that work you accept doing this me. Now i shall tell you your work";
+	next;
+	mes "[Dulu]";
+	mes "My brother had lost 2 Will of Darkness and 2 Prickly Fruits";
+	mes "They can simply be dropped on the deck of the ship. Monsters often atack ships. Get this items for me from them.";
+	mes "Now monster are going to atack Juno to Izlude airship. Go there and get what i need";
+	set airshipquest,2;
+	} else {
+	mes "[Dulu]";
+	mes "Well, you know where to find me. See you later";
+}
+close;
+
+L_FINISH:
+if (countitem(7340)<2 && countitem(576)<2) {
+mes "[Dulu]";
+mes "You havent geather items yet";
+close;
+}
+mes "[Dulu]";
+mes "Great work i can say";
+delitem 7340,2;
+delitem 576,2;
+getitem 7276,1;
+set airshipquest,3;
+close;
+}