;-AnonOps Status bot.

=[ Commands ]=
Commands
!check <website/url> - checks if the host is online/offline
!loic - Returns the latest loic link.
!hive - Returns the hive server + port.
!set hive - Changes hive info.
!target - Returns the current target.
!set target - changes target info.
!shout - Shouts the text you set with !set shout.
!set shout - Changes shout text.
!linux - Returns T50 link.
!commands - Returns all commands you see above.
!peak - Returns how much loic's are in the hive.

;-The script starts here!

on $*:text:/^[.!@]check*/Si:#: {
  if ($sock(check)) { sockclose check }
  sockopen check www.downforeveryoneorjustme.com 80
  sockmark check $$2 # $nick
}
on *:sockopen:check: {
  sockwrite -n $sockname GET $+(/,$gettok($sock(check).mark,1,32)) HTTP/1.1
  sockwrite -n $sockname Host: www.downforeveryoneorjustme.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:sockread:check: {
  var %x | sockread %x
  if ($regex(%x,(.+)<a href="(.+)"\sclass="domain">.+<\/a>(.+))) {
    tokenize 32 $sock(check).mark
    msg $2 $+($3,:) $regsubex($+($regml(1),,$regml(2),,$regml(3)),/(<[^>]*>)/g,)
  }
}
on *:text:!loic:#:{
  msg $chan https://github.com/NewEraCracker/LOIC/downloads
}
 
 
on *:text:!commands:#:{
  notice $nick !check, !loic, !linux, !hive, !peak, !target
}
 
on *:text:!sethive *:#:{
  if ($nick isop #) {
    set %hiveserver $2-
    msg $chan Hive server changed, New server $2-
  }
}
 
on *:text:!hive:#:{
  msg $chan HIVE: %hiveserver
}
 
on *:join:#OpV:{
  notice $nick Welcome to Operation Vendetta,  !commands for more info.
}
on *:text:!linux:#:{
  msg $chan Get T50 at http://is.gd/u36O65
}
 
on *:text:!set target *:#:{
  if ($nick isop #) {
    msg $chan Target updated see: !target
    set %atarget $3-
  }
}
 
on *:text:!target:#:{
  notice $nick Current Target: %atarget
}
 
on *:text:!set shout *:#:{
  if ($nick isop #) {
    set %ashout $3-
    msg $chan Shout changed!
  }
}
on *:Text:!shout:#:{
  if ($nick isop #) {
    msg $chan %ashout
  }
}
 
on *:text:!peak:#:{ scon $getscon(irc.infatech.net) | var %a $nick(#OpV,0) | scon $getscon(belldandy.anonops.in) | msg #Opv There are %a lazors in the hive! }
alias getscon var %a 1 | while ($scon(%a) != $null) { if ($scon(%a).server == $1) return %a | inc %a }