Lazy Gardener by singsingfan
Description: For all you lazy gardeners out there who have been bugging Jaseowns for this. Here you go!
Have a water source like a fountain/water tile near you to refill your watering can.
Noticeable bugs:
If your script stops working while running, click the OKAY in your gardening gump. Its usually waiting for target and bugs out due to lag.
***IMPORTANT: Like Subscribe and Follow Jaseowns on youtube/twitch to remind him how good of a scripter I am whenever he is online.***
Functions of script are as follows:
1)find all the huge clay pots around you (only 1 type detected, cause I'm lazy and dont wanna add the whole range)
put water purifier/fertilizer/heat grill/growth serum (Only store bought ones, and I've included the player made serums. I don't do player made stuff cause I'm cheap and lazy to edit the code to include those)
2)harvest/plant seeds u have in your backpack
3)optimize soil and water
4)remove red debuffs,
5)Toil and Labour **New additional
***IMPORTANT: Like Subscribe and Follow Jaseowns on youtube/twitch to remind him how good of a scripter I am whenever he is online.***
1 #Buffs
2 gumpresponse 2 3224608375
3 wait 450
4 gumpresponse 2 3224608375
5 wait 450
6clearlist "GardeningPots"
7if not listexists "GardeningPots"
8 createlist "GardeningPots"
9endif
10
11clearignore
12
13while findtype "planter" ground 0 0 2 as fc
14 overhead "trough Found"
15 wait 450
16 pushlist "GardeningPots" fc
17 @ignore fc
18endwhile
19
20while findtype "trough" ground 0 0 2 as fc
21 overhead "trough Found"
22 wait 450
23 pushlist "GardeningPots" fc
24 @ignore fc
25endwhile
26
27while findtype "flower pot" ground 0 0 2 as fc
28 overhead "flower pot Found"
29 wait 450
30 pushlist "GardeningPots" fc
31 @ignore fc
32endwhile
33
34overhead "Done"
35
36foreach "trough|planter|flower pot" in "GardeningPots"
37 getlabel "trough|flower pot|planter" potLabel
38 overhead potLabel
39 dclick "trough|planter|flower pot"
40 wait 350
41
42if "grown" in potLabel
43 //gardeningstuff
44 gumpresponse 2
45 wait 450
46
47 overhead "Gardening"
48 if findtype 20502 backpack as soluGard
49 overhead "Applying Superior purified water solution"
50 gumpresponse 2 3224608375
51 wft
52 target soluGard
53 wait 450
54 elseif findtype 20501 backpack as soluGard
55 overhead "Applying purified water solution"
56 gumpresponse 2 3224608375
57 wft
58 target soluGard
59 wait 450
60 endif
61
62 if findtype 20499 backpack as growthGard
63 overhead "Applying Superior Growth Serum"
64 gumpresponse 2 3224608375
65 wft
66 target growthGard
67 wait 450
68 elseif findtype 20498 backpack as growthGard
69 overhead "Applying Growth Serum"
70 gumpresponse 2 3224608375
71 wft
72 target growthGard
73 wait 450
74 endif
75
76 if findtype 11942 backpack as heatGard
77 overhead "Applying Superior Heat Filter"
78 gumpresponse 2 3224608375
79 wft
80 target heatGard
81 wait 450
82 elseif findtype 28741 backpack as heatGard
83 overhead "Applying Heat Filter"
84 gumpresponse 2 3224608375
85 wft
86 target heatGard
87 wait 450
88 endif
89
90 if findtype 19403 backpack as fertilizerGard
91 overhead "Applying Superior Fertilizer"
92 gumpresponse 2 3224608375
93 wft
94 target fertilizerGard
95 wait 450
96 elseif findtype 4154 backpack as fertilizerGard
97 overhead "Applying Fertilizer"
98 gumpresponse 2 3224608375
99 wft
100 target fertilizerGard
101 wait 450
102 endif
103
104 #Water
105 gumpresponse 4 3224608375
106 wait 450
107 gumpresponse 2 3224608375
108 wft
109 if findtype "watering can" backpack as wCan
110 target wCan
111 wait 450
112 gumpresponse 2 3929333591
113 wait 450
114 dclick wCan
115 wait 450
116 endif
117 gumpclose 3929333591
118
119 #Soil
120 gumpresponse 5 3224608375
121 wait 450
122 gumpresponse 2 3224608375
123 wft
124 if findtype "dirt patch" backpack as dPatch
125 target dPatch
126 wait 450
127 gumpresponse 2 4024474571
128 wait 450
129 endif
130 gumpclose 4024474571
131 wait 450
132 clearsysmsg
133 gumpresponse 10 3224608375
134 wait 450
135
136 while insysmsg "Reduces"
137 overhead "Debuff Detected"
138
139 wait 450
140 gumpresponse 10 3224608375
141 wait 450
142 if insysmsg "Increases"
143 break
144
145 elseif insysmsg "Creature Effect"
146 overhead "Creature Effect"
147 if findtype 29343 backpack as solution
148 gumpresponse 2 3224608375
149 wft
150 target solution
151 wait 450
152 endif
153 elseif insysmsg "Pestilent effect"
154 overhead "Pestilent Effect"
155 if findtype 6187 backpack as solution
156 gumpresponse 2 3224608375
157 wft
158 target solution
159 wait 450
160 endif
161 elseif insysmsg "Fungal effect"
162 overhead "Fungal Effect"
163 if findtype 6193 backpack as solution
164 gumpresponse 2 3224608375
165 wft
166 target solution
167 wait 450
168 endif
169
170
171 endif
172 gumpresponse 10 3224608375
173 wait 450
174 endwhile
175
176 if insysmsg "The world will save in 15 seconds"
177 while not insysmsg "World ssave complete"
178 wait 550
179 endwhile
180 clearsysmsg
181 endif
182
183elseif "harvest" in potLabel
184
185 overhead "Harvesting"
186 gumpresponse 2 3224608375
187 wait 450
188 gumpresponse 2 3224608375
189 wait 450
190 overhead "planting"
191 #plant seeds
192 while not targetexists
193 gumpresponse 2 3224608375
194 wait 450
195 endwhile
196
197 if findtype "dungeon seed" backpack as seedtype
198 target seedtype
199 elseif findtype "bag of seeds" backpack as seedtype
200 target seedtype
201 elseif findtype "seed of renewal" backpack as seedtype
202 target seedtype
203 endif
204
205 wait 450
206 #Buffs
207 overhead "Gardening"
208 if findtype 20502 backpack as soluGard
209 overhead "Applying Superior purified water solution"
210 gumpresponse 2 3224608375
211 wft
212 target soluGard
213 wait 450
214 elseif findtype 20501 backpack as soluGard
215 overhead "Applying purified water solution"
216 gumpresponse 2 3224608375
217 wft
218 target soluGard
219 wait 450
220 endif
221
222 if findtype 20499 backpack as growthGard
223 overhead "Applying Superior Growth Serum"
224 gumpresponse 2 3224608375
225 wft
226 target growthGard
227 wait 450
228 elseif findtype 20498 backpack as growthGard
229 overhead "Applying Growth Serum"
230 gumpresponse 2 3224608375
231 wft
232 target growthGard
233 wait 450
234 endif
235
236 if findtype 11942 backpack as heatGard
237 overhead "Applying Superior Heat Filter"
238 gumpresponse 2 3224608375
239 wft
240 target heatGard
241 wait 450
242 elseif findtype 28741 backpack as heatGard
243 overhead "Applying Heat Filter"
244 gumpresponse 2 3224608375
245 wft
246 target heatGard
247 wait 450
248 endif
249
250 if findtype 19403 backpack as fertilizerGard
251 overhead "Applying Superior Fertilizer"
252 gumpresponse 2 3224608375
253 wft
254 target fertilizerGard
255 wait 450
256 elseif findtype 4154 backpack as fertilizerGard
257 overhead "Applying Fertilizer"
258 gumpresponse 2 3224608375
259 wft
260 target fertilizerGard
261 wait 450
262 endif
263
264 #Water
265 gumpresponse 4 3224608375
266 wait 450
267 gumpresponse 2 3224608375
268 wft
269 if findtype "watering can" backpack as wCan
270 target wCan
271 wait 450
272 gumpresponse 2 3929333591
273 wait 450
274 dclick wCan
275 wait 450
276 endif
277 gumpclose 3929333591
278
279 #Soil
280 gumpresponse 5 3224608375
281 wait 450
282 gumpresponse 2 3224608375
283 wft
284 if findtype "dirt patch" backpack as dPatch
285 target dPatch
286 wait 450
287 gumpresponse 2 4024474571
288 wait 450
289 endif
290 gumpclose 4024474571
291 else
292 overhead "Incorrect plant label detected"
293 wait 450
294 overhead "planting"
295 #plant seeds
296 gumpresponse 2 3224608375
297 wait 450
298 gumpresponse 2 3224608375
299 wait 450
300
301
302 if findtype "dungeon seed" backpack as seedtype
303 target seedtype
304 elseif findtype "bag of seeds" backpack as seedtype
305 target seedtype
306 elseif findtype "seed of renewal" backpack as seedtype
307 target seedtype
308 endif
309
310 wait 450
311 #Buffs
312 overhead "Gardening"
313 if findtype 20501 backpack as soluGard
314 overhead "Applying purified water solution"
315 gumpresponse 2 3224608375
316 wft
317 target soluGard
318 wait 450
319 endif
320
321 if findtype 20499 backpack as growthGard
322 overhead "Applying Growth Serum"
323 gumpresponse 2 3224608375
324 wft
325 target growthGard
326 wait 450
327 elseif findtype 20498 backpack as growthGard
328 overhead "Applying Growth Serum"
329 gumpresponse 2 3224608375
330 wft
331 target growthGard
332 wait 450
333 endif
334
335 if findtype 28741 backpack as heatGard
336 overhead "Applying Heat Filter"
337 gumpresponse 2 3224608375
338 wft
339 target heatGard
340 wait 450
341 endif
342
343 if findtype 4154 backpack as fertilizerGard
344 overhead "Applying Fertilizer"
345 gumpresponse 2 3224608375
346 wft
347 target fertilizerGard
348 wait 450
349 endif
350
351 #Water
352 gumpresponse 4 3224608375
353 wait 450
354 gumpresponse 2 3224608375
355 wft
356 if findtype "watering can" backpack as wCan
357 target wCan
358 wait 450
359 gumpresponse 2 3929333591
360 wait 450
361 dclick wCan
362 wait 450
363 endif
364 gumpclose 3929333591
365
366 #Soil
367 gumpresponse 5 3224608375
368 wait 450
369 gumpresponse 2 3224608375
370 wft
371 if findtype "dirt patch" backpack as dPatch
372 target dPatch
373 wait 450
374 gumpresponse 2 4024474571
375 wait 450
376 endif
377
378clearsysmsg
379gumpresponse 10 3224608375
380wait 450
381
382while insysmsg "Reduces"
383 overhead "Debuff Detected"
384
385 wait 450
386 gumpresponse 10 3224608375
387 wait 450
388 if insysmsg "Increases"
389 break
390
391 elseif insysmsg "Creature Effect"
392 overhead "Creature Effect"
393 if findtype 29343 backpack as solution
394 gumpresponse 2 3224608375
395 wft
396 target solution
397 wait 450
398 endif
399 elseif insysmsg "Pestilent effect"
400 overhead "Pestilent Effect"
401 if findtype 6187 backpack as solution
402 gumpresponse 2 3224608375
403 wft
404 target solution
405 wait 450
406 endif
407 elseif insysmsg "Fungal effect"
408 overhead "Fungal Effect"
409 if findtype 6193 backpack as solution
410 gumpresponse 2 3224608375
411 wft
412 target solution
413 wait 450
414 endif
415
416 endif
417gumpresponse 10 3224608375
418wait 450
419endwhile
420
421endif
422
423#Labor and Toil
424if findtype "spade" backpack as toolGard
425 gumpresponse 2 3224608375
426 wft
427 target toolGard
428 wait 450
429 gumpresponse 6 1429840072
430 wait 450
431endif
432 if insysmsg "The world will save in 15 seconds"
433 while not insysmsg "World save complete"
434 wait 550
435 endwhile
436 clearsysmsg
437 endif
438endfor