Created: 04/02/2024, 01:54:37 AM Updated: 04/05/2024, 01:17:58 AM View Change History
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18@setvar UseMagicalHat 1
19@setvar ShowWelcomeMessage 0
20@setvar DelayBeforeListClear 3000
21
22if ShowWelcomeMessage = 1
23 overhead 'Pilfer Helper Active'
24 overhead 'Enter War Mode to reset your list of pilfered targets.'
25endif
26
27if UseMagicalHat = 1 and hidden
28 if findlayer self head as hat
29 @setvar 'MainHat' hat
30 endif
31
32 if findtype 5912 backpack as hat
33 getlabel hat desc
34 if "magical" in desc
35 @setvar 'WizHat' hat
36 else
37 overhead 'I need a magical hat.'
38 stop
39 endif
40 else
41 overhead 'I need a magical hat.'
42 stop
43 endif
44endif
45
46if not timerexists 'PilferTimer'
47 createtimer 'PilferTimer'
48endif
49
50while not dead
51 while warmode
52 if not timerexists 'ListClearTimer'
53 createtimer 'ListClearTimer'
54 overhead 'Starting pilfer list clear. Leave warmode to abort'
55 endif
56
57 if timer 'ListClearTimer' > DelayBeforeListClear
58 removelist myLatestTargetList
59 removetimer 'ListClearTimer'
60 overhead 'Cleared pilfer list'
61 warmode off
62 break
63 endif
64
65 pause 500
66 endwhile
67
68 if timerexists 'ListClearTimer'
69 removetimer 'ListClearTimer'
70 overhead 'List clear aborted.'
71 endif
72
73 if UseMagicalHat = 1 and hidden
74 if stam = maxstam
75 dclick 'WizHat'
76 pause 650
77 dclick 'MainHat'
78 pause 200
79 endif
80 endif
81
82 if not listexists 'myLatestTargetList'
83 createlist myLatestTargetList
84 endif
85
86 if insysmsg 'You steal'
87 @setvar! myTarget lasttarget
88 pushlist myLatestTargetList myTarget
89 endif
90
91 if insysmsg 'You have already stolen from'
92 @setvar! myTarget lasttarget
93 pushlist myLatestTargetList myTarget
94 endif
95
96 if timer 'PilferTimer' > 3500
97 foreach personInList in myLatestTargetList
98 if find personInList ground -1 -1 18
99 overhead "Pilfered" 88 personInList
100 endif
101 endfor
102 settimer 'PilferTimer' 0
103 endif
104
105 pause 100
106
107endwhile