Anonymous

on *:TEXT:!vids*:#lets-hang: { 
  if ($chan == #lets-hang) { 
    msg $chan $read(vids.txt) 
  } 
}
on *:TEXT:!addvid *:#lets-hang:{ 
  if ($nick isop $chan) {
    write vids.txt $2-
    .notice $nick vid was posted
  }
  else {
    .notice $nick you be be an op and in #dips-chat
  }
}
on *:TEXT:!delvid *:#lets-hang: {
  if ($nick isop $chan) {
    remini vids.txt $2-
    notice $nick Vid Deleted
  }
}




on $*:TEXT:/^[!@.]Stats/Si:#:{
  var %randstats $r(1,99999)
  if ($len($2) > 12) { Notice $nick I need a real RSN tardface | halt }
  if (!$2) && (!$readini(defname.ini,-n,Defnames,$address($nick,2))) { set %name [ $+ [ %randstats ] ] $nick }
  if ($2) && ($len($2) < 12) && ($chr(36) !iswm $2) { set %name [ $+ [ %randstats ] ] $replace($2-,$chr(32),$chr(95)) }
  if (!$2) && ($readini(defname.ini,-n,Defnames,$address($nick,2))) { set %name [ $+ [ %randstats ] ] $readini(defname.ini,-n,Defnames,$address($nick,2)) }
  set %statsout [ $+ [ %randstats ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
  sockopen statss. [ $+ [ %randstats ] ] rs.facepwn.com 80
}
on *:SOCKOPEN:statss.*:{
  sockwrite -nt $sockname GET /Parsers/stats.php?user= $+ %name [ $+ [ $gettok($sockname,2,46) ] ] $+ &c1=10&c2=4&mode=l  HTTP/1.1
  sockwrite -nt $sockname Host: rs.facepwn.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:statss.*:{
  var %read
  sockread %read
  if (*user not found* iswm %read) { %statsout [ $+ [ $gettok($sockname,2,46) ] ] Sorry, %name [ $+ [ $gettok($sockname,2,46) ] ] $+ 's stats could not be found :( | /statscleanup $gettok($sockname,2,46) | sockclose $sockname | halt }
  if (*END* iswmcs %read) { %statsout [ $+ [ $gettok($sockname,2,46) ] ] $remove(%read,END) }
}
on *:SOCKCLOSE:statss.*:{
  statscleanup $gettok($sockname,2,46)
}

alias statscleanup {
  unset %statsout [ $+ [ $1 ] ]
  unset %name [ $+ [ $1 ] ]
}

on $*:TEXT:/^[!@.]DefName/Si:#: {
  if (!$2) { notice $nick mabye you should give me a rsn... | halt }
  elseif ($len($2-) > 12) { notice $nick RSN is too long, nice try | halt }
  elseif ($chr(36) isin $2-) { notice $nick nice try... | halt }
  else { writeini defname.ini Defnames $address($nick,2) $replace($2-,$chr(32),$chr(95)) | notice $nick Your defname for $address($Nick,2) is now $2- }
}