Zettbot 0.3.4

;~~~~ Version 0.3.4 ~~~~

On *:Start:{
  .server irc.something.something
  .server -m irc.something2.something
}
On *:Connect:{
  if ($network == somthing ) {
    /timer 1 1   .join #somthing
    /timer 1 1   .join #somthing2

  }
  if ($network == somthing2 ) {
    /timer 1 1   .join #somthing
  }
}

;~~ time for some bot codes ~~

on *:text:Z.code:*: {
  msg $chan http://pastebin.com/nbMnAhCj
}

;~~~~ Join / Leave ~~~~
on *:text:z.Join*:*: {
  var %ownercheck user@something.something
  if ($address !isin %ownercheck) {
    msg $chan nope
  }
  else {
    /join #$2
  }
}

on *:text:z.leave:*: {
  var %ownercheck user@something.something
  if ($address !isin %ownercheck) {
    msg $chan lol nope
  }
  else {
    /leave $chan YES MY MASTER
  }
}

;~~~~ Welcome ~~~~

on *:text:Zettbot:*: {
  msg $chan 3Zettbot V0.3.4 Created by Jousway - 7For commands use Z.Info for basic commands and Z.Sminfo for stepmania commands
}

;~~~~ Command Codes ~~~~

on *:text:Z.info:*: {
  msg $chan 3Zettbot v0.3.4 Commands - 7For command info use Z.info Z."command" - 12Z.google Z.sbooru Z.rb Z.8ball z.or
}

on *:text:Z.Hinfo:*: {
  msg $chan 3Zettbot v0.3.4 Commands 13+Hentai - 7For command info use Z.info Z."command" - 12Z.google 13Z.mugi Z.ghentai Z.exhentai 12Z.sbooru 13Z.dbooru Z.gbooru 12Z.rb Z.8ball z.or
}

on *:text:Z.Sminfo:*: {
  msg $chan 3Zettbot v0.3.4 Commands Stepmania - 7For command info use Z.SMinfo Z."command" - T = Theme, N = Noteskin 12Basic: Z.Download Z.Toriginal Z.Tports Z.Ndance Z.Npump 4Help: Z.Lua Z.Twiki Z.Nwiki (unfinished) Z.Bug
}

;~~~ explained info ~~~

on *:text:Z.info Z.google:*: {
  msg $chan Z.google - Google Search.
}

on *:text:Z.info Z.mugi:*: {
  msg $chan Z.mugi - MugiMugi The Doujinshi & Manga Lexicon.
}

on *:text:Z.info Z.ghentai:*: {
  msg $chan Z.ghentai - E-Hentai Galleries - The Free Hentai Doujinshi, Manga, HCG and Image Gallery System.
}

on *:text:Z.info Z.exhentai:*: {
  msg $chan Z.exhentai - SAD PANDA.
}

on *:text:Z.info Z.dbooru:*: {
  msg $chan Z.dbooru - Danbooru Anime Imageboard Search, add Pool, Tag or Artist to search in those categories.
}

on *:text:Z.info Z.gbooru:*: {
  msg $chan Z.dbooru - Gelbooru Anime Imageboard Search.
}

on *:text:Z.info Z.sbooru:*: {
  msg $chan Z.dbooru - Safebooru Anime Imageboard Search.
}

on *:text:Z.info Z.rb:*: {
  msg $chan Z.rb - Rainbow text.
}

;on *:text:Z.info Z.fw:*: {
;  msg $chan Z.fw - THE FUCKING WEATHER.
;}

on *:text:Z.info Z.8ball:*: {
  msg $chan Z.8ball - Shake the 8ball for a question.
}

on *:text:Z.info Z.or:*: {
  msg $chan Z.8ball - value1 or value2.
}

;~~~ explained SmInfo ~~~

;~~ basics ~~

on *:text:Z.sminfo Z.Download:*: {
  msg $chan Z.Download - Sm5 google page with latest stable stepmania download
}

on *:text:Z.sminfo Z.Toriginal:*: {
  msg $chan Z.Toriginal - List of themes created for sm5 by the SSC.
}

on *:text:Z.sminfo Z.Tports:*: {
  msg $chan Z.Tports - List of themes ported for sm5 by the SSC.
}

on *:text:Z.sminfo Z.Ndance:*: {
  msg $chan Z.Ndance - List of Noteskins ported for sm5 for the Dance gametype by Jousway.
}

on *:text:Z.sminfo Z.Npump:*: {
  msg $chan Z.Npump - List of Noteskins ported for sm5 for the Pump gametype by Jousway.
}

;~~ help ~~

on *:text:Z.sminfo Z.Lua:*: {
  msg $chan Z.Lua - List of lua commands used in sm5.
}

on *:text:Z.sminfo Z.Twiki:*: {
  msg $chan Z.Twiki - Website to help you with theming.
}

on *:text:Z.sminfo Z.Nwiki:*: {
  msg $chan Z.Nwiki - Website to help you with creating noteskins (unfinished).
}

on *:text:Z.sminfo Z.Bug:*: {
  msg $chan Z.Bug - sm5 Bugtracker.
}


;~~~~ Main search codes ~~~~~

;~~~ google basic code ~~~

on *:text:Z.google *:*: {
  if ($2 = $null) {
    halt
  }
  else {
    msg $chan http://www.google.com/search?q= $+ $htmlfrm($2-)
    halt
  }
}

;on *:text:Z.google+1*:*: {
; if ($2 = $null) {
;    halt
;  }
;  else {
;    msg $chan http://www.google.com/search?q= $+ $htmlfrm($2-)
;    sockopen google1 google.com 80
;    halt
;  }
;}

;~~~ MugiMugi ~~~

on *:text:Z.mugi*:*: {
  if ($2 = $null) {
    halt
  }
  else {
    msg $chan http://doujinshi.mugimugi.org/search/simple/?T=objects&sn= $+ $htmlfrm($2-)
    halt
  }
}

;~~~ Danbooru ~~~

on *:text:Z.dbooru*:*: {
  if ($2 = $null) {
    halt
  }
  elseif ($2 = pool) {
    msg $chan http://danbooru.donmai.us/pool?query= $+ $htmlfrm($3-)
  }
  elseif ($2 = tag) {
    msg $chan http://danbooru.donmai.us/tag?&name= $+ $htmlfrm($3-)
  }
  elseif ($2 = artist) {
    msg $chan http://danbooru.donmai.us/artist?name= $+ $htmlfrm($3-)
  }
  else {
    msg $chan http://danbooru.donmai.us/post?tags= $+ $htmlfrm($2-)
    halt
  }
}

;~~~ Gelbooru ~~~

on *:text:Z.gbooru*:*: {
  if ($2 = $null) {
    halt
  }
  else {
    msg $chan http://gelbooru.com/index.php?page=post&s=list&tags= $+ $htmlfrm($2-)
    halt
  }
}

;~~~ Safebooru ~~~

on *:text:Z.sbooru*:*: {
  if ($2 = $null) {
    halt
  }
  else {
    msg $chan http://safebooru.org/index.php?page=post&s=list&tags= $+ $htmlfrm($2-)
    halt
  }
}

;~~~ g.e-hentai ~~~

on *:text:Z.ghentai*:*: {
  if ($2 = $null) {
    halt
  }
  else {
    msg $chan http://g.e-hentai.org/?f_doujinshi=1&f_manga=1&f_search= $+ $htmlfrm($2-)
    halt
  }
}

;~~~ exhentai ~~~

on *:text:Z.exhentai*:*: {
  if ($2 = $null) {
    halt
  }
  else {
    msg $chan http://exhentai.org/?f_doujinshi=1&f_manga=1&f_search= $+ $htmlfrm($2-)
    halt
  }
}

;~~~~ Stepmania ~~~~~

on *:text:Z.Download*:*: {
  msg $chan http://code.google.com/p/sm-ssc/downloads/list
}

on *:text:Z.Toriginal*:*: {
  msg $chan http://ssc.ajworld.net/?p=projects
}

on *:text:Z.Tports*:*: {
  msg $chan http://ssc.ajworld.net/?p=ports
}

on *:text:Z.Ndance*:*: {
  msg $chan http://jousway.co.uk/Unlimited_Stepman_Works/_Noteskin/SM5/Dance/
}

on *:text:Z.Npump*:*: {
  msg $chan http://jousway.co.uk/Unlimited_Stepman_Works/_Noteskin/SM5/Pump/
}

on *:text:Z.Lua*:*: {
  msg $chan http://kki.ajworld.net/lua/sm5/Lua.xml
}

on *:text:Z.Twiki*:*: {
  msg $chan http://kki.ajworld.net/wiki/Main_Page
}

on *:text:Z.Nwiki*:*: {
  msg $chan http://jousway.co.uk/Unlimited_Stepman_Works/wiki/index.php/Understanding_and_Creating_Noteskins (unfinished)
}

on *:text:Z.Bug*:*: {
  msg $chan http://ssc.ajworld.net/sm-ssc/bugtracker/my_view_page.php
}



;~~~~ Other Stuff ~~~~

;~~~ Better Better Booru ~~~

on *:text:*Z.BBBooru*:*: {
  msg $chan http://userscripts.org/scripts/show/100614
}

~~~ RAINBOWS ~~~

on *:text:Z.rb*:*: {
  if ($2 = $null) {
    halt
  }
  else {
    var %a = 04 07 08 09 11 12 06
    msg $chan $regsubex($2-,/([^ ])/g,$+($chr(3),$gettok(%a,$iif($calc(\n % $numtok(%a,32)),$v1,$numtok(%a,32)),32),$chr(44),01,\1))
    halt
  }
}

;~~~ 8ball ~~~~

on *:text:Z.8ball*:*: {
  if ($2 = $null) {
    halt
  }
  else {
    /set %8ball $rand(1,5)
    /describe $chan shaking dat 8ball
    if ((%8ball == 1)) msg $chan 8ball: yes
    if ((%8ball == 2)) msg $chan 8ball: no
    if ((%8ball == 3)) msg $chan 8ball: proably
    if ((%8ball == 4)) msg $chan 8ball: doubt it
    if ((%8ball == 5)) msg $chan 8ball: ask again later
  }
}

;~~~ OR ~~~~

on *:text:Z.or*:*: {
  if ($2 = $null) {
    halt
  }
  else {
    if ($3 = or) {
      /set %or $rand(1,2)
      if ((%or == 1)) msg $chan $2
      if ((%or == 2)) msg $chan $4
    }
    else msg $chan please use 1 word between and after or
  }
}

;~~~ ORTEST ~~~~


;on *:text:Z.testor*:*: {
;  if ($2 = $null) {
;    halt
;  }
;  else {
;    if ($ = or) {
;      /set %v0 if (($ == or))
;      /set %or $rand(1,2)
;      if ((%or == 1)) msg $chan -%v0
;      if ((%or == 2)) msg $chan %v0-
;    }
;  }
;}



;~~~~ Definers/sockets ~~~~

;~~~ google socket ~~~

;on *:sockopen:google1:{
;  sockwrite -n $sockname GET / HTTP/1.1
;  sockwrite -n $sockname Host: http://www.google.com/search?q= $+ $htmlfrm($2-)
;}

;on *:sockread:google1:{
;  sockread %temp
;  echo -a %temp
;}

;~~~ htmlfrm definer ~~~

alias htmlfrm {
  var %i = 1,%r
  while (%i <= $len($1-)) {
    if ($mid($1-,%i,1) isalnum) { %r = %r $+ $ifmatch }
    else { %r = %r $+ % $+ $base($asc($mid($1-,%i,1)),10,16,2) }
    inc %i
  }
  return %r
}