1. ;Skrypt bY SabiK
2. ;zatruwanie.txt
3. ;Wersja 1.8
4. ;Po wskazaniu pojemnika z przedmiotami, skrypt zatruwa/odtruwa kazdy przedmiot
5. ;Po zatruciu/odtruciu wszystkich przedmiotow skrypt sie wylacza i wyswietla komunikat
6. ;Jest mozliwosc ciaglego trucia/odtruwania jednego przedmiotu
7.  
8. ;U W A G A !!! USTAW PONIZSZE ZMIENNE PRZED WLACZENIEM SKRYPTU !!!
9. set %trucie 1  ;Tu ustaw czy skrypt ma truc czy odtruwac [1 - trucie, 2 - odtruwanie]
10. set %liczba 0  ;Tu ustaw czy maja byc trute/odtruwanie wszystkie przedmioty czy tylko jeden nonstop [1 - wszystkie, 0 - jeden]
11. ;-------------------------------------------------------------------------------------
12. set #sysmsgcol 63
13. event sysmessage Skrypt [zatruwanie] odpalony (bY SabiK)
14. wait 1
15.  
16. if ( %trucie <> 1 && %trucie <> 2 ) || ( %liczba <> 0 && %liczba <> 1 )
17.    gosub wylacz zle_wybrano
18. if %liczba = 0
19.    gosub jeden_przedmiot
20. if %liczba = 1
21.    gosub pojemnik
22.  
23. start:
24.  
25. event macro 1 0 .um zatruwanie
26. set %licz #scnt2 + 20
27. repeat
28. onhotkey esc
29.    gosub wylacz esc
30. if anulowano in #sysmsg
31.    gosub wylacz anulowano
32. if %licz < #scnt2
33.    goto start
34. until #targcurs = 1
35. if %trucie = 1
36. {
37.    finditem avf C
38.    if #findkind = -1
39.       gosub wylacz nie_ma_truty
40.    set #ltargetid #findid
41.    event macro 22
42. }
43. else
44. {
45.    finditem nuf C
46.    if #findkind = -1
47.       gosub wylacz nie_ma_odtruty
48.    set #ltargetid #findid
49.    event macro 22
50. }
51. set %licz #scnt2 + 20
52. repeat
53. onhotkey esc
54.    gosub wylacz esc
55. if anulowano in #sysmsg
56.    gosub wylacz anulowano
57. if %licz < #scnt2
58.    goto start
59. until #targcurs = 1
60. if %liczba = 1
61. {
62.    finditem * C_ , %pojemnik
63.    if #findkind = -1
64.       gosub wylacz zatruto_wszystko
65.    set #ltargetid #findid
66.    set %item #ltargetid
67.    event macro 22
68. }
69. else
70. {
71.    finditem %przedmiot
72.    if #findkind = -1
73.       gosub wylacz nie_znaleziono_przedmiotu
74.    set #ltargetid %przedmiot
75.    lt:
76.    event macro 22
77. }
78. set %licz #scnt2 + 90
79. repeat
80. scanjournal 1
81. if Nie_zatrujesz_tego in #journal || Nie_ochronisz_tego in #journal
82.    goto nie_zatrujesz
83. if nie_udalo_ci_sie in #journal
84.    goto start
85. if #journal = udalo_ci_sie.
86. {
87.    if %liczba = 1
88.       ignoreitem %item
89.    goto start
90. }
91. until %licz <= #scnt2
92. if #targcurs = 1
93.    goto lt
94. goto start
95.  
96. nie_zatrujesz:
97. set #sysmsgcol 1080
98. if %liczba = 0
99. {
100.    if %trucie = 1
101.    event sysmessage Nie da sie zatruc tego przedmiotu! Skrypt wylaczono.
102.    else
103.    event sysmessage Nie da sie ochronic tego przedmiotu! Skrypt wylaczono.
104.    halt
105. }
106. else
107. {
108.    if %trucie = 1
109.    event sysmessage Nie da sie zatruc tego przedmiotu! Przedmiot ignorowano.
110.    else
111.    event sysmessage Nie da sie ochronic tego przedmiotu! Przedmiot ignorowano.
112.    ignoreitem #ltargetid
113. }
114. goto start
115.  
116. ;///////// SUBS ///////////
117. sub jeden_przedmiot
118. jeden_przedmiot:
119. set #targcurs 1
120. set #sysmsgcol 63
121. if %trucie = 1
122. event sysmessage Wskaz przedmiot, ktory chcesz truc.
123. else
124. event sysmessage Wskaz przedmiot, ktory chcesz ochronic.
125. set %licz #scnt2 + 100
126. repeat
127. onhotkey esc
128.    gosub wylacz esc
129. if anulowano in #sysmsg
130.    gosub wylacz anulowano
131. if %licz < #scnt2
132.    goto jeden_przedmiot
133. until #targcurs = 0
134. if #ltargetid = n/a
135. {
136.    set #sysmsgcol 1080
137.    event sysmessage Zle wskazano przedmiot!
138.    goto jeden_przedmiot
139. }
140. set %przedmiot #ltargetid
141. return
142.  
143. sub pojemnik
144. pojemnik:
145. set #targcurs 1
146. set #sysmsgcol 63
147. if %trucie = 1
148. event sysmessage Wskaz pojemnik, w ktorym znajduja sie przedmioty do trucia.
149. else
150. event sysmessage Wskaz pojemnik, w ktorym znajduja sie przedmioty do odtruwania.
151. set %licz #scnt2 + 100
152. repeat
153. onhotkey esc
154.    gosub wylacz esc
155. if anulowano in #sysmsg
156.    gosub wylacz anulowano
157. if %licz < #scnt2
158.    goto pojemnik
159. until #targcurs = 0
160. if #ltargetid = n/a
161. {
162.    set #sysmsgcol 1080
163.    event sysmessage Zle wskazano pojemnik!
164.    goto pojemnik
165. }
166. set %pojemnik #ltargetid
167. return
168.  
169. sub wylacz
170. set #sysmsgcol 1080
171. if #targcurs = 1
172.    key esc
173. if %1 = esc
174.    event sysmessage Wcisnieto Esc! Skrypt wylaczono.
175. if %1 = anulowano
176.    event sysmessage Anulowano! Skrypt wylaczono.
177. if %1 = zle_wybrano
178.    event sysmessage Zle ustawienie zmiennych! Skrypt wylaczono.
179. if %1 = nie_ma_truty
180.    event sysmessage Nie znaleziono trutki! Skrypt wylaczono.
181. if %1 = nie_ma_odtruty
182.    event sysmessage Nie znaleziono odtrutki! Skrypt wylaczono.
183. if %1 = nie_znaleziono_przedmiotu
184. {
185.    if %trucie = 1
186.    event sysmessage Nie znalezniono przedmiotu do trucia! Skrypt wylaczono.
187.    else
188.    event sysmessage Nie znalezniono przedmiotu do ochrony! Skrypt wylaczono.
189. }
190. set #sysmsgcol 63
191. if %1 = zatruto_wszystko
192. {
193.    if %trucie = 1
194.    event sysmessage Zatruto wszystkie przedmioty! Skrypt wylaczono.
195.    else
196.    event sysmessage Ochroniono wszystkie przedmioty! Skrypt wylaczono.
197. }
198. halt
199.