diff options
Diffstat (limited to 'npc')
35 files changed, 287 insertions, 287 deletions
diff --git a/npc/000-0/sailors.txt b/npc/000-0/sailors.txt index 1fc54feb3..91553c1d9 100644 --- a/npc/000-0/sailors.txt +++ b/npc/000-0/sailors.txt @@ -12,8 +12,8 @@ OnTouch: callfunc "CheckClientVersion"; - requestlang @lang; - if (@lang >= 0 && @lang <= 9) Lang = @lang; + requestlang .@lang; + if (.@lang >= 0 && .@lang <= 9) Lang = .@lang; mesn "Narrator"; mes col(l("You are on a raft, adrift in the sea."), 9); @@ -63,9 +63,9 @@ OnTouch: menuimage("flags/it", "Vi sento... (Italiano)"), -, menuimage("flags/nl_BE", "Ik kan je horen... (Nederlands)"), -, menuimage("flags/ca", "Et escolto (Català)"), -; - set @lang, @menu-1; - if (@lang < 0 || @lang > 10) close; - Lang = @lang; + set .@lang, @menu-1; + if (.@lang < 0 || .@lang > 10) close; + Lang = .@lang; setcamnpc; mes ""; diff --git a/npc/000-1/ale.txt b/npc/000-1/ale.txt index a8284797f..341249290 100644 --- a/npc/000-1/ale.txt +++ b/npc/000-1/ale.txt @@ -9,11 +9,11 @@ // Size = 2 // Gender = 1 000-1,55,23,0 script Ale 105,{ - set @g, getq(ShipQuests_Gugli); - if (@g == 0) goto L_NoTask; + set .@g, getq(ShipQuests_Gugli); + if (.@g == 0) goto L_NoTask; - set @q, getq(ShipQuests_Ale); - if (@q == 1) goto L_CallFunc; + set .@q, getq(ShipQuests_Ale); + if (.@q == 1) goto L_CallFunc; mesn; mesq l("Ouch..."); diff --git a/npc/000-1/astapolos.txt b/npc/000-1/astapolos.txt index a05b404b7..1280ea996 100644 --- a/npc/000-1/astapolos.txt +++ b/npc/000-1/astapolos.txt @@ -10,11 +10,11 @@ // Size = 2 // Gender = 1 000-1,22,50,0 script Astapolos 107,{ - set @g, getq(ShipQuests_Gugli); - if (@g == 0) goto L_NoTask; + set .@g, getq(ShipQuests_Gugli); + if (.@g == 0) goto L_NoTask; - set @q, getq(ShipQuests_Astapolos); - if (@q == 1) goto L_CallFunc; + set .@q, getq(ShipQuests_Astapolos); + if (.@q == 1) goto L_CallFunc; mesn; mesq l("So finally someone has came to visit me?"); diff --git a/npc/000-1/chest.txt b/npc/000-1/chest.txt index 9e44bfc8d..7f2109302 100644 --- a/npc/000-1/chest.txt +++ b/npc/000-1/chest.txt @@ -14,7 +14,7 @@ // Size = 2 000-1,83,70,0 script #chest 416,{ - set @q, getq(ShipQuests_TreasureChest); + set .@q, getq(ShipQuests_TreasureChest); if (getnpcdir ("") == 4) goto L_Give; setnpcdir 2; @@ -23,7 +23,7 @@ close; L_Give: - if (@q > 0) goto L_Close; + if (.@q > 0) goto L_Close; callfunc "InventoryPlace", 514, 1; diff --git a/npc/000-1/cookiemaster.txt b/npc/000-1/cookiemaster.txt index f5d526c70..391074cbf 100644 --- a/npc/000-1/cookiemaster.txt +++ b/npc/000-1/cookiemaster.txt @@ -179,8 +179,8 @@ L_Reward: next; mesq l("Anyway, here, have a cookie!"); - set @item, 517; - set @count, 1; + set .@item, 517; + set .@count, 1; callfunc "InventoryPlace", 517, 1; setq GeneraL_Cookies, 1; diff --git a/npc/000-1/couwan.txt b/npc/000-1/couwan.txt index 1fad7c631..db1c0cc1c 100644 --- a/npc/000-1/couwan.txt +++ b/npc/000-1/couwan.txt @@ -15,9 +15,9 @@ // Size = 2 // Gender = 1 000-1,89,36,0 script Couwan 111,{ - set @q, getq(ShipQuests_Couwan); - if (@q == 1) goto L_QuestGiven; - if (@q > 1) goto L_QuestDone; + set .@q, getq(ShipQuests_Couwan); + if (.@q == 1) goto L_QuestGiven; + if (.@q > 1) goto L_QuestDone; mesn; mesq l("Hello yeye."); diff --git a/npc/000-1/darlin.txt b/npc/000-1/darlin.txt index ca8691e67..7e4455887 100644 --- a/npc/000-1/darlin.txt +++ b/npc/000-1/darlin.txt @@ -14,7 +14,7 @@ // Size = 14 // Gender = 1 000-1,89,95,0 script Darlin 103,{ - set @q, getq(ShipQuests_TreasureChest); + set .@q, getq(ShipQuests_TreasureChest); mesn; setcamnpc; @@ -118,7 +118,7 @@ L_GoDown: mes ""; mesn; - if (@q > 0) goto L_DangerAround; + if (.@q > 0) goto L_DangerAround; setcamnpc; mesq l("Oh no, but I've noticed a weird light on the other edge of this island, I wonder what it can be..."); diff --git a/npc/000-1/gugli.txt b/npc/000-1/gugli.txt index b580aaa58..07388b502 100644 --- a/npc/000-1/gugli.txt +++ b/npc/000-1/gugli.txt @@ -28,13 +28,13 @@ OnTalk: mesn; - set @nard, getq(ShipQuests_Nard); - set @gugli, getq(ShipQuests_Gugli); - set @gado, getq(ShipQuests_ChefGado); + set .@nard, getq(ShipQuests_Nard); + set .@gugli, getq(ShipQuests_Gugli); + set .@gado, getq(ShipQuests_ChefGado); - if (@nard > 3) goto L_AllComplete; - if (@nard > 1 || @gugli == 2) goto L_TaskCompleted; - if (@gugli == 1) goto L_TaskGiven; + if (.@nard > 3) goto L_AllComplete; + if (.@nard > 1 || .@gugli == 2) goto L_TaskCompleted; + if (.@gugli == 1) goto L_TaskGiven; mesq lg("Hi @@, I heard the captain sent you down here, uh?", strcharinfo(0)); next; @@ -159,9 +159,9 @@ L_Location: mesq l("You can try talking with some other sailors to get some information about that."); next; - set @r, rand(3000)/1000; - if (@r == 1) goto L_Silvio; - if (@r == 2) goto L_Lean; + set .@r, rand(3000)/1000; + if (.@r == 1) goto L_Silvio; + if (.@r == 2) goto L_Lean; setcamnpc "Sapartan"; mesq l("Max and Sapartan for example?"); @@ -233,8 +233,8 @@ L_Quit: // Gender = 1 000-1,83,107,0 script GugliBarrierCheck 32767,2,0,{ - set @gugli, getq(ShipQuests_Gugli); - if (@gugli > 0) close; + set .@gugli, getq(ShipQuests_Gugli); + if (.@gugli > 0) close; doevent "Gugli::OnTalk"; close; } diff --git a/npc/000-1/gulukan.txt b/npc/000-1/gulukan.txt index c7c2d8c60..3d18835d6 100644 --- a/npc/000-1/gulukan.txt +++ b/npc/000-1/gulukan.txt @@ -10,11 +10,11 @@ // Size = 2 // Gender = 1 000-1,54,90,0 script Gulukan 113,{ - set @g, getq(ShipQuests_Gugli); - if (@g == 0) goto L_NoTask; + set .@g, getq(ShipQuests_Gugli); + if (.@g == 0) goto L_NoTask; - set @q, getq(ShipQuests_Gulukan); - if (@q == 1) goto L_Func; + set .@q, getq(ShipQuests_Gulukan); + if (.@q == 1) goto L_Func; mesn; mesq l("Yeye @@!", strcharinfo(0)); @@ -54,8 +54,8 @@ L_Continue2: mesq l("Anyway I am glad I can give you some of these yoyoxs."); next; - set @item, 715; - set @count, 1; + set .@item, 715; + set .@count, 1; callfunc "InventoryPlace", 715, 1; setq ShipQuests_Gulukan, 1; @@ -70,10 +70,10 @@ L_Continue2: L_Func: mesn; - set @q, rand(0, 400) / 100; - if (@q == 0) goto L_RandomA; - if (@q == 1) goto L_RandomB; - if (@q > 1) goto L_RandomC; + set .@q, rand(0, 400) / 100; + if (.@q == 0) goto L_RandomA; + if (.@q == 1) goto L_RandomB; + if (.@q > 1) goto L_RandomC; L_RandomA: mesq l("Hey."); diff --git a/npc/000-1/jalad.txt b/npc/000-1/jalad.txt index 31145c984..980d587b7 100644 --- a/npc/000-1/jalad.txt +++ b/npc/000-1/jalad.txt @@ -10,11 +10,11 @@ // Size = 2 // Gender = 1 000-1,46,35,0 script Jalad 112,{ - set @g, getq(ShipQuests_Gugli); - if (@g == 0) goto L_NoTask; + set .@g, getq(ShipQuests_Gugli); + if (.@g == 0) goto L_NoTask; - set @q, getq(ShipQuests_Jalad); - if (@q == 1) goto L_CallFunc; + set .@q, getq(ShipQuests_Jalad); + if (.@q == 1) goto L_CallFunc; mesn; mesq l("*Uff*, *Argh*, why don't you give me some help?"); diff --git a/npc/000-1/lean.txt b/npc/000-1/lean.txt index deeb73738..f21d78403 100644 --- a/npc/000-1/lean.txt +++ b/npc/000-1/lean.txt @@ -9,7 +9,7 @@ // Size = 2 // Gender = 1 000-1,79,108,0 script Lean 106,{ - set @gugli, getq(ShipQuests_Gugli); + set .@gugli, getq(ShipQuests_Gugli); mesn; mesq l("Hi! I can finally see you under the sunlight!"); @@ -22,7 +22,7 @@ next; menu - rif(@gugli == 1, l("Well, I was in fact looking for them. Where are they now?")), L_Sailors, + rif(.@gugli == 1, l("Well, I was in fact looking for them. Where are they now?")), L_Sailors, l("Wait... Where are we going?"), L_Artis; L_Artis: diff --git a/npc/000-1/max.txt b/npc/000-1/max.txt index 3659e82d7..42304ce0f 100644 --- a/npc/000-1/max.txt +++ b/npc/000-1/max.txt @@ -9,8 +9,8 @@ // Size = 2 // Gender = 1 000-1,72,110,0 script Max 115,{ - set @gugli, getq(ShipQuests_Gugli); - set @knife, getq(ShipQuests_Knife); + set .@gugli, getq(ShipQuests_Gugli); + set .@knife, getq(ShipQuests_Knife); mesn; mesq lg("We are glad captain Nard has let you join us down here!"); @@ -21,10 +21,10 @@ next; menu - rif(@gugli == 0, l("Well, is there anything I can do here to help?")), L_Help, - rif(@gugli == 1, lg("Gugli asked me to help the sailors to gather food. Do you know where I can find them?")), L_Sailors, - rif(@gugli > 1, l("Seems I've helped everyone here. I don't know what to do now!")), L_Annoyed, - rif(@knife == 0, lg("It looks like you are an expert of the life inside 'La Johanne'. Do you know any hidden secrets nobody knows?")), L_Secrets, + rif(.@gugli == 0, l("Well, is there anything I can do here to help?")), L_Help, + rif(.@gugli == 1, lg("Gugli asked me to help the sailors to gather food. Do you know where I can find them?")), L_Sailors, + rif(.@gugli > 1, l("Seems I've helped everyone here. I don't know what to do now!")), L_Annoyed, + rif(.@knife == 0, lg("It looks like you are an expert of the life inside 'La Johanne'. Do you know any hidden secrets nobody knows?")), L_Secrets, l("No thanks, not at the moment."), L_Quit; L_Help: diff --git a/npc/000-1/muller.txt b/npc/000-1/muller.txt index 55c3199bc..451214b7c 100644 --- a/npc/000-1/muller.txt +++ b/npc/000-1/muller.txt @@ -9,11 +9,11 @@ // Size = 2 // Gender = 1 000-1,35,69,0 script Q'Muller 104,{ - set @g, getq(ShipQuests_Gugli); - if (@g == 0) goto L_NoTask; + set .@g, getq(ShipQuests_Gugli); + if (.@g == 0) goto L_NoTask; - set @q, getq(ShipQuests_QMuller); - if (@q == 1) goto L_CallFunc; + set .@q, getq(ShipQuests_QMuller); + if (.@q == 1) goto L_CallFunc; mesn; mesq l("Can't you see I'm working?!"); diff --git a/npc/000-1/tarlan.txt b/npc/000-1/tarlan.txt index c9e94b9fa..a5a061e8e 100644 --- a/npc/000-1/tarlan.txt +++ b/npc/000-1/tarlan.txt @@ -10,10 +10,10 @@ setnpcdir 2; mesn; - set @a, rand(4); - if (@a == 0) goto L_HardToHit; - if (@a == 1) goto L_Aouch; - if (@a == 2) goto L_DoYou; + set .@a, rand(4); + if (.@a == 0) goto L_HardToHit; + if (.@a == 1) goto L_Aouch; + if (.@a == 2) goto L_DoYou; mesq l("Hey you!"); next; diff --git a/npc/000-1/tibbo.txt b/npc/000-1/tibbo.txt index 96bd91be0..b5dc6d6dd 100644 --- a/npc/000-1/tibbo.txt +++ b/npc/000-1/tibbo.txt @@ -10,11 +10,11 @@ // Size = 2 // Gender = 1 000-1,34,111,0 script Tibbo 110,{ - set @g, getq(ShipQuests_Gugli); - if (@g == 0) goto L_NoTask; + set .@g, getq(ShipQuests_Gugli); + if (.@g == 0) goto L_NoTask; - set @q, getq(ShipQuests_Tibbo); - if (@q == 1) goto L_CallFunc; + set .@q, getq(ShipQuests_Tibbo); + if (.@q == 1) goto L_CallFunc; mesn; mesq l("Uh? Hi! I'm sorry, but I have no time for chatting."); diff --git a/npc/000-2-0/doors.txt b/npc/000-2-0/doors.txt index 3bb17f4f7..739467d51 100644 --- a/npc/000-2-0/doors.txt +++ b/npc/000-2-0/doors.txt @@ -3,7 +3,7 @@ // Reid // Description: // Doors NPCs. -// The third value of the @nard variable has been removed for the beta2, it'll then be re-added for the Aurora release. +// The third value of the .@nard variable has been removed for the beta2, it'll then be re-added for the Aurora release. // Variable: // 0 ShipQUests_Nard // 1 ShipQuests_Julia @@ -20,10 +20,10 @@ 000-2-0,20,28,0 script AreaNPC 32767,0,0,{ OnTouch: - set @nard, getq(ShipQuests_Nard); - if (@nard > 0 && countitemcolor("JohanneKey") > 0) goto L_Key; -// if (@nard == 2) goto L_GotoNard; -// if (@nard == 3) goto L_End; + set .@nard, getq(ShipQuests_Nard); + if (.@nard > 0 && countitemcolor("JohanneKey") > 0) goto L_Key; +// if (.@nard == 2) goto L_GotoNard; +// if (.@nard == 3) goto L_End; setcamnpc "Julia"; mesn "Julia"; @@ -59,8 +59,8 @@ L_End: 000-2-0,33,28,0 script AreaNPC 32767,0,0,{ OnTouch: - set @julia, getq(ShipQuests_Julia); - if (@julia == 2) goto L_Warp; + set .@julia, getq(ShipQuests_Julia); + if (.@julia == 2) goto L_Warp; close; L_Warp: diff --git a/npc/000-2-0/julia.txt b/npc/000-2-0/julia.txt index a20b36e96..13a8b9e68 100644 --- a/npc/000-2-0/julia.txt +++ b/npc/000-2-0/julia.txt @@ -43,15 +43,15 @@ mesq l("What do you want today?"); next; - set @q2, getq(ShipQuests_ChefGado); - set @q3, getq(ShipQuests_Nard); - set @s$, l("I don't want to change my language, sorry."); + set .@q2, getq(ShipQuests_ChefGado); + set .@q3, getq(ShipQuests_Nard); + set .@s$, l("I don't want to change my language, sorry."); L_Menu: menu - rif(@q3 == 3 && @q2 == 0, l("I heard rumors about some old hostilities between you and Gado. Are they true?")), L_Rumors, - rif(@q2 == 2 && countitemcolor("PoisonedDish", 1), l("Well... No wait, I have something for you but you shouldn't eat it... I'm taking it back to the kitchen.")), L_Regret, - rif(@q2 == 2 && countitemcolor("PoisonedDish", 1), l("I have brought you a tasty present for your delicate mouth.")), L_PoisonJulia, + rif(.@q3 == 3 && .@q2 == 0, l("I heard rumors about some old hostilities between you and Gado. Are they true?")), L_Rumors, + rif(.@q2 == 2 && countitemcolor("PoisonedDish", 1), l("Well... No wait, I have something for you but you shouldn't eat it... I'm taking it back to the kitchen.")), L_Regret, + rif(.@q2 == 2 && countitemcolor("PoisonedDish", 1), l("I have brought you a tasty present for your delicate mouth.")), L_PoisonJulia, lg("I made a mistake, I would like to change my language."), L_ChooseLang, l("Could you explain to me where I am?"), L_WhereIam, l("What happened to me?"), L_What, @@ -77,7 +77,7 @@ L_First: next; mesq lg("Could I ask you what your native language is? A sailor told me you're russian, but another one told me you're french... I'm a bit lost. I will register you on the ship boarding list just after that."); next; - set @s$, ""; + set .@s$, ""; goto L_ChooseLang; L_ChooseLang: @@ -93,17 +93,17 @@ L_First: menuimage("flags/it", l("I speak Italian.") + " (Italiano)"), -, menuimage("flags/nl_BE", l("I speak Dutch.") + " (Nederlands)"), -, menuimage("flags/ca", l("I speak Catalan.") + " (Català)"), -, - @s$, L_NoChanges; - set @lang, @menu-1; - if (@lang < 0 || @lang > 10) close; - Lang = @lang; + .@s$, L_NoChanges; + set .@lang, @menu-1; + if (.@lang < 0 || .@lang > 10) close; + Lang = .@lang; mes ""; mesn; mesq l("Ok, done."); - set @q, getq(ShipQuests_Julia); - if (@q == 2) goto L_NoRules; + set .@q, getq(ShipQuests_Julia); + if (.@q == 2) goto L_NoRules; next; mesq l("I'm sure that you've got some questions for me, feel free to ask them, but first I need to tell you the rules of proper social conduct on board."); @@ -199,8 +199,8 @@ L_Rules: goto L_YNMenu; OnTouch: - set @q, getq(ShipQuests_Julia); - if (@q == 0 || @q == 1) goto L_First; + set .@q, getq(ShipQuests_Julia); + if (.@q == 0 || .@q == 1) goto L_First; close; diff --git a/npc/000-2-1/alige.txt b/npc/000-2-1/alige.txt index ea04bf818..c5abf1d39 100644 --- a/npc/000-2-1/alige.txt +++ b/npc/000-2-1/alige.txt @@ -51,8 +51,8 @@ OnTimer190: // Size = 2 // Gender = 1 000-2-1,43,31,0 script Alige 401,{ - set @q, getq(ShipQuests_Alige); - if (@q > 1) goto L_AskForFood; + set .@q, getq(ShipQuests_Alige); + if (.@q > 1) goto L_AskForFood; goto OnFirstEncounter; @@ -148,7 +148,7 @@ L_Artis: next; restorecam; - if (@q == 2) goto L_SoAskForFood; + if (.@q == 2) goto L_SoAskForFood; goto L_Accept; L_FirstAccepted: @@ -184,17 +184,17 @@ L_GiveFood: rif(countitemcolor(516, 1), l(getitemname("PumpkinSeeds"))), 1, l("I don't have anything good for you today."), -1; - set @id, @menuret; - if (@id == -1) goto L_Quit; // Quit message. - if (@id == 0) goto L_NoReward; // In case of wrong food. - if (@id == 1) goto L_Poison; // In case of poisoned food. - if (@id == 2) goto L_NoMore; // In case of Piberries. - if (countitemcolor(@id) == 0) goto L_Quit; -// if (@id == item's ID) then food is correct. + set .@id, @menuret; + if (.@id == -1) goto L_Quit; // Quit message. + if (.@id == 0) goto L_NoReward; // In case of wrong food. + if (.@id == 1) goto L_Poison; // In case of poisoned food. + if (.@id == 2) goto L_NoMore; // In case of Piberries. + if (countitemcolor(.@id) == 0) goto L_Quit; +// if (.@id == item's ID) then food is correct. // Do not put any other number than -1, 0, 1, 2 or the item's ID, that'll avoid confusion. callfunc "InventoryPlace", 507, 3; - delitem @id, 1; + delitem .@id, 1; setcamnpc; mes ""; diff --git a/npc/000-2-1/arpan.txt b/npc/000-2-1/arpan.txt index 40bf53ac2..8bc60a4cd 100644 --- a/npc/000-2-1/arpan.txt +++ b/npc/000-2-1/arpan.txt @@ -18,27 +18,27 @@ // Gender = 1 000-2-1,49,36,0 script LeftDoorCheck 32767,0,0,{ - set @q, getq(ShipQuests_Arpan); - if (@q == 0) doevent "Magic Arpan::OnTalk"; + set .@q, getq(ShipQuests_Arpan); + if (.@q == 0) doevent "Magic Arpan::OnTalk"; close; } // Gender = 1 000-2-1,54,36,0 script RightDoorCheck 32767,0,0,{ - set @q, getq(ShipQuests_Arpan); - if (@q == 0) doevent "Magic Arpan::OnTalk"; + set .@q, getq(ShipQuests_Arpan); + if (.@q == 0) doevent "Magic Arpan::OnTalk"; close; } // Gender = 1 000-2-1,47,32,0 script LeftBarrierCheck 32767,0,2,{ - set @q, getq(ShipQuests_Arpan); - if (@q > 2) close; - if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto L_EquipDone; - if (@q == 2) goto L_Equip; - if (@q == 1) goto L_GetCloth; + set .@q, getq(ShipQuests_Arpan); + if (.@q > 2) close; + if (.@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto L_EquipDone; + if (.@q == 2) goto L_Equip; + if (.@q == 1) goto L_GetCloth; doevent "Magic Arpan::OnClothNotTaken"; @@ -62,11 +62,11 @@ L_EquipDone: // Gender = 1 000-2-1,56,32,0 script RightBarrierCheck 32767,0,2,{ - set @q, getq(ShipQuests_Arpan); - if (@q > 2) close; - if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto L_EquipDone; - if (@q == 2) goto L_Equip; - if (@q == 1) goto L_GetCloth; + set .@q, getq(ShipQuests_Arpan); + if (.@q > 2) close; + if (.@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto L_EquipDone; + if (.@q == 2) goto L_Equip; + if (.@q == 1) goto L_GetCloth; doevent "Magic Arpan::OnClothNotTaken"; @@ -91,14 +91,14 @@ L_EquipDone: // Size = 5 // Gender = 1 000-2-1,49,33,0 script Magic Arpan 407,{ - set @q, getq(ShipQuests_Arpan); - set @q_julia, getq(ShipQuests_Julia); - if (@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto L_EquipDone; + set .@q, getq(ShipQuests_Arpan); + set .@q_julia, getq(ShipQuests_Julia); + if (.@q == 2 && getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200) goto L_EquipDone; OnTalk: mesn; - if (@q > 0) goto L_Menu; + if (.@q > 0) goto L_Menu; mesq lg("Yeye, you are really lucky to be alive. You are in good enough shape for walking, do you remember what happened?"); next; @@ -136,7 +136,7 @@ L_Story: mes ""; mesq lg("You were yaying sleeping for quite some time there, our shipkeeper, Julia, was here with you, she did her best to heal your injuries."); next; - if (@q_julia == 0) setq ShipQuests_Julia, 1; + if (.@q_julia == 0) setq ShipQuests_Julia, 1; mesq lg("Yaya, you should go see her! She'll be happy to see you."); next; mesq lg("Also, we took your yayed clothes, as they were... Yeyeye... In a bad shape. Go check the chest near your bed, there are some other ones inside."); @@ -147,15 +147,15 @@ L_Story: L_Menu: mesq l("What yeye could I do for you today?"); next; - set @equipped, getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200; + set .@equipped, getequipid(equip_torso) == 1300 && getequipid(equip_legs) == 2200; menu lg("Could you tell me where I am?"), L_Where, lg("Where can I find Julia?"), L_Julia, l("Who are you?"), L_Who, rif(getq(ShipQuests_ArpanMoney) == 0, l("Where are my old clothes?")), L_WhereOldClothes, - rif(!@equipped, lg("What should I do after taking these clothes?")), L_WhatCloth, - rif(!@equipped, l("Thank you, I'll take them and put them on.")), -, + rif(!.@equipped, lg("What should I do after taking these clothes?")), L_WhatCloth, + rif(!.@equipped, l("Thank you, I'll take them and put them on.")), -, l("Nothing, sorry."), -; closedialog; @@ -203,7 +203,7 @@ L_WhereOldClothes: next; setq ShipQuests_ArpanMoney, 1; - set @q, getq(ShipQuests_Arpan); + set .@q, getq(ShipQuests_Arpan); set Zeny, Zeny+10; message strcharinfo(0), l("You receive @@ E!", 10); diff --git a/npc/000-2-1/chefgado.txt b/npc/000-2-1/chefgado.txt index 530a59f42..8c7817e5a 100644 --- a/npc/000-2-1/chefgado.txt +++ b/npc/000-2-1/chefgado.txt @@ -19,21 +19,21 @@ // Size = 2 // Gender = 1 000-2-1,27,28,0 script Chef Gado 418,{ - set @q, getq(ShipQuests_ChefGado); - set @n, getq(ShipQuests_Nard); - if (@q == 1) goto L_QuestAccepted; - if (@q == 2) goto L_PoisonAccepted; - if (@q == 3) goto L_PoisonJulia; - if (@q == 4) goto L_QuestComplete; - if (@q == 5 && countitemcolor("PoisonedDish") > 0) goto L_Aborting; - if (@q > 4) goto L_QuestAborted; - if (@n == 3) goto L_QuestStart; - - mesn; - set @r, rand(3); - if (@r == 0) mesq l("What are you doing in my kitchen?! Get out, it's not a place for kids!"); - if (@r == 1) mesq l("Where is the damn salt?! Give me the salt, I know you have it!"); - if (@r == 2) mesq l("Are you going to stand here all day long? Do the dishes or go away."); + set .@q, getq(ShipQuests_ChefGado); + set .@n, getq(ShipQuests_Nard); + if (.@q == 1) goto L_QuestAccepted; + if (.@q == 2) goto L_PoisonAccepted; + if (.@q == 3) goto L_PoisonJulia; + if (.@q == 4) goto L_QuestComplete; + if (.@q == 5 && countitemcolor("PoisonedDish") > 0) goto L_Aborting; + if (.@q > 4) goto L_QuestAborted; + if (.@n == 3) goto L_QuestStart; + + mesn; + set .@r, rand(3); + if (.@r == 0) mesq l("What are you doing in my kitchen?! Get out, it's not a place for kids!"); + if (.@r == 1) mesq l("Where is the damn salt?! Give me the salt, I know you have it!"); + if (.@r == 2) mesq l("Are you going to stand here all day long? Do the dishes or go away."); close; diff --git a/npc/000-2-1/chest.txt b/npc/000-2-1/chest.txt index ccc7b2b16..7f01c6af2 100644 --- a/npc/000-2-1/chest.txt +++ b/npc/000-2-1/chest.txt @@ -12,9 +12,9 @@ // Size = 2 000-2-1,51,37,0 script Chest 417,{ - set @q, getq(ShipQuests_Arpan); + set .@q, getq(ShipQuests_Arpan); - if (@q == 0) goto L_Talk; + if (.@q == 0) goto L_Talk; if (getnpcdir ("") == 4) goto L_Give; setnpcdir 2; @@ -23,9 +23,9 @@ close; L_Give: - if (@q > 1) goto L_Quit; - set @item, 1300; - set @count, 2; + if (.@q > 1) goto L_Quit; + set .@item, 1300; + set .@count, 2; callfunc "InventoryPlace", 1300, 2; setq ShipQuests_Arpan, 2; diff --git a/npc/000-2-1/dan.txt b/npc/000-2-1/dan.txt index e0aeb6507..c751cd62c 100644 --- a/npc/000-2-1/dan.txt +++ b/npc/000-2-1/dan.txt @@ -10,8 +10,8 @@ // Gender = 1 000-2-1,32,31,0 script Dan 101,{ mesn; - set @q, rand(3); - if (@q == 0) goto L_QuestStory; + set .@q, rand(3); + if (.@q == 0) goto L_QuestStory; mesq l("You see these pious around us?"); next; diff --git a/npc/000-2-1/knife.txt b/npc/000-2-1/knife.txt index 2ed92c0be..d9d25a743 100644 --- a/npc/000-2-1/knife.txt +++ b/npc/000-2-1/knife.txt @@ -13,8 +13,8 @@ // Size = 2 // Gender = 2 000-2-1,50,24,0 script #knife 100,{ - set @q, getq(ShipQuests_Knife); - if (@q) close; + set .@q, getq(ShipQuests_Knife); + if (.@q) close; mesn "Narrator"; mes col(l("There are some knives on the table. Would you like to take one?"), 9); @@ -29,8 +29,8 @@ L_Give: mes ""; - set @item, 3500; - set @count, 1; + set .@item, 3500; + set .@count, 1; callfunc "InventoryPlace", 3500, 1; setq ShipQuests_Knife, 1; diff --git a/npc/000-2-1/peter.txt b/npc/000-2-1/peter.txt index 60238e127..6d0552f9e 100644 --- a/npc/000-2-1/peter.txt +++ b/npc/000-2-1/peter.txt @@ -21,13 +21,13 @@ // 5 Task done and reward given. // 6 Did not start the quest. // Others: -// @peter = Peter variable. +// .@peter = Peter variable. // "000-2-2.gat" - map with mobs. -// "$@RAT_SAILOR_HELPER$" - Name of the participant. -// "$@RAT_SAILOR_DEATHS - Number of deaths when the participant starts the fight. -// "$@RAT_SAILOR_CONTROL" - Explanation of each index of the array. -// "$@RAT_SAILOR_OLD_HELPER$" - Name of the participant. -// "$@RAT_SAILOR_COUNTDOWN" - Seconds since the epoch of when the player done the quest. +// "$.@RAT_SAILOR_HELPER$" - Name of the participant. +// "$.@RAT_SAILOR_DEATHS - Number of deaths when the participant starts the fight. +// "$.@RAT_SAILOR_CONTROL" - Explanation of each index of the array. +// "$.@RAT_SAILOR_OLD_HELPER$" - Name of the participant. +// "$.@RAT_SAILOR_COUNTDOWN" - Seconds since the epoch of when the player done the quest. // [1] = Shows status of ratto number 1 (1 is dead and 0 is alive). // [2] = Shows status of ratto number 2 (1 is dead and 0 is alive). // [3] = Shows status of ratto number 3 (1 is dead and 0 is alive). @@ -44,18 +44,18 @@ OnTouch: if (BaseLevel < 5) goto L_Stop; - if ($@RAT_SAILOR_COUNTDOWN == "") goto L_NoCountDown; - if ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 10) goto L_NoGoodTick; - if (($@RAT_SAILOR_OLD_HELPER$ == strcharinfo(0)) && ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 60)) goto L_NoGoodTick; - set $@RAT_SAILOR_COUNTDOWN, ""; + if ($.@RAT_SAILOR_COUNTDOWN == "") goto L_NoCountDown; + if ((gettimetick(2) - $.@RAT_SAILOR_COUNTDOWN) < 10) goto L_NoGoodTick; + if (($.@RAT_SAILOR_OLD_HELPER$ == strcharinfo(0)) && ((gettimetick(2) - $.@RAT_SAILOR_COUNTDOWN) < 60)) goto L_NoGoodTick; + set $.@RAT_SAILOR_COUNTDOWN, ""; L_NoCountDown: - if ($@RAT_SAILOR_HELPER$ != "") goto L_Occupied; - set @peter, getq(ShipQuests_Peter); - if (@peter < 1 || @peter > 5) goto L_Task; - if (@peter == 1 || @peter == 2) goto L_Rfail; - if (@peter == 3 || @peter == 4) goto L_Rwin; - if (@peter > 5) goto L_SecondTime; + if ($.@RAT_SAILOR_HELPER$ != "") goto L_Occupied; + set .@peter, getq(ShipQuests_Peter); + if (.@peter < 1 || .@peter > 5) goto L_Task; + if (.@peter == 1 || .@peter == 2) goto L_Rfail; + if (.@peter == 3 || .@peter == 4) goto L_Rwin; + if (.@peter > 5) goto L_SecondTime; doevent "Peter::OnReturnWin"; close; @@ -92,19 +92,19 @@ L_NoGoodTick: // Gender = 1 000-2-1,70,35,0 script Peter 403,{ if (BaseLevel < 5) goto OnTooWeak; - if ($@RAT_SAILOR_COUNTDOWN == "") goto L_NoCountDown; - if ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 10) goto OnNoGoodTick; - if (($@RAT_SAILOR_OLD_HELPER$ == strcharinfo(0)) && ((gettimetick(2) - $@RAT_SAILOR_COUNTDOWN) < 60)) goto OnNoGoodTick; - set $@RAT_SAILOR_COUNTDOWN, ""; + if ($.@RAT_SAILOR_COUNTDOWN == "") goto L_NoCountDown; + if ((gettimetick(2) - $.@RAT_SAILOR_COUNTDOWN) < 10) goto OnNoGoodTick; + if (($.@RAT_SAILOR_OLD_HELPER$ == strcharinfo(0)) && ((gettimetick(2) - $.@RAT_SAILOR_COUNTDOWN) < 60)) goto OnNoGoodTick; + set $.@RAT_SAILOR_COUNTDOWN, ""; L_NoCountDown: - set @peter, getq(ShipQuests_Peter); - if (@peter == 1 || @peter == 2) goto OnReturnFail; - if (@peter == 3 || @peter == 4 || @peter == 5) goto OnReturnWin; + set .@peter, getq(ShipQuests_Peter); + if (.@peter == 1 || .@peter == 2) goto OnReturnFail; + if (.@peter == 3 || .@peter == 4 || .@peter == 5) goto OnReturnWin; OnGiveTask: setq ShipQuests_Peter, 6; - set @peter, getq(ShipQuests_Peter); + set .@peter, getq(ShipQuests_Peter); mesn; mesq g(l("Hey, girl!"), l("Hey, man!")); @@ -158,13 +158,13 @@ OnReturnWin: mesq l("Thanks again for helping me. Drats these rattos for infesting our fair vessal! They are a permanent problem; so you can always be sure that your help with the extermination, to keep their numbers under control, is very welcome indeed. But the situation is, that I can give you a reward only the one time."); next; - if (@peter == 3 || @peter == 4) + if (.@peter == 3 || .@peter == 4) menu l("Did you say reward? I want it!"), L_BonusTask, l("I am not worried about rewards. I just want to help."), L_Task, l("Sorry, I am not in the mood for another fight with these rattos."), -; - if (@peter == 5) + if (.@peter == 5) menu l("No problem, I can help you anyway."), L_Task, l("Sorry, I am not in the mood for another fight with these rattos."), -; @@ -185,16 +185,16 @@ L_BonusTask: lg("Okay, I'm ready to work!"), -, l("What? This reward is too small!"), L_Quit; - if ($@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp; - if (@peter == 6) setq ShipQuests_Peter, 2; - if (@peter == 3) setq ShipQuests_Peter, 4; - set @peter, getq(ShipQuests_Peter); + if ($.@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp; + if (.@peter == 6) setq ShipQuests_Peter, 2; + if (.@peter == 3) setq ShipQuests_Peter, 4; + set .@peter, getq(ShipQuests_Peter); goto L_Start; L_Task: - if ($@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp; - if (@peter == 6) setq ShipQuests_Peter, 1; - set @peter, getq(ShipQuests_Peter); + if ($.@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp; + if (.@peter == 6) setq ShipQuests_Peter, 1; + set .@peter, getq(ShipQuests_Peter); L_Start: mes ""; @@ -202,9 +202,9 @@ L_Start: mesq l("Okay, you can start!"); OnStartOutside: - if ($@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp; - set $@RAT_SAILOR_HELPER$, strcharinfo(0); - set $@RAT_SAILOR_DEATHS, PC_DIE_COUNTER; + if ($.@RAT_SAILOR_HELPER$ != "") goto OnDontneedHelp; + set $.@RAT_SAILOR_HELPER$, strcharinfo(0); + set $.@RAT_SAILOR_DEATHS, PC_DIE_COUNTER; initnpctimer; warp "000-2-2.gat", 48, 28; doevent "RattosControl::OnSpawn"; @@ -212,25 +212,25 @@ OnStartOutside: goto L_Quit; OnTimer2000: - if (attachrid(getcharid(3, $@RAT_SAILOR_HELPER$)) == 0) goto L_Logoff; - set $@RAT_SAILOR_CONTROL[9], $@RAT_SAILOR_CONTROL[9] + 2; - if ($@RAT_SAILOR_CONTROL[9] > 100) goto L_Timeout; - if (PC_DIE_COUNTER > $@RAT_SAILOR_DEATHS) goto L_Dead; - if ($@RAT_SAILOR_CONTROL[1] && $@RAT_SAILOR_CONTROL[2] && $@RAT_SAILOR_CONTROL[3] && $@RAT_SAILOR_CONTROL[4]) goto L_Done; + if (attachrid(getcharid(3, $.@RAT_SAILOR_HELPER$)) == 0) goto L_Logoff; + set $.@RAT_SAILOR_CONTROL[9], $.@RAT_SAILOR_CONTROL[9] + 2; + if ($.@RAT_SAILOR_CONTROL[9] > 100) goto L_Timeout; + if (PC_DIE_COUNTER > $.@RAT_SAILOR_DEATHS) goto L_Dead; + if ($.@RAT_SAILOR_CONTROL[1] && $.@RAT_SAILOR_CONTROL[2] && $.@RAT_SAILOR_CONTROL[3] && $.@RAT_SAILOR_CONTROL[4]) goto L_Done; if (getmapusers("000-2-2.gat") == 0) goto L_CleaningEnd; goto L_CheckRattos; end; L_CheckRattos: - if ($@RAT_SAILOR_CONTROL[1]) set $@RAT_SAILOR_CONTROL[5], $@RAT_SAILOR_CONTROL[5] + 2; - if ($@RAT_SAILOR_CONTROL[2]) set $@RAT_SAILOR_CONTROL[6], $@RAT_SAILOR_CONTROL[6] + 2; - if ($@RAT_SAILOR_CONTROL[3]) set $@RAT_SAILOR_CONTROL[7], $@RAT_SAILOR_CONTROL[7] + 2; - if ($@RAT_SAILOR_CONTROL[4]) set $@RAT_SAILOR_CONTROL[8], $@RAT_SAILOR_CONTROL[8] + 2; - if ($@RAT_SAILOR_CONTROL[5] > 40) doevent "RattosControl::OnRatto1Respawn"; - if ($@RAT_SAILOR_CONTROL[6] > 40) doevent "RattosControl::OnRatto2Respawn"; - if ($@RAT_SAILOR_CONTROL[7] > 40) doevent "RattosControl::OnRatto3Respawn"; - if ($@RAT_SAILOR_CONTROL[8] > 40) doevent "RattosControl::OnRatto4Respawn"; + if ($.@RAT_SAILOR_CONTROL[1]) set $.@RAT_SAILOR_CONTROL[5], $.@RAT_SAILOR_CONTROL[5] + 2; + if ($.@RAT_SAILOR_CONTROL[2]) set $.@RAT_SAILOR_CONTROL[6], $.@RAT_SAILOR_CONTROL[6] + 2; + if ($.@RAT_SAILOR_CONTROL[3]) set $.@RAT_SAILOR_CONTROL[7], $.@RAT_SAILOR_CONTROL[7] + 2; + if ($.@RAT_SAILOR_CONTROL[4]) set $.@RAT_SAILOR_CONTROL[8], $.@RAT_SAILOR_CONTROL[8] + 2; + if ($.@RAT_SAILOR_CONTROL[5] > 40) doevent "RattosControl::OnRatto1Respawn"; + if ($.@RAT_SAILOR_CONTROL[6] > 40) doevent "RattosControl::OnRatto2Respawn"; + if ($.@RAT_SAILOR_CONTROL[7] > 40) doevent "RattosControl::OnRatto3Respawn"; + if ($.@RAT_SAILOR_CONTROL[8] > 40) doevent "RattosControl::OnRatto4Respawn"; L_NotYet: setnpctimer 0; @@ -241,7 +241,7 @@ OnDontneedHelp: mesn; mesq l("I don't need your help right now, come back later."); next; - mesq l("@@ is helping me.", $@RAT_SAILOR_HELPER$); + mesq l("@@ is helping me.", $.@RAT_SAILOR_HELPER$); goto L_Quit; @@ -262,19 +262,19 @@ L_Dead: goto L_CleaningEnd; L_Done: - set $@RAT_SAILOR_CONTROL[10], $@RAT_SAILOR_CONTROL[10] + 2; - if($@RAT_SAILOR_CONTROL[10] < 5) goto L_NotYet; - set @peter, getq(ShipQuests_Peter); - if (@peter == 2 || @peter == 4) goto L_Reward; + set $.@RAT_SAILOR_CONTROL[10], $.@RAT_SAILOR_CONTROL[10] + 2; + if($.@RAT_SAILOR_CONTROL[10] < 5) goto L_NotYet; + set .@peter, getq(ShipQuests_Peter); + if (.@peter == 2 || .@peter == 4) goto L_Reward; warp "000-2-1.gat", 72, 36; goto L_Thanks; L_CleaningEnd: stopnpctimer; - set $@RAT_SAILOR_HELPER$, ""; - set $@RAT_SAILOR_DEATHS, 0; - cleararray $@RAT_SAILOR_CONTROL, 0, 11; + set $.@RAT_SAILOR_HELPER$, ""; + set $.@RAT_SAILOR_DEATHS, 0; + cleararray $.@RAT_SAILOR_CONTROL, 0, 11; killmonster "000-2-2.gat", "RattosControl::OnRatto1Death"; killmonster "000-2-2.gat", "RattosControl::OnRatto2Death"; killmonster "000-2-2.gat", "RattosControl::OnRatto3Death"; @@ -284,22 +284,22 @@ L_CleaningEnd: L_CleaningClose: stopnpctimer; - set $@RAT_SAILOR_OLD_HELPER$, $@RAT_SAILOR_HELPER$; - set $@RAT_SAILOR_HELPER$, ""; - set $@RAT_SAILOR_DEATHS, 0; - cleararray $@RAT_SAILOR_CONTROL, 0, 11; + set $.@RAT_SAILOR_OLD_HELPER$, $.@RAT_SAILOR_HELPER$; + set $.@RAT_SAILOR_HELPER$, ""; + set $.@RAT_SAILOR_DEATHS, 0; + cleararray $.@RAT_SAILOR_CONTROL, 0, 11; killmonster "000-2-2.gat", "RattosControl::OnRatto1Death"; killmonster "000-2-2.gat", "RattosControl::OnRatto2Death"; killmonster "000-2-2.gat", "RattosControl::OnRatto3Death"; killmonster "000-2-2.gat", "RattosControl::OnRatto4Death"; - set $@RAT_SAILOR_COUNTDOWN, gettimetick(2); + set $.@RAT_SAILOR_COUNTDOWN, gettimetick(2); close; L_Reward: warp "000-2-1.gat", 72, 36; setq ShipQuests_Peter, 5; - set @peter, getq(ShipQuests_Peter); + set .@peter, getq(ShipQuests_Peter); mesn; mesq l("Good job!") + " " + l("Here's your reward!"); getexp 100, 0; @@ -311,14 +311,14 @@ L_Reward: L_Thanks: mesn; mesq l("Thanks for helping me!"); - set @peter, getq(ShipQuests_Peter); - if (@peter == 1) setq ShipQuests_Peter, 3; - set @peter, getq(ShipQuests_Peter); + set .@peter, getq(ShipQuests_Peter); + if (.@peter == 1) setq ShipQuests_Peter, 3; + set .@peter, getq(ShipQuests_Peter); goto L_CleaningClose; L_Quit: - set @peter, 0; + set .@peter, 0; close; diff --git a/npc/000-2-2/doors.txt b/npc/000-2-2/doors.txt index dab5c6b1c..6f2f6c7e0 100644 --- a/npc/000-2-2/doors.txt +++ b/npc/000-2-2/doors.txt @@ -15,8 +15,8 @@ OnTouch: goto L_Warp; L_Warn: - set @q, getq(ShipQuests_Peter); - if (@q == 5) goto L_Warp; + set .@q, getq(ShipQuests_Peter); + if (.@q == 5) goto L_Warp; mesn "Narrator"; mes col(l("There are still some rattos left! Do you want to abort the quest?"), 9); diff --git a/npc/000-2-2/ratto.txt b/npc/000-2-2/ratto.txt index 1daca2e43..598df3657 100644 --- a/npc/000-2-2/ratto.txt +++ b/npc/000-2-2/ratto.txt @@ -6,7 +6,7 @@ // Description: // Ratto killer. -// $@RAT_SAILOR_CONTROL array explanation: +// $.@RAT_SAILOR_CONTROL array explanation: // [1] = Shows status of ratto number 1 (1 is dead and 0 is alive). // [2] = Shows status of ratto number 2 (1 is dead and 0 is alive). // [3] = Shows status of ratto number 3 (1 is dead and 0 is alive). @@ -29,41 +29,41 @@ OnSpawn: OnRatto1Respawn: areamonster "000-2-2.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto1Death"; - set $@RAT_SAILOR_CONTROL[1], 0; - set $@RAT_SAILOR_CONTROL[5], 0; + set $.@RAT_SAILOR_CONTROL[1], 0; + set $.@RAT_SAILOR_CONTROL[5], 0; end; OnRatto2Respawn: areamonster "000-2-2.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto2Death"; - set $@RAT_SAILOR_CONTROL[2], 0; - set $@RAT_SAILOR_CONTROL[6], 0; + set $.@RAT_SAILOR_CONTROL[2], 0; + set $.@RAT_SAILOR_CONTROL[6], 0; end; OnRatto3Respawn: areamonster "000-2-2.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto3Death"; - set $@RAT_SAILOR_CONTROL[3], 0; - set $@RAT_SAILOR_CONTROL[7], 0; + set $.@RAT_SAILOR_CONTROL[3], 0; + set $.@RAT_SAILOR_CONTROL[7], 0; end; OnRatto4Respawn: areamonster "000-2-2.gat", 23, 19, 50, 40, "Ratto", 1005, 1, "RattosControl::OnRatto4Death"; - set $@RAT_SAILOR_CONTROL[4], 0; - set $@RAT_SAILOR_CONTROL[8], 0; + set $.@RAT_SAILOR_CONTROL[4], 0; + set $.@RAT_SAILOR_CONTROL[8], 0; end; OnRatto1Death: - set $@RAT_SAILOR_CONTROL[1], 1; + set $.@RAT_SAILOR_CONTROL[1], 1; end; OnRatto2Death: - set $@RAT_SAILOR_CONTROL[2], 1; + set $.@RAT_SAILOR_CONTROL[2], 1; end; OnRatto3Death: - set $@RAT_SAILOR_CONTROL[3], 1; + set $.@RAT_SAILOR_CONTROL[3], 1; end; OnRatto4Death: - set $@RAT_SAILOR_CONTROL[4], 1; + set $.@RAT_SAILOR_CONTROL[4], 1; end; } diff --git a/npc/000-2-3/box.txt b/npc/000-2-3/box.txt index 1ba6c4939..7f6cda197 100644 --- a/npc/000-2-3/box.txt +++ b/npc/000-2-3/box.txt @@ -20,7 +20,7 @@ // Size = 1 000-2-3,25,24,0 script Box 102,{ - set @q, getq(ShipQuests_Nard); + set .@q, getq(ShipQuests_Nard); mesn "Narrator"; mes col(l("Some Bandanas and Sailor Hats are inside this box."), 9); @@ -32,9 +32,9 @@ l("Take a Bandana."), -, l("Nothing."), L_Quit; - if (@q == 0) goto L_NoQuest; - if (@q == 4) goto L_Give; - if (@q > 4) goto L_Already; + if (.@q == 0) goto L_NoQuest; + if (.@q == 4) goto L_Give; + if (.@q > 4) goto L_Already; setcamnpc "Nard"; mes ""; diff --git a/npc/000-2-3/elmo.txt b/npc/000-2-3/elmo.txt index 0bd0ccdc8..89779294a 100644 --- a/npc/000-2-3/elmo.txt +++ b/npc/000-2-3/elmo.txt @@ -8,8 +8,8 @@ // Size = 5 // Gender = 1 000-2-3,27,27,0 script Elmo 409,{ - set @q, getq(ShipQuests_ArpanMoney); - if (@q == 1) goto L_GotMoney; + set .@q, getq(ShipQuests_ArpanMoney); + if (.@q == 1) goto L_GotMoney; mesn; mesq l("Hey you, sorry for leaving your room so quickly. I needed to speak with the captain about the food reserves. You know, now that we have a new mouth to feed, we need to check what we have."); diff --git a/npc/000-2-3/nard.txt b/npc/000-2-3/nard.txt index c3b5a581f..968cfa354 100644 --- a/npc/000-2-3/nard.txt +++ b/npc/000-2-3/nard.txt @@ -26,18 +26,18 @@ // Size = 5 // Gender = 1 000-2-3,25,26,0 script Nard 406,{ - set @nard, getq(ShipQuests_Nard); - set @gugli, getq(ShipQuests_Gugli); - set @gado, getq(ShipQuests_ChefGado); + set .@nard, getq(ShipQuests_Nard); + set .@gugli, getq(ShipQuests_Gugli); + set .@gado, getq(ShipQuests_ChefGado); L_Checker: - if (@gado > 3 && @nard == 3) goto L_ChefQuestComplete; - if (@nard == 2) goto L_ChefQuestStart; - if (@nard == 3) goto L_ChefQuestGiven; - if (@nard == 4) goto L_Reward; - if (@nard > 4) goto L_Already; - if (@gugli == 2) goto L_Done; - if (@nard == 1) goto L_NotYet; + if (.@gado > 3 && .@nard == 3) goto L_ChefQuestComplete; + if (.@nard == 2) goto L_ChefQuestStart; + if (.@nard == 3) goto L_ChefQuestGiven; + if (.@nard == 4) goto L_Reward; + if (.@nard > 4) goto L_Already; + if (.@gugli == 2) goto L_Done; + if (.@nard == 1) goto L_NotYet; mesn; mesq l("Hello."); diff --git a/npc/001-1/cookiemaster.txt b/npc/001-1/cookiemaster.txt index a7bd87759..9b527694a 100644 --- a/npc/001-1/cookiemaster.txt +++ b/npc/001-1/cookiemaster.txt @@ -177,8 +177,8 @@ L_Reward: next; mesq l("Anyway, here, have a cookie!"); - set @item, 517; - set @count, 1; + set .@item, 517; + set .@count, 1; callfunc "InventoryPlace", 517, 1; setq GeneraL_Cookies, 1; @@ -242,8 +242,8 @@ L_LostCookie: mesq l("This is the last one. If you use it again out of clumsiness, I will take your flesh as the main ingredient for my cookie recipe."); next; - set @item, 517; - set @count, 1; + set .@item, 517; + set .@count, 1; callfunc "InventoryPlace", 517, 1; getitem "DeliciousCookie", 1; diff --git a/npc/functions/asleep.txt b/npc/functions/asleep.txt index cab79b93b..42a997967 100644 --- a/npc/functions/asleep.txt +++ b/npc/functions/asleep.txt @@ -5,15 +5,15 @@ // Description: // Tell a random sleeping sound. // Variables: -// @rand = Random number between the number of "sleeping" choice. +// .@rand = Random number between the number of "sleeping" choice. function script Asleep { - set @rand, rand(3); - if (@rand == 0) npctalk3 l("Zzzzzzzzz..."); - if (@rand == 1) npctalk3 l("Rrrr... Pchhhh..."); - if (@rand == 2) npctalk3 l("Ggrmm... Grmmmm..."); - if (@rand == 3) npctalk3 l("Hm..."); + set .@rand, rand(3); + if (.@rand == 0) npctalk3 l("Zzzzzzzzz..."); + if (.@rand == 1) npctalk3 l("Rrrr... Pchhhh..."); + if (.@rand == 2) npctalk3 l("Ggrmm... Grmmmm..."); + if (.@rand == 3) npctalk3 l("Hm..."); close; } diff --git a/npc/functions/goodbye.txt b/npc/functions/goodbye.txt index 470825c7d..016822e74 100644 --- a/npc/functions/goodbye.txt +++ b/npc/functions/goodbye.txt @@ -4,25 +4,25 @@ // Description: // Tell a random goodbye sentence. // Variables: -// @rand = Random number between the number of "goodbye" choice. +// .@rand = Random number between the number of "goodbye" choice. function script GoodBye { closedialog; - set @rand, rand(13); - if (@rand == 0) npctalk3 l("See you!"); - if (@rand == 1) npctalk3 l("See you later!"); - if (@rand == 2) npctalk3 l("See you soon!"); - if (@rand == 3) npctalk3 l("Bye!"); - if (@rand == 4) npctalk3 l("Farewell."); - if (@rand == 5) npctalk3 l("Bye then!"); - if (@rand == 6) npctalk3 l("Goodbye."); - if (@rand == 7) npctalk3 l("Bye for now."); - if (@rand == 8) npctalk3 l("Talk to you soon!"); - if (@rand == 9) npctalk3 l("Talk to you later!"); - if (@rand == 10) npctalk3 l("Have a good day!"); - if (@rand == 11) npctalk3 l("Cheers!"); - if (@rand == 12) npctalk3 l("Take care!"); + set .@rand, rand(13); + if (.@rand == 0) npctalk3 l("See you!"); + if (.@rand == 1) npctalk3 l("See you later!"); + if (.@rand == 2) npctalk3 l("See you soon!"); + if (.@rand == 3) npctalk3 l("Bye!"); + if (.@rand == 4) npctalk3 l("Farewell."); + if (.@rand == 5) npctalk3 l("Bye then!"); + if (.@rand == 6) npctalk3 l("Goodbye."); + if (.@rand == 7) npctalk3 l("Bye for now."); + if (.@rand == 8) npctalk3 l("Talk to you soon!"); + if (.@rand == 9) npctalk3 l("Talk to you later!"); + if (.@rand == 10) npctalk3 l("Have a good day!"); + if (.@rand == 11) npctalk3 l("Cheers!"); + if (.@rand == 12) npctalk3 l("Take care!"); close; } diff --git a/npc/functions/inventoryplace.txt b/npc/functions/inventoryplace.txt index c2f95c5cf..02c013ded 100644 --- a/npc/functions/inventoryplace.txt +++ b/npc/functions/inventoryplace.txt @@ -7,18 +7,18 @@ // getarg(0) item ID, // getarg(1) number of items, // Variables: -// @iteminfo = Item information type. (See doc for list of item's types) -// @countitem = Count item's number. +// .@iteminfo = Item information type. (See doc for list of item's types) +// .@countitem = Count item's number. function script InventoryPlace { getinventorylist; - set @iteminfo, getiteminfo(getarg(0), 2); - set @countitem, countitemcolor(getarg(0)); + set .@iteminfo, getiteminfo(getarg(0), 2); + set .@countitem, countitemcolor(getarg(0)); if (checkweight(getarg(0), getarg(1)) == 0) goto L_Warn; - if ((@iteminfo < 4) && (@countitem == 0) && (@inventorylist_count < 100)) return; - if ((@iteminfo < 4) && (@countitem > 0)) return; - if (@inventorylist_count + getarg(1) <= 100) return; + if ((.@iteminfo < 4) && (.@countitem == 0) && (.@inventorylist_count < 100)) return; + if ((.@iteminfo < 4) && (.@countitem > 0)) return; + if (.@inventorylist_count + getarg(1) <= 100) return; L_Warn: mes ""; diff --git a/npc/functions/sailordialogue.txt b/npc/functions/sailordialogue.txt index dca523238..7d51d995f 100644 --- a/npc/functions/sailordialogue.txt +++ b/npc/functions/sailordialogue.txt @@ -8,10 +8,10 @@ function script SailorFood { mesn; - set @q, rand(0, 400) / 100; - if (@q == 0) goto L_RandomA; - if (@q == 1) goto L_RandomB; - if (@q > 1) goto L_RandomC; + set .@q, rand(0, 400) / 100; + if (.@q == 0) goto L_RandomA; + if (.@q == 1) goto L_RandomB; + if (.@q > 1) goto L_RandomC; L_RandomA: mesq l("Hey."); diff --git a/npc/items/croconut.txt b/npc/items/croconut.txt index f70574614..bf4ef4a87 100644 --- a/npc/items/croconut.txt +++ b/npc/items/croconut.txt @@ -39,10 +39,10 @@ L_TooWeak: mes ""; mesn "Narrator"; - set @q, rand(5); - if (@q == 0) goto L_TooWeakLost; - if ( (@q == 1) || (@q == 2) ) goto L_TooWeakFail; - if ( (@q == 3) || (@q == 4) || (@q == 5) ) goto L_Weak; + set .@q, rand(5); + if (.@q == 0) goto L_TooWeakLost; + if ( (.@q == 1) || (.@q == 2) ) goto L_TooWeakFail; + if ( (.@q == 3) || (.@q == 4) || (.@q == 5) ) goto L_Weak; L_TooWeakLost: mes col(l("You hit too hard with your fist, you destroyed your @@.", getitemlink("Croconut")), 9); |