1alias q {
2  query $1
3  unset %kjsjd2
4  set %kjsjd2 $1
5  set -u2 %kjsjd1 on
6  who $1
7}
8on *:active:?:{
9  if (%privadosopen == $query(0)) { halt }
10  set %privadosopen $query(0)
11  unset %kjsjd2
12  set %kjsjd2 $active
13  set -u3 %kjsjd1 on
14  whois $active
15}
16on *:close:?:{
17  unset %privadosopen
18}
19on *:active:#:{
20  set %iwho.x $calc($mouse.dx -195)
21  set %iwho.y $calc($mouse.dy -15)
22  if (%kjsjd1 == on) { halt }
23  if (%hhsdq == on) { halt }
24  if (%hhsdq2 == on) { halt }
25  if (%hhsdq3 == on) { halt }
26  unset %webfotoveo
27  set %webfotoveo2 $chan
28  set -u7 %hhsdq on
29  who %webfotoveo2
30}
31on *:open:?: {
32  unset %kjsjd2
33  set %kjsjd2 $nick
34  set -u4 %kjsjd1 on
35  who $nick
36}
37on *:join:*: {
38  if ($nick == $me) {
39    unset %webfotoveo
40    set %webfotoveo2 $chan
41    set -u7 %hhsdq on
42    who %webfotoveo2
43  }
44}
45raw 311:*: {
46  if (%kjsjd1 == on) {
47    if ($left($6,2) == I3) && ($len($6) >= 55) { 
48      MaeMia images.chateagratis.net $+ $gettok($decode( $+ $6 $+ , m),4-,124) 
49    }
50  }
51}
52on *:load: { if (!$isdir(FotoMaton)) mkdir FotoMaton }
53alias idir return $qt($+($mircdirFotoMaton\,$1))
54alias maemia {
55  if (!$1) return
56  var %u = https:// $+ $remove($1,$chr(32)), %h = $gettok(%u, 2, 47), %p = $gettok(%u, 3-, 47)
57  var %n = $regsubex($gettok($gettok(%p, -1, 47), 1, 63),/[\\/|:?*"<>]/g,_), %dir = $mircdirFotoMaton\
58  var %f = %dir $+ %n $+ .jpg, %f_fix = %dir $+ %n $+ _fix.jpg
59  if (!$isdir(%dir)) mkdir %dir
60  if ($exists(%f_fix)) { .timer $+ $ticks -m 1 50 MaeMia.open $qt(%f_fix) | return }
61  if ($exists(%f)) {
62    bread $qt(%f) 0 100 &h
63    if (RIFF isin $bvar(&h,1,100).text) { .remove $qt(%f) }
64    else { .timer $+ $ticks -m 1 50 MaeMia.open $qt(%f) | return }
65  }
66  if ($sock(mae_ $+ %n $+ *)) return
67  var %id = mae_ $+ %n $+ _ $+ $ticks
68  hadd -m %id f %f | hadd %id h %h | hadd %id p / $+ %p | hadd %id n %n
69  sockopen %id %h 80
70}
71
72on *:sockopen:mae_*: {
73  if ($sockerr) { if ($hget($sockname)) hfree $sockname | return }
74  sockwrite -n $sockname GET $hget($sockname,p) HTTP/1.1
75  sockwrite -n $sockname Host: $hget($sockname,h)
76  sockwrite -n $sockname User-Agent: Mozilla/5.0 | sockwrite -n $sockname Connection: close | sockwrite -n $sockname $crlf
77}
78
79on *:sockread:mae_*: {
80  if (!$sock($sockname).mark) { var %h | sockread %h | if (!%h) sockmark $sockname 1 | return }
81  if ($hget($sockname,f_ok)) return
82  :next | sockread -f &d | if ($sockbr) {
83    var %f = $hget($sockname,f)
84    if (!$fopen($sockname)) .fopen -no $sockname $qt(%f)
85    .fwrite -b $sockname &d
86    if ($file(%f).size < 5000 && !$hget($sockname,db)) {
87      bread $qt(%f) 0 100 &h | hadd $sockname db 1
88      var %x = $bvar(&h,1,100).text
89      if (RIFF isin %x) { hadd $sockname webp 1 }
90      if (GIF89a isin %x) || (ANIM isin %x) { hadd $sockname anim 1 }
91    }
92    goto next
93  }
94}
95
96on *:sockclose:mae_*: { 
97  if ($fopen($sockname)) .fclose $sockname
98  if ($hget($sockname)) {
99    var %f = $hget($sockname,f), %webp = $hget($sockname,webp), %t = $ticks
100    if (!$hget($sockname,f_ok) && %f && $exists(%f)) {
101      if (%webp) {
102        var %f_st = $replace(%f,.jpg,_st.webp), %f_fix = $replace(%f,.jpg,_fix.jpg)
103        .run -h $qt($mircdir $+ webpmux.exe) -get frame 2 $qt(%f) -o $qt(%f_st)
104        .timerCONV_ [ $+ [ %t ] ] -m 1 300 .run -h $qt($mircdir $+ dwebp.exe) $qt(%f_st) -o $qt(%f_fix)
105        .timerPLANB_ [ $+ [ %t ] ] -m 1 400 if (!$exists(%f_fix)) .run -h $qt($mircdir $+ dwebp.exe) $qt(%f) -o $qt(%f_fix)
106        .timerOPEN_ [ $+ [ %t ] ] -m 1 800 scid $cid MaeMia.open $unsafe($qt(%f_fix))
107        .timerREM_ [ $+ [ %t ] ] 1 60 .remove $qt(%f) | .timerREMS_ [ $+ [ %t ] ] 1 60 .remove $qt(%f_st) | .timerREMF_ [ $+ [ %t ] ] 1 60 .remove $qt(%f_fix)
108      }
109      else { .timer -m 1 150 scid $cid MaeMia.open $unsafe($qt(%f)) | .timer 1 60 .remove $qt(%f) }
110    }
111    hfree $sockname
112  }
113}
114
115alias MaeMia.open {
116  var %a = $qt($1-),%b = $calc($pic(%a).width +20),%c = $calc($pic(%a).height +40)
117  if ($window(@FotoMaton)) window -c @FotoMaton
118  if (%hhsdq2 == on) {
119    did -g fotovisorx 1 %a
120    .unset %hhsdq2
121    .set -u3 %hhsdq3 on    
122    halt
123  }
124  if (%hhsdq2x == on) {
125    did -g fotovisorx2 1 %a
126    .unset %hhsdq2x
127    .set -u3 %hhsdq3 on    
128    halt
129  }
130  /background -p %kjsjd2 %a
131}
132
133raw 352:*: {
134  if (%hhsdq == on) && (%hhsdq2 != on) {
135    if ($left($9,2) == I3) && ($len($9) >= 35) {
136      if (default.png isin $remove($replace($gettok($decode( $+ $9 $+ , m),4-,124),medium,large),$chr(32))) { halt }
137      cline 71 %webfotoveo2 $6
138      halt
139    }
140    halt
141  }
142  if (%hhsdq2 == on) && (%hhsdq != on) {
143    if ($left($9,2) == I3) && ($len($9) >= 35) {
144      if (default.png isin $remove($replace($gettok($decode( $+ $9 $+ , m),4-,124),medium,large),$chr(32))) { halt }
145      set %iwho.x $calc($mouse.dx -195)
146      set %iwho.y $calc($mouse.dy -15)
147      dialog $iif($dialog(fotovisorx),-x,-m) fotovisorx fotovisorx
148      Fotovisor 
149      MaeMia images.chateagratis.net $+ $gettok($decode( $+ $9 $+ , m),4-,124)
150      halt
151    }
152  }
153  if (%hhsdq2x == on) {
154    if ($left($9,2) == I3) && ($len($9) >= 35) {
155      if (default.png isin $remove($replace($gettok($decode( $+ $9 $+ , m),4-,124),medium,large),$chr(32))) { halt }
156      MaeMia images.chateagratis.net $+ $gettok($replace($decode( $+ $9 $+ , m),medium,large),4-,124)
157      halt
158    }
159  }
160}
161raw 315:*: {
162  if (%hhsdq == on) || (%hhsdq3 == on) || (%hhsdq2 == on) || (%hhsdq2x == on) {
163    halt
164  } 
165}
166alias midclick {
167  unset %uix.clones
168  set %uix.target $$1
169  unset %uix.chans
170  w $$1
171  check $$1
172  who $$1 n%tuihsnfdlar
173}
174on *:load:{ start.catch.nickselect.timer | if (!$isdir(FotoMaton)) mkdir FotoMaton | .unset %timerfoto }
175on *:unload:{ .timer.catch.nickselect.for. $+ $cid off | .unset %timerfoto }
176on *:connect:{ start.catch.nickselect.timer }
177alias start.catch.nickselect.timer .timer.catch.nickselect.for. $+ $cid -m 0 100 catch.nickselect.timer.alias
178alias -l catch.nickselect.timer.alias {
179  if ($chan($active)) {
180    if (%hhsdq == on) { halt }
181    if ($snick($active,0) == 1) {  
182      if ($($+(%,last.snick.for.,$cid,.,$active),2) != $snick($active,1)) {
183        set -u2 %hhsdq2 on
184        set -u1 %hhsdq off
185        set %iwho.x $calc($mouse.dx -195)
186        set %iwho.y $calc($mouse.dy -15)
187        set %nickdeluservisor $snick($active,1)
188        set %descadenada $active
189        ;;who $snick($active,1)
190        ;;unset %uix.clones
191        ;;set %uix.target $$snick($active,1)
192        ;;unset %uix.chans
193        ;;check $$snick($active,1) 
194        ;;who $$snick($active,1) n%tuihsnfdlar 
195      }
196      set $+(%,last.snick.for.,$cid,.,$active) $snick($active,1)
197    }
198  }
199}
200
201alias Fotovisor {
202  set -u2 %hhsdq2 on
203  set %iwho.x $calc($mouse.dx -195)
204  set %iwho.y $calc($mouse.dy -15)
205  dialog $iif($dialog(fotovisorx),-v,-m) fotovisorx fotovisorx
206  ;;dialog -m fotovisorx fotovisorx
207  dialog -t fotovisorx %nickdeluservisor 
208}
209
210dialog fotovisorx {
211  title "foto"
212  size %iwho.x %iwho.y 50 42
213  option dbu
214  icon 1, 1 1 48 40
215}
216
217on *:dialog:fotovisorx:sclick:1: {
218  dialog -x fotovisorx
219  set %iwho.x2 $calc($mouse.dx -200)
220  set %iwho.y2 $calc($mouse.dy -45)
221  dialog $iif($dialog(fotovisorx2),-x,-m) fotovisorx2 fotovisorx2
222  Fotovisor2 
223}
224
225on *:dialog:fotovisorx:rclick:1: {
226  set %nickdecargafoto %nickdeluservisor
227  var %sancionadorfoto $?!="Quieres Denunciar a %nickdecargafoto por Foto Inadecuada $+ ?"
228  if (%sancionadorfoto) {
229    .msg denuncia denuncio %nickdecargafoto Foto Inadecuada.
230    else {
231      halt
232    }
233  }
234}
235
236on *:dialog:fotovisorx2:rclick:1: {
237  set %nickdecargafoto %nickdeluservisor
238  var %sancionadorfoto $?!="Quieres Denunciar a %nickdecargafoto por Foto Inadecuada $+ ?"
239  if (%sancionadorfoto) {
240    .msg denuncia denuncio %nickdecargafoto Foto Inadecuada.
241    else {
242      halt
243    }
244  }
245}
246
247alias Fotovisor2 {
248  set -u2 %hhsdq2x on
249  set %iwho.x2 $calc($mouse.dx -200)
250  set %iwho.y2 $calc($mouse.dy -150)
251  dialog $iif($dialog(fotovisorx2),-v,-m) fotovisorx2 fotovisorx2
252  dialog -t fotovisorx2 %nickdeluservisor 
253  who %nickdeluservisor
254}
255
256dialog fotovisorx2 {
257  title "foto"
258  size %iwho.x2 %iwho.y2 130 130
259  option dbu
260  icon 1, 1 1 128 128
261}
262
263on *:EXIT: {
264  echo -s * [FotoMaton] Limpiando carpeta de imágenes por cierre...
265  .remove $qt($mircdirFotoMaton\*.jpg)
266  .remove $qt($mircdirFotoMaton\*.webp)
267  .remove $qt($mircdirFotoMaton\*.png)
268  .remove $qt($mircdirFotoMaton\*.gif)
269}
270
271on *:START: {
272  if ($isdir($mircdirFotoMaton\)) {
273    echo -s * [FotoMaton] Vaciando caché de imágenes al iniciar...
274    .remove $qt($mircdirFotoMaton\*.jpg)
275    .remove $qt($mircdirFotoMaton\*.webp)
276    .remove $qt($mircdirFotoMaton\*.png)
277    .remove $qt($mircdirFotoMaton\*.gif)
278  }
279}
280
281
282raw 802:*:{
283  if ($2 == realnuh) {
284    set %uix.rident $deltok($gettok($3,2,33),2,64)
285  }
286  if ($2 == modes) {
287    set %uix.modes $3- 
288  }
289  if ($2 == snomasks) {
290    set %uix.snomasks $3- 
291  }
292  if ($2 == nuh) {
293    set %uix.host $gettok($3,2,64)
294  }
295  if ($2 == onchans) {
296    set %uix.chans $3- 
297  }
298  if ($2 == meta:score) {
299    set %uix.score $3- 
300  }
301  halt
302}
303
304raw 317:*:{
305  set %uix.online $duration($calc($ctime - $4))
306  set %uix.idle $duration($3)
307  set %uix-on $asctime($4,dddd dd/mm/yyyy HH:nn:ss)
308}
309
310raw 354:*:{
311  if ($3 == $null) {
312    var %n = $2
313
314    if (%n) && (%n != %uix.nick) {
315      if (!$istok(%uix.clones.list,%n,44)) {
316        set %uix.clones.list %uix.clones.list $+ %n $+ ,
317      }
318      halt
319    }
320    halt
321  }
322  noop $1
323  if ($7 == %uix.target) {
324    set %uix.ident $3
325    set %uix.ip $4
326    set %uix.host $5
327    set %uix.server $6
328    set %uix.nick $7
329    set %uix.flags $8
330    set %uix.salto $9
331    set %uix.tidle $10
332    set %uix.account $11
333    set %uix.name $12-
334    UIX.parseFlags
335    unset %uix.clones.list
336    unset %uix.clones.text
337    set %uix.getclones 1
338    who %uix.ip i%n
339    .timeruixuix -m 1 500 UIX.fromWHO %uix.name
340    halt
341    return
342  }
343  halt
344}
345raw 315:*:{
346  if (%uix.getclones) {
347    unset %uix.getclones
348    var %i = 1
349    var %total = $numtok(%uix.clones.list,44)
350    var %txt
351    if (%total > 0) {
352      var %txt = Nick usados: $+ $crlf
353      while (%i <= %total) {
354        var %n = $gettok(%uix.clones.list,%i,44)
355        if (%n != %uix.nick) {
356          var %txt = %txt $+ %n $+ $crlf
357        }
358        inc %i
359      }
360    }
361    set %uix.clones.text %txt
362    if ($dialog(uix_img)) UIX.refresh
363    if ($dialog(uix_txt)) UIX.refreshTXT
364    haltdef
365  }
366}
367alias UIX.open {
368  set %poderio8 $active 
369  if (%poderio8 == Status Window) { set %poderio8 "Status Window" }
370  window -a %poderio8
371  if (!$1-) return
372  if (!$exists($1-)) return
373  UIX.close
374  set %uix.img $1-
375  dialog -m uix_img uix_img
376  dialog -t uix_img %uix.nick
377  did -g uix_img 1 $qt(%uix.img)
378  var %txt
379  var %txt = %txt $+ Nick: %uix.nick $+ $crlf
380  var %txt = %txt $+ Ident: %uix.ident $+ $crlf
381  var %txt = %txt $+ Rident: %uix.rident $+ $crlf
382  var %txt = %txt $+ Name: %uix.name $+ $crlf
383  var %txt = %txt $+ Ip: %uix.ip $+ $crlf
384  var %txt = %txt $+ Host: %uix.host $+ $crlf
385  var %txt = %txt $+ Server: %uix.server $+ $crlf
386  var %txt = %txt $+ Estado: %uix.reg $+ $crlf
387  var %txt = %txt $+ Nivel: %uix.oper $+ $crlf
388  var %txt = %txt $+ Estado: %uix.away $+ $crlf
389  var %txt = %txt $+ Flags: %uix.flags -- Tiempo Lag: %uix.tidle $+ $crlf
390  if (%uix.bot) var %txt = %txt $+ Tipo: %uix.bot $+ $crlf
391  if (%uix.account != 0) var %txt = %txt $+ Logeado en: %uix.account $+ $crlf
392  if (%uix.clones.list) var %txt = %txt $+ Nicks en uso: %uix.clones.list $+ %uix.nick $+ $crlf
393  var %txt = %txt $+ Modos: %uix.modes -- Mascaras: %uix.snomasks $+ $crlf
394  var %txt = %txt $+ Canales: %uix.chans $+ $crlf
395  var %txt = %txt $+ Online: %uix.online -- Idle: %uix.idle $+ $crlf
396  var %txt = %txt $+ Score: %uix.score
397  did -ra uix_img 2 %txt
398}
399
400alias UIX.openTXT {
401  set %poderio8 $active 
402  if (%poderio8 == Status Window) { set %poderio8 "Status Window" }
403  window -a %poderio8
404  UIX.close
405  dialog -m uix_txt uix_txt
406  dialog -t uix_txt %uix.nick
407  var %txt
408  var %txt = %txt $+ Nick: %uix.nick $+ $crlf
409  var %txt = %txt $+ Ident: %uix.ident $+ $crlf
410  var %txt = %txt $+ Rident: %uix.rident $+ $crlf
411  var %txt = %txt $+ Name: %uix.name $+ $crlf
412  var %txt = %txt $+ Ip: %uix.ip $+ $crlf
413  var %txt = %txt $+ Host: %uix.host $+ $crlf
414  var %txt = %txt $+ Server: %uix.server $+ $crlf
415  var %txt = %txt $+ Estado: %uix.reg $+ $crlf
416  var %txt = %txt $+ Nivel: %uix.oper $+ $crlf
417  var %txt = %txt $+ Estado: %uix.away $+ $crlf
418  var %txt = %txt $+ Flags: %uix.flags -- Tiempo Lag: %uix.tidle $+ $crlf
419  if (%uix.bot) var %txt = %txt $+ Tipo: %uix.bot $+ $crlf
420  if (%uix.account != 0) var %txt = %txt $+ Logeado en: %uix.account $+ $crlf
421  if (%uix.clones.list) var %txt = %txt $+ Nicks en uso: %uix.clones.list $+ %uix.nick $+ $crlf
422  var %txt = %txt $+ Modos: %uix.modes -- Mascaras: %uix.snomasks $+ $crlf
423  var %txt = %txt $+ Canales: %uix.chans $+ $crlf
424  var %txt = %txt $+ Online: %uix.online -- Idle: %uix.idle $+ $crlf
425  var %txt = %txt $+ Score: %uix.score
426  did -ra uix_txt 1 %txt
427}
428alias UIX.close {
429  if ($dialog(uix_img)) dialog -x uix_img
430  if ($dialog(uix_txt)) dialog -x uix_txt
431}
432dialog uix_img {
433  title "UserInfo"
434  size -1 -1 248 400
435  option dbu resize
436  icon 1, 1 1 246 210
437  edit "", 2, 4 215 242 180, multi read autovs vsbar
438  ;;text "", 2, 4 215 232 90
439}
440
441dialog uix_txt {
442  title "UserInfo"
443  size -1 -1 240 150
444  option dbu resize
445  edit "", 1, 4 4 232 140, multi read autovs vsbar
446  ;;text "", 1, 4 4 238 90
447}
448alias UIX.refresh {
449  set %poderio8 $active 
450  if (%poderio8 == Status Window) { set %poderio8 "Status Window" }
451  window -a %poderio8
452  var %txt
453  var %txt = %txt $+ Nick: %uix.nick $+ $crlf
454  var %txt = %txt $+ Ident: %uix.ident $+ $crlf
455  var %txt = %txt $+ Rident: %uix.rident $+ $crlf
456  var %txt = %txt $+ Name: %uix.name $+ $crlf
457  var %txt = %txt $+ Ip: %uix.ip $+ $crlf
458  var %txt = %txt $+ Host: %uix.host $+ $crlf
459  var %txt = %txt $+ Server: %uix.server $+ $crlf
460  var %txt = %txt $+ Estado: %uix.reg $+ $crlf
461  var %txt = %txt $+ Nivel: %uix.oper $+ $crlf
462  var %txt = %txt $+ Estado: %uix.away $+ $crlf
463  var %txt = %txt $+ Flags: %uix.flags -- Tiempo Lag: %uix.tidle $+ $crlf
464  if (%uix.bot) var %txt = %txt $+ Tipo: %uix.bot $+ $crlf
465  if (%uix.account != 0) var %txt = %txt $+ Logeado en: %uix.account $+ $crlf
466  if (%uix.clones.list) var %txt = %txt $+ Nicks en uso: %uix.clones.list $+ %uix.nick $+ $crlf
467  var %txt = %txt $+ Modos: %uix.modes -- Mascaras: %uix.snomasks $+ $crlf
468  var %txt = %txt $+ Canales: %uix.chans $+ $crlf
469  var %txt = %txt $+ Online: %uix.online -- Idle: %uix.idle $+ $crlf
470  var %txt = %txt $+ Score: %uix.score
471  did -ra uix_img 2 %txt
472}
473alias UIX.refreshTXT {
474  set %poderio8 $active 
475  if (%poderio8 == Status Window) { set %poderio8 "Status Window" }
476  window -a %poderio8
477  var %txt
478  var %txt = %txt $+ Nick: %uix.nick $+ $crlf
479  var %txt = %txt $+ Ident: %uix.ident $+ $crlf
480  var %txt = %txt $+ Rident: %uix.rident $+ $crlf
481  var %txt = %txt $+ Name: %uix.name $+ $crlf
482  var %txt = %txt $+ Ip: %uix.ip $+ $crlf
483  var %txt = %txt $+ Host: %uix.host $+ $crlf
484  var %txt = %txt $+ Server: %uix.server $+ $crlf
485  var %txt = %txt $+ Estado: %uix.reg $+ $crlf
486  var %txt = %txt $+ Nivel: %uix.oper $+ $crlf
487  var %txt = %txt $+ Estado: %uix.away $+ $crlf
488  var %txt = %txt $+ Flags: %uix.flags -- Tiempo Lag: %uix.tidle $+ $crlf
489  if (%uix.bot) var %txt = %txt $+ Tipo: %uix.bot $+ $crlf
490  if (%uix.account != 0) var %txt = %txt $+ Logeado en: %uix.account $+ $crlf
491  if (%uix.clones.list) var %txt = %txt $+ Nicks en uso: %uix.clones.list $+ %uix.nick $+ $crlf
492  var %txt = %txt $+ Modos: %uix.modes -- Mascaras: %uix.snomasks $+ $crlf 
493  var %txt = %txt $+ Canales: %uix.chans $+ $crlf
494  var %txt = %txt $+ Online: %uix.online -- Idle: %uix.idle $+ $crlf
495  var %txt = %txt $+ Score: %uix.score
496  did -ra uix_txt 1 %txt
497}
498
499alias UIX.fromWHO {
500  var %raw = $1
501  var %dec = $decode( $+ %raw $+ , m)
502  if (($left(%raw,2) != I3) || ($len(%raw) < 35)) {
503    UIX.openTXT
504    return
505  }
506  var %ruta = $remove($gettok(%dec,4-,124),$chr(32))
507  if (!%ruta) {
508    UIX.openTXT
509    return
510  }
511  if (default.png isin %ruta) {
512    UIX.openTXT
513    return
514  }
515  UIX images.chateagratis.net $+ %ruta
516}
517
518alias UIX {
519  if (!$1) return
520  var %u = https:// $+ $remove($1,$chr(32)), %h = $gettok(%u, 2, 47), %p = $gettok(%u, 3-, 47)
521  var %n = $regsubex($gettok($gettok(%p, -1, 47), 1, 63),/[\\/|:?*"<>]/g,_), %dir = $mircdir $+ FotoMaton\
522  var %f = %dir $+ %n $+ .jpg, %f_fix = %dir $+ %n $+ _fix.jpg
523  if (!$isdir(%dir)) mkdir %dir
524  if ($exists(%f_fix)) { .timer $+ $ticks -m 1 50 UIX.open $qt(%f_fix) | return }
525  if ($exists(%f)) {
526    bread $qt(%f) 0 100 &h
527    if (RIFF isin $bvar(&h,1,100).text) { .remove $qt(%f) }
528    else { .timer $+ $ticks -m 1 50 UIX.open $qt(%f) | return }
529  }
530  if ($sock(uix_ $+ %n $+ *)) return
531  var %id = uix_ $+ %n $+ _ $+ $ticks
532  hadd -m %id f %f | hadd %id h %h | hadd %id p / $+ %p | hadd %id n %n
533  sockopen %id %h 80
534}
535on *:sockopen:uix_*:{
536  if ($sockerr) { if ($hget($sockname)) hfree $sockname | return }
537  sockwrite -n $sockname GET $hget($sockname,p) HTTP/1.1
538  sockwrite -n $sockname Host: $hget($sockname,h)
539  sockwrite -n $sockname User-Agent: Mozilla/5.0
540  sockwrite -n $sockname Connection: close
541  sockwrite -n $sockname $crlf
542}
543on *:sockread:uix_*:{
544  if (!$sock($sockname).mark) { var %h | sockread %h | if (!%h) sockmark $sockname 1 | return }
545  if ($hget($sockname,f_ok)) return
546  :next
547  sockread -f &d
548  if ($sockbr) {
549    var %f = $hget($sockname,f)
550    if (!$fopen($sockname)) .fopen -no $sockname $qt(%f)
551    .fwrite -b $sockname &d
552    if ($file(%f).size < 5000 && !$hget($sockname,db)) {
553      bread $qt(%f) 0 100 &h | hadd $sockname db 1
554      var %x = $bvar(&h,1,100).text
555      if (RIFF isin %x) { hadd $sockname webp 1 }
556      if (GIF89a isin %x) || (ANIM isin %x) { hadd $sockname anim 1 }
557    }
558    goto next
559  }
560}
561on *:sockclose:uix_*:{
562  if ($fopen($sockname)) .fclose $sockname
563  if ($hget($sockname)) {
564    var %f = $hget($sockname,f), %webp = $hget($sockname,webp), %t = $ticks
565    if (!$hget($sockname,f_ok) && %f && $exists(%f)) {
566      if (%webp) {
567        var %f_st = $replace(%f,.jpg,_st.webp), %f_fix = $replace(%f,.jpg,_fix.jpg)
568        .run -h $qt($mircdir $+ webpmux.exe) -get frame 2 $qt(%f) -o $qt(%f_st)
569        .timerCONV_ [ $+ [ %t ] ] -m 1 300 .run -h $qt($mircdir $+ dwebp.exe) $qt(%f_st) -o $qt(%f_fix)
570        .timerOPEN_ [ $+ [ %t ] ] -m 1 800 UIX.open $unsafe($qt(%f_fix))
571      }
572      else { .timer -m 1 150 UIX.open $unsafe($qt(%f)) }
573    }
574    hfree $sockname
575  }
576  .timerDEL_ $+ %t -m 1 60000 .remove $qt(%f)
577}
578alias UIX.scan {
579  if (!$1) return
580  unset %uix.clones
581  set %uix.target $1
582  who $1 n%tuihsnfdlar
583}
584alias UIX.parseFlags {
585  if (r isincs %uix.flags) set %uix.reg Registrado
586  else set %uix.reg No registrado
587  if (* isincs %uix.flags) set %uix.oper Operador
588  else set %uix.oper Usuario
589  if (G isincs %uix.flags) set %uix.away Ausente
590  else set %uix.away Disponible
591  if (B isincs %uix.flags) set %uix.bot Bot
592  else set %uix.bot Normal
593}
594
595
596on *:dialog:uix_img:rclick:1:{
597  if (%uix.nick) {
598    if ($input(¿Seguro que quieres hacer ZLINE a %uix.nick $+ ?, yn,Confirmación) == $true) {
599      zline %uix.nick 1d Foto Inadecuada.
600    }
601  }
602}
603
604on *:dialog:uix_img:dclick:1:{
605  if (%uix.nick) {
606    w %uix.nick
607  }
608}