Back to "b" tags

Bless and Protection Bot by Jaseowns

1# Bless and Protection Bot by Jaseowns
2# UO Outlands
3# Requirements:
4#   You need a trigger... we used a shimmer lantern
5#   >info on your trigger and set the body id and hue 
6#   to each of these variables
7@setvar! jaseLanternOnId 2594
8@setvar! jaseLanternOnHue 2664
9
10# Time between blessing the same character again (if in range)
11@setvar! cdClearBlessedPlayers 60000
12
13####################
14## No need to edit beyond this 
15#########
16
17if not timerexists skillTimer
18    settimer skillTimer 2000
19endif
20
21if not timerexists clearBlessedPlayersTimer
22    settimer clearBlessedPlayersTimer cdClearBlessedPlayers
23endif
24
25if not listexists blessedPlayers
26    createlist blessedPlayers
27endif
28
29if timer clearBlessedPlayersTimer >= cdClearBlessedPlayers
30    clearlist blessedPlayers
31    settimer clearBlessedPlayersTimer 0
32endif
33
34if findtype jaseLanternOnId ground jaseLanternOnHue -1 2 as jantern
35    if mana < 30
36        while mana < maxmana
37            if not findbuff "Actively Meditating"
38                useskill "meditation"
39            endif
40            wait 200
41        endwhile
42    endif
43
44    if timer skillTimer >= 2000
45        overhead "Targeting new player" 88
46        hotkey "Next Player Target"
47        wait 200
48        @setvar! sometarget lasttarget 
49        
50        if inlist blessedPlayers sometarget 
51            // skippem
52            say "You have been blessed bro" 88
53        else
54            useskill "evalint"
55            wft 500
56            target sometarget
57            settimer skillTimer 0
58            wait 200
59            if insysmsg "That is too far away."
60                overhead "Too far away bro" 34
61                replay
62            elseif insysmsg "Target cannot be seen."
63                overhead "Cannot be seen bro" 29
64                replay
65            endif
66            while not targetexists 
67                cast "Bless"
68                wft 500
69            endwhile
70            target sometarget
71            wait 200
72            if insysmsg "That is too far away."
73                overhead "Too far away bro" 34
74                replay
75            elseif insysmsg "Target cannot be seen."
76                overhead "Cannot be seen bro" 29
77                replay
78            endif
79            while not targetexists 
80                cast "Arch Protection"
81                wft 500
82            endwhile
83            target sometarget
84            pushlist blessedPlayers sometarget
85            dclick jantern
86            wait 200
87            if findtype "storage shelf" ground -1 -1 2 as jhelf
88                menu jhelf 1
89            endif
90        endif
91    endif
92endif
93
94wait 200
95replay