1. ;=============================
2. ;Vash Healer v. 2.6
3. ;=============================
4. ; >>>>TENETE SEMPRE APERTI STATUS BAR E BACKPACK!!!<<<<
5. ; Da usare con RunUO 2.0 e shard OSI-Style.
6. ; Se le bende finiscono o sono poche ti avverte.
7. ; Ma basta rifornirsi senza dover riavviare lo script.
8. ; Controlla il journal per verificare che le bende siano state correttamente applicate, altrimenti riprova.
9. ; Ottimo calcolo della bendata in base alla dex, secondo le ultime modifiche OSI.
10. ; Mostra una sorta di countdown sulla testa del pg, rappresentante i decimi di secondo mancanti alla fine della bendata.
11. ; Nota importante: per evitare problemi vari, tra cui quello di magie che ti vengono addosso...
12. ; ... lo script non benderŕ se il mirino č target. Quindi se rimane fuori il target, premete ESC per toglierlo..
13. ; ... e lo script tornerŕ a bendare.
14. ; Inoltre č fatto in modo da far finire la bendata un decimo di secondo dopo il mortal, se se ne riceve uno.
15. ; Disattivare il target queue di razor per evitare di bendare i nemici.
16.  
17. ;SETUP
18. ;===========
19. ;set %counter 1 per usare il contatore in decimi di secondo, set %counter 0 per non usarlo
20. set %counter 1
21.  
22. ;SPECIAL CURE
23. ;=============
24. ;E' anche possibile far funzionare lo script in modo che beva una pozione contro il veleno poco prima che finisca la bendata,
25. ;in modo che sia impossibile farla fallire.
26. ;Basta impostare su F11 una macro di Razor che beve la pozione cure (togliendo scudo ovviamente), e settare %cure a 1 anzichč 0.
27. set %cure 0
28. ;Se invece non volete usare automaticamente pozze cure, lasciate %cure a 0.
29. ;Se non vi piace il tasto F11 potete cambiarlo in fondo allo script.
30. ;Ma non mettete combinazioni di tasti come CTRL F11 perchč razor non li intercetta.
31. ;Finisce qui il setup, modificate lo script sottostante solo se sapete scriptare o volete cambiare il tasto per razor.
32.  
33. ;MAIN LOOP
34. ;=========
35. set #lpc 60
36. set %mortal #true
37.  
38. _mainloop:
39. if ( ( ( #hits < ( #maxhits - 5 ) ) || C in #charstatus ) && H notin #charstatus )
40. {
41.      GoSub CheckAids
42.      if #result = #true
43.      {
44.          set #ltargetkind 1
45.          if #targcurs = 1
46.               GoSub WaitCurs
47.          GoSub CheckDex
48.          GoSub Apply
49.          if #result = #false
50.               goto mainloop
51.          GoSub Waitnew
52.          wait 2
53.      }
54. }
55. onhotkey F8 ; il tasto della megaexplo
56. {
57.     event sysmessage Pausa bendata
58.     wait 5s
59. }
60. sleep 10
61. goto _mainloop
62.  
63. ;SUB CHECK AIDS
64. ;==============
65. Sub CheckAids
66. finditem ZLF CA_ , #BACKPACKID
67. if #findstack = 0
68. {
69.      event ExMsg #charID 3 0 No bandages found!
70.      wait 5s
71.      return #false
72. }
73. if #findstack < 10 && #findcnt < 2
74.      event sysmessage Attention, only #findstack aids remaining
75. return #true
76.  
77. ;SUB CHECK DEX
78. ;==============
79. Sub CheckDex
80. set %delay 11 - ( #dex / 20 )
81. set %euowait %delay * 10
82. return
83.  
84. ;SUB APPLY
85. ;=========
86. Sub Apply
87. aidloop:
88. finditem ZLF C_ , #BACKPACKID
89. set #lobjectid #findid
90. set %startscan #jindex
91. event macro 17 0
92. target 15
93. if #targcurs = 0
94.      goto aidloop
95. event macro 23 0
96. GoSub WaitStartMsg 15
97. if #result = #false
98.     goto aidloop
99. if #result = 1
100.     return #false
101. return
102.  
103. ;SUB WAITSTARTMSG
104. ;===============
105. Sub WaitStartMsg
106. set %start #scnt2
107. set %start %start + %1
108. _waitsysmsgloop:
109. for %i %startscan #jindex
110. {
111.      scanjournal %i
112.      if you_begin in #journal
113.      {
114.           set %applystart #scnt2
115.           return #true
116.      }
117.      if that_being in #journal
118.           return 1
119. }
120. if #scnt2 >= %start
121.      return #false
122. set %startscan #jindex
123. wait 1
124. goto _waitsysmsgloop
125.  
126. ;SUB WAITNEW
127. ;============
128. Sub WaitNew
129. set %keypressed 0
130. set %end %euowait + %applystart
131. set %limitcure %end - 20
132. waitloop:
133. if D in #charstatus && %mortal = #false
134. {
135.      set %mortal #true
136.      set %mortend #scnt2 + 64
137.      mortloop:
138.      if ( %euowait + #scnt2 ) > ( %mortend - 4 )
139.           return
140.      goto mortloop
141. }
142. if %counter = 1
143. {
144.      set %remaining ( %end - #scnt2 )
145.      event ExMsg #charID 3 0 %remaining
146. }
147. wait 2
148. if C in #charstatus && %cure = 1
149. {
150.      if #scnt2 > %limitcure && %keypressed = 0
151.      {
152.           key F7 ; cambiatelo se necessario
153.           set %keypressed 1
154.      }
155. }
156. if #SCNT2 >= %end || you_finish_applying in #sysmsg
157. {
158.      if %mortal
159.           set %mortal #false
160.      return
161. }
162. goto waitloop
163.  
164. ;SUB WAITCURS
165. ;=============
166. Sub WaitCurs
167. _cursloop:
168. if #targcurs = 1
169.      goto _cursloop
170. wait 1
171. return
172.