This is basically abunch of scripts put together.

I wrote every single command though and edited a few things I didn't like and want to know what you guys think and if theres anything I can do to improve it!!!

I know alot of it is crap but!!!

I think someone will get use out of it!!

I think its basically everything people want in a bot

; /googlesearch alias query
; Results will be passed to command
alias googlesearch {
  var %x = 1
  while ($sock($+(google,%x))) inc %x
  sockopen $+(google,%x) www.google.com 80
  sockmark $+(google,%x) $1-
}
ON *:SOCKOPEN:google*: {
  if ($sockerr) {
    var %cmd = $gettok($sock($sockname).mark,1,32)
    %cmd Socket error $sockerr
    return
  }

  sockwrite -n $sockname GET $+(/search?q=,$phex($gettok($sock($sockname).mark,2-,32)),&btnI=I%27m+Feeling+Lucky HTTP/1.0)
  sockwrite $sockname $crlf
}
on *:SOCKREAD:google*: {
  var %f, %cmd, %result
  %cmd = $gettok($sock($sockname).mark,1,32)

  if ($sockerr) {
    %cmd Socket error $sockerr
    return
  }

  while (1) {
    sockread %f
    if (!$sockbr) break
    if (<A HREF="*">here</a>. iswm %f) {
      %result = $gettok(%f,2,34)
      sockclose $sockname
      break
    }
    elseif (HTTP/1.0 200 OK = %f) {
      %result = There are no results.
      sockclose $sockname
      break
    }
  }

  if (%result) {
    %cmd %result
  }
}
alias google { googlesearch google2 $1- }
alias google2 { echo $colour(info) -a *** Google search: $1- }

; !google query in a channel will message the channel with the results.
alias google3 { msg %google3 Google search: $1- | unset %google3 }
on *:TEXT:!google *:#: {
  set %google3 $chan
  googlesearch google3 $2-
}

; Convert some text to hexadecimal form
alias phex {
  var %x = 1, %s = $len($1), %r, %w
  while (%x <= %s) {
    %w = $mid($1,%x,1)
    if ($asc(%w) = 32) {
      %r = $+(%r,+)
    }
    elseif ($asc(%w) !isnum 65-90) && ($asc(%w) !isnum 97-122) && ($asc(%w) !isnum 48-57) {
      %r = $+(%r,%,$base($asc(%w),10,16,2))
    }
    else {
      %r = $+(%r,%w)
    }
    inc %x
  }
  return %r
}

#Autovoice on
...
on *:JOIN:#:if ($istok(%avoice,#,32)) { mode # +v $Nick }
...
#Autovoice end
*:LOAD:set %AvoiceSwitch on
menu channel,menubar {
  Auto-Voice
  .$iif(%AvoiceSwitch == off,Enable Avoice,$style(1) Avoice Enabled): set %AvoiceSwitch on | describe $chan Avoice Script Now Enabled
  .$iif(%Avoice,Add/Remove,Disabled)
  .. Enable for $chan : .Enable #avoice | /msg $chan Auto Voice Is Now Enabled for this room | set %avoice $addtok(%avoice,$chan,32)
  .. Disable for $chan : .Disable #avoice | /msg $chan Auto Voice Is Now Disabled for this chan | set %avoice $remtok(%avoice,$matchtok(%avoice,$chan,1-,32),32)
  .$iif(%AvoiceSwitch == on,Disable Avoice,$style(1) Avoice Disabled): set %AvoiceSwitch off | Describe $chan Avoice Script Now Disbled
}

on !*:TEXT:!kill*:#:{
  if (!$($+(%,Kflood),3)) {
    set -u3 $+(%,Kflood) on
    if (!$2) { msg # 4No Nick Was Entered To Kill! } 
    if ($2 == $me) { msg # 11I'm Not Going To Kill Myself! }
    if ($2 !== $me) {
      if ($2) {
        var %K = Grabs a chainsaw and shoves it into $2 $+ 's stomach and watches them die a painful death!|slits they're throat with a buck knife.|pulls out a gun and shoots $2 in the throat.|grabs a knife and slits open the bottom of there stomach and watches their intestines fall to the ground!|Shove A Wii Remote Into The Head Of $2 And Laughs! lol >:D
        msg # 4 $+ $gettok(%K,$r(1,4),124)
      }
    }
  }
}

on $*:text:/^[!](w|weather|f|forecast)/Si:#: {
  if ($group(#weather) == on) { msg $chan Please wait a bit }
  if ($group(#weather) == off) {
    if ($istok(!w !weather,$1,32)) {
      if ($2 isnum && $len($2) = 5 && !$3) { 
        set %whzip $2 | set %whchan $chan | .enable #weather
        sockopen weather www.weather.com 80 
      }
      if ($2 isnum && $len($2) = 5 && $3 == forecast) { 
        set %whzip $2 | set %whfc on | set %whchan $chan
        .enable #weather | sockopen weather www.weather.com 80
      }
    }
    if ($istok(!f !forecast,$1,32)) { 
      if ($2 isnum && $len($2) = 5) {
        set %whzip $2 | set %whfc on | set %whchan $chan
        .enable #weather | sockopen weather www.weather.com 80
      }
    }
  }
}
; Usage /weatherm 12345 or /weatherm 12345 forecast
alias weatherm {
  if ($active ischan) {
    if ($1 isnum && $len($1) == 5) {
      if (!$2) { set %whzip $1 | set %whchan $chan | .enable #weather }
      if ($2) { set %whzip $1 | set %whfc on |  set %whchan $chan | .enable #weather }
      sockopen weather www.weather.com 80
    }
  }
  if ($active !ischan) { echo -a Invalid window. (Use a channel window) }
}
#weather off
on *:sockopen:weather: {
  sockwrite -n $sockname GET /outlook/travel/businesstraveler/local/ $+ %whzip $+ ?lswe= $+ %whzip $+ &lwsa=Weather36HourBusinessTravelerCommand&from=searchbox_localwx
  sockwrite -n $sockname Host: www.weather.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname Authorization: Basic 
  sockwrite -n $sockname $crlf
}
on *:sockread:weather: {
  sockread %whtemp
  if (Right Now for isin %whtemp) { set %whloc $remove($nohtml(%whtemp),Right Now for,Save Location,$chr(9)) }
  if (%whfc != on) {    
    if (alt=""/><br/><strong class="obsTextA"> isin %whtemp) { set %whcond $remove($nohtml(%whtemp),$chr(9)) }
    if (<strong class="obsTempTextA"> isin %whtemp) { set %whcurrent $remove($nohtml(%whtemp),&deg;F,$chr(9)) }
    if (Feels Like isin %whtemp) { set %whfeels $remove($nohtml(%whtemp),&deg;F,Feels Like,$chr(9)) }
    if (class="updated">Updated: isin %whtemp) { set %whupdated $remove($nohtml(%whtemp),Updated:,$chr(9)) }
    if (class="crowli">UV Index: isin %whtemp) { set %whuvindex $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
    if (class="crowli">Wind: isin %whtemp) { set %whwind $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
    if (class="crowli">Humidity: isin %whtemp) { set %whhumidity $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
    if (class="crowli">Pressure: isin %whtemp) { set %whpressure $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
    $iif(*steady_pressure.gif">* iswm %whtemp,set %whpressure1 and steady,$iif(*up_pressure.gif">* iswm %whtemp, set %whpressure1 and rising,$iif(*down_pressure.gif">* iswm %whtemp,set %whpressure1 and dropping))))  
    if (class="crowli">Dew Point: isin %whtemp) { set %whdewpoint $remove($gettok($nohtml(%whtemp),2-,58),&deg;F,$chr(9)) }
    if (class="crowli">Visibility: isin %whtemp) { set %whvisibility $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
    if (class="crowli">Sunrise: isin %whtemp) { set %whsunrise $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
    if (class="crowli">Sunset: isin %whtemp) { set %whsunset $remove($gettok($nohtml(%whtemp),2-,58),$chr(9)) }
  }
  if (%whfc == on) { 
    if (STYLE="padding:5px 5px 5px 0px;"> isin %whtemp) { inc %xx 1 | set %whfcond $+ %xx $remove($nohtml(%whtemp),$chr(9)) }
    if (class="whiteArialLink11"><B> isin %whtemp) { inc %xxx 1 | set %whfdays $+ %xxx $remove($nohtml(%whtemp),$chr(32),$chr(9)) }
    if (class="blueVerdanaText11" align="left"> isin %whtemp) { inc %xxxx | set %whfprecip $+ %xxxx $remove($nohtml(%whtemp),$chr(32),$chr(9)) }
    if (align="center" class="blueVerdanaText11"> isin %whtemp) { inc %xxxxx | set %whfsuns $+ %xxxxx $remove($nohtml(%whtemp),$chr(9)) }
  }
}
on *:sockclose:weather: {
  if (!%whloc) { msg %whchan Please try another zipcode as that does not exists. | unset %wh* | .disable #weather }
  else {
    msg %whchan $colored(Location:,4) %whloc
    if (%whfc != on) {
      set %whcurrentc $+($round($calc((%whcurrent - 32) * (5 / 9)),0),$chr(176),C)
      set %whfeelsc $+($round($calc((%whfeels - 32) * (5 / 9)),0),$chr(176),C)
      set %whdewpointc $+($round($calc($calc($calc(%whdewpoint) - 32) * $calc(5 / 9)),0),$chr(176),C)
      msg %whchan $colored(Currently:,12) $+(%whcurrent,$chr(176),F) $chr(47) %whcurrentc $colored(Feels like:,12) $+(%whfeels,$chr(176),F) $chr(47) %whfeelsc
      msg %whchan $colored(Conditions:,3) %whcond $colored(Pressure:,3) %whpressure %whpressure1 $colored(Humidity:,3) %whhumidity
      msg %whchan $colored(Visibility:,3) %whvisibility $colored(UV Index:,3) %whuvindex $colored(Wind:,3) %whwind 
      msg %whchan $colored(Dew Point:,3) $+(%whdewpoint,$chr(176),F) $chr(47) %whdewpointc $colored(Sunrise:,3) %whsunrise $colored(Sunset:,3) %whsunset
      msg %whchan $colored(Last Updated:,3) %whupdated $colored(Info From:,3) www.weather.com
      unset %wh* | .disable #weather
    }
    if (%whfc == on) {
      msg %whchan $colored($+(%whfdays1,:),3) Precip: $remove(%whfprecip1,$chr(32)) %whfsuns1
      msg %whchan $colored($+(%whfdays1,:),3) %whfcond1
      msg %whchan $colored($+(%whfdays2,:),3) Precip: $remove(%whfprecip2,$chr(32)) %whfsuns2
      msg %whchan $colored($+(%whfdays2,:),3) %whfcond2
      msg %whchan $colored($+(%whfdays3,:),3) Precip: $remove(%whfprecip3,$chr(32)) %whfsuns3
      msg %whchan $colored($+(%whfdays3,:),3) %whfcond3
      msg %whchan $colored(Info From:,3) www.weather.com
      unset %wh* %whf* %x* | .disable #weather
    }
  }
}
; Usage: $colored(TEXT,N1,N2) or $colored(TEXT,N1,N2).b
; N1 & N2 are both optional.
alias colored { if ($isid) { return $+($iif($prop = b,$chr(2)),$iif($2 isnum 0-15,$+($chr(3),$iif($len($2) == 1,$+($chr(48),$2),$2))),$iif($3 isnum 0-15,$+($chr(44),$iif($len($3) == 1,$+($chr(48),$3),$3))),$1,$chr(15)) } }
alias -l nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
#weather end                    

on *:ACTION:*slap Mack*:#:{
  describe $chan dodges and hits $nick over the head with an anvil.
}
on *:ban:#:{ 
  if ($bnick == $me || $banmask == $address($me,2) && $me isop $chan || $me ishop $chan )  {   
    mode $chan -o $nick 
    mode $chan -b $banmask
    ban -u90 $chan $nick 2
    kick $chan $nick HA IM FASTER >;) 
  } 
}
ON :s
start:{
  Hmake Uno 50
  if ($isfile(uno.dat)) hload uno uno.dat
}
on *:exit: hsave uno uno.dat  2=hmakeuno50
on *:nick:{
  var %i = $hget(0), %c
  while (%i) {
    if ($newnick ison $hget(%i)) {
      %c = $v2
      break
    }
    dec %i
  }
  if ($hget(%c,$nick)) {
    hadd %c $newnick $v1
    hadd %c $hfind(%c,$nick).data $newnick
  }
}
on *:quit:{
  var %i = $hget(0), %c
  while (%i) {
    if ($me ison $hget(%i)) && ($hget($hget(%i),$nick)) remplayer %c $nick $nick has been removed from the current game.
    dec %i
  }
}
on *:part:#:{
  if (!$hget(#)) return
  if ($hget(#,$nick)) remplayer # $nick $nick was removed from the current game.
  elseif ($nick == $me) hfree #
}
on *:kick:#:{
  if (!$hget(#)) return
  if ($hget(#,$nick)) remplayer # $nick $nick was removed from the current game.
  elseif ($nick == $me) hfree #
}
on $*:text:/^[@!.](uno)?score/Si:#:{
  var %u = $iif($2,$2,$nick)
  $iif($left($1,1) == @,msg #,notice $nick) %u has $bytes($iif($hget(uno,%u),$v1,0),b) wins.
}
on $*:text:/^[@!.](uno)?top10$/Si:#:{
  var %x, %i = $hget(uno,0).item, %o
  while (%i) {
    %x = $instok(%x,$hget(uno,$hget(uno,%i).item),0,32)
    dec %i
  }
  %x = $sorttok(%x,32,nr)
  %i = 1
  while (%i <= 10) {
    if (!$hget(uno,%i).item) break
    %o = $addtok(%o,$ord(%i) $+ : $hfind(uno,$gettok(%x,%i,32),$calc($findtok(%o,$gettok(%x,%i,32),0,32) +1)).data - $bytes($gettok(%x,%i,32),b) |,32)
    inc %i
  }
  $iif($left($1,1) == @,msg #,notice $nick) $left(%o,-1)
}
on $*:text:/^[@!.]uno$/Si:#:{
  if ($hget(#,players)) notice $nick There is already an uno game in progress in # $+ .
  else {
    if ($hget(#)) hfree #
    hmake #
    hadd # p1 $nick
    hadd # $nick $cards(7)
    hinc # players
    msg # $nick has started 3U04N12O v2.0 by BrAndo. Type !join to join the game.
    notice $nick Type !deal to start the game.
  }
}
on $*:text:/^[@!.]?join$/Si:#:{
  if (!$hget(#,p1)) return
  elseif ($hget(#,$nick)) notice $nick You are already playing!
  else {
    hinc # players
    hadd # p $+ $hget(#,players) $nick
    hadd # $nick $cards(7)
    msg # $nick will be player $hget(#,players) $+ .
  }
}
on $*:text:/^[@!.](deal|start( ?game)?|play|begin)$/Si:#:{
  if (!$hget(#,p1)) return
  elseif (!$hget(#,$nick)) notice $nick You aren't in this game.
  elseif ($hget(#,turn)) notice $nick The game has already started.
  elseif ($nick != $hget(#,p1)) msg # Only $v2 can start the game.
  elseif ($hget(#,players) !> 1) msg # You need atleast two people to play.
  else {
    var %c = 01
    while (01* iswm %c) %c = $cards(1)
    hadd # top %c
    hadd # turn 1
    hadd # rev $true
    msg # $hget(#,p1) $+ 's turn.
    msg # Top card: $hget(#,top)
    notice $nick Your cards: $hget(#,$nick)
  }
}
on $*:text:/^[@!.](endgame|uno(stop|end))$/Si:#:{
  if (!$hget(#,p1)) return
  elseif ($nick != $hget(#,p1)) msg # Only $v2 can end the game.
  else {
    hfree #
    msg # Game ended by $nick $+ .
  }
}
on $*:text:/^[@!.]quit$/Si:#:{
  if (!$hget(#,p1)) return
  elseif (!$hget(#,$nick)) notice $nick You aren't in this game.
  else remplayer # $nick $nick has left the game.
}
on $*:text:/^[@!.]kickplayer (.+)$/Si:#:{
  if (!$hget(#,p1)) return
  elseif ($nick != $hget(#,p1)) msg # Only $v1 can kick people from the game.
  elseif (!$hget(#,$regml(1))) msg # $regml(1) is not in this game.
  else remplayer # $regml(1) $regml(1) has been kicked from the game by $nick $+ .
}
on $*:text:/^[@!.](show)?(hand|cards?)$/Si:#:{
  if (!$hget(#,p1)) return
  elseif (!$hget(#,$nick)) notice $nick You aren't in this game.
  else notice $nick Your cards: $hget(#,$nick)
}
on $*:text:/^[@!.](uno)?count$/Si:#:{
  if (!$hget(#,p1)) return
  else {
    $iif($left($1,1) == @,msg #,notice $nick) Current score: $regsubex($str(.,$hget(#,players)),/./g,$+($hget(#,p\n),:,$chr(32),$numtok($hget(#,$hget(#,p\n)),32),$chr(32))) 
    $iif($left($1,1) == @,msg #,notice $nick) Its $hget(#,p $+ $hget(#,turn)) $+ 's turn.
  }
}
on $*:text:/^[@!.]topcard$/Si:#:{
  if (!$hget(#,p1)) return
  msg # Top card: $hget(#,top)
}
on $*:text:/^[@!.]draw ?(card)?$/Si:#:{
  if (!$hget(#,p1)) return
  elseif (!$hget(#,$nick)) notice $nick You aren't in this game.
  elseif ($hget(#,p $+ $hget(#,turn)) != $nick) notice $nick It is not your turn.
  else {
    var %c = $cards(1)
    hadd # $nick $instok($hget(#,$nick),%c,0,32)
    notice $nick You drew: %c
    hadd # pass $nick
  }
}
on $*:text:/^[@!.]pass$/Si:#:{
  if (!$hget(#,p1)) return
  elseif (!$hget(#,$nick)) notice $nick You aren't in this game.
  elseif ($hget(#,p $+ $hget(#,turn)) != $nick) notice $nick It is not your turn.
  elseif ($hget(#,pass) != $nick) notice $nick You have to draw once first.
  else {
    nextturn
    var %nnick = $hget(#,p $+ $hget(#,turn))
    msg # %nnick $+ 's turn
    msg # Top card: $hget(#,top)
    notice %nnick Your cards: $hget(#,%nnick)
    hdel # pass
  }
}
on $*:text:/^[@!.]play/Si:#:{
  if (!$hget(#,p1)) return
  elseif (!$hget(#,$nick)) notice $nick You aren't in this game.
  elseif ($hget(#,p $+ $hget(#,turn)) != $nick) notice $nick It is not your turn.
  elseif (!$iscard($2-)) notice $nick Syntax: !play <color> <card> or !play WD4/W <color>
  elseif (!$hascard($2-,$nick)) notice $nick You don't have that card.
  else {
    noop $regex($iscard($2-),/^\x03(\d{2})(\[.+?\])$/)
    var %co = $regml(1), %c = $regml(2)
    if (%co isin $hget(#,top)) || (%c == $strip($hget(#,top))) || (%c == [*]) {
      delcard $nick $2-
      hadd # top $iscard($2-)
      if (%c == [D2]) {
        nextturn
        var %snick = $hget(#,p $+ $hget(#,turn)), %nnick, %msg
        hadd # %snick $instok($hget(#,%snick),$cards(2),0,32)
        nextturn
        %nnick = $hget(#,p $+ $hget(#,turn))
        %msg = %snick draws 2 cards and is skipped! %nnick $+ 's turn.        
      }
      elseif (%c == [S]) {
        nextturn
        var %snick = $hget(#,p $+ $hget(#,turn)), %nnick, %msg
        nextturn
        %nnick = $hget(#,p $+ $hget(#,turn))
        %msg = %snick is skipped, %nnick $+ 's turn.
      }
      elseif (%c == [R]) {
        hadd # rev $iif($hget(#,rev),$false,$true)
        nextturn
        var %nnick = $hget(#,p $+ $hget(#,turn)), %msg = $nick reversed it $+ $chr(44) %nnick $+ 's turn.
      }
      elseif (%c == [*]) && (4 isin $2-) {
        nextturn
        var %snick = $hget(#,p $+ $hget(#,turn)), %nnick, %msg
        hadd # %snick $instok($hget(#,%snick),$cards(4),0,32)
        nextturn
        %nnick = $hget(#,p $+ $hget(#,turn))
        %msg = %snick draws 4 and is skipped! %nnick $+ 's turn.
      }
      elseif (%c == [*]) {
        nextturn
        var %nnick = $hget(#,p $+ $hget(#,turn)), %msg = %nnick $+ 's turn.
      }
      else {
        nextturn
        var %nnick = $hget(#,p $+ $hget(#,turn)), %msg = %nnick $+ 's turn.
      }
      if ($numtok($hget(#,$nick),32) == 1) msg # $nick has 3U04N12O!
      elseif (!$v1) {
        msg # Congratulations $nick you win!!!
        hfree #
        hinc uno $nick
        return
      }
      msg # %msg
      msg # Top card: $hget(#,top)
      notice %nnick Your cards: $hget(#,%nnick)
      hdel # pass
    }
    else notice $nick That card doesn't play.
  }
}
alias cards {
  var %c = 12[1] 12[2] 12[3] 12[4] 12[5] 12[6] 12[7] 12[8] 12[9] 09[1] 09[2] 09[3] 09[4] 09[5] 09[6] 09[7] 09[8] 09[9] $&
    08[1] 08[2] 08[3] 08[4] 08[5] 08[6] 08[7] 08[8] 08[9] 04[1] 04[2] 04[3] 04[4] 04[5] 04[6] 04[7] 04[8] 04[9] 01[WD4] $&
    01[WD4] 01[WD4] 01[WD4] 12[D2] 12[D2] 09[D2] 09[D2] 08[D2] 08[D2] 04[D2] 04[D2] 12[S] 12[S] 09[S] 09[S] 08[S] 08[S] $&
    04[S] 04[S] 12[R] 12[R] 09[R] 09[R] 08[R] 08[R] 04[R] 04[R] 01[W] 01[W] 01[W] 01[W]
  var %i = $1, %o
  while (%i) { 
    %o = $instok(%o,$gettok(%c,$r(1,68),32),0,32)
    dec %i
  }
  return %o
}
alias iscard {
  if ($regex($1,/^([bgyr])\w* (\d)$/i)) return $+($col($regml(1)),[,$regml(2),])
  elseif ($regex($1,/^w(?:ild)? ?d?(?:raw)? ?4? ([bgyr])/i)) return $col($regml(1)) $+ [*]
  elseif ($regex($1,/^([bgyr])\w* d(?:raw)?2$/i)) return $col($regml(1)) $+ [D2]
  elseif ($regex($1,/^([bgyr])\w* ([sr])\w*$/i)) return $+($col($regml(1)),[,$upper($regml(2)),])
}
alias col {
  if ($1 == b) return 12
  elseif ($1 == g) return 09
  elseif ($1 == y) return 08
  else return 04
}
alias nextturn {
  var %c = $iif(#,#,$1)
  $iif($hget(%c,rev),hinc,hdec) %c turn
  if (!$hget(%c,p $+ $hget(%c,turn))) hadd %c turn $iif($hget(%c,rev),1,$hget(%c,players))
}
alias hascard {
  var %c = $iscard($1)
  if ($strip(%c) == [*]) {
    if (4 isin $1) return $istok($hget(#,$2),01[wd4],32)
    else return $istok($hget(#,$2),01[W],32)
  }
  else return $istok($hget(#,$2),%c,32)
}
alias delcard {
  var %c = $iscard($2-), %o
  if ($strip(%c) == [*]) %o = $iif(4 isin $2-,01[wd4],01[W])
  else %o = %c
  hadd # $1 $remtok($hget(#,$1),%o,1,32)
}
alias remplayer {
  var %p = $hfind($1,$2).data, %i = $right(%p,-1)
  hdel $1 $2
  hdel $1 %p
  hdec $1 players
  msg $1 $3-
  if ($hget($1,players) == 1) { 
    msg $1 Game ended, you need atleast two people to uno.
    hfree $1
  }
  else {
    if (!$hget($1,p $+ $hget($1,turn))) {
      if (!$hget($1,top)) return
      nextturn $1
      var %nnick = $hget($1,p $+ $hget($1,turn))
      msg $1 %nnick $+ 's turn.
      msg $1 Top card: $hget($1,top)
      notice %nnick Your cards: $hget($1,%nnick)
    }
    while (%i <= $hget($1,players)) {
      hadd $1 p $+ %i $hget($1,p $+ $calc(%i +1))
      hdel $1 p $+ $calc(%i +1)
      inc %i
    }
  }
}
on 1:text:No U:#:msg $chan 4 NO U FAGGOT
on *:action:*slaps* *Mackbot*:*: { describe $chan hits $nick around a bit with the banhammer }
on 1:text:!Huggles:#:msg $chan 4 Huggles $nick
on 1:text:!tequila:#:msg $chan 4 slides a shot of tequila over to $nick (what a bum, go get a life)
ON 1:TEXT:!Buttsecks:#:describe $chan turns on $nick and gives suprise buttsecks
on 1:text:bad:#:msg $chan 4 well fuck you too $nick
ON 1:TEXT:!nick:#:describe $chan /nick _________
ON 1:TEXT:!sop:#:describe $chan /cs sop #Channel (add/del) Nick /cs aop #Channel (add/del) Nick
ON 1:TEXT:!sop:#:describe $chan /cs sop #Channel (add/del) Nick
ON 1:TEXT:!Faggot:#:describe $chan  We all know your a faggot $nick
ON 1:TEXT:!Coke:#:describe $chan 4 /me passes a kilo of coke to $nick
ON 1:TEXT:!nuke:#:describe $chan 4 nukes $nick
ON 1:TEXT:!Cig:#:describe $chan 4 $nick Thinks it's time for a   7===0============~~~~~~~4~~
ON 1:TEXT:!GreenTC:#:describe $chan  To sign up  for green team trade circles go to  ----    http://s1.zetaboards.com/United_Jungle_Accord/forum/766279/
ON 1:TEXT:!TC:#:describe $chan 4 To sign up for GGA Trade Circles Go to the link ---- http://z8.invisionfree.com/GGA/index.php?showtopic=1850
ON 1:TEXT:!steak:#:describe $chan 4 Hands $nick A Big, Juicy , Top of the line steak
ON 1:TEXT:!rstat1:#:describe $chan 4 A super smart IRC wiz that knows enough to steal your channel if he has sops!!!
ON 1:TEXT:!Koel:#:describe $chan 4 $nick Koel, Is the LEader Of the dirty Slcbers. not the alliance only the dirty people.
ON 1:TEXT:!Cig:#:describe $chan  $nick says its time for a 7,1 ====0==========4=15~~~~~~~~~ break
ON 1:TEXT:!Dog:#:Describe $chan 4 Gives a cute little puppy to $nick
ON 1:TEXT:!RandleMan:#:Msg $chan 4 Whore On corner with red pumps
ON 1:TEXT:!Burger:#:Describe $chan 4 hands $nick a Large CheeseBurger
ON 1:TEXT:!Beer:#:Describe $chan 4 hands $nick An ice cold beer!!!
ON 1:TEXT:!English:#:msg $chan 4 $chan is an english speaking chatroom, please speak english or type /list for the channel you require.
ON 1:TEXT:!Caps:#:msg $chan 4Stop using caps it's rude (seen as yelling) and may result in a kick and/or ban. 
ON 1:TEXT:!age:#:msg $chan 4This Channel Has no age limit aslong as ur not to OLD 
ON 1:TEXT:!Troll:#:msg $chan 4Do not troll in $chan Doing this results in :Ban or Kick
ON 1:TEXT:!Pm:#:msg $chan 4Do Not pm someone without there permission.
ON 1:TEXT:!Trolling:#:msg $chan 4Trolling Means : Looking for Boys/Girls/Asking For Cybers/
ON 1:TEXT:!Drama:#:msg $chan 4Do Not Start Drama In $chan 
ON 1:TEXT:!beg:#:msg $chan 4Dont Beg For Ops in $chan
ON 1:TEXT:!nick:#:msg $chan 4change your nick type /nick NickYouWantHere or (/Nick Bob)
ON 1:TEXT:!Ass:#:msg $chan  4Dont be a Ass, It Only Makes You Look Dumb.
ON 1:TEXT:!Spam:#:msg $chan 4No Spamming In $chan Leads To Perm Ban 
ON 1:TEXT:!Ignore:#:msg $chan 4To add someone to your ignore list Type /Ignore <Copy Nick Here> Or  /Ignore <Paste Hostmask Here>
ON 1:TEXT:!Owner:#:msg $chan 4To Make a temp owner type /mode #room +q nick
ON 1:TEXT:!Room:#:msg $chan 4To Make Ur Own Room Type /cs register #roomname URPasshere Descriptionofroomhere
ON 1:TEXT:!mIRC:#:msg $chan 4To Download mirc go to www.mirc.com((12And Download From The Website 4))
ON 1:TEXT:!wIRC:#:msg $chan 4To Download wIRC Go to www.warirc.com/ ((4And Download From There12)))  
ON 1:TEXT:!kick:#:msg $chan 4To Kick Someone from a room your op in type !k nick reason. 
ON 1:TEXT:!Ban:#:msg $chan    4To Ban Someone from a room your op in type !kb nick reason.
ON 1:TEXT:!Unban:#:msg $chan 4To Unban Someone From A Room Your Op In Type !unban nick || To Unban Yourself From a room you are perm op in type /cs unban #room.
ON 1:TEXT:!register:#:msg $chan 4To Register your NickName type /ns register Yourpasswordhere Youremailaddresshere
ON 1:text:!identify:#:msg $chan 4 After Registering Your Nick Each Time You Connect You Must Type /ns identify URPASSHERE
ON 1:text:!ghost:#:msg $chan 4 Type /ns ghost urmainnamehere urpasshere
ON 1:text:!racial:#:msg $chan 4 There Will Be NO Racial Remarks in $chan Results In A Ban.
On 1:text:!respect:#:msg $chan 4 Please Respect All Chatters in $chan
on 1:text:im back:#:msg $chan 4 Welcome Back $nick
on 1:text:ill brb:#:msg $chan 4 Hurry Back $nick
on 1:text:brb:#:msg $chan 4 Hurry Back $nick
on 1:text:back:#:msg $chan 4 Welcome Back $nick
on 1:text:g2g:#:msg $chan 4 GoodBye $nick
on 1:text:gtg:#:msg $chan 4 GoodBye $nick
on 1:text:bbl:#:msg $chan 4 See You Later $nick
on 1:text:!commands:#:msg $chan 4 !english !caps !age !troll !PM !trolling !drama !beg  !ass !spam  !racial !respect !beer !burger !dog !blow !MackJob !cig !greenTC !Tequila !nuke !steak !Faggot !restaurant !huggles* for IrcHelp commands Type !irchelp* for Uno commands type !unocom  *
on 1:text:!ircHelp:#:msg $chan 4  !nick !ignore !owner !room !mirc !wirc !kick !ban !unban !register !identify !ghost !sop !aop
on 1:text:!Unocom:#:msg $chan 4 !uno !join !deal !unostop !kickplayer <player> !cards !count !topcard !draw !pass !play !score !top10
on 1:text:!blow:#:describe $chan 4 Watches $nick Blow him self en a very disgusting matter (go buy a prostitute atleast)
on 1:text:!Win:#:msg $chan 4 &me MackBot wins and you lose, your whole life is epic fail. Get over it!!!
on 1:text:!MackJob:#:msg $chan 4 I'm a man you fucking idiot I wouldnt blow you if you had the largest dick in the world
on 1:text:!NoobSauce:#:msg $chan 4 Beer is Good (aka BiG) is the definition of noobsauce 2: BiG's new word
on 1:text:!Belka:#:msg $chan 4 A very important member of the GGA, that gets things done and can be trusted with most task
on 1:text:!Mackbot:#:msg $chan 4 A GGAer thats lazy but sets up Green team trade circles so Message in game if interesyed in TC! (aka General_Mack)
on 1:text:!SP:#:msg $chan 4 Trium of GGA that keeps to himself alot (from what I've seen) But knows when to joke around and when to be serious (unlike MackBoy[AKA shaneprice]
on 1:text:!win:#:msg $chan 4 I win you lose get over it( your whole life = epic fail)
on 1:text:!LT:#:msg $chan 4 LT is not AFK as much as he leads everyone to believe!!!(aka Lord Tarmikos)
on 1:text:!Q:#:msg $chan 4 Qauianna is best described as Hardworking stooge of the Triumvir (which one? MoE) (aka Qauianna)
on 1:text:!hello:#:msg $chan 4  hello $nick how are you doing???
on 1:text:!Good:#:msg $chan 4   That's great $nick , I'm doing great today, considering bots are always happy!!!
on 1:text:Fine:#:msg $chan 4   That's great $nick , I'm doing great today, considering bots are always happy!!
on 1:text:steak:#:describe $chan 4 Hands $nick A Big, Juicy , Top of the line steak

Description: Restaurant Script
URL: http://rafb.net/p/rMOdgJ18.html

ctcp *:VERSION: { ctcpreply $nick VERSION $me is using $me $+ 's Restaurant. Made by Mack. | halt }
alias restaurant {
  msg $chan I am using $me $+ 's restaurant, made by Your mum
}
on *:join:#:{ .notice $nick Welcome to $chan $+ , $me $+ 's Restaurant is open! Type !resturuant for more details. }
on *:text:!restaurant*:#:{
  .notice $nick Welcome to $me $+ 's Restaurant! Made by davey; Enjoy :)
  .notice $nick For the commands type: !rcmds
}
on *:text:!rcmds*:#:{
  .notice $nick Thanks for coming to $me $+ 's Restaurant!
  .notice $nick For all the types of food we have type: !food
  .notice $nick For all the types of beverages we have type: !beverages
  .notice $nick For all the types of soft drinks we have type: !sdrinks
  .notice $nick For all the types of candy we have type: !candy
  .notice $nick Enjoy :)
}
on *:text:!food*:#:{
  .notice $nick Here is our food menu!
  .notice $nick Burger, fries, pasta, steak, shrimp, bbqribs, ham, pork, sausages, green beans
  .notice $nick Strawberries, cakes, ice cream, waffles, pancakes, eggs, bacon, apples
  .notice $nick Bananas, oranges, peas, carrots, broccoli, asparagus, peaches, grapes, cauliflour
  .notice $nick Scrapples, candied yam, turkey, cheese, chicken and pizza.
  .notice $nick To get some food but a ! in front of the foods name :)
}
on *:text:!burger*:#:{ describe $chan gives $nick a burger }
on *:text:!fries*:#:{ describe $chan gives $nick a packet of fries }
on *:text:!pasta*:#:{ describe $chan gives $nick a bowl of pasta }
on *:text:!steak*:#:{ describe $chan gives $nick a piece of steak }
on *:text:!shrimp*:#:{ describe $chan gives $nick a bowl of shrimps }
on *:text:!bbqribs*:#:{ describe $chan gives $nick a plate of bbq ribs }
on *:text:!ham*:#:{ describe $chan gives $nick a palte of ham }
on *:text:!pork*:#:{ describe $chan gives $nick a plate of pork }
on *:text:!sausages*:#:{ describe $chan gives $nick a plate of sausages }
on *:text:!greenbeans*:#:{ describe $chan gives $nick a bowl of green beans }
on *:text:!strawberries*:#:{ describe $chan gives $nick a small bowl of strawberries }
on *:text:!cakes*:#:{ .notice $nick Please choose a cake from these five: Chocolate Cake, Ice cream Cake, Cheese Cake, Icing Cake and Orange and Poppy Sead Cake. Make sure to use a ! in front of the name. (Orange and Poppy Sead: !OPSCake. Chocolate Cake: !CCake. Ice Cream Cake: !ICCake. Icing Cake: !ICake. Cheese Cake: !ChCake } 
on *:text:!ccake*:#:{ describe $chan gives $nick a slice of Chocolate Cake }
on *:text:!opscake*:#:{ describe $chan gives $nick a slice of Orange and Poppy Seed Cake }
on *:text:!iccake*:#:{ describe $chan gives $nick a slice of Ice Cream Cake }
on *:text:!icake*:#:{ describe $chan gives $nick a slice of Icing Cake } 
on *:text:!chcake*:#:{ describe $chan gives $nick a slice of Cheese Cake }
on *:text:!icecream*:#:{ describe $chan gives $nick a scoop of icecream }
on *:text:!waffles*:#:{ describe $chan gives $nick a plate of waffles }
on *:text:!pancakes*:#:{ describe $chan gives $nick a plate of pancakes }
on *:text:!eggs*:#:{ describe $chan gives $nick a plate of scrambled eggs }
on *:text:!bacon*:#:{ describe $chan gives $nick a plate of bacon }
on *:text:!apples*:#:{ .notice $nick Please choice between; a red apple, a green apple or a yellow apple. For red type: !rapple For green type: !gapple For yellow type: !yapple }
on *:text:!rapple*:#:{ describe $chan gives $nick a juicy red apple }
on *:text:!gapple*:#:{ describe $chan gives $nick a juicy green apple }
on *:text:!yapple*:#:{ describe $chan gives $nick a juicy yellow apple }
on *:text:!bananas*:#:{ describe $chan gives $nick a yellow banana }
on *:text:!oranges*:#:{ describe $chan gives $nick an orange }
on *:text:!peas*:#:{ describe $chan gives $nick a bowl of peas }
on *:text:!carrots*:#:{ describe $chan gives $nick a orange carrot }
on *:text:!broccoli*:#:{ describe $chan gives $nick some broccoli }
on *:text:!asparagus*:#:{ describe $chan gives $nick an asparagus }
on *:text:!peaches*:#:{ describe $chan gives $nick a bowl of peaches }
on *:text:!grapes*:#:{ describe $chan gives $nick a bowl of grapes }
on *:text:!cauliflour*:#:{ describe $chan gives $nick some cauliflour }
on *:text:!Scrapples*:#:{ describe $chan gives $nick some scrapples }
on *:text:!candiedyam*:#:{ describe $chan gives $nick some candied yam }
on *:text:!turkey*:#:{ describe $chan gives $nick a big plate of turkey with salad dressing | msg $chan Happy thanksgiving! }
on *:text:!cheese*:#:{ describe $chan gives $nick a peice of cheese }
on *:text:!chicken*:#:{ describe $chan gives $nick a plate of chicken with salad dressing }
on *:text:!pizza*:#:{ .notice $nick Please choose between: Cheese and Bacon Pizza(!CBPizza) The Lot(!thelot) No Crusts(!NCPizza) and Cheese Pizza(!Cpizza) }
on *:text:!CBPizza*:#:{ describe $chan gives $nick a big plate of Cheese and Bacon Pizza }
on *:text:!thelot*:#:{ describe $chan gives $nick a big plate of The Lot }
on *:text:!NCPizza*:#:{ describe $chan gives $nick a big plate of No Crusts Pizza }
on *:text:!cpizza*:#:{ describe $chan gives $nick a big plate of Cheese Pizza }
on *:text:!beverages*:#:{ .notice $nick Please choose between wine, vodka, beer, whiskey, rum or cocktails. Wine: !wine Vodka: !vodka Beer: !beer Whiskey: !whiskey Rum: !rum Cocktails: !cocktails }
on *:text:!cocktails*:#:{
  .notice $nick Here is the cocktail menu:
  .notice $nick Martini, Long Island Iced Tea(!LIIT), Midori Limedrop(!MLime), Bubble Gum Kamikaze(!BGK)
  .notice $nick Electric Screwdriver(!Escrew), Sour Apple Pussycat(!SAP), Blue Valium(!BV)
  .notice $nick Peach Zima Sprite(!PZS), Frothy Lemonade(!FLemon), Jager Bomb(!JBomb)
  .notice $nick Daiquiri, Cosmopolitan, Margarita, White Russian(!WhiteRussian)
  .notice $nick Mudslide, Sex on the Beach(!SexBeach), Cordial Daisy(!CDaisy), BlueBerry Tequila Sour(!BTSour)
  .notice $nick Pear Sourball(!PSour), Jello Shooters(!JShoot).
}
on *:text:!Martini*:#:{ describe $chan gives $nick a bottle of Martini }
on *:text:!LIIT*:#:{ describe $chan gives $nick a bottle of Long Island Iced tea }
on *:text:!Mlime*:#:{ describe $chan gives $nick a bottle of Midori Limedrop }
on *:text:!BGK*:#:{ describe $chan gives $nick a bottle of Bubble Gum Kamikaze }
on *:text:!Escrew*:#:{ describe $chan gives $nick a bottle of Electric Screwdriver }
on *:text:!SAP*:#:{ describe $chan gives $nick a bottle of Sour Apple Pussycat }
on *:text:!BV*:#:{ describe $chan gives $nick a bottle of Blue Valium }
on *:text:!PZS*:#:{ describe $chan gives $nick a bottle of Peach Zima Sprite }
on *:text:!FLemon*:#:{ describe $chan gives $nick a bottle of Frothy Lemonade }
on *:text:!Jbomb*:#:{ describe $chan gives $nick a bottle of Jager Bomb }
on *:text:!daiquiri*:#:{ describe $chan gives $nick a bottle of Daiquiri }
on *:text:!cosmoplitan*:#:{ describe $chan gives $nick a bottle of Cosmopolitan }
on *:text:!Margarita*:#:{ describe $chan gives $nick a bottle of Margarita }
on *:text:!whiterussian*:#:{ describe $chan gives $nick a bottle of White Russian }
on *:text:!mudslide*:#:{ describe $chan gives $nick a bottle of Mudslide }
on *:text:!sexbeach*:#:{ describe $chan gives $nick a bottle of Sex on the Beach }
on *:text:!CDaisy*:#:{ describe $chan gives $nick a bottle of Cordial Daisy }
on *:text:!BTsour*:#:{ describe $chan gives $nick a bottle of Blueberry Tequila Sour }
on *:text:!Psour*:#:{ describe $chan gives $nick a bottle of Pear Sourball }
on *:text:!JShoot*:#:{ describe $chan gives $nick a bottle of Jello Shooters }
on *:text:!beer*:#:{
  .notice $nick Miller, Miller Lite(!MLite), Miller Genuine Draft(!MGB)
  .notice $nick Rolling Rock(!RR), Yuenling, Molson, Corona, Coors, Coors Lite(!CLite)
  .notice $nick Budweiser, BudLight
}
on *:text:!Miller*:#:{ describe $chan gives $nick a bottle of Miller }
on *:text:!MLite*:#:{ describe $chan gives $nick a bottle of Miller Lite }
on *:text:!MGD*:#:{ describe $chan gives $nick a bottle of Miller Genuine Draft }
on *:text:!RR*:#:{ describe $chan gives $nick a bottle of Rolling Rock }
on *:text:!yuenling*:#:{ describe $chan gives $nick a bottle of Yuenling }
on *:text:!Molson*:#:{ describe $chan gives $nick a bottle of Molson }
on *:text:!Corona*:#:{ describe $chan gives $nick a bottle of Corona }
on *:text:!Coors*:#:{ describe $chan gives $nick a bottle of Coors }
on *:text:!Clite*:#:{ describe $chan gives $nick a bottle of Coors Lite }
on *:text:!Budweiser*:#:{ describe $chan gives $nick a bottle of Budweiser }
on *:text:!Budlite*:#:{ describe $chan gives $nick a bottle of Budlite }
on *:text:!wine*:#:{
  .notice $nick White Wine(!white), Red Wine(!red), Cabernet Savignon(!CabSav)
  .notice $nick Champagne, Sparkling Wine(!SparkleW), Sparkling Cider(SparkleC)
  .notice $nick Riesling, Chardonnay, Sauvignon, Pinot Noir(!pinotn)
  .notice $nick Merlot, Shiraz, Syrah, Zinfandel
}
on *:text:!white*:{ describe $chan gives $nick a glass of White Wine }
on *:text:!red*:{ describe $chan gives $nick a glass of Red Wine }
on *:text:!CabSac*:#:{ describe $chan gives $nick a glass of Cabernet Savignon }
on *:text:!Champagne*:#:{ describe $chan pops the cork | describe $chan gives $nick a glass of champagne }
on *:text:!SparkleW*:#:{ describe $chan gives $nick a glass of Sparkling Wine }
on *:text:!sparklec*:#:{ describe $chan gives $nick a glass of Sparkling Cider }
on *:text:!Riesling*:#:{ describe $chan gives $nick a glass of Riesling }
on *:text:!Chardonnay*:#:{ describe $chan gives $Nick a glass of Chardonnay }
on *:text:!Sauvignon*:#:{ describe $chan gives $nick a glass of Sauvignon }
on *:text:!PinotN*:#:{ describe $chan gives $nick a glass of Pinot Noir }
on *:text:!merlot*:#:{ describe $chan gives $nick a glass of Merlot }
on *:text:!Shiraz*:#:{ describe $chan gives $nick a glass of Shiraz }
on *:text:!Syrah*:#:{ describe $chan gives $Nick a glass of Syrah }
on *:text:!Zinfandel*:#:{ describe $chan gives $nick a glass of Zinafandel }
on *:text:!whiskey*:#:{
  .notice $nick Charbay, McCarthy's(!McCarthys), Notch, Old Potrero(!OldP), Peregrine Rock(!PerRock)
  .notice $nick St. George(!StG), Stranahan's(!Stranahans), Templeton Rye(!TempleR)
  .notice $nick Wasmud's(!Wasmuds), Woodstone Creek(!WoodCreek)
}
on *:text:!Charbay*:#:{ describe $chan gives $nick a bottle of Charbay }
on *:text:!McCarthys*:#:{ describe $chan gives $nick a bottle of McCarthy's }
on *:text:!Notch*:#:{ describe $chan gives $nick a bottle of Notch }
on *:text:!OldP*:#:{ describe $chan gives $nick a bottle of Old Potrero }
on *:text:!PerRock*:#:{ describe $chan gives $nick a bottle of Peregrine Rock }
on *:text:!StG*:#:{ describe $chan gives $nick a bottle of St. George }
on *:text:!Stranahans*:#:{ describe $chan gives $nick a bottle of Stranahan's }
on *:text:!TempleR*:#:{ describe $chan gives $nick a bottle of Templeton Rye }
on *:text:!Wasmuds*:#:{ describe $chan gives $nick a bottle of Wasmud's }
on *:text:!WoodCreek*:#:{ describe $chan gives $nick a bottle of Woodstone Creek }
on *:text:!vodka*:#:{
  .notice $nick Absolut, Belvedere, Grey Goose(!GreyG), Imperia, Seagram's(!Seagrams)
  .notice $nick Skyy, Smirnoff
}
on *:text:!Absolut*:#:{ describe $chan gives $nick a bottle of Absolut }
on *:text:!Belvedere*:#:{ describe $chan gives $nick a bottle of Belvedere }
on *:text:!GreyG*:#:{ describe $chan gives $nick a bottle of Grey Goose }
on *:text:!Imperia*:#:{ describe $chan gives $nick a bottle of Imperia }
on *:text:!Seagrams*:#:{ describe $chan gives $nick a bottle of Seagram's }
on *:text:!Skyy*:#:{ describe $chan gives $nick a bottle of Skyy }
on *:text:!Smirnoff*:#:{ describe $chan gives $nick a bottle of Smirnoff }
on *:text:!rum*:#:{
  .notice $nick Bacardi, Captain Morgan(!CaptainM), Malibu
}
on *:text:!Bacardi*:#:{ describe $chan gives $nick a bottle of Bacardi }
on *:text:!CaptainM*:#:{ describe $chan gives $Nick a bottle of Captain Morgan }
on *:text:!Malibu*:#:{ describe $chan gives $nick a bottle of Malibu }
on *:text:!sdrinks*:#:{
  .notice $nick Coke, Fanta, Lemonade, Raspberry Soda(!raspsoda)
  .notice $nick Solo, Pepsi
}
on *:text:!coke*:#:{ notice $nick Please choose between; Diet Coke(!DietC), Coke Zero(!CZero), Lemonade Coke(!LemonCoke) or Coca Cola(!CocaCola) }
on *:text:!DietC*:#:{ describe $chan gives $nick a can of Diet Coke }
on *:text:!CZero*:#:{ describe $chan gives $nick a can of Coke Zero }
on *:text:!LemonCoke*:{ describe $chan gives $nick a can of Lemonade flavoured Coke }
on *:text:!CocaCola*:#:{ describe $chan gives $nick a can of Coca Cola }
on *:text:!fanta*:#:{ describe $chan gives $nick a can of Fanta }
on *:text:!Lemonade*:#:{ describe $chan gives $nick a can of Lemonade }
on *:text:!raspsoda*:#:{ describe $chan gives $nick a can of Raspberry Soda }
on *:text:!Solo*:#:{ describe $chan gives $nick a can of solo }
on *:text:!pepsi*:#:{ .notice $nick Please choose between; Normal Pepsi(!NPepsi), Pepsi Max(!PMax) or Vanilla Pepsi(!VPepsi) }
on *:text:!npepsi*:#:{ describe $chan gives $nick a can of Pepsi }
on *:text:!Pmax*:#:{ describe $chan gives $nick a can of Pepsi Max }
on *:text:!VPepsi*:#:{ describe $chan gives $nick a can of Vanilla flavoured pepsi }
on *:text:!candy*:#:{
  .notice $nick Boost, Flake, Cherry Ripe(!CherryR), Mars, Snickers
  .notice $nick Kambly
}
on *:text:!Boost*:#:{ describe $chan gives $nick a Boost }
on *:text:!Flake*:#:{ describe $chan gives $nick a Flake }
on *:text:!CherryR*:#:{ describe $chan gives $nick a Cherry Ripe }
on *:text:!Mars*:#:{ describe $chan gives $nick a Mars }
on *:text:!Snickers*:#:{ describe $chan gives $nick a Snickers }
on *:text:!kambly*:#:{ .notice $nick Please choose between; Chocolate Hearts(!ChocoHearts), Florentin or Mont Choco(!MontChoco) }
on *:text:!ChocoHearts*:#:{ describe $chan gives $nick a box of Chocolate Hearts }
on *:text:!Florentin*:#:{ describe $chan gives $nick a box of Florentins }
on *:text:!MontChoco*:#:{ describe $chan gives $nick a box of Mont Chocos }

on *:TEXT:your gay:#:{ msg $chan $nick your mama  is }
on *:TEXT:!joke1:#:{ msg $chan Yo mama so fat she eats Wheat Thicks. }
on *:TEXT:!joke2:#:{ msg $chan Yo mama so fat she had to go to Sea World to get baptized. }
on *:TEXT:!joke3:#:{ msg $chan Yo mama so fat she's got her own area code! }
on *:TEXT:!joke4:#:{ msg $chan Yo mama so stupid that she put lipstick on her head just to make-up her mind. }
on *:TEXT:!joke5:#:{ msg $chan Yo mama so stupid it took her 2 hours to watch 60 minutes. }
on *:TEXT:!joke6:#:{ msg $chan Yo mama so ugly her mom had to be drunk to breast feed her. }
on *:TEXT:!joke7:#:{ msg $chan Yo mama so ugly when she walks into a bank, they turn off the surveillence cameras. }
on *:TEXT:!joke8:#:{ msg $chan Yo mama so stupid you have to dig for her IQ! }
on *:TEXT:!joke9:#:{ msg $chan Yo mama so stupid when your dad said it was chilly outside, she ran outside with a spoon. }
on *:TEXT:!joke9:#:{ msg $chan Yo mama so fat people jog around her for exercise. }
on *:TEXT:!joke10:#:{ msg $chan Yo mama so fat her neck looks like a pair of hot dogs! }
on *:TEXT:you smell:#:{ msg $chan $nick No you do! Go take a shower. }
on *:TEXT:!info:#:{ msg $chan $nick Before typing any of my commands you should know that all of my commands are jokes they are not to be taken personally.To access jokes type !joke ex.!joke2 }
on *:TEXT:!cool:#:{ msg $chan $nick your not cool so dont type this. }
on *:TEXT:!loser:#:{ msg $chan $nick this is exactly what you are. }
on *:TEXT:!me:#:{ msg $chan $nick I found a picture of you look -> http://www.mediocrefilms.com/images/retarded-title.jpg <- }
on *:TEXT:!joke11:#:{ msg $chan Yo mammas teeth are so yellow, traffic slows down when she smiles! }
on *:TEXT:!joke12:#:{ msg $chan Yo mamma so poor she can't afford to pay attention! }
on *:TEXT:!joke13:#:{ msg $chan Yo Mamma so poor when I ring the doorbell she says, "DING!" }
on *:TEXT:!joke14:#:{ msg $chan Yo Mamma so poor she waves around a popsicle stick and calls it air conditioning. }
on *:TEXT:!joke15:#:{ msg $chan Do you know the story about the little old woman that lives in a shoe?  Well, Yo mama so poor she live in a flip flop! }
on *:TEXT:!joke16:#:{ msg $chan Yo mamma like spoiled milk, fat and chunky! }
on *:TEXT:!joke17:#:{ msg $chan Yo mamma so stupid, she studied for a drug test! }
on *:TEXT:!joke18:#:{ msg $chan Yo mamma so stupid that she tried to put M&M's in alphabetical order! }
on *:TEXT:!joke19:#:{ msg $chan Yo mamma so stupid she stole free bread. }
on *:TEXT:!joke20:#:{ msg $chan Yo mamma so stupid she sold her car for gasoline money! }
on *:TEXT:!joke21:#:{ msg $chan Yo mamma so black, she sat down on a jacuzzi and made coffee. }
on *:TEXT:!joke22:#:{ msg $chan Yo mamma so old, she used to play for the raiders when they had both eyes. }
on *:TEXT:!joke23:#:{ msg $chan Your mama's so fat when she goes to McDonalds they ask her what she doesn't want! }
on *:TEXT:!joke24:#:{ msg $chan Authorities say a Florida woman called 911 three times after McDonald's employees told her they were out of McNuggets. A spokesman for McDonalds said that this was unusual because most customers don’t call 911 until after they’ve eaten McDonalds. } 
on *:TEXT:!joke25:#:{ msg $chan Q:why did the burger queen get pregnant? }
on *:TEXT:!why:#:{ msg $chan A:the burger king forgot to wrap his whopper. }

on *:LOAD:{ 
  echo $color(info) -a Setup for bot owner..
  set %myowner $?="enter the nick you wish to set as the owner for this script"
}

on *:TEXT:*:#:{ 
  if ($1 iswm !addef) && ($2-3) { 
    while (!$readini(bot.ini,words,$2)) { 
      writeini -n bot.ini words $2 $3-
      notice $nick Word $2 has been added!
      halt
    }
    if ($readini(bot.ini,words,$2)) { notice $nick Definition $+(',$2,') is in the dictionary! | halt }
  }
  if ($1 iswm !deldef) && ($2) { 
    while ($readini(bot.ini,words,$2)) { 
      remini bot.ini words $2 
      notice $nick Word $2 has been deleted.
      halt
    }
    if (!$readini(bot.ini,words,$2)) { notice $nick Definition $+(',$2,') in the dictionary! | halt }
  }
  if ($1 iswm !editdef) && ($2-3) { 
    while ($readini(bot.ini,words,$2)) { 
      writeini -n bot.ini words $2 $3-
      notice $nick Word $2 has been edited.
      halt
    }
    if (!$readini(bot.ini,words,$2)) { notice $nick Definition $+(',$2,') isn't in the dictionary! | halt }
  } 
  if ($1 iswm !viewdictionary) { run bot.ini } 
  if ($1 iswm !define) && ($2) { 
    while ($readini(bot.ini,words,$2)) { 
      msg $chan Definition for word $+($2,:) $readini(bot.ini,words,$2)
      halt
    }
    if (!$readini(bot.ini,words,$2)) { notice $nick Definition $+(',$2,') isn't in the dictionary! | halt }
  } 
}

on *:TEXT:*:#: {tokenize 32 $strip($1-)if (!$($+(%,barflood),2)) {set -u3 $+(%,barflood) on var %% = $iif(!$2,$nick,$2)>    if (!bday == $1) { describe $chan sings happy bday to %% }
on *:TEXT:*:#: {
  tokenize 32 $strip($1-)
  if (!$($+(%,barflood),2)) {
    set -u3 $+(%,barflood) on
    var %% = $iif(!$2,$nick,$2)
    if (!bday == $1) { describe $chan sings happy bday to %% }
  }