diff options
Diffstat (limited to 'npc/020-2/baktar.txt')
| -rwxr-xr-x | npc/020-2/baktar.txt | 225 |
1 files changed, 225 insertions, 0 deletions
diff --git a/npc/020-2/baktar.txt b/npc/020-2/baktar.txt new file mode 100755 index 00000000..a3bc5cc8 --- /dev/null +++ b/npc/020-2/baktar.txt @@ -0,0 +1,225 @@ +020-2,70,61,0 script Baktar NPC191,{ + @npcname$ = "[Baktar]"; + + @BIT_KNOWHIM = 0; + + @BIT_DESERTHAT = 1; + @MONEY_DESERTHAT = 1500; + @XP_DESERTHAT = 500; + + @BIT_DESERTSHIRT = 2; + @MONEY_DESERTSHIRT = 1500; + @XP_DESERTSHIRT = 600; + + @BIT_SERFHAT = 3; + @MONEY_SERFHAT = 800; + @XP_SERFHAT = 350; + + @BIT_MS_TONGUE = 4; + @MONEY_MS_TONGUE = 800; + @XP_MS_TONGUE = 350; + + @BIT_MS_EGG = 5; + @MONEY_MS_EGG = 800; + @XP_MS_EGG = 350; + + @BIT_SNAKESKIN = 6; + @MONEY_SNAKESKIN = 800; + @XP_SNAKESKIN = 350; + + @BIT_BUGLEG = 7; + @MONEY_BUGLEG = 20; + @XP_BUGLEG = 130; + + @run = ((QUEST_NorthTulimshar & TWOBIT_8_MASK) >> TWOBIT_8_SHIFT); + if ((@run == 3) && (QL_KYLIAN == 13)) + goto L_Deliver; + goto L_Start; + +L_Deliver: + menu + "I have a delivery for you", L_Delivery; + +L_Delivery: + mes "[Baktar]"; + mes "\"Ahh my delivery from Tulimshar, how nice it is to get some comforts from back home.\""; + QL_KYLIAN = 14; + goto L_close; + +L_Start: + + if(QL_BAKTAR & (1<<@BIT_KNOWHIM)) goto L_KnowAlready; + mes @npcname$; + mes "\"Hello, did you come from Tulimshar? Because you have a nice tan. \""; + menu + "Yes, I'm from Tulimshar", L_exotic, + "Well, I just like sunbathing", L_close, + "Good bye", L_close; + +L_KnowAlready: + mes @npcname$; + mes "\"I love Tulimshar's stuff. I'm collecting souvenirs from Tulimshar to help remind me of all the great times I had there. If you give me an interesting item from the area, I'll give you a nice reward. So, you have a new item?\""; + goto L_Startitem; + +L_exotic: + mes @npcname$; + mes "\"I said that because I love Tulimshar's stuff...I'm collecting souvenirs from Tulimshar to help remind me of all the great times I had there. If you give me an interesting item maybe I can give you a nice reward. But I don't need a lot, I just need one of each item.\""; + menu + "I have some items on me maybe you'll like them ", L_Startitem, + "Don't touch my stuff!", L_close, + "I'll get them. Bye.", L_close; + +L_Startitem: + setarray @exotic_item$, "", "", "", "", "", "", ""; + @c = 0; + QL_BAKTAR = QL_BAKTAR | (1<<@BIT_KNOWHIM); + if (countitem("DesertHat") < 1 || QL_BAKTAR & (1<<@BIT_DESERTHAT) ) goto L_DesertShirt; + @exotic_item$[@c] = "a Desert Hat ?"; + @menuid[@c] = 0; + @c = @c + 1; + goto L_DesertShirt; + +L_DesertShirt: + if (countitem("DesertShirt") < 1 || QL_BAKTAR & (1<<@BIT_DESERTSHIRT) ) goto L_SerfHat; + @exotic_item$[@c] = "a Desert Shirt ?"; + @menuid[@c] = 1; + @c = @c + 1; + goto L_SerfHat; + +L_SerfHat: + if (countitem("SerfHat") < 1 || QL_BAKTAR & (1<<@BIT_SERFHAT) ) goto L_tongue; + @exotic_item$[@c] = "a Serf Hat ?"; + @menuid[@c] = 2; + @c = @c + 1; + goto L_tongue; + +L_tongue: + if (countitem("MountainSnakeTongue") < 1 || QL_BAKTAR & (1<<@BIT_MS_TONGUE)) goto L_egg; + @exotic_item$[@c] = "a Mountain Snake Tongue ?"; + @menuid[@c] = 3; + @c = @c + 1; + goto L_egg; + +L_egg: + if (countitem("MountainSnakeEgg") < 1 || QL_BAKTAR & (1<<@BIT_MS_EGG)) goto L_Skin; + @exotic_item$[@c] = "a Mountain Snake Egg?"; + @menuid[@c] = 4; + @c = @c + 1; + goto L_Skin; + +L_Skin: + if (countitem("SnakeSkin") < 1 || QL_BAKTAR & (1<<@BIT_SNAKESKIN)) goto L_bugleg; + @exotic_item$[@c] = "a Snake Skin?"; + @menuid[@c] = 5; + @c = @c + 1; + goto L_bugleg; + +L_bugleg: + if (countitem("BugLeg") < 1 || QL_BAKTAR & (1<<@BIT_BUGLEG)) goto L_NeverMind; + @exotic_item$[@c] = "a Bug Leg?"; + @menuid[@c] = 6; + @c = @c + 1; + goto L_NeverMind; + +L_NeverMind: + @exotic_item$[@c] = "Nevermind"; + @menuid[@c] = 6; + menu + @exotic_item$[0], L_MenuItems, + @exotic_item$[1], L_MenuItems, + @exotic_item$[2], L_MenuItems, + @exotic_item$[3], L_MenuItems, + @exotic_item$[4], L_MenuItems, + @exotic_item$[5], L_MenuItems, + @exotic_item$[6], L_MenuItems; + +L_MenuItems: + @menu = @menu -1; + + if (@menuid[@menu] == 0) goto L_DesertHat_Item; + if (@menuid[@menu] == 1) goto L_DesertShirt_Item; + if (@menuid[@menu] == 2) goto L_SerfHat_Item; + if (@menuid[@menu] == 3) goto L_tongue_Item; + if (@menuid[@menu] == 4) goto L_egg_Item; + if (@menuid[@menu] == 5) goto L_skin_Item; + if (@menuid[@menu] == 6) goto L_BugLegItem; + mes @npcname$; + mes "\"Ok, goodbye then.\""; + close; + +L_DesertHat_Item: + if(QL_BAKTAR & (1<<@BIT_DESERTHAT)) goto L_havealready; + if (countitem("DesertHat") < 1) goto L_NoItem; + delitem "DesertHat", 1; + Zeny = Zeny + @MONEY_DESERTHAT; + getexp @XP_DESERTHAT,0; + QL_BAKTAR = QL_BAKTAR | (1<<@BIT_DESERTHAT); + close; + +L_DesertShirt_Item: + if(QL_BAKTAR & (1<<@BIT_DESERTSHIRT)) goto L_havealready; + if (countitem("DesertShirt") < 1) goto L_NoItem; + delitem "DesertShirt", 1; + Zeny = Zeny + @MONEY_DESERTSHIRT; + getexp @XP_DESERTSHIRT,0; + QL_BAKTAR = QL_BAKTAR | (1<<@BIT_DESERTSHIRT); + close; + +L_SerfHat_Item: + if(QL_BAKTAR & (1<<@BIT_SERFHAT)) goto L_havealready; + if (countitem("SerfHat") < 1) goto L_NoItem; + delitem "SerfHat", 1; + Zeny = Zeny + @MONEY_SERFHAT; + getexp @XP_SERFHAT,0; + QL_BAKTAR = QL_BAKTAR | (1<<@BIT_SERFHAT); + close; + +L_tongue_Item: + if(QL_BAKTAR & (1<<@BIT_MS_TONGUE)) goto L_havealready; + if (countitem("MountainSnakeTongue") < 1) goto L_NoItem; + delitem "MountainSnakeTongue", 1; + Zeny = Zeny + @MONEY_MS_TONGUE; + getexp @XP_MS_TONGUE,0; + QL_BAKTAR = QL_BAKTAR | (1<<@BIT_MS_TONGUE); + close; + +L_egg_Item: + if(QL_BAKTAR & (1<<@BIT_MS_EGG)) goto L_havealready; + if (countitem("MountainSnakeEgg") < 1) goto L_NoItem; + delitem "MountainSnakeEgg", 1; + Zeny = Zeny + @MONEY_MS_EGG; + getexp @XP_MS_EGG,0; + QL_BAKTAR = QL_BAKTAR | (1<<@BIT_MS_EGG); + close; + +L_skin_Item: + if(QL_BAKTAR & (1<<@BIT_SNAKESKIN)) goto L_havealready; + if (countitem("SnakeSkin") < 1) goto L_NoItem; + delitem "SnakeSkin", 1; + Zeny = Zeny + @MONEY_SNAKESKIN; + getexp @XP_SNAKESKIN,0; + QL_BAKTAR = QL_BAKTAR | (1<<@BIT_SNAKESKIN); + close; + +L_BugLegItem: + if(QL_BAKTAR & (1<<@BIT_BUGLEG)) goto L_havealready; + if (countitem("BugLeg") < 1) goto L_NoItem; + delitem "BugLeg", 1; + Zeny = Zeny + @MONEY_BUGLEG; + getexp @XP_BUGLEG,0; + QL_BAKTAR = QL_BAKTAR | (1<<@BIT_BUGLEG); + close; + +L_NoItem: + mes @npcname$; + mes "\"Well, if you happen to get items from Tulimshar, see me first before you sell anything.\""; + close; + +L_havealready: + mes @npcname$; + mes "\"I already collected what you can offer me.\""; + close; + +L_close: + close; +} |