Ultimate archer summoner auto script by botanic
Related: Snippet summoner archer potion
Description: Will auto summon your summons, drink potions, drink cure potions, run an escape script when there is a red, auto skin, and all the things.
NOTE: currently requires a weapon and shield to be equiped on first run, if you dont have a shield remove 136-142
1//By Botanic of SQzD
2
3@setvar! heal_pot_hp_trigger 99
4@setvar! weapon_equipped 0
5@setvar! sheild_equipped 0
6@setvar! earthele 1
7@setvar! fireele 1
8
9clearignore
10if findlayer self righthand as found
11 @setvar! weapon_equipped found
12endif
13
14if findlayer self lefthand as found
15 @setvar! sheild_equipped found
16endif
17
18while not dead
19
20 if poisoned
21 if findtype "Orange Potion" as Pots
22 getlabel Pots PznPots
23 if 'next usable' in PznPots
24 sysmsg 'Unable to use Heal Potion Yet!' 33
25 wait 100
26 else
27 if findlayer self lefthand as found
28 @setvar! sheild_equipped found
29 lift sheild_equipped
30 drop backpack
31 wait 500
32 endif
33 dclick Pots
34 wait 500
35 if sheild_equipped != 0
36 dclick sheild_equipped
37 endif
38 if weapon_equipped != 0
39 dclick weapon_equipped
40 endif
41 endif
42 endif
43 endif
44 if hp < heal_pot_hp_trigger
45 if findtype "Yellow Potion" backpack as PotsHeal
46 getlabel PotsHeal LabelPotsHeal
47 if 'next usable' in LabelPotsHeal
48 sysmsg 'Unable to use Heal Potion Yet!' 33
49 wait 100
50 else
51 if findlayer self lefthand as found
52 @setvar! sheild_equipped found
53 wait 10
54 lift sheild_equipped
55 drop backpack
56 wait 500
57 endif
58 dclick PotsHeal
59 wait 500
60 if sheild_equipped != 0
61 lift sheild_equipped
62 drop 'self' InnerTorso
63 endif
64 endif
65 endif
66 endif
67
68 if findtype "Elven Spellblade" backpack
69 if findtype "corpse" ground -1 -1 2 as rip
70 overhead "Skinning"
71 dclicktype "Elven Spellblade" backpack
72 wait 500
73 target 'self'
74 wait 2000
75 if not insysmsg 'You must wait'
76 while findtype "corpse" ground -1 -1 2 as rip2
77 @ignore! rip2
78 endwhile
79 skill 'spiritspeak'
80 wait 500
81 endif
82 endif
83 else
84 overhead 'No Skinning Knife!' 34
85 wait 2000
86 endif
87
88 if followers = 4 and mana >= 14
89
90 cast 'Summ. Creature'
91 wait 3250
92
93 endif
94 if followers == 2 or followers == 0 or followers == 3 or followers == 1 and mana >= 50 as 'foo'
95
96
97 if findtype "rockytheele" ground any any 10
98 if fireele == 1
99 hotkey "fire Elemental"
100 wait 6000
101 if findtype "a fire elemental" ground -1 -1 10 as myPet
102 rename myPet "firetheele"
103 endif
104 else
105 hotkey "air Elemental"
106 wait 6000
107 if findtype "an air elemental" ground -1 -1 10 as myPet
108 rename myPet "firetheele"
109 endif
110 endif
111 else
112 if earthele == 1
113 hotkey "earth Elemental"
114 wait 3000
115 if findtype "an earth elemental" ground -1 -1 10 as myPet
116 rename myPet "rockytheele"
117 endif
118 else
119 hotkey "water Elemental"
120 wait 3000
121 if findtype "a water elemental" ground -1 -1 10 as myPet
122 rename myPet "rockytheele"
123 endif
124 endif
125
126 endif
127
128 endif
129
130 if findlayer self righthand as found
131
132 else
133 wait 500
134 lift weapon_equipped
135 drop 'self' InnerTorso
136 endif
137
138 if findlayer self lefthand as found
139
140 else
141 wait 500
142 lift sheild_equipped
143 drop 'self' InnerTorso
144 endif
145
146 //stop if enemy
147 hotkey 'Next Criminal Player Target'
148 if noto lasttarget = criminal and not self
149 overhead "REDS!" 555
150 break
151 endif
152 hotkey 'Next Enemy Player Target'
153 if noto lasttarget = enemy and not self
154 overhead "REDS!" 555
155 break
156 endif
157 hotkey 'Next Murderer Player Target'
158 if noto lasttarget = murderer and not self
159 overhead "REDS!" 555
160 break
161 endif
162
163 if diffweight < 0
164 overhead 'Overweight'
165 #Bless
166 if skill 'Magery' > 50 and not findbuff 'Strength'
167 overhead 'Bless time'
168 cast 'Bless'
169 wft 2500
170 target self
171 wait 500
172 endif
173 endif
174
175endwhile
176
177removelist recallScriptList
178createlist recallScriptList
179
180while not dead
181 hotkey 'Cancel Current Target'
182 overhead "REDS! Healing Only!"
183 if hp < maxhp
184 if findtype "Yellow Potion" backpack as PotsHeal
185 getlabel PotsHeal LabelPotsHeal
186 if 'next usable' in LabelPotsHeal
187 sysmsg 'Unable to use Heal Potion Yet!' 33
188 wait 100
189 else
190 if findlayer self lefthand as found
191 @setvar! sheild_equipped found
192 lift sheild_equipped
193 drop backpack
194 wait 500
195 endif
196 dclick PotsHeal
197 wait 500
198 if sheild_equipped != 0
199 dclick sheild_equipped
200 endif
201 endif
202 endif
203 endif
204
205
206 #############
207 # Player gates, chiv gate
208 #############
209 while not gumpexists 3899019871 and findtype "blue moongate" ground 0 1 2 as jGate
210 dclick jGate
211 endwhile
212
213 if gumpexists 3899019871 and findtype "blue moongate" ground 0 1 2 as jGate
214 gumpresponse 2 3899019871
215 stop
216 endif
217
218 #############
219 # Town/Dungeon Moongates - yellow, red, death, blue
220 #############
221 while not gumpexists 3773199800 and findtype "blue moongate" ground -1 1 2 as jGate
222 dclick jGate
223 endwhile
224
225 if gumpexists 3773199800 and findtype "blue moongate" ground -1 1 2 as jGate
226 gumpresponse 2 3773199800
227 wait 200
228 if not dead
229 foreach recallScript in recallScriptList
230 script recallScript
231 endfor
232 endif
233 stop
234 endif
235
236 if findtype "blue moongate" ground -1 1 12 as jGate
237 overhead "Move closer!" 34
238 wait 50
239 replay
240 else
241 overhead "No gate nearby!" 34
242 endif
243endwhile
244
245