1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
// TMW2/LoF scripts.
// Authors:
// TMW-LoF Team
// Jesusalva
// Description:
// Sell pets (LoFQuest_Pets) (mesn Ace Ventura)
017-1,192,23,0 script Pet Detective NPC_PET_TAMER,{
// Not registered
.@q=getq(LoFQuest_Pets);
if (!.@q)
goto L_Register;
// Out Of Stock
if (.stock <= 0)
goto L_OutOfStock;
// Normal
goto L_Menu;
L_Register:
mesn l("Ace Ventura");
mesq l("I investigate missing pets. Many flee from their owners because they die pathetically or forgot to feed them.");
next;
mesn l("Ace Ventura");
mesq l("If they at least read the @@, they wouldn't have such problems.", getitemlink(PetcaringGuide));
mesq l("The Pet Caring Guild will collect them after a while, and capture many others.");
next;
mesn l("Ace Ventura");
mesq l("So, what do you say about a deal? I'll affiliate you on the Pet Caring Guild for only 5.000 GP!");
if (Zeny < 5000)
close;
next;
if (askyesno() == ASK_NO)
close;
mes "";
if (Zeny < 5000) {
mesn l("Ace Ventura");
mesq l("Oh, but we are affiliated with Jesusalva, whom hates cheaters. So, meet your dismissal!");
die();
/*
.@val=(Zeny/10)*2;
Zeny=(Zeny/10)*8; // You pay 20% of your GP as tax-money. Hasan gladly takes the money. Jesusalva's happy.
$HASAN_GP+=.@val;
*/
close;
}
Zeny=Zeny-5000;
getexp 0, 500;
setq LoFQuest_Pets, 1;
setarray PETMEMO, 0, 0;
mesn l("Ace Ventura");
mesq l("Congrats! You are now part from the Pet Caring Guild. You can now buy pets! %%G");
close;
L_Menu:
mesn l("Ace Ventura");
mesq l("I currently have some pets with me. For most, you need to finish their Grand Hunter Quest, of course.");
mes "";
mesc l("Note: some pets still weren't implemented!");
mesc l("If you unlock a pet but it is missing on this list, this means nobody elese unlocked them yet."), 1;
mesc l("So, you are the first and must contact Jesusalva %%g"), 1;
mes "";
select
rif(PDQ_CheckGHQ(Maggot) >= 10000 && !countitem(MaggotCocoon), l("Cute Maggot")),
rif(PDQ_CheckGHQ(ForestMushroom) >= 10000 && !countitem(ForestShroomEgg), l("Forest Mushroom")),
rif(PDQ_CheckGHQ(Fluffy) >= 10000 && !countitem(FluffyEgg), l("Commmon Fluffy")),
rif(PDQ_CheckGHQ(Duck) >= 10000 && !countitem(DuckEgg), l("Duck")),
rif(PDQ_CheckGHQ(Bat) >= 10000 && !countitem(BatEgg), l("Bat")),
rif(PDQ_CheckGHQ(Moggun) >= 10000 && !countitem(MoggunEgg), l("Moggun")),
rif(PDQ_CheckGHQ(GreenDragon) >= 10000 && !countitem(DragonHorn), l("Green Dragon")),
rif(PDQ_CheckGHQ(Snake) >= 10000 && !countitem(TamedSnakeEgg), l("Tamed Snake")),
rif(#LOGIN_ALLTIME >= 6 && !countitem(PiouEgg), l("Piou")),
l("Nothing at the moment.");
mes "";
switch (@menu) {
case 1:
if (PDQ_InnerSwitch(Maggot, MaggotSlime, 35))
.stock-=1;
break;
case 2:
if (PDQ_InnerSwitch(ForestMushroom, MushroomSpores, 30))
.stock-=1;
break;
case 3:
if (PDQ_InnerSwitch(Fluffy, WhiteFur, 80))
.stock-=1;
break;
case 4:
if (PDQ_InnerSwitch(Duck, CommonCarp, 4))
.stock-=1;
break;
case 5:
if (PDQ_InnerSwitch(Bat, BatWing, 80))
.stock-=1;
break;
case 6:
if (PDQ_InnerSwitch(Moggun, WhiteFur, 120))
.stock-=1;
break;
case 7:
if (PDQ_InnerSwitch(GreenDragon, DragonScales, 65))
.stock-=1;
break;
case 8:
if (PDQ_InnerSwitch(Snake, SnakeTongue, 17))
.stock-=1;
break;
case 9:
if (PDQ_InnerSwitch(Piou, PiouFeathers, 80))
.stock-=1;
break;
default:
closedialog;
goodbye;
close;
}
next;
goto L_Menu;
L_OutOfStock:
mesn l("Ace Ventura");
mesq l("Sorry, I don't have any pets at the moment.");
close;
OnInit:
.sex=G_MALE;
.distance=5;
.stock=1;
end;
OnSun0000:
OnWed1200:
.stock+=2;
end;
}
|
