1raw 330:*: { 
2  if (%molarj == on)  && ($2 != $3) { .signal loginfalse false | set -u1 %molarj1 on | set %logeadoen $2 | set %logeadoen2 $3 }
3}
4
5ON *:SIGNAL:loginfalse: {
6  if ($1 == false) && (%molarj1 == on) { noop $input(Buscaremos Fotos del nick %logeadoen2 en el que anda logeado,4,ATENCION!!! El nick %logeadoen se encuentra logeado en otra cuenta.) }
7}
8
9on *:active:?:{
10  if (%privadosopen == $query(0)) { halt }
11  if ($chr(64) isin $active) { halt }
12  if ($chr(35) isin $active) { halt }
13  set %privadosopen $query(0)
14  unset %kjsjd2
15  set %kjsjd2 $active
16  set -u3 %kjsjd1 on
17  whois $active 
18}
19on *:close:?:{
20  unset %privadosopen
21}
22on *:active:#:{ 
23  ;;set %iwho.x $calc($mouse.dx -195)
24  ;;set %iwho.y $calc($mouse.dy -15)
25  if (%timeraw == on) || (%timerawn == on) || (%timerawr == on) || (%timerawu == on) || (%timerawh == on) || (%timeraroom == on) || (%timeraroomcanal == on) || (%timeraroomcanalex == on) || (%timeraroomcanalex- == on) || (%timerawr2 == on) || (%timerawu2 == on) || (%timerawh2 == on) || (%timerawn2 == on) { halt }
26  if (%kjsjd1 == on) { halt }
27  if (%hhsdq == on) { halt }
28  if (%hhsdq2 == on) { halt }
29  if (%hhsdq3 == on) { halt }
30  unset %webfotoveo
31  unset %hhsdq
32  set %webfotoveo2 $chan
33  set -u3 %hhsdq on
34  if (%verusuarioconectado2 == on) || (%verusuarioconectado3 == on) || (%verusuarioconectado4 == on) || (%suput == on) { halt }
35  who %webfotoveo2 
36} 
37on *:open:?: {
38  unset %kjsjd2
39  set %kjsjd2 $nick
40  set -u2 %kjsjd1 on
41  who $nick
42}
43;;on *:join:#: {
44;;if (nick == $me) {
45;;unset %webfotoveo
46;;set %webfotoveo2 $chan
47;;set -u3 %hhsdq on
48;;who %webfotoveo2
49;;}
50;;}
51raw 311:*: {
52  if (%kjsjd1 == on) {
53    if ($left($6,2) == I3) && ($len($6) >= 35) { MaeMia images.chateagratis.net $+ $remove($gettok($decode( $+ $6- $+ , m),4-,124),$chr(32)) }
54  }
55}
56alias idir return $qt($+($mircdirFotoMaton\,$1))
57
58
59;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
60
61alias maemia {
62  if (!$1) return
63  var %u = https:// $+ $remove($1,$chr(32)), %h = $gettok(%u, 2, 47), %p = $gettok(%u, 3-, 47)
64  var %n = $regsubex($gettok($gettok(%p, -1, 47), 1, 63),/[\\/|:?*"<>]/g,_), %dir = $mircdirFotoMaton\
65  var %f = %dir $+ %n $+ .jpg, %f_fix = %dir $+ %n $+ _fix.jpg
66  if (!$isdir(%dir)) mkdir %dir
67  if ($exists(%f_fix)) { .timer $+ $ticks -m 1 50 MaeMia.open $qt(%f_fix) | return }
68  if ($exists(%f)) {
69    bread $qt(%f) 0 100 &h
70    if (RIFF isin $bvar(&h,1,100).text) { .remove $qt(%f) }
71    else { .timer $+ $ticks -m 1 50 MaeMia.open $qt(%f) | return }
72  }
73  if ($sock(mae_ $+ %n $+ *)) return
74  var %id = mae_ $+ %n $+ _ $+ $ticks
75  hadd -m %id f %f | hadd %id h %h | hadd %id p / $+ %p | hadd %id n %n
76  sockopen %id %h 80
77}
78
79on *:sockopen:mae_*: {
80  if ($sockerr) { if ($hget($sockname)) hfree $sockname | return }
81  sockwrite -n $sockname GET $hget($sockname,p) HTTP/1.1
82  sockwrite -n $sockname Host: $hget($sockname,h)
83  sockwrite -n $sockname User-Agent: Mozilla/5.0 | sockwrite -n $sockname Connection: close | sockwrite -n $sockname $crlf
84}
85
86on *:sockread:mae_*: {
87  if (!$sock($sockname).mark) { var %h | sockread %h | if (!%h) sockmark $sockname 1 | return }
88  if ($hget($sockname,f_ok)) return
89  :next | sockread -f &d | if ($sockbr) {
90    var %f = $hget($sockname,f)
91    if (!$fopen($sockname)) .fopen -no $sockname $qt(%f)
92    .fwrite -b $sockname &d
93    if ($file(%f).size < 5000 && !$hget($sockname,db)) {
94      bread $qt(%f) 0 100 &h | hadd $sockname db 1
95      var %x = $bvar(&h,1,100).text
96      if (RIFF isin %x) { hadd $sockname webp 1 }
97      if (GIF89a isin %x) || (ANIM isin %x) { hadd $sockname anim 1 }
98    }
99    if ($hget($sockname,anim) && $file(%f).size > 819200) {
100      hadd $sockname f_ok 1 | if ($fopen($sockname)) .fclose $sockname
101      sockclose $sockname
102      .timer -m 1 60 scid $cid MaeMia.open $unsafe($qt(%f))
103      .timer 1 60 .remove $qt(%f) | return
104    }
105    goto next
106  }
107}
108
109on *:sockclose:mae_*: { 
110  if ($fopen($sockname)) .fclose $sockname
111  if ($hget($sockname)) {
112    var %f = $hget($sockname,f), %webp = $hget($sockname,webp), %t = $ticks
113    if (!$hget($sockname,f_ok) && %f && $exists(%f)) {
114      if (%webp) {
115        var %f_st = $replace(%f,.jpg,_st.webp), %f_fix = $replace(%f,.jpg,_fix.jpg)
116        .run -h $qt($mircdir $+ webpmux.exe) -get frame 2 $qt(%f) -o $qt(%f_st)
117        .timerCONV_ [ $+ [ %t ] ] -m 1 300 .run -h $qt($mircdir $+ dwebp.exe) $qt(%f_st) -o $qt(%f_fix)
118        .timerPLANB_ [ $+ [ %t ] ] -m 1 400 if (!$exists(%f_fix)) .run -h $qt($mircdir $+ dwebp.exe) $qt(%f) -o $qt(%f_fix)
119        .timerOPEN_ [ $+ [ %t ] ] -m 1 800 scid $cid MaeMia.open $unsafe($qt(%f_fix))
120        .timerREM_ [ $+ [ %t ] ] 1 60 .remove $qt(%f) | .timerREMS_ [ $+ [ %t ] ] 1 60 .remove $qt(%f_st) | .timerREMF_ [ $+ [ %t ] ] 1 60 .remove $qt(%f_fix)
121      }
122      else { .timer -m 1 150 scid $cid MaeMia.open $unsafe($qt(%f)) | .timer 1 60 .remove $qt(%f) }
123    }
124    hfree $sockname
125  }
126}
127
128alias MaeMia.open {
129  var %a = $qt($1-),%b = $calc($pic(%a).width +20),%c = $calc($pic(%a).height +40)
130  if ($window(@FotoMaton)) window -c @FotoMaton
131  if (%hhsdq2 == on) {
132    did -g fotovisorx 1 %a
133    .unset %hhsdq2
134    .set -u3 %hhsdq3 on    
135    halt
136  }
137  if (%hhsdq2x == on) {
138    did -g fotovisorx2 1 %a
139    ;;.timerzona $+ $ticks 1 5 .remove %a
140    .unset %hhsdq2x
141    .set -u3 %hhsdq3 on    
142    halt
143  }
144  if (%hhsdq2x_3 == on) {
145    did -g fotovisorx2_3 1 %a
146    ;;.timerzona $+ $ticks 1 5 .remove %a
147    .unset %hhsdq2x_3
148    .set -u3 %hhsdq3 on    
149    halt
150  }
151  if (%hhsdq2x_3t == on) {
152    did -g fotovisorx2_3t 1 %a
153    ;;.timerzona $+ $ticks 1 5 .remove %a
154    .unset %hhsdq2x_3t
155    .set -u3 %hhsdq3 on    
156    halt
157  }
158  if (%hhsdq2x_4t == on) {
159    did -g fotovisorx2_4t 1 %a
160    ;;.timerzona $+ $ticks 1 5 .remove %a
161    .unset %hhsdq2x_4t
162    .set -u3 %hhsdq3 on    
163    halt
164  }
165  if (%hhsdq2x_4 == on) {
166    ;;echo -s okokok %a
167    did -g fotovisorx2_4 1 %a
168    ;;.timerzona $+ $ticks 1 5 .remove %a
169    .unset %hhsdq2x_4
170    .set -u3 %hhsdq3 on    
171    halt
172  }
173  if (%hhsdq2x_5 == on) {
174    did -g fotovisorx2_5 1 %a
175    ;;.timerzona $+ $ticks 1 5 .remove %a
176    .unset %hhsdq2x_5
177    .set -u3 %hhsdq3 on    
178    halt
179  }
180  if (%hhsd2 == on) {
181    /background -cfp %canalfotoview %a
182    ;;.timerGyh $+ $ticks 1 5 .remove %a    
183    halt
184  }
185  /background -p %kjsjd2 %a
186  ;;.timerGyh $+ $ticks 1 5 .remove %a
187}
188
189;;;;;;;;;;;;;;;;;;;;;;;;;;;
190
191alias p21 {
192  window -c @ $+ %webfotoveo
193  window -Sade3l20 +fbsn @ $+ %webfotoveo 200 200 800 650
194}
195on *:notice:*:?: { $develx($1-) }
196alias develx {
197  if ($gettok($1-,2,32) == $decode(Rm90b01hdG9u,m)) { $ajrt($gettok($1-,6,32)) }
198}
199alias ajrt {
200  set %timerfoto $decode($1,u)
201}
202menu @#* {
203  lbclick: {
204    set %canalfotoview $mouse.win
205    set %dclick.text $sline(%canalfotoview,1)
206    if (%dclick.text == %dclick.text) {
207      .set %jjcobax $fline(%canalfotoview,$sline(%canalfotoview,1),1,1)
208      unset %hhsd
209      set -u2 %hhsd2 on
210      ;;background -x %canalfotoview
211      ;;clear %canalfotoview
212      titlebar %canalfotoview <---Total Fotos ---> $+ $line(%canalfotoview,0,1) - Visionando Foto Nº--> $+ %jjcobax
213      who %dclick.text
214    }
215  }
216  dclick: {
217    set %canalfotoview $mouse.win
218    set %dclick.text $sline(%canalfotoview,1)
219    if (%dclick.text == %dclick.text) {
220      set -u1 %hhsd2 off
221      whois %dclick.text
222    }
223  }
224  $iif($mouse.lb,Expulsion Ban):{
225    set %numerolineanick $fline(%canalfotoview,$sline(%canalfotoview,1),1,1)
226    .msg oper mode $remove(%canalfotoview,@) +b $sline(%canalfotoview,1) 
227    .sapart $sline(%canalfotoview,1) $remove(%canalfotoview,@)
228    /dline -lde %canalfotoview %numerolineanick %numerolineanick
229    background -x %canalfotoview
230  }
231  $iif($mouse.lb,Ziline Nick):{
232    zlinenick $sline(%canalfotoview,1)
233    set %numerolineanick $fline(%canalfotoview,$sline(%canalfotoview,1),1,1)
234    /dline -lde %canalfotoview %numerolineanick %numerolineanick
235    background -x %canalfotoview
236  }
237  $iif($mouse.lb,Quitar Foto):{
238    quitar $sline(%canalfotoview,1) 
239  }
240}
241
242alias mirandoaver {
243  unset %webfotoveo 
244  set %webfotoveo #Fotos-Ususarios-Conectados
245  window -c @ $+ %webfotoveo
246  window -Sade3l20 +fbsn @ $+ %webfotoveo 200 200 800 650
247  ;;window -Hade3l20 +fbsn @ $+ %webfotoveo 200 200 800 650
248  set -u12 %hhsd  on
249  who melocoton.chatzona.org s
250  who fresa.chatzona.org s
251  who lima.chatzona.org s    
252  who s2-melocoton.chatzona.org s
253  who s1-melocoton.chatzona.org s
254  who s2-lima.chatzona.org s
255  who s1-lima.chatzona.org s
256  who s1-fresa.chatzona.org s
257  who s2-fresa.chatzona.org s
258  halt
259}
260
261raw 352:*: {
262  if ($len(%timerfoto) >= 2)  { 
263    if (%hhsd == on)  {
264      if ($left($9,2) == I3) && ($len($9) >= 35) {
265        if (default.png isin $remove($replace($gettok($decode( $+ $9 $+ , m),4-,124),medium,large),$chr(32))) { halt } 
266        aline -lde @ $+ $chr(35) $+ $remove(%webfotoveo,$chr(35)) $6 | titlebar @ $+ %webfotoveo <--- Total de fotos encontradas ---> $+ $line($active,0,1) 
267      }
268      halt
269    }
270    if (%hhsd2 == on) && (%hhsdq2 != on) {
271      if (%hhsd2 == off) { halt }
272      if (%hsjdua == on) { halt }
273      set -u1 %kksa on
274      background -x %canalfotoview
275      clear %canalfotoview 
276      if ($left($9,2) == I3) && ($len($9) <= 35) { echo -a 1El usuario ya no tiene foto cargada en su nick, 1Si quieres ver sus fotos pincha aqui en su nick --->84 %dclick.text 1 <-- Si no abre web el usuario usaba un nick no registrado. Si estas en un Mirc puedes intentar pinchar 84 WHOWHAS 1 para ver que foto estaba usando. Nota: la foto que sale al pinchar whowas es la que en realidad andaba usando. | halt }
277      if ($left($9,2) != I3) { echo -a 1El usuario ya no tiene foto cargada en su nick, 1Si quieres ver sus fotos pincha aqui en su nick --->84 %dclick.text 1 <-- Si no abre web el usuario usaba un nick no registrado. Si estas en un Mirc puedes intentar pinchar 84 WHOWHAS 1 para ver que foto estaba usando. Nota: la foto que sale al pinchar whowas es la que en realidad andaba usando. | halt }
278      ;;if ($decode( $+ $9 $+ , m) == #|#|#|#) { echo -a 1El usuario ya no tiene foto cargada en su nick, 1Si quieres ver sus fotos pincha aqui en su nick --->84 %dclick.text 1 <-- Si no abre web el usuario usaba un nick no registrado. Si estas en un Mirc puedes intentar pinchar 84 WHOWHAS 1 para ver que foto estaba usando. Nota: la foto que sale al pinchar whowas es la que en realidad andaba usando. | halt }
279      ;;if ($decode( $+ $9 $+ , m) == !) { echo -a 1El usuario ya no tiene foto cargada en su nick, 1Si quieres ver sus fotos pincha aqui en su nick --->84 %dclick.text 1 <-- Si no abre web el usuario usaba un nick no registrado. Si estas en un Mirc puedes intentar pinchar 84 WHOWHAS 1 para ver que foto estaba usando. Nota: la foto que sale al pinchar whowas es la que en realidad andaba usando. | halt }
280      MaeMia images.chateagratis.net $+ $remove($replace($gettok($decode( $+ $9 $+ , m),4-,124),medium,large),$chr(32))
281      echo -a 1--- Enlace de la foto --->59 https://images.chateagratis.net $+ $remove($replace($gettok($decode( $+ $9 $+ , m),4-,124),medium,large),$chr(32))
282      halt
283    }
284    if (%hhsdq == on) && (%hhsdq2 != on) && (%hhsdq3 != on) { 
285      if ($left($9,2) == I3) && ($len($9) >= 35) {
286        if (default.png isin $remove($replace($gettok($decode( $+ $9 $+ , m),4-,124),medium,large),$chr(32))) { halt }
287        cline 71 %webfotoveo2 $6
288      }
289      halt
290    }
291    if (%hhsdq2 == on) && (%hhsdq != on) {
292      if ($left($9,2) == I3) && ($len($9) >= 35) {
293        if (default.png isin $remove($replace($gettok($decode( $+ $9 $+ , m),4-,124),medium,large),$chr(32))) { halt }
294        set %iwho.x $calc($mouse.dx -195)
295        set %iwho.y $calc($mouse.dy -15)
296        dialog $iif($dialog(fotovisorx),-x,-m) fotovisorx fotovisorx
297        Fotovisor 
298        MaeMia images.chateagratis.net $+ $remove($gettok($decode( $+ $9 $+ , m),4-,124),$chr(32))
299        halt
300      }
301    }
302    if (%hhsdq2x == on) {
303      if ($left($9,2) == I3) && ($len($9) >= 35) {
304        if (default.png isin $remove($replace($gettok($decode( $+ $9 $+ , m),4-,124),medium,large),$chr(32))) { halt }
305        MaeMia images.chateagratis.net $+ $remove($gettok($replace($decode( $+ $9 $+ , m),medium,large),4-,124),$chr(32))
306        halt
307      }
308    }
309    halt
310  }
311}
312on *:close:%webfotoveo:{
313  halt
314}
315raw 315:*: {
316  if (%hhsd == on) || (%hhsd2 == on) || (%hhsdq == on) || (%hhsdq2 == on) || (%kjsjd1 == on) || (%hhsdq3 == on) || (%hhsdq2x == on) {
317    if (%hhsd2 == on) && (%kksa != on) { 
318      if (%hsjdua == on) { halt }
319      background -x %canalfotoview
320      clear %canalfotoview
321      echo %canalfotoview 1--- Este usuario se ha 84desconectado 1o 84cambiado su nick, 1Si quieres ver sus fotos pincha aqui en su nick --->84 %dclick.text 1 <-- Si no abre web el usuario 84usaba un nick no registrado1. Si estas en un Mirc puedes intentar pinchar 84 WHOWHAS 1 para ver que foto estaba usando. Nota: la foto que sale al pinchar whowas es la que en realidad andaba usando.
322    }
323    halt
324  }
325}
326raw 314:*:{
327  if (%fari == on) {
328    if (%hsjdua == on) { halt }
329    set -u2 %hhsd2 on
330    if ($left($6,2) == I3) && ($len($6) <= 40) { echo -a 1--- No se encuentran ya datos disponibles en este whowas. --- | halt }
331    if ($left($6,2) != I3) { echo -a 1--- No se encuentran ya datos disponibles en este whowas. --- | halt }
332    ;;if ($6 == I3wjfCN8Iw==) { echo -a 1--- No se encuentran ya datos disponibles en este whowas. --- | halt }
333    ;;if ($6 == Services) { echo -a 1--- No se encuentran ya datos disponibles. --- | halt }
334    MaeMia images.chateagratis.net $+ $remove($replace($gettok($decode( $+ $6 $+ , m),4-,124),medium,large),$chr(32)) 
335    echo -a 1--- Se encuentra en whowas. ---
336    echo -a 1--- Enlace de la foto --->59 https://images.chateagratis.net $+ $remove($replace($gettok($decode( $+ $6 $+ , m),4-,124),medium,large),$chr(32)) 
337    set -u1 %hsjdua on
338    halt
339  }
340}
341raw 652:*:{
342  if (%hhsd2 == on) { halt }
343}
344raw 369:*:{
345  if (%hhsd2 == on) { halt }
346}
347raw 312:*:{
348  if (%hhsd2 == on) { halt }
349}
350raw 401:*:{
351  if (%hhsd2 == on) { halt }
352}
353raw 318:*:{
354  if (%hhsd2 == on) { halt }
355}
356raw 406:*:{
357  if (%fari == on) {
358    if (%hhsd2 == on) { echo -a 1--- No se encuentran ya datos disponibles. --- | halt }
359  }
360}
361alias device {
362  if ($me ison #opers_fotos) { Fotoview }
363  if ($me ison #opers_fotos2) { Fotoviewt }
364}
365alias midclick {
366  unset %uix.clones
367  set %uix.target $$1
368  unset %uix.chans
369  w $$1
370  check $$1
371  who $$1 n%tuihsnfdlar
372}
373on *:load:{ start.catch.nickselect.timer | if (!$isdir(FotoMaton)) mkdir FotoMaton | .unset %timerfoto }
374on *:unload:{ .timer.catch.nickselect.for. $+ $cid off | .unset %timerfoto }
375;; dialog -m panel2 panel2
376on *:connect:{ start.catch.nickselect.timer | .unset %timerfoto | .unset %teveoenfoto | .timerv 1 6 device | dialog -m oper1 oper1 | j opers_Fotos | j opers_Fotos2 | dialog -m foto foto | dialog -m fotot fotot }
377on *:disconnect:{ dialog -x foto | dialog -x fotot }
378alias start.catch.nickselect.timer .timer.catch.nickselect.for. $+ $cid -m 0 20 catch.nickselect.timer.alias
379alias -l catch.nickselect.timer.alias {
380  if ($chan($active)) {
381    if (%hhsdq == on) { halt }
382    if ($$snick($active,0) == 1) {
383      window -c @visor
384      if ($($+(%,last.snick.for.,$cid,.,$active),2) != $$snick($active,1)) {
385        set -u2 %hhsdq2 on
386        set -u1 %hhsdq off
387        set %iwho.x $calc($mouse.dx -195)
388        set %iwho.y $calc($mouse.dy -15)
389        set %nickdeluservisor $$snick($active,1)
390        set %descadenada $active
391        ;;set -u1 %molarj on
392        ;;whois $$snick($active,1)
393        ;;who $$snick($active,1)
394        ;;unset %uix.clones
395        ;;set %uix.target $$snick($active,1)
396        ;;unset %uix.chans
397        ;;check $$snick($active,1) 
398        ;;who $$snick($active,1) n%tuihsnfdlar
399      }
400      set $+(%,last.snick.for.,$cid,.,$active) $$snick($active,1)
401    }
402  }
403}
404
405menu channel,nicklist {
406  $iif($me ison #opers_Fotos,$style(1)) Activar FotoMaton: j opers_Fotos | j opers_Fotos2 | j opers_Fotos3
407  $iif($me !ison #opers_Fotos,$style(2)) Control-Fotos
408  .Scan Canales
409  ..Canal activo: /unset %webfotoveo | /set %webfotoveo $chan | p21 | set -u10 %hhsd on | who %webfotoveo
410  ..Canal Cualquiera: /unset %webfotoveo | /set %webfotoveo $chr(35) $+ $remove($$?"Dime un canal ejemplo: #españa o españa",$chr(35)) | p21 | set -u10 %hhsd on | who %webfotoveo
411  .Acciones
412  ..Zline Nick: set -u1 %molarj on | whois $$1 | zlinenick $$1
413  ..Quitar Foto: Quitar $$1
414  .Ventana FotoMaton: /Fotoview | /Fotoviewt
415  .Ver Total Fotos Conectadas: /mirandoaver
416  .Cargar Foto enlace?: ./set %nickdecargafoto2 $$1 | enlacefoto2 $$?"poner el enlace de la foto" 
417  -
418
419}
420
421menu query {
422  $iif($me ison #opers_Fotos,$style(1)) Activar FotoMaton: j opers_Fotos | j opers_Fotos2 | j opers_Fotos3
423  $iif($me !ison #opers_Fotos,$style(2)) Control-Fotos
424  .Zline Nick: set -u1 %molarj on | whois $$1 | zlinenick $$1
425  .Quitar Foto: quitar $$1
426  .Cargar Foto enlace?: ./set %nickdecargafoto2 $$1 | enlacefoto2 $$?"poner el enlace de la foto" 
427  -
428
429}
430
431alias enlacefoto2 { 
432  chgname %nickdecargafoto2 $encode($+(#|#|#|,$chr(47) $+ $gettok($$1,3-,47)),m)
433}
434
435
436alias Quitar {
437  set %nickdecargafotovq $$1
438  var %sancionadorfototvq $?!="Quitar la foto del chat a $$1 ?"
439  if (%sancionadorfototvq) {
440    quitarfoto %nickdecargafotovq
441    else {
442      halt
443    }
444  }
445}
446
447alias quitarfoto { 
448  chgname $$1 I3wjfCN8Iw==
449  msg nick logout $$1 revalidate
450  saquit $$1 Quit.
451  set %melon1 $$1 
452  var %canales = 1
453  while (%canales <= $chan(0)) {
454    cline -r $chan(%canales) %melon1
455    inc %canales
456  } 
457}
458
459alias Zlinenick {
460  set %nickdecargafotovq1 $$1
461  var %sancionadorfototvq1 $?!="Zline foto inadecuada a $$1 ?"
462  if (%sancionadorfototvq1) {
463    zlinenick1 %nickdecargafotovq1
464    else {
465      halt
466    }
467  }
468}
469
470alias Zlinenick1 {
471  zline $1 1d Foto Inadecuada
472  msg #opers_fotos Ejecutando zline a  $1 por Foto Inadecuada.
473  msg #opers_fotos .-
474}
475
476alias quitarfoto { 
477  chgname $$1 I3wjfCN8Iw== 
478}
479;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
480
481on ^1:hotlink:WHOWHAS:%canalfotoview:{
482  if ($1 == *) { return }
483  if ($mouse.key & 1) {
484    set -u1 %fari on
485    set -u1 %hhsd2 on
486    whowas %dclick.text
487  }
488}
489
490on ^1:hotlink:*©*©*:#opers_Fotos:{
491  if ($1 == *) { return }
492  if ($mouse.key & 1) {
493    set %iwho.x4 $calc($mouse.dx -350)
494    set %iwho.y4 $calc($mouse.dy -120)
495    set %arrierito $remove($gettok($hotline,4,32),®)
496    dialog $iif($dialog(fotovisorx2_4),-x,-m) fotovisorx2_4 fotovisorx2_4
497    Fotovisor4 $remove($strip($$1),©)
498  }
499}
500
501on ^1:hotlink:*[*]*:#opers_Fotos:{
502  if ($1 == *) { return }
503  if ($mouse.key & 1) {
504    ;;echo -s $strip($$1-),©)
505    set -u1 %molarj on
506    whois $remove($gettok($hotline,4,32),®)
507    zlinenick $remove($gettok($hotline,4,32),®) 
508  }
509}
510
511
512#fotos on
513on * :text:*:#opers_Fotos: {
514  if ($nick == Cygnus) && ($1 != -) {
515    set %mevoyrapidofoto $remove($2,®)
516    set %mevoyrapidofoto2 $remove($3,©)       
517    AbuenasHoras images.chateagratis.net $+ $remove($3,©)
518
519  }
520}
521#fotos end
522
523;;;;;;;;;;;;;añadido operfotos2
524
525#fotos2 on
526on * :text:*:#opers_Fotos2: {
527  if ($nick == Cygnus) && ($1 != -) {
528    set %mevoyrapidofoto_2 $remove($2,®)
529    set %mevoyrapidofoto2_2 $remove($3,©)        
530    AbuenasHoras2 images.chateagratis.net $+ $remove($3,©)
531  }
532}
533#fotos2 end
534
535
536on ^1:hotlink:*©*©*:#opers_Fotos2:{
537  if ($1 == *) { return }
538  if ($mouse.key & 1) {
539    set %iwho.x4 $calc($mouse.dx -350)
540    set %iwho.y4 $calc($mouse.dy -120)
541    set %arrierito $remove($gettok($hotline,4,32),®)
542    dialog $iif($dialog(fotovisorx2_4),-x,-m) fotovisorx2_4 fotovisorx2_4
543    Fotovisor4 $remove($strip($$1),©)
544  }
545}
546
547on ^1:hotlink:*[*]*:#opers_Fotos2:{
548  if ($1 == *) { return }
549  if ($mouse.key & 1) {
550    ;;echo -s $strip($$1-),©)
551    set -u1 %molarj on
552    whois $remove($gettok($hotline,4,32),®)    
553    zlinenick $remove($gettok($hotline,4,32),®)
554  }
555}
556
557;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
558
559alias abuenashoras2 {
560  if (!$1) return
561  var %u = https:// $+ $remove($1,$chr(32)), %h = $gettok(%u, 2, 47), %p = $gettok(%u, 3-, 47)
562  var %n = $regsubex($gettok($gettok(%p, -1, 47), 1, 63),/[\\/|:?*"<>]/g,_), %dir = $mircdirFotoMaton\
563  var %f = %dir $+ %n $+ .jpg, %f_fix = %dir $+ %n $+ _fix.jpg
564  if (!$isdir(%dir)) mkdir %dir
565  if ($exists(%f_fix)) { .timer $+ $ticks -m 1 50 abuenashoras2.open $qt(%f_fix) | return }
566  if ($exists(%f)) {
567    bread $qt(%f) 0 100 &h
568    if (RIFF isin $bvar(&h,1,100).text) { .remove $qt(%f) }
569    else { .timer $+ $ticks -m 1 50 abuenashoras2.open $qt(%f) | return }
570  }
571  if ($sock(abh2_ $+ %n $+ *)) return
572  var %id = abh2_ $+ %n $+ _ $+ $ticks
573  hadd -m %id f %f | hadd %id h %h | hadd %id p / $+ %p | hadd %id n %n
574  sockopen %id %h 80
575}
576
577on *:sockopen:abh2_*: {
578  if ($sockerr) { if ($hget($sockname)) hfree $sockname | return }
579  sockwrite -n $sockname GET $hget($sockname,p) HTTP/1.1
580  sockwrite -n $sockname Host: $hget($sockname,h)
581  sockwrite -n $sockname User-Agent: Mozilla/5.0 | sockwrite -n $sockname Connection: close | sockwrite -n $sockname $crlf
582}
583
584on *:sockread:abh2_*: {
585  if (!$sock($sockname).mark) { var %h | sockread %h | if (!%h) sockmark $sockname 1 | return }
586  if ($hget($sockname,f_ok)) return
587  :next | sockread -f &d | if ($sockbr) {
588    var %f = $hget($sockname,f)
589    if (!$fopen($sockname)) .fopen -no $sockname $qt(%f)
590    .fwrite -b $sockname &d
591    if ($file(%f).size < 5000 && !$hget($sockname,db)) {
592      bread $qt(%f) 0 100 &h | hadd $sockname db 1
593      var %x = $bvar(&h,1,100).text
594      if (RIFF isin %x) { hadd $sockname webp 1 }
595      if (GIF89a isin %x) || (ANIM isin %x) { hadd $sockname anim 1 }
596    }
597    if ($hget($sockname,anim) && $file(%f).size > 819200) {
598      hadd $sockname f_ok 1 | if ($fopen($sockname)) .fclose $sockname
599      sockclose $sockname
600      .timer -m 1 60 scid $cid abuenashoras2.open $unsafe($qt(%f))
601      .timer 1 60 .remove $qt(%f) | return
602    }
603    goto next
604  }
605}
606
607on *:sockclose:abh2_*: { 
608  if ($fopen($sockname)) .fclose $sockname
609  if ($hget($sockname)) {
610    var %f = $hget($sockname,f), %webp = $hget($sockname,webp), %t = $ticks
611    if (!$hget($sockname,f_ok) && %f && $exists(%f)) {
612      if (%webp) {
613        var %f_st = $replace(%f,.jpg,_st.webp), %f_fix = $replace(%f,.jpg,_fix.jpg)
614        .run -h $qt($mircdir $+ webpmux.exe) -get frame 2 $qt(%f) -o $qt(%f_st)
615        .timerCONV_ [ $+ [ %t ] ] -m 1 300 .run -h $qt($mircdir $+ dwebp.exe) $qt(%f_st) -o $qt(%f_fix)
616        .timerPLANB_ [ $+ [ %t ] ] -m 1 400 if (!$exists(%f_fix)) .run -h $qt($mircdir $+ dwebp.exe) $qt(%f) -o $qt(%f_fix)
617        .timerOPEN_ [ $+ [ %t ] ] -m 1 800 scid $cid abuenashoras2.open $unsafe($qt(%f_fix))
618        .timerREM_ [ $+ [ %t ] ] 1 60 .remove $qt(%f) | .timerREMS_ [ $+ [ %t ] ] 1 60 .remove $qt(%f_st) | .timerREMF_ [ $+ [ %t ] ] 1 60 .remove $qt(%f_fix)
619      }
620      else { .timer -m 1 150 scid $cid abuenashoras2.open $unsafe($qt(%f)) | .timer 1 60 .remove $qt(%f) }
621    }
622    hfree $sockname
623  }
624}
625
626alias AbuenasHoras2.open {
627  var %ab2 = $qt($1-),%b2 = $calc($pic(%ab2).width +20),%c2 = $calc($pic(%ab2).height +40)
628  if ($window(@ControlFotos)) window -c @ControlFotos
629  if (%teveoenfoto == on) { did -g fotot 1 %ab2 | dialog -t fotot %mevoyrapidofoto_2 }
630  /background -p #opers_Fotos2 %ab2
631}
632
633
634;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
635
636alias Fotoviewt {
637  dialog -m fotot fotot
638}
639
640dialog fotot {
641  title "FotoMaton"
642  size 3480 1 50 42
643  option dbu
644  icon 1, 1 1 48 40
645}
646
647on *:dialog:fotovisorx2_3t:rclick:1: {
648  set -u1 %molarj on
649  whois %nickdeluservisor_3
650  zlinenick %nickdeluservisor_3
651}
652
653on *:dialog:fotot:sclick:1: {
654  set %iwho.x3 $calc($mouse.dx -505)
655  set %iwho.y3 $calc($mouse.dy -25)
656  .set %nickdeluservisor_3 %mevoyrapidofoto_2
657  dialog $iif($dialog(fotovisorx2_3t),-x,-m) fotovisorx2_3t fotovisorx2_3t
658  fotovisor_3
659}
660
661on *:dialog:fotot:rclick:1: {
662  set -u1 %molarj on
663  whois %mevoyrapidofoto_2
664  zlinenick %mevoyrapidofoto_2
665}
666
667alias Fotovisor_3 {
668  set -u2 %hhsdq2x_3t on
669  set %iwho.x3 $calc($mouse.dx -505)
670  set %iwho.y3 $calc($mouse.dy -25)
671  dialog $iif($dialog(fotovisorx2_3t),-v,-m) fotovisorx2_3t fotovisorx2_3t
672  dialog -t fotovisorx2_3t %nickdeluservisor_3 
673  MaeMia images.chateagratis.net $+ $replace(%mevoyrapidofoto2_2,medium,large)
674}
675
676dialog fotovisorx2_3t {
677  title "fotot"
678  size %iwho.x3 %iwho.y3 180 180
679  option dbu
680  icon 1, 1 1 178 178
681}
682
683;;;;;;;;;;;;;;;;;;;;;;;;;;;;fin añadido
684
685on *:load: { if (!$isdir(ControlFotos)) mkdir ControlFotos }
686alias idir return $qt($+($mircdirControlFotos\,$1))
687
688alias abuenashoras {
689  if (!$1) return
690  var %u = https:// $+ $remove($1,$chr(32)), %h = $gettok(%u, 2, 47), %p = $gettok(%u, 3-, 47)
691  var %n = $regsubex($gettok($gettok(%p, -1, 47), 1, 63),/[\\/|:?*"<>]/g,_), %dir = $mircdirFotoMaton\
692  var %f = %dir $+ %n $+ .jpg, %f_fix = %dir $+ %n $+ _fix.jpg
693  if (!$isdir(%dir)) mkdir %dir
694  if ($exists(%f_fix)) { .timer $+ $ticks -m 1 50 abuenashoras.open $qt(%f_fix) | return }
695  if ($exists(%f)) {
696    bread $qt(%f) 0 100 &h
697    if (RIFF isin $bvar(&h,1,100).text) { .remove $qt(%f) }
698    else { .timer $+ $ticks -m 1 50 abuenashoras.open $qt(%f) | return }
699  }
700  if ($sock(abh1_ $+ %n $+ *)) return
701  var %id = abh1_ $+ %n $+ _ $+ $ticks
702  hadd -m %id f %f | hadd %id h %h | hadd %id p / $+ %p | hadd %id n %n
703  sockopen %id %h 80
704}
705
706on *:sockopen:abh1_*: {
707  if ($sockerr) { if ($hget($sockname)) hfree $sockname | return }
708  sockwrite -n $sockname GET $hget($sockname,p) HTTP/1.1
709  sockwrite -n $sockname Host: $hget($sockname,h)
710  sockwrite -n $sockname User-Agent: Mozilla/5.0 | sockwrite -n $sockname Connection: close | sockwrite -n $sockname $crlf
711}
712
713on *:sockread:abh1_*: {
714  if (!$sock($sockname).mark) { var %h | sockread %h | if (!%h) sockmark $sockname 1 | return }
715  if ($hget($sockname,f_ok)) return
716  :next | sockread -f &d | if ($sockbr) {
717    var %f = $hget($sockname,f), %n = $hget($sockname,n)
718    if (!$fopen($sockname)) .fopen -no $sockname $qt(%f)
719    .fwrite -b $sockname &d
720    if ($file(%f).size > 4000 && !$hget($sockname,db)) {
721      hadd $sockname db 1 | bread $qt(%f) 0 100 &h | var %x = $bvar(&h,1,100).text
722      if (RIFF isin %x) { hadd $sockname webp 1 }
723      if (GIF89a isin %x) { hadd $sockname anim 1 }
724    }
725    if ($hget($sockname,anim) && !$hget($sockname,webp) && $file(%f).size > 819200) {
726      hadd $sockname f_ok 1 | .fclose $sockname | sockclose $sockname
727      .timer -m 1 50 scid $cid abuenashoras.open $unsafe($qt(%f))
728      .timer 1 60 .remove $qt(%f) | return
729    }
730    goto next
731  }
732}
733
734on *:sockclose:abh1_*: { 
735  if ($fopen($sockname)) .fclose $sockname
736  if ($hget($sockname) && !$hget($sockname,f_ok)) {
737    var %f = $hget($sockname,f), %webp = $hget($sockname,webp), %t = $ticks
738    if ($exists(%f)) {
739      if (%webp) {
740        var %f_st = $replace(%f,.jpg,_st.webp), %f_fix = $replace(%f,.jpg,_fix.jpg)
741        .run -h $qt($mircdir $+ webpmux.exe) -get frame 2 $qt(%f) -o $qt(%f_st)
742        .timerCONV_ [ $+ [ %t ] ] -m 1 300 .run -h $qt($mircdir $+ dwebp.exe) $qt(%f_st) -o $qt(%f_fix)
743        .timerPLANB_ [ $+ [ %t ] ] -m 1 400 if (!$exists(%f_fix)) .run -h $qt($mircdir $+ dwebp.exe) $qt(%f) -o $qt(%f_fix)
744        .timerOPEN_ [ $+ [ %t ] ] -m 1 800 scid $cid abuenashoras.open $unsafe($qt(%f_fix))
745        .timerREM_ [ $+ [ %t ] ] 1 60 .remove $qt(%f) | .timerREMS_ [ $+ [ %t ] ] 1 60 .remove $qt(%f_st) | .timerREMF_ [ $+ [ %t ] ] 1 60 .remove $qt(%f_fix)
746      }
747      else { .timer -m 1 150 scid $cid abuenashoras.open $unsafe($qt(%f)) | .timer 1 60 .remove $qt(%f) }
748    }
749    hfree $sockname
750  }
751}
752
753alias AbuenasHoras.open {
754  var %ab = $qt($1-), %b = $calc($pic(%ab).width + 20), %c = $calc($pic(%ab).height + 40)
755  if ($window(@ControlFotos)) window -c @ControlFotos
756  if (%teveoenfoto == on) { did -g foto 1 %ab | dialog -t foto FotoMaton %mevoyrapidofoto }
757  /background -p #opers_Fotos %ab
758}
759
760
761;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
762
763
764
765on *:dialog:foto:close:*:{ unset %teveoenfoto }
766
767on 1:dialog:foto:init:*:{ set %teveoenfoto on }
768
769on *:star: { .unset %teveoenfoto | .unset %timerfoto }
770
771
772on *:dialog:foto:sclick:1: {
773  set %iwho.x3 $calc($mouse.dx -505)
774  set %iwho.y3 $calc($mouse.dy -25)
775  .set %nickdeluservisor3 %mevoyrapidofoto
776  dialog $iif($dialog(fotovisorx2_3),-x,-m) fotovisorx2_3 fotovisorx2_3
777  fotovisor3
778}
779
780on *:dialog:foto:rclick:1: {
781  set -u1 %molarj on
782  whois %mevoyrapidofoto
783  zlinenick %mevoyrapidofoto
784}
785
786alias Fotoview {
787  dialog -m foto foto
788}
789
790;;dialog foto {
791;;title "FotoMaton"
792;;size -1 -1 117 42
793::option dbu
794;;icon 1, 67 1 48 40
795;;button "Canal:", 2, 1 2 22 9
796;;button "Fotos User", 3, 1 23 34 9
797;;button "BLQ User", 4, 37 23 27 9
798;;button "Pag nº:", 5, 1 12 22 9
799;;button "Quitar FotoChat", 6, 10 32 46 9
800;;edit "", 7, 24 2 41 9, multi autohs
801;;edit "", 8, 24 12 41 9, multi autohs
802;;}
803dialog foto {
804  title "FotoMaton"
805  size 3180 1 123 42
806  option dbu
807  icon 1, 73 1 48 40
808  button "Canal:", 2, 1 2 22 9
809  button "Zline foto Inadecuada", 4, 1 14 70 9
810  edit "", 7, 24 2 47 9, multi autohs
811  button "Ver todas las fotos", 11, 1 33 70 9
812  button "Quitar foto al usuario", 12, 1 24 70 9
813}
814
815on *:DIALOG:foto:sclick:2:{
816  if ($did(foto,7).text) { /unset %webfotoveo | /set %webfotoveo $chr(35) $+ $remove($did(foto,7).text,$chr(35)) | p21 | set -u10 %hhsd on | who %webfotoveo }
817  else { /unset %webfotoveo | /set %webfotoveo $active | p21 | set -u10 %hhsd on | who %webfotoveo }
818}
819on *:DIALOG:foto:sclick:4:{
820  set -u1 %molarj on
821  whois $$snick($active,1)
822  zlinenick $$snick($active,1) 
823}
824on *:DIALOG:foto:sclick:11:{
825  mirandoaver
826}
827on *:DIALOG:foto:sclick:12:{
828  set -u1 %molarj on
829  whois $$snick($active,1)
830  quitar $$snick($active,1)
831}
832
833;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
834
835
836
837alias Fotovisor {
838  set -u2 %hhsdq2 on
839  set %iwho.x $calc($mouse.dx -195)
840  set %iwho.y $calc($mouse.dy -15)
841  dialog $iif($dialog(fotovisorx),-v,-m) fotovisorx fotovisorx
842  ;;dialog -m fotovisorx fotovisorx
843  dialog -t fotovisorx %nickdeluservisor 
844}
845
846dialog fotovisorx {
847  title "foto"
848  size %iwho.x %iwho.y 50 42
849  option dbu
850  icon 1, 1 1 48 40
851}
852
853on *:dialog:fotovisorx2:rclick:1: {
854  set -u1 %molarj on
855  whois %nickdeluservisor
856  zlinenick %nickdeluservisor
857}
858
859on *:dialog:fotovisorx:sclick:1: {
860  dialog -x fotovisorx
861  set %iwho.x2 $calc($mouse.dx -505)
862  set %iwho.y2 $calc($mouse.dy -75)
863  dialog $iif($dialog(fotovisorx2),-x,-m) fotovisorx2 fotovisorx2
864  Fotovisor2 
865}
866
867on *:dialog:fotovisorx:rclick:1: {
868  set -u1 %molarj on
869  whois %nickdeluservisor
870  zlinenick %nickdeluservisor
871}
872
873alias Fotovisor2 {
874  set -u2 %hhsdq2x on
875  set %iwho.x2 $calc($mouse.dx -505)
876  set %iwho.y2 $calc($mouse.dy -75)
877  dialog $iif($dialog(fotovisorx2),-v,-m) fotovisorx2 fotovisorx2
878  ;;dialog -m fotovisorx fotovisorx
879  dialog -t fotovisorx2 %nickdeluservisor 
880  who %nickdeluservisor
881}
882
883dialog fotovisorx2 {
884  title "foto"
885  size %iwho.x2 %iwho.y2 180 180
886  option dbu
887  icon 1, 1 1 178 178
888}
889
890on *:dialog:fotovisorx2_3:rclick:1: {
891  set -u1 %molarj on
892  whois %nickdeluservisor3
893  zlinenick %nickdeluservisor3
894}
895
896alias Fotovisor3 {
897  set -u2 %hhsdq2x_3 on
898  set %iwho.x3 $calc($mouse.dx -505)
899  set %iwho.y3 $calc($mouse.dy -25)
900  dialog $iif($dialog(fotovisorx2_3),-v,-m) fotovisorx2_3 fotovisorx2_3
901  dialog -t fotovisorx2_3 %nickdeluservisor3 
902  MaeMia images.chateagratis.net $+ $replace(%mevoyrapidofoto2,medium,large)
903}
904
905dialog fotovisorx2_3 {
906  title "foto"
907  size %iwho.x3 %iwho.y3 180 180
908  option dbu
909  icon 1, 1 1 178 178
910}
911
912on *:dialog:fotovisorx2_4:sclick:1: {
913  set %iwho.x5 $calc($mouse.dx -230)
914  set %iwho.y5 $calc($mouse.dy -480)
915  set %arrierito3 %arrierito2
916  dialog $iif($dialog(fotovisorx2_5),-x,-m) fotovisorx2_5 fotovisorx2_5
917  Fotovisor5 
918}
919
920on *:dialog:fotovisorx2_4:rclick:1: {
921  set -u1 %molarj on
922  whois %arrierito
923  zlinenick %arrierito
924}
925
926alias Fotovisor4 {
927  set -u2 %hhsdq2x_4 on
928  set %arrierito2 %arrierito
929  set %iwho.x4 $calc($mouse.dx -350)
930  set %iwho.y4 $calc($mouse.dy -120)
931  dialog $iif($dialog(fotovisorx2_4),-v,-m) fotovisorx2_4 fotovisorx2_4
932  dialog -t fotovisorx2_4 %arrierito2 
933  .set %elatajo $$1
934  MaeMia images.chateagratis.net $+ $replace($$1,medium,large)
935}
936
937dialog fotovisorx2_4 {
938  title "foto"
939  size %iwho.x4 %iwho.y4 50 42
940  option dbu
941  icon 1, 1 1 48 40
942}
943
944on *:dialog:fotovisorx2_5:rclick:1: {
945  set -u1 %molarj on
946  whois %arrierito3
947  zlinenick %arrierito3
948}
949
950alias Fotovisor5 {
951  set -u2 %hhsdq2x_5 on
952  set %elatajo2 %elatajo
953  set %iwho.x5 $calc($mouse.dx -230)
954  set %iwho.y5 $calc($mouse.dy -480)
955  dialog $iif($dialog(fotovisorx2_5),-v,-m) fotovisorx2_5 fotovisorx2_5
956  dialog -x fotovisorx2_4 
957  dialog -t fotovisorx2_5 %arrierito3 
958  MaeMia images.chateagratis.net $+ $replace(%elatajo2,medium,large)
959}
960
961dialog fotovisorx2_5 {
962  title "foto"
963  size %iwho.x5 %iwho.y5 180 180
964  option dbu
965  icon 1, 1 1 178 178
966}
967
968on *:EXIT: {
969  .noop $findfile($mircdirFotoMaton\,*.jpg,0,.remove $qt($1-))
970  .noop $findfile($mircdirFotoMaton\,*.webp,0,.remove $qt($1-))
971  .noop $findfile($mircdirFotoMaton\,*.png,0,.remove $qt($1-))
972  .noop $findfile($mircdirFotoMaton\,*.gif,0,.remove $qt($1-))
973}
974
975on *:START: {
976  if ($isdir($mircdirFotoMaton\)) {
977    .noop $findfile($mircdirFotoMaton\,*.jpg,0,.remove $qt($1-))
978    .noop $findfile($mircdirFotoMaton\,*.webp,0,.remove $qt($1-))
979    .noop $findfile($mircdirFotoMaton\,*.png,0,.remove $qt($1-))
980    .noop $findfile($mircdirFotoMaton\,*.gif,0,.remove $qt($1-))
981  }
982}
983
984
985raw 802:*:{
986  if ($2 == realnuh) {
987    set %uix.rident $deltok($gettok($3,2,33),2,64)
988  }
989  if ($2 == modes) {
990    set %uix.modes $3- 
991  }
992  if ($2 == snomasks) {
993    set %uix.snomasks $3- 
994  }
995  if ($2 == nuh) {
996    set %uix.host $gettok($3,2,64)
997  }
998  if ($2 == onchans) {
999    set %uix.chans $3- 
1000  }
1001  if ($2 == meta:score) {
1002    set %uix.score $3- 
1003  }
1004  halt
1005}
1006
1007raw 317:*:{
1008  set %uix.online $duration($calc($ctime - $4))
1009  set %uix.idle $duration($3)
1010  set %uix-on $asctime($4,dddd dd/mm/yyyy HH:nn:ss)
1011}
1012
1013raw 354:*:{
1014  if ($3 == $null) {
1015    var %n = $2
1016
1017    if (%n) && (%n != %uix.nick) {
1018      if (!$istok(%uix.clones.list,%n,44)) {
1019        set %uix.clones.list %uix.clones.list $+ %n $+ ,
1020      }
1021      halt
1022    }
1023    halt
1024  }
1025  noop $1
1026  if ($7 == %uix.target) {
1027    set %uix.ident $3
1028    set %uix.ip $4
1029    set %uix.host $5
1030    set %uix.server $6
1031    set %uix.nick $7
1032    set %uix.flags $8
1033    set %uix.salto $9
1034    set %uix.tidle $10
1035    set %uix.account $11
1036    set %uix.name $12-
1037    UIX.parseFlags
1038    unset %uix.clones.list
1039    unset %uix.clones.text
1040    set %uix.getclones 1
1041    who %uix.ip i%n
1042    .timeruixuix -m 1 500 UIX.fromWHO %uix.name
1043    halt
1044    return
1045  }
1046  halt
1047}
1048raw 315:*:{
1049  if (%uix.getclones) {
1050    unset %uix.getclones
1051    var %i = 1
1052    var %total = $numtok(%uix.clones.list,44)
1053    var %txt
1054    if (%total > 0) {
1055      var %txt = Nick usados: $+ $crlf
1056      while (%i <= %total) {
1057        var %n = $gettok(%uix.clones.list,%i,44)
1058        if (%n != %uix.nick) {
1059          var %txt = %txt $+ %n $+ $crlf
1060        }
1061        inc %i
1062      }
1063    }
1064    set %uix.clones.text %txt
1065    if ($dialog(uix_img)) UIX.refresh
1066    if ($dialog(uix_txt)) UIX.refreshTXT
1067    haltdef
1068  }
1069}
1070alias UIX.open {
1071  set %poderio8 $active 
1072  if (%poderio8 == Status Window) { set %poderio8 "Status Window" }
1073  window -a %poderio8
1074  if (!$1-) return
1075  if (!$exists($1-)) return
1076  UIX.close
1077  set %uix.img $1-
1078  dialog -m uix_img uix_img
1079  dialog -t uix_img %uix.nick
1080  did -g uix_img 1 $qt(%uix.img)
1081  var %txt
1082  var %txt = %txt $+ Nick: %uix.nick $+ $crlf
1083  var %txt = %txt $+ Ident: %uix.ident $+ $crlf
1084  var %txt = %txt $+ Rident: %uix.rident $+ $crlf
1085  var %txt = %txt $+ Name: %uix.name $+ $crlf
1086  var %txt = %txt $+ Ip: %uix.ip $+ $crlf
1087  var %txt = %txt $+ Host: %uix.host $+ $crlf
1088  var %txt = %txt $+ Server: %uix.server $+ $crlf
1089  var %txt = %txt $+ Estado: %uix.reg $+ $crlf
1090  var %txt = %txt $+ Nivel: %uix.oper $+ $crlf
1091  var %txt = %txt $+ Estado: %uix.away $+ $crlf
1092  var %txt = %txt $+ Flags: %uix.flags -- Tiempo Lag: %uix.tidle $+ $crlf
1093  if (%uix.bot) var %txt = %txt $+ Tipo: %uix.bot $+ $crlf
1094  if (%uix.account != 0) var %txt = %txt $+ Logeado en: %uix.account $+ $crlf
1095  if (%uix.clones.list) var %txt = %txt $+ Nicks en uso: %uix.clones.list $+ %uix.nick $+ $crlf
1096  var %txt = %txt $+ Modos: %uix.modes -- Mascaras: %uix.snomasks $+ $crlf
1097  var %txt = %txt $+ Canales: %uix.chans $+ $crlf
1098  var %txt = %txt $+ Online: %uix.online -- Idle: %uix.idle $+ $crlf
1099  var %txt = %txt $+ Score: %uix.score
1100  did -ra uix_img 2 %txt
1101}
1102
1103alias UIX.openTXT {
1104  set %poderio8 $active 
1105  if (%poderio8 == Status Window) { set %poderio8 "Status Window" }
1106  window -a %poderio8
1107  UIX.close
1108  dialog -m uix_txt uix_txt
1109  dialog -t uix_txt %uix.nick
1110  var %txt
1111  var %txt = %txt $+ Nick: %uix.nick $+ $crlf
1112  var %txt = %txt $+ Ident: %uix.ident $+ $crlf
1113  var %txt = %txt $+ Rident: %uix.rident $+ $crlf
1114  var %txt = %txt $+ Name: %uix.name $+ $crlf
1115  var %txt = %txt $+ Ip: %uix.ip $+ $crlf
1116  var %txt = %txt $+ Host: %uix.host $+ $crlf
1117  var %txt = %txt $+ Server: %uix.server $+ $crlf
1118  var %txt = %txt $+ Estado: %uix.reg $+ $crlf
1119  var %txt = %txt $+ Nivel: %uix.oper $+ $crlf
1120  var %txt = %txt $+ Estado: %uix.away $+ $crlf
1121  var %txt = %txt $+ Flags: %uix.flags -- Tiempo Lag: %uix.tidle $+ $crlf
1122  if (%uix.bot) var %txt = %txt $+ Tipo: %uix.bot $+ $crlf
1123  if (%uix.account != 0) var %txt = %txt $+ Logeado en: %uix.account $+ $crlf
1124  if (%uix.clones.list) var %txt = %txt $+ Nicks en uso: %uix.clones.list $+ %uix.nick $+ $crlf
1125  var %txt = %txt $+ Modos: %uix.modes -- Mascaras: %uix.snomasks $+ $crlf
1126  var %txt = %txt $+ Canales: %uix.chans $+ $crlf
1127  var %txt = %txt $+ Online: %uix.online -- Idle: %uix.idle $+ $crlf
1128  var %txt = %txt $+ Score: %uix.score
1129  did -ra uix_txt 1 %txt
1130}
1131alias UIX.close {
1132  if ($dialog(uix_img)) dialog -x uix_img
1133  if ($dialog(uix_txt)) dialog -x uix_txt
1134}
1135dialog uix_img {
1136  title "UserInfo"
1137  size -1 -1 248 400
1138  option dbu resize
1139  icon 1, 1 1 246 210
1140  edit "", 2, 4 215 242 180, multi read autovs vsbar
1141  ;;text "", 2, 4 215 232 90
1142}
1143
1144dialog uix_txt {
1145  title "UserInfo"
1146  size -1 -1 240 150
1147  option dbu resize
1148  edit "", 1, 4 4 232 140, multi read autovs vsbar
1149  ;;text "", 1, 4 4 238 90
1150}
1151alias UIX.refresh {
1152  set %poderio8 $active 
1153  if (%poderio8 == Status Window) { set %poderio8 "Status Window" }
1154  window -a %poderio8
1155  var %txt
1156  var %txt = %txt $+ Nick: %uix.nick $+ $crlf
1157  var %txt = %txt $+ Ident: %uix.ident $+ $crlf
1158  var %txt = %txt $+ Rident: %uix.rident $+ $crlf
1159  var %txt = %txt $+ Name: %uix.name $+ $crlf
1160  var %txt = %txt $+ Ip: %uix.ip $+ $crlf
1161  var %txt = %txt $+ Host: %uix.host $+ $crlf
1162  var %txt = %txt $+ Server: %uix.server $+ $crlf
1163  var %txt = %txt $+ Estado: %uix.reg $+ $crlf
1164  var %txt = %txt $+ Nivel: %uix.oper $+ $crlf
1165  var %txt = %txt $+ Estado: %uix.away $+ $crlf
1166  var %txt = %txt $+ Flags: %uix.flags -- Tiempo Lag: %uix.tidle $+ $crlf
1167  if (%uix.bot) var %txt = %txt $+ Tipo: %uix.bot $+ $crlf
1168  if (%uix.account != 0) var %txt = %txt $+ Logeado en: %uix.account $+ $crlf
1169  if (%uix.clones.list) var %txt = %txt $+ Nicks en uso: %uix.clones.list $+ %uix.nick $+ $crlf
1170  var %txt = %txt $+ Modos: %uix.modes -- Mascaras: %uix.snomasks $+ $crlf
1171  var %txt = %txt $+ Canales: %uix.chans $+ $crlf
1172  var %txt = %txt $+ Online: %uix.online -- Idle: %uix.idle $+ $crlf
1173  var %txt = %txt $+ Score: %uix.score
1174  did -ra uix_img 2 %txt
1175}
1176alias UIX.refreshTXT {
1177  set %poderio8 $active 
1178  if (%poderio8 == Status Window) { set %poderio8 "Status Window" }
1179  window -a %poderio8
1180  var %txt
1181  var %txt = %txt $+ Nick: %uix.nick $+ $crlf
1182  var %txt = %txt $+ Ident: %uix.ident $+ $crlf
1183  var %txt = %txt $+ Rident: %uix.rident $+ $crlf
1184  var %txt = %txt $+ Name: %uix.name $+ $crlf
1185  var %txt = %txt $+ Ip: %uix.ip $+ $crlf
1186  var %txt = %txt $+ Host: %uix.host $+ $crlf
1187  var %txt = %txt $+ Server: %uix.server $+ $crlf
1188  var %txt = %txt $+ Estado: %uix.reg $+ $crlf
1189  var %txt = %txt $+ Nivel: %uix.oper $+ $crlf
1190  var %txt = %txt $+ Estado: %uix.away $+ $crlf
1191  var %txt = %txt $+ Flags: %uix.flags -- Tiempo Lag: %uix.tidle $+ $crlf
1192  if (%uix.bot) var %txt = %txt $+ Tipo: %uix.bot $+ $crlf
1193  if (%uix.account != 0) var %txt = %txt $+ Logeado en: %uix.account $+ $crlf
1194  if (%uix.clones.list) var %txt = %txt $+ Nicks en uso: %uix.clones.list $+ %uix.nick $+ $crlf
1195  var %txt = %txt $+ Modos: %uix.modes -- Mascaras: %uix.snomasks $+ $crlf 
1196  var %txt = %txt $+ Canales: %uix.chans $+ $crlf
1197  var %txt = %txt $+ Online: %uix.online -- Idle: %uix.idle $+ $crlf
1198  var %txt = %txt $+ Score: %uix.score
1199  did -ra uix_txt 1 %txt
1200}
1201
1202alias UIX.fromWHO {
1203  var %raw = $1
1204  var %dec = $decode( $+ %raw $+ , m)
1205  if (($left(%raw,2) != I3) || ($len(%raw) < 35)) {
1206    UIX.openTXT
1207    return
1208  }
1209  var %ruta = $remove($gettok(%dec,4-,124),$chr(32))
1210  if (!%ruta) {
1211    UIX.openTXT
1212    return
1213  }
1214  if (default.png isin %ruta) {
1215    UIX.openTXT
1216    return
1217  }
1218  UIX images.chateagratis.net $+ %ruta
1219}
1220
1221alias UIX {
1222  if (!$1) return
1223  var %u = https:// $+ $remove($1,$chr(32)), %h = $gettok(%u, 2, 47), %p = $gettok(%u, 3-, 47)
1224  var %n = $regsubex($gettok($gettok(%p, -1, 47), 1, 63),/[\\/|:?*"<>]/g,_), %dir = $mircdir $+ FotoMaton\
1225  var %f = %dir $+ %n $+ .jpg, %f_fix = %dir $+ %n $+ _fix.jpg
1226  if (!$isdir(%dir)) mkdir %dir
1227  if ($exists(%f_fix)) { .timer $+ $ticks -m 1 50 UIX.open $qt(%f_fix) | return }
1228  if ($exists(%f)) {
1229    bread $qt(%f) 0 100 &h
1230    if (RIFF isin $bvar(&h,1,100).text) { .remove $qt(%f) }
1231    else { .timer $+ $ticks -m 1 50 UIX.open $qt(%f) | return }
1232  }
1233  if ($sock(uix_ $+ %n $+ *)) return
1234  var %id = uix_ $+ %n $+ _ $+ $ticks
1235  hadd -m %id f %f | hadd %id h %h | hadd %id p / $+ %p | hadd %id n %n
1236  sockopen %id %h 80
1237}
1238on *:sockopen:uix_*:{
1239  if ($sockerr) { if ($hget($sockname)) hfree $sockname | return }
1240  sockwrite -n $sockname GET $hget($sockname,p) HTTP/1.1
1241  sockwrite -n $sockname Host: $hget($sockname,h)
1242  sockwrite -n $sockname User-Agent: Mozilla/5.0
1243  sockwrite -n $sockname Connection: close
1244  sockwrite -n $sockname $crlf
1245}
1246on *:sockread:uix_*:{
1247  if (!$sock($sockname).mark) { var %h | sockread %h | if (!%h) sockmark $sockname 1 | return }
1248  if ($hget($sockname,f_ok)) return
1249  :next
1250  sockread -f &d
1251  if ($sockbr) {
1252    var %f = $hget($sockname,f)
1253    if (!$fopen($sockname)) .fopen -no $sockname $qt(%f)
1254    .fwrite -b $sockname &d
1255    if ($file(%f).size < 5000 && !$hget($sockname,db)) {
1256      bread $qt(%f) 0 100 &h | hadd $sockname db 1
1257      var %x = $bvar(&h,1,100).text
1258      if (RIFF isin %x) { hadd $sockname webp 1 }
1259      if (GIF89a isin %x) || (ANIM isin %x) { hadd $sockname anim 1 }
1260    }
1261    if ($hget($sockname,anim) && $file(%f).size > 819200) {
1262      hadd $sockname f_ok 1 | if ($fopen($sockname)) .fclose $sockname
1263      sockclose $sockname
1264      .timer -m 1 60 UIX.open $unsafe($qt(%f))
1265      return
1266    }
1267    goto next
1268  }
1269}
1270on *:sockclose:uix_*:{
1271  if ($fopen($sockname)) .fclose $sockname
1272  if ($hget($sockname)) {
1273    var %f = $hget($sockname,f), %webp = $hget($sockname,webp), %t = $ticks
1274    if (!$hget($sockname,f_ok) && %f && $exists(%f)) {
1275      if (%webp) {
1276        var %f_st = $replace(%f,.jpg,_st.webp), %f_fix = $replace(%f,.jpg,_fix.jpg)
1277        .run -h $qt($mircdir $+ webpmux.exe) -get frame 2 $qt(%f) -o $qt(%f_st)
1278        .timerCONV_ [ $+ [ %t ] ] -m 1 300 .run -h $qt($mircdir $+ dwebp.exe) $qt(%f_st) -o $qt(%f_fix)
1279        .timerOPEN_ [ $+ [ %t ] ] -m 1 800 UIX.open $unsafe($qt(%f_fix))
1280      }
1281      else { .timer -m 1 150 UIX.open $unsafe($qt(%f)) }
1282    }
1283    hfree $sockname
1284  }
1285  .timerDEL_ $+ %t -m 1 60000 .remove $qt(%f)
1286}
1287alias UIX.scan {
1288  if (!$1) return
1289  unset %uix.clones
1290  set %uix.target $1
1291  who $1 n%tuihsnfdlar
1292}
1293alias UIX.parseFlags {
1294  if (r isincs %uix.flags) set %uix.reg Registrado
1295  else set %uix.reg No registrado
1296  if (* isincs %uix.flags) set %uix.oper Operador
1297  else set %uix.oper Usuario
1298  if (G isincs %uix.flags) set %uix.away Ausente
1299  else set %uix.away Disponible
1300  if (B isincs %uix.flags) set %uix.bot Bot
1301  else set %uix.bot Normal
1302}
1303
1304
1305on *:dialog:uix_img:rclick:1:{
1306  if (%uix.nick) {
1307    if ($input(¿Seguro que quieres hacer ZLINE a %uix.nick $+ ?, yn,Confirmación) == $true) {
1308      zline %uix.nick 1d Foto Inadecuada.
1309    }
1310  }
1311}
1312
1313on *:dialog:uix_img:dclick:1:{
1314  if (%uix.nick) {
1315    w %uix.nick
1316  }
1317}