From bb813e7ee952fcd2f1a6fe97f3e81155ccb84b29 Mon Sep 17 00:00:00 2001 From: brianluau Date: Tue, 17 Jan 2012 06:15:05 +0000 Subject: - Updates to script_commands.txt, and added svn:keywords property. git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@15473 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/quests/cupet.txt | 482 +++++++++++++++++++++++++-------------------------- 1 file changed, 241 insertions(+), 241 deletions(-) (limited to 'npc') diff --git a/npc/quests/cupet.txt b/npc/quests/cupet.txt index 499140fb0..f017fe5a2 100644 --- a/npc/quests/cupet.txt +++ b/npc/quests/cupet.txt @@ -1,242 +1,242 @@ -//===== rAthena Script ======================================= -//= Cute Pet Manager -//===== By: ================================================== -//= Z3R0 -//===== Current Version: ===================================== -//= 1.0 -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= [Aegis Conversion] -//= Exchanges Hunted Items for Tames -//===== Additional Comments: ================================= -//= v1.0 First / Optimized Version -//============================================================ - -// 1st NPC -- script CPM1 750,{ - - set .@npc$, "[Cute Pet Manager]"; - - setarray .@tame_id[0],619,620,622,623,624,627,628,629,630; - setarray .@tame_amount[0],3,3,3,3,3,3,3,3,3; - setarray .@hunt_id[0],909,909,705,916,935,919,919,940,921; - setarray .@hunt_amount[0],500,600,500,500,500,500,600,500,500; - setarray .@mob_id[0],1002,1113,1063,1049,1011,1167,1107,1052,1014; - set .@tame_gets, 3; - - if (cpm_one == .@tame_gets) { - mes "[Cute Pet Manager]"; - mes "You have already exchanged"; - mes .@tame_amount + " times for a taming item."; - mes "You can't exchange anymore."; - next; - - mes "[Cute Pet Manager]"; - mes "Besides me, there are other"; - mes "Cute Pet Managers. If you want"; - mes "to tame other pets, I suggest"; - mes "you go and see them."; - close; - } - - callfunc "cute_pet_manager",.@tame_id,.@tame_amount,.@hunt_id,.@hunt_amount,.@mob_id,cpm_one,.@tame_gets,.@hunt_id2,.@hunt_amount2; - -} - -// 2nd NPC -- script CPM2 750,{ - - set .@npc$, "[Cute Pet Manager]"; - - setarray .@tame_id[0],621,625,632,631,633,634,635,636,659,637,639,640; - setarray .@tame_amount[0],2,2,2,2,2,2,2,2,2,2,2,2; - setarray .@hunt_id[0],938,935,925,7033,945,942,931,901,1094,1021,936,1035; - setarray .@hunt_amount[0],500,600,500,300,500,500,500,500,500,500,500,500; - setarray .@hunt_item_count[0],1,1,1,1,1,1,1,1,1; - setarray .@mob_id[0],1031,1042,1019,1077,1056,1057,1023,1026,1188,1110,1029; - set .@tame_gets, 2; - - if (cpm_two == .@tame_gets) { - mes "[Cute Pet Manager]"; - mes "You have already exchanged"; - mes .@tame_amount + " times for a taming item."; - mes "You can't exchange anymore."; - next; - - mes "[Cute Pet Manager]"; - mes "Besides me, there are other"; - mes "Cute Pet Managers. If you want"; - mes "to tame other pets, I suggest"; - mes "you go and see them."; - close; - } - - callfunc "cute_pet_manager",.@tame_id,.@tame_amount,.@hunt_id,.@hunt_amount,.@mob_id,cpm_two,.@tame_gets,.@hunt_id2,.@hunt_amount2; - -} - -// 3rd NPC -- script CPM3 750,{ - - set .@npc$, "[Cute Pet Manager]"; - - setarray .@tame_id[0],638,626,641,661,660,642; - setarray .@tame_amount[0],1,1,1,1,1,1; - setarray .@hunt_id[0],1020,943,1038,7047,1970,923; - setarray .@hunt_amount[0],600,600,600,500,1,100; - setarray .@hunt_id2[0],0,0,0,0,7017,0; - setarray .@hunt_amount2[0],0,0,0,0,20,0; - setarray .@mob_id[0],1170,1035,1109,1275,1200,1101; - set .@tame_gets, 1; - - if (cpm_three == .@tame_gets) { - mes "[Cute Pet Manager]"; - mes "You have already exchanged"; - mes .@tame_amount + " times for a taming item."; - mes "You can't exchange anymore."; - next; - - mes "[Cute Pet Manager]"; - mes "Besides me, there are other"; - mes "Cute Pet Managers. If you want"; - mes "to tame other pets, I suggest"; - mes "you go and see them."; - close; - } - - callfunc "cute_pet_manager",.@tame_id,.@tame_amount,.@hunt_id,.@hunt_amount,.@mob_id,cpm_three,.@tame_gets,.@hunt_id2,.@hunt_amount2; - -} - -function script cute_pet_manager { - // getarg(0) -> .@tame_id Array - // getarg(1) -> .@tame_amount Array - // getarg(2) -> .@hunt_id Array - // getarg(3) -> .@hunt_amount Array - // getarg(4) -> .@mob_id Array - // getarg(5) -> Attempt Variable - // getarg(6) -> .@tame_gets Variable - // getarg(7) -> .@hunt_id2 Array - // getarg(8) -> .@hunt_amount2 Array - - mes "[Cute Pet Manager]"; - mes "Hello~! I am a Cute Pet Manager"; - mes "who is in charge of public relations"; - mes "for the New Upgraded Cute Pet system."; - next; - - mes "[Cute Pet Manager]"; - mes "If you have any concerns regarding"; - mes "the Cute Pet system I am here to guide you."; - mes "Let me know which taming"; - mes "item you want,"; - mes "then I will tell you the monster"; - mes "that you can tame with the item."; - next; - - mes "Also I will explain what materials"; - mes "you need to bring in order to"; - mes "get the taming item."; - next; - - mes "[Cute Pet Manager]"; - mes "If you already brought materials"; - mes "to exchange for the taming item,"; - mes "I can exchange it for taming items immediately."; - next; - - mes "[Cute Pet Manager]"; - mes "However, there is a limit"; - mes "for exchanging taming items."; - mes "You can only get taming items"; - mes getarg(6) + " times. So please make sure"; - mes "how many times you have exchanged."; - next; - - mes "[Cute Pet Manager]"; - mes "So, which taming item do you want?"; - mes "Please choose one from the list."; - next; - - // Create Menu System - for (set .@a, 0; .@a < getarraysize(getarg(0)); set .@a, .@a + 1) { - set .@menu$, .@menu$ + (.@menu$ == "" ? "" : ":") + getitemname(getelementofarray(getarg(0), .@a)); - } - - // Query Player Choice - set .@choice, select(.@menu$) - 1; - - // Store Variables (Less Lookup) - set .@tame_id, getelementofarray(getarg(0), .@choice); - set .@tame_amount, getelementofarray(getarg(1), .@choice); - set .@hunt_id, getelementofarray(getarg(2), .@choice); - set .@hunt_amount, getelementofarray(getarg(3), .@choice); - set .@mob_id, getelementofarray(getarg(4), .@choice); - set .@hunt_id2, getelementofarray(getarg(7), .@choice); - set .@hunt_amount2, getelementofarray(getarg(8), .@choice); - - dispbottom "Tame ID: " + .@tame_id; - dispbottom "Tame Amount: " + .@tame_amount; - dispbottom "Hunt ID: " + .@hunt_id; - dispbottom "Hunt Name: " + getitemname(.@hunt_id); - dispbottom "Hunt Amount: " + .@hunt_amount; - dispbottom "Mob ID: " + .@mob_id; - dispbottom "Hunt ID2: " + .@hunt_id2; - dispbottom "Hunt Amount2: " + .@hunt_amount2; - - if (.@hunt_id2) { set .@hunt2_count, countitem(.@hunt_id2); } - if (countitem(.@hunt_id) >= .@hunt_amount && countitem(6083) > 0 && .@hunt2_count >= .@hunt_amount2) { - - mes "[Cute Pet Manager]"; - mes "Ah, you have gathered all items"; - mes "with your friends. You can now"; - mes "exchange for an " + getitemname(.@tame_id) + "."; - mes "Do you want to exchange with me?"; - next; - - if (select("Exchange:Don't Exchange") == 2) { - mes "[Cute Pet Manager]"; - mes "You don't? You will come back again."; - close; - } - - delitem .@hunt_id, .@hunt_amount; - delitem 6083, 1; - set getarg(5), getarg(5) + 1; - getitem .@tame_id, .@tame_amount; - - mes "[Cute Pet Manager]"; - mes "Wise choice."; - mes "I hope you and your pet get along."; - close; - } else { - mes "[Cute Pet Manager]"; - mes "You have chosen " + getitemname(.@tame_id) + "."; - mes "You can use it for taming"; - mes "^FF0000" + strmobinfo(1,.@mob_id) + "^000000 monsters."; - next; - mes "[Cute Pet Manager]"; - mes "Bring ^FF0000" + .@hunt_amount + " " + getitemname(.@hunt_id) + "^000000s " + (.@hunt_id2 ? ", ^FF0000" + .@hunt_amount2 + " " + getitemname(.@hunt_id2) : "") + " ^000000 and ^FF00001 Dolly Capsule^000000"; - mes "then you can exchange them"; - mes "for an " + getitemname(.@tame_id) + "."; - close; - } -} - -// NPC Duplicates -prontera,67,212,5 duplicate(CPM1) Cute Pet Manager#1 750; -prontera,242,92,3 duplicate(CPM2) Cute Pet Manager#2 750; -prontera,179,92,3 duplicate(CPM3) Cute Pet Manager#3 750; - -geffen,180,125,5 duplicate(CPM1) Cute Pet Manager#4 750; -geffen,152,66,3 duplicate(CPM2) Cute Pet Manager#5 750; -geffen,197,95,3 duplicate(CPM3) Cute Pet Manager#6 750; - -morocc,115,83,5 duplicate(CPM1) Cute Pet Manager#7 750; -morocc,218,130,3 duplicate(CPM2) Cute Pet Manager#8 750; -morocc,236,225,3 duplicate(CPM3) Cute Pet Manager#9 750; - -payon,109,278,5 duplicate(CPM1) Cute Pet Manager#10 750; -payon,157,124,3 duplicate(CPM2) Cute Pet Manager#11 750; +//===== rAthena Script ======================================= +//= Cute Pet Manager +//===== By: ================================================== +//= Z3R0 +//===== Current Version: ===================================== +//= 1.0 +//===== Compatible With: ===================================== +//= rAthena SVN +//===== Description: ========================================= +//= [Aegis Conversion] +//= Exchanges Hunted Items for Tames +//===== Additional Comments: ================================= +//= v1.0 First / Optimized Version +//============================================================ + +// 1st NPC +- script CPM1 750,{ + + set .@npc$, "[Cute Pet Manager]"; + + setarray .@tame_id[0],619,620,622,623,624,627,628,629,630; + setarray .@tame_amount[0],3,3,3,3,3,3,3,3,3; + setarray .@hunt_id[0],909,909,705,916,935,919,919,940,921; + setarray .@hunt_amount[0],500,600,500,500,500,500,600,500,500; + setarray .@mob_id[0],1002,1113,1063,1049,1011,1167,1107,1052,1014; + set .@tame_gets, 3; + + if (cpm_one == .@tame_gets) { + mes "[Cute Pet Manager]"; + mes "You have already exchanged"; + mes .@tame_amount + " times for a taming item."; + mes "You can't exchange anymore."; + next; + + mes "[Cute Pet Manager]"; + mes "Besides me, there are other"; + mes "Cute Pet Managers. If you want"; + mes "to tame other pets, I suggest"; + mes "you go and see them."; + close; + } + + callfunc "cute_pet_manager",.@tame_id,.@tame_amount,.@hunt_id,.@hunt_amount,.@mob_id,cpm_one,.@tame_gets,.@hunt_id2,.@hunt_amount2; + +} + +// 2nd NPC +- script CPM2 750,{ + + set .@npc$, "[Cute Pet Manager]"; + + setarray .@tame_id[0],621,625,632,631,633,634,635,636,659,637,639,640; + setarray .@tame_amount[0],2,2,2,2,2,2,2,2,2,2,2,2; + setarray .@hunt_id[0],938,935,925,7033,945,942,931,901,1094,1021,936,1035; + setarray .@hunt_amount[0],500,600,500,300,500,500,500,500,500,500,500,500; + setarray .@hunt_item_count[0],1,1,1,1,1,1,1,1,1; + setarray .@mob_id[0],1031,1042,1019,1077,1056,1057,1023,1026,1188,1110,1029; + set .@tame_gets, 2; + + if (cpm_two == .@tame_gets) { + mes "[Cute Pet Manager]"; + mes "You have already exchanged"; + mes .@tame_amount + " times for a taming item."; + mes "You can't exchange anymore."; + next; + + mes "[Cute Pet Manager]"; + mes "Besides me, there are other"; + mes "Cute Pet Managers. If you want"; + mes "to tame other pets, I suggest"; + mes "you go and see them."; + close; + } + + callfunc "cute_pet_manager",.@tame_id,.@tame_amount,.@hunt_id,.@hunt_amount,.@mob_id,cpm_two,.@tame_gets,.@hunt_id2,.@hunt_amount2; + +} + +// 3rd NPC +- script CPM3 750,{ + + set .@npc$, "[Cute Pet Manager]"; + + setarray .@tame_id[0],638,626,641,661,660,642; + setarray .@tame_amount[0],1,1,1,1,1,1; + setarray .@hunt_id[0],1020,943,1038,7047,1970,923; + setarray .@hunt_amount[0],600,600,600,500,1,100; + setarray .@hunt_id2[0],0,0,0,0,7017,0; + setarray .@hunt_amount2[0],0,0,0,0,20,0; + setarray .@mob_id[0],1170,1035,1109,1275,1200,1101; + set .@tame_gets, 1; + + if (cpm_three == .@tame_gets) { + mes "[Cute Pet Manager]"; + mes "You have already exchanged"; + mes .@tame_amount + " times for a taming item."; + mes "You can't exchange anymore."; + next; + + mes "[Cute Pet Manager]"; + mes "Besides me, there are other"; + mes "Cute Pet Managers. If you want"; + mes "to tame other pets, I suggest"; + mes "you go and see them."; + close; + } + + callfunc "cute_pet_manager",.@tame_id,.@tame_amount,.@hunt_id,.@hunt_amount,.@mob_id,cpm_three,.@tame_gets,.@hunt_id2,.@hunt_amount2; + +} + +function script cute_pet_manager { + // getarg(0) -> .@tame_id Array + // getarg(1) -> .@tame_amount Array + // getarg(2) -> .@hunt_id Array + // getarg(3) -> .@hunt_amount Array + // getarg(4) -> .@mob_id Array + // getarg(5) -> Attempt Variable + // getarg(6) -> .@tame_gets Variable + // getarg(7) -> .@hunt_id2 Array + // getarg(8) -> .@hunt_amount2 Array + + mes "[Cute Pet Manager]"; + mes "Hello~! I am a Cute Pet Manager"; + mes "who is in charge of public relations"; + mes "for the New Upgraded Cute Pet system."; + next; + + mes "[Cute Pet Manager]"; + mes "If you have any concerns regarding"; + mes "the Cute Pet system I am here to guide you."; + mes "Let me know which taming"; + mes "item you want,"; + mes "then I will tell you the monster"; + mes "that you can tame with the item."; + next; + + mes "Also I will explain what materials"; + mes "you need to bring in order to"; + mes "get the taming item."; + next; + + mes "[Cute Pet Manager]"; + mes "If you already brought materials"; + mes "to exchange for the taming item,"; + mes "I can exchange it for taming items immediately."; + next; + + mes "[Cute Pet Manager]"; + mes "However, there is a limit"; + mes "for exchanging taming items."; + mes "You can only get taming items"; + mes getarg(6) + " times. So please make sure"; + mes "how many times you have exchanged."; + next; + + mes "[Cute Pet Manager]"; + mes "So, which taming item do you want?"; + mes "Please choose one from the list."; + next; + + // Create Menu System + for (set .@a, 0; .@a < getarraysize(getarg(0)); set .@a, .@a + 1) { + set .@menu$, .@menu$ + (.@menu$ == "" ? "" : ":") + getitemname(getelementofarray(getarg(0), .@a)); + } + + // Query Player Choice + set .@choice, select(.@menu$) - 1; + + // Store Variables (Less Lookup) + set .@tame_id, getelementofarray(getarg(0), .@choice); + set .@tame_amount, getelementofarray(getarg(1), .@choice); + set .@hunt_id, getelementofarray(getarg(2), .@choice); + set .@hunt_amount, getelementofarray(getarg(3), .@choice); + set .@mob_id, getelementofarray(getarg(4), .@choice); + set .@hunt_id2, getelementofarray(getarg(7), .@choice); + set .@hunt_amount2, getelementofarray(getarg(8), .@choice); + + dispbottom "Tame ID: " + .@tame_id; + dispbottom "Tame Amount: " + .@tame_amount; + dispbottom "Hunt ID: " + .@hunt_id; + dispbottom "Hunt Name: " + getitemname(.@hunt_id); + dispbottom "Hunt Amount: " + .@hunt_amount; + dispbottom "Mob ID: " + .@mob_id; + dispbottom "Hunt ID2: " + .@hunt_id2; + dispbottom "Hunt Amount2: " + .@hunt_amount2; + + if (.@hunt_id2) { set .@hunt2_count, countitem(.@hunt_id2); } + if (countitem(.@hunt_id) >= .@hunt_amount && countitem(6083) > 0 && .@hunt2_count >= .@hunt_amount2) { + + mes "[Cute Pet Manager]"; + mes "Ah, you have gathered all items"; + mes "with your friends. You can now"; + mes "exchange for an " + getitemname(.@tame_id) + "."; + mes "Do you want to exchange with me?"; + next; + + if (select("Exchange:Don't Exchange") == 2) { + mes "[Cute Pet Manager]"; + mes "You don't? You will come back again."; + close; + } + + delitem .@hunt_id, .@hunt_amount; + delitem 6083, 1; + set getarg(5), getarg(5) + 1; + getitem .@tame_id, .@tame_amount; + + mes "[Cute Pet Manager]"; + mes "Wise choice."; + mes "I hope you and your pet get along."; + close; + } else { + mes "[Cute Pet Manager]"; + mes "You have chosen " + getitemname(.@tame_id) + "."; + mes "You can use it for taming"; + mes "^FF0000" + strmobinfo(1,.@mob_id) + "^000000 monsters."; + next; + mes "[Cute Pet Manager]"; + mes "Bring ^FF0000" + .@hunt_amount + " " + getitemname(.@hunt_id) + "^000000s " + (.@hunt_id2 ? ", ^FF0000" + .@hunt_amount2 + " " + getitemname(.@hunt_id2) : "") + " ^000000 and ^FF00001 Dolly Capsule^000000"; + mes "then you can exchange them"; + mes "for an " + getitemname(.@tame_id) + "."; + close; + } +} + +// NPC Duplicates +prontera,67,212,5 duplicate(CPM1) Cute Pet Manager#1 750; +prontera,242,92,3 duplicate(CPM2) Cute Pet Manager#2 750; +prontera,179,92,3 duplicate(CPM3) Cute Pet Manager#3 750; + +geffen,180,125,5 duplicate(CPM1) Cute Pet Manager#4 750; +geffen,152,66,3 duplicate(CPM2) Cute Pet Manager#5 750; +geffen,197,95,3 duplicate(CPM3) Cute Pet Manager#6 750; + +morocc,115,83,5 duplicate(CPM1) Cute Pet Manager#7 750; +morocc,218,130,3 duplicate(CPM2) Cute Pet Manager#8 750; +morocc,236,225,3 duplicate(CPM3) Cute Pet Manager#9 750; + +payon,109,278,5 duplicate(CPM1) Cute Pet Manager#10 750; +payon,157,124,3 duplicate(CPM2) Cute Pet Manager#11 750; payon,85,237,3 duplicate(CPM3) Cute Pet Manager#12 750; \ No newline at end of file -- cgit v1.2.3-70-g09d2