Ver Foto

menu nicklist {
 -
 Ver foto: { window -c @foto | set %xy.temp. $+ $snicks(0) $calc($mouse.mx - 310) $calc($mouse.my - 180) | cargafoto $snicks(0) }
 -
}


alias cargafoto {
  set %nick.b $1
  sockopen $1 $+ foto registro.chatzona.org 80
}
on 1:sockopen:*foto:{
  sockwrite -n $sockname GET /usuarios/ $+ %nick.b HTTP/1.1
  sockwrite -n $sockname Host:  registro.chatzona.org
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname $crlf
}
on 1:sockread:*foto: {
  sockread %l
  var %sn = $sockname
  if (<title>Redirecting to /usuarios/ isin %l) { set %nick.b $gettok($gettok(%l,3,47),1,60)  | sockclose %sn |  sockopen %sn registro.chatzona.org 80 }
  if (medium.jpg isin %l) {
    set %dd $gettok(%l,26,34)
    if (http isin %dd) { carga %dd $remove($sockname,foto) %xy.temp. [ $+ [ $remove($sockname,foto) ] ] | sockclose $sockname | unset %xy.temp. $+ $remove($sockname,foto) }
  }
}
alias quees { if ($1 isop $2) { return Op } | if ($1 isvoice $2) { return Voz } | if ($1 !isvoice $2) && ($1 !isop $2) { return Normal } }
alias chancomun { var %f = $chan(0) | var %n = 1 | var %cc = 0 | while (%n <= %f) { if ($1 ison $chan(%n)) { inc %cc } |  inc %n } | return %cc }
alias carga {
  var %x = $1 | window -kBp +bdt @Foto $3 $4 240 240
  .timerclosefoto 1 3 window -c @foto |  dll nHTMLn_2.95.dll attach $window(@foto).hwnd
  dll nHTMLn_2.95.dll select $window(@foto).hwnd | dll nHTMLn_2.95.dll navigate %x
}