Drop gold on pet and deposit near safe by special_sy

Related: Snippet

Description: Drop gold on your storage pet to go a bit longer!

1# Script by [DoS] Chumber
2# Dump your gold on your storage pets to go a little bit longer
3# Deposit the gold from pets if you are near a safe
4# Edit the CONFIG section to set your pets
5# You always need one entry in each list
6# pushlist goldAmounts <amount of gold the pet can carry>
7# pushlist goldPets <the pet serial from >info>
8# If you got more than one pet you just add another entry in both lists
9# Update goldToStart to the sum of all goldAmounts
10
11if not listexists goldAmounts
12    createlist goldAmounts
13endif
14if not listexists 'goldPets'
15    createlist goldPets
16endif
17clearlist goldAmounts
18clearlist goldPets
19
20# --- CONFIG START ---
21@setvar goldToStart 2000
22pushlist goldAmounts 500
23pushlist goldPets 0x57DB0A
24
25pushlist goldAmounts 500
26pushlist goldPets 0xD2BC9
27# --- CONFIG END -----
28if findtype 'bank deposit safe' 'ground' -1 -1 2 as safe
29    overhead "Found a save, depositing from pets!"
30    foreach goldPet in goldPets
31        getlabel goldPet petLabel
32        dclick goldPet
33        wait 200
34        if findtype 'gold coin' goldPet as gold
35            getlabel gold goldLabel
36            overhead "Depositing {{goldLabel}} from {{petLabel}}"
37            lift gold 1000
38            wait 250
39            drop safe
40            wait 250
41        else
42            overhead "No gold in {{petLabel}}"
43        endif
44     endfor
45     overhead "All done!"
46     stop
47endif
48
49if counttype 'gold coin' 'backpack' < goldToStart
50    overhead "Du bist noch zu arm!"
51    stop
52endif
53overhead '$$$'
54
55foreach goldAmount in goldAmounts
56    if poplist goldPets 'front' as goldPet
57        if find goldPet 'ground' -1 -1 2 as currentPet and findtype 'gold coin' backpack as gold
58            getlabel currentPet label
59            overhead 'Dropping {{goldAmount}} on {{label}}'
60            lift gold goldAmount
61            wait 250
62            drop goldPet -1 -1
63            wait 250
64        else
65            overhead "Pet isnt close enough or not present, please check!"
66        endif
67    endif
68endfor
69
70overhead 'Done!'