on *:text:!tkb*:#:{ if ( $nick ishop $chan || $nick isop $chan ) { ban -ku $+ $calc( $3 * 60 ) $chan $2 Banned for $3 mins) ( $4- } }

on *:text:!masskick*:#pest,#trav,#nfpk:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %i 1
    set %pest.peeps $2-   
    :next
    set %j $nick(#,%i)
    if (%j == $null) goto end
    if (%j == $me) { /inc %i | goto next }
    if ($2) {
      if (%j isreg $chan) { /kick # %j 4To get a voice in the channel, please pm12 %pest.peeps 4in game. }
      inc %i
      goto next
    }
    else {    
      if (%j isreg $chan) { /kick # %j 4To get a voice in the channel, please pm12 $nick 4in game. } 
      inc %i
      goto next
      inc %i
      goto next
    }
    :end
    unset %pest.peeps  
  }
}

on $*:TEXT:/^[!@](price|pricecheck)/Si:#:{ notice $nick 2¤ x ¤10 Trav1313's Prices2 ¤ x ¤
  if (!$2) { .notice $nick Please supply an item to search for. }
  else {
    hadd -m $+(price,.,$nick) disp $iif($left($1,1) == !,.notice $nick,msg $chan)
    hadd -m $+(price,.,$nick) item $replace($$2-,$chr(32),+)
    sockopen $+(price,.,$nick) www.zybez.com 80
  }
} 
on *:SOCKOPEN:price.*:{
  sockwrite -n $sockname GET /priceguide.php?search_terms= $+ $hget($sockname,item) $+ &search_area=1&price_low=&price_high=&member=1  HTTP/1.1
  sockwrite -n $sockname Host: www.zybez.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:price.*:{
  sockread -f $+(%,$sockname,.,read)
  tokenize 32 $htmlfree($($+(%,$sockname,.,read),2))
  if (viewing* iswm $1-) { hadd -m $sockname results $2 }
  if ($($+(%,$sockname,.,goahed),2) != $null) {
    if (<td class="tablebottom" colspan="5">* iswm $($+(%,$sockname,.,read),2)) {
      $hget($sockname,disp) Your search for $replace($hget($sockname,item),+,_,_,$chr(32)) returned no results, please try correcting spelling mistakes, or enter an actual item.
      hfree $sockname
      unset $+(%,$sockname,.,*)
      sockclose $sockname
    }      
    if (<td class="tablebottom">* iswm $($+(%,$sockname,.,read),2)) {
      sockread -f $+(%,$sockname,.,read)
      set $+(%,$sockname,.,d) $htmlfree($($+(%,$sockname,.,read),2))
      sockread -f $+(%,$sockname,.,read)
      inc $+(%,$sockname,.,goahed) 1      
      hadd -m $sockname $($+(%,$sockname,.,goahed),2) $+($($+(%,$sockname,.,d),2),:) $htmlfree($($+(%,$sockname,.,read),2))
      sockread -f $+(%,$sockname,.,read)
      sockread -f $+(%,$sockname,.,read)
    }
    if (<!-- Search Results: End --> == $($+(%,$sockname,.,read),2)) {
      $hget($sockname,disp) 10results for2 $+($replace($hget($sockname,item),+,_,_,$chr(32)),:10) $hget($sockname,results) $iif($hget($sockname,results) > 5,Returning first 5)
      set $+(%,$sockname,.,lup) 0
      while ($($+(%,$sockname,.,lup),2) < $iif($hget($sockname,results) > 5,5,$v1)) {
        inc $+(%,$sockname,.,lup) 1
        $hget($sockname,disp) $($+(%,$sockname,.,lup),2) $+ $chr(41) $hget($sockname,$($+(%,$sockname,.,lup),2))
      }
      unset $+(%,$sockname,.,*)
      hfree $sockname
      sockclose $sockname
    }
  }
  if (<!-- Search Results: Start --> == $($+(%,$sockname,.,read),2)) {
    set $+(%,$sockname,.,goahed) 0
    sockread -f $+(%,$sockname,.,read)
    sockread -f $+(%,$sockname,.,read)
  }
}

on *:text:`google*:#:{
  set %post.display $iif($left($1,1) == @,msg $chan,.notice $nick)
  if ($sock(google)) {
    sockclose google
  }
  set %something $2-
  sockopen google google.com 80
}
on *:SOCKOPEN:google:{
  sockwrite -nt $sockname GET /search?hl=en&q= $+ %something $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
  sockwrite -nt $sockname Host: www.google.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:google:{
  if ($sockerr) { %post.display Socket error | unset %post.* | sockclose $sockname | halt }
  var %read | sockread -f %read
  var %diz = $htmlfree(%read)
  tokenize 32 %diz
  if ($1 == Location:) {
    %post.display 1[12G4O8O12G3L4E1]10The first link:2 $2-
  }
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }

on *:TEXT:`screenies*:#:{
  notice $2 http://img214.imageshack.us/my.php?image=owowax5.png 
  notice $2 http://img246.imageshack.us/my.php?image=tyallypb4.png
}

on *:text:`spell *:#: {
  if ($2- == wind strike || $2- == air strike) {
    notice $nick Wind Strike Lvl:12 1 Runes:12 1 Mind, 1 Air Max Damage:12 2 Base Exp Gain:12 5.5
  halt }
  if ($2- == water strike) {
    notice $nick Water Strike  Lvl:12 5 Runes:12 1 Mind, 1 Air, 1 Water Max Damage:12 4 Base Exp Gain:12 7.5
  halt }
  if ($2- == earth strike) {
    notice $nick Earth Strike Lvl:12 9 Runes:12 1 Mind, 1 Air, 2 Earths Max Damage:12 6 Base Exp Gain:12 9.5
  halt }
  if ($2- == fire strike) { 
    notice $nick Fire Strike Lvl:12 13 Runes:12 1 Mind, 2 Air, 3 Fire Max Damage:12 8 Base Exp Gain:12 11.5
  halt }


  if ($2- == wind bolt || $2- == air bolt) {
    notice $nick Wind Bolt Lvl:12 17 Runes:12 1 Chaos, 2 Air Max Damage:12 9 Base Exp Gain:12 13.5
  halt }
  if ($2- == water bolt) {
    notice $nick Water Bolt Lvl:12 23 Runes:12 1 Chaos, 2 Air, 2 Water Max Damage:12 10 Base Exp Gain:12 16.5
  halt }
  if ($2- == earth bolt) {
    notice $nick Earth Bolt Lvl:12 29 Runes:12 1 Chaos, 2 Air, 3 Earth Max Damage:12 11 Base Exp Gain:12 19.5
  halt }
  if ($2- == fire bolt) {
    notice $nick Fire Bolt Lvl:12 35 Runes:12 1 Chaos, 3 Air, 4 Fire Max Damage:12 12 Base Exp Gain:12 21.5
  halt }


  if ($2- == wind blast || $2- == air blast) {
    notice $nick Wind Blast Lvl:12 41 Runes:12 1 Death, 3 Air Max Damage:12 13 Base Exp Gain:12 25.5
  halt }
  if ($2- == water blast) {
    notice $nick Water Blast Lvl:12 47 Runes:12 1 Death, 3 Air, 3 Water Max Damage:12 14 Base Exp Gain:12 28.5
  halt }
  if ($2- == earth blast) {
    notice $nick Earth Blast Lvl:12 53 Runes:12 1 Death, 3 Air, 4 Earth Max Damage:12 15 Base Exp Gain:12 31.5
  halt }
  if ($2- == fire blast) {
    notice $nick Fire Blast Lvl:12 59 Runes:12 1 Death, 4 Air, 5 Fire Max Damage:12 16 Base Exp Gain:12 34.5
  halt }


  if ($2- == air wave || $2- == wind wave) {
    notice $nick Wind Wave Lvl:12 62 Runes:12 1 Blood, 5 Air Max Damage:12 17 Base Exp Gain:12 36
  halt }
  if ($2- == water wave) {
    notice $nick Water Wave Lvl:12 65 Runes:12 1 Blood, 5 Air, 7 Water Max Damage:12 18 Base Exp Gain:12 37.5
  halt }
  if ($2- == earth wave) {
    notice $nick Earth Wave Lvl:12 70 Runes:12 1 Blood, 5 Air, 7 Earth Max Damage:12 19 Base Exp Gain:12 40
  halt }
  if ($2- == fire wave) {
    notice $nick Fire Wave Lvl:12 75 Runes:12 1 Blood, 5 Air, 7 Fire Max Damage:12 20 Base Exp Gain:12 42.5
  halt }


  if ($2- == crumble undead) {
    notice $nick Crumble Undead Lvl:12 39 Runes:12 1 Chaos, 2 Air, 2 Earth Max Damage:12 15(on undead) Base Exp Gain:12 24.5
  halt }
  if ($2- == magic dart) {
    notice $nick Magic Dart(M) Lvl:12 50(+55 Slayer) Runes:12 Slayer Staff, 1 Death, 4 Minds, Slayer Staff Max Damage:12 19 Base Exp Gain:12 30
  halt }
  if ($2- == iban blast) {
    notice $nick Iban Blast(M) Lvl:12 50 Runes:12 Iban Staff, 1 Death, 5 Fire, Iban Staff Max Damage:12 25 Base Exp Gain:12 30
  halt }


  if ($2- == confuse) {
    notice $nick Confuse Lvl:12 3 Runes:12 1 Body, 2 Earth, 3 Water Base Exp Gain:12 13
  halt }
  if ($2- == weaken) {
    notice $nick Weaken Lvl:12 11 Runes:12 1 Body, 2 Earth, 3 Water Base Exp Gain:12 21
  halt }
  if ($2- == curse) {
    notice $nick Curse Lvl:12 19 Runes:12 1 Body, 3 Earth, 2 Water Base Exp Gain:12 29
  halt }
  if ($2- == bind) {
    notice $nick Bind Lvl:12 20 Runes:12 2 Nature, 3 Earth, 3 Water Base Exp Gain:12 30
  halt }
  if ($2- == snare) {
    notice $nick Snare(M) Lvl:12 50 Runes:12 3 Nature, 4 Earth, 4 Water Base Exp Gain:12 60
  halt }
  if ($2- == vulnerability) {
    notice $nick Vulnerability(M) Lvl:12 66 Runes:12 1 Soul, 5 Earth, 5 Water Base Exp Gain:12 76
  halt }
  if ($2- == enfeeble) {
    notice $nick Enfeeble(M) Lvl:12 73 Runes:12 1 Soul, 8 Earth, 8 Water Base Exp Gain:12 83
  halt }
  if ($2- == entangle) {
    notice $nick Entangle(M) Lvl:12 79 Runes:12 4 Nature, 5 Earth, 5 Water Base Exp Gain:12 89
  halt }
  if ($2- == stun) {
    notice $nick Stun(M) Lvl:12 80 Runes:12 1 Soul, 12 Earth, 12 Water Base Exp Gain:12 90
  halt }
  if ($2- == charge) {
    notice $nick Charge(M) Lvl:12 80 Runes:12 3 Blood, 3 Air, 3 Fire Base Exp Gain:12 180
  halt }
  if ($2- == teleblock || $2- == tb) {
    notice $nick Teleblock(M) Lvl:12 85 Runes:12 1 Law, 1 Death, 1 Chaos Base Exp Gain:12 95
  halt }


  if ($2- == saradomin strike || $2- == sara strike) {
    notice $nick Saradomin Strike(M) Lvl:12 60 Runes:12 Saradomin Staff, 2 Bloods, 4 Air, 2 Fire Base Exp Gain:12 61
  halt }
  if ($2- == flames of zamorak || $2- == flames of zammy) {
    notice $nick Flames of Zamorak(M) Lvl:12 60 Runes:12 Zamorak Staff, 2 Bloods, 1 Air, 4 Fire Base Exp Gain:12 61
  halt }
  if ($2- == claws of guthix || $2- == claws of guth) {
    notice $nick Claws Of Guthix(M) Lvl:12 60 Runes:12 Guthix Staff, 2 Bloods, 4 Airs, 1 Fire Base Exp Gain:12 61
  halt }


  if ($2- == enchant lvl 1 jewellery || $2- == enchant sapphire) {
    notice $nick Enchant Lvl 1 Jewellery Lvl:12 7 Runes:12 1 Cosmic, 1 Water Base Exp Gain:12 17.5
  halt }
  if ($2- == enchant lvl 2 jewellery || $2- == enchant emerald || $2- == enchant jewellery) {
    notice $nick Enchant Lvl 2 Jewellery Lvl:12 27 Runes:12 1 Cosmic, 3 Air Base Exp Gain:12 37
  halt }
  if ($2- == enchant lvl 3 jewellery || $2- == enchant ruby || $2- == enchant jewellery) {
    notice $nick Enchant Lvl 3 Jewellery Lvl:12 49 Runes:12 1 Cosmic, 5 Fire Base Exp Gain:12 59
  halt }
  if ($2- == enchant lvl 4 jewellery || $2- == enchant diamond || $2- == enchant jewellery) {
    notice $nick Enchant Lvl 4 Jewellery Lvl:12 57 Runes:12 1 Cosmic, 10 Earth Base Exp Gain:12 67
  halt }
  if ($2- == enchant lvl 5 jewellery || $2- == enchant dragonstone || $2- == enchant dstone || $2- == enchant d stone || $2- == enchant jewellery) {
    notice $nick Enchant Lvl 5 Jewellery(M) Lvl:12 68 Runes:12 1 Cosmic, 15 Earth, 15 Fire Base Exp Gain:12 78
  halt }
  if ($2- == enchant lvl 6 jewellery || $2- == enchant onyx || $2- == enchant jewellery) {
    notice $nick Enchant Lvl 6 Jewellery(M) Lvl:12 87 Runes:12 1 Cosmic, 20 Earth, 20 Fire Base Exp Gain:12 97
  halt }


  if ($2- == charge water orb || $2- == charge water) {
    notice $nick Charge Water Orb(M) Lvl:12 56 Runes:12 1 Orb, 3 Cosmic, 30 Water Base Exp Gain:12 56
  halt }
  if ($2- == charge earth orb || $2- == charge earth) {
    notice $nick Charge Earth Orb(M) Lvl:12 60 Runes:12 1 Orb, 3 Cosmic, 30 Earth Base Exp Gain:12 70
  halt }
  if ($2- == charge fire orb || $2- == charge fire) {
    notice $nick Charge Fire Orb(M) Lvl:12 63 Runes:12 1 Orb, 3 Cosmic, 30 Fire Base Exp Gain:12 73
  halt }
  if ($2- == charge air orb || $2- == charge air) {
    notice $nick Charge Air Orb(M) Lvl:12 66 Runes:12 1 Orb, 3 Cosmic, 30 Air Base Exp Gain:12 76
  halt }


  if ($2- == low level alchemy || $2- == low alch || $2- == low level alch) {
    notice $nick Low Level Alchemy Lvl:12 21 Runes:12 1 Nature, 3 Fire Base Exp Gain:12 31
  halt }
  if ($2- == high level alchemy || $2- == high alch || $2- == high level alch) {
    notice $nick High Level Alchemy Lvl:12 55 Runes:12 1 Nature, 5 Fire Base Exp Gain:12 65
  halt }


  if ($2- == bones to bananas) {
    notice $nick Bones To Bananas Lvl:12 15 Runes:12 1 Nature, 2 Earths, 2 Waters Base Exp Gain:12 25
  halt }
  if ($2- == bones to peaches) {
    notice $nick Bones To Peaches(M) Lvl:12 60 Runes:12 2 Natures, 4 Earths, 4 Waters Base Exp Gain:12 35.5
  halt }


  if ($2- == superheat item) {
    notice $nick Superheat Item Lvl:12 43 Runes:12 1 Nature, 4 Fires Base Exp Gain:12 53
  halt }
  if ($2- == telegrab || $2- == tele grab || $2- == tg || $2- == telekinetic grab) {
    notice $nick Telegrab Lvl:12 33 Runes:12 1 Law, 1 Air Base Exp Gain:12 43
  halt }


  if ($2- == home teleport || $2- == home tele) {
    notice $nick Home Teleport Lvl:12 N/A Runes:12 N/A Base Exp Gain:12 N/A
  halt }
  if ($2- == varrock teleport || $2- == varrock tele) {
    notice $nick Varrock Teleport Lvl:12 25 Runes:12 1 Law, 3 Air, 1 Fire Base Exp Gain:12 35
  halt }
  if ($2- == lumbridge teleport || $2- == lumby teleport || $2- == lumbridge tele || $2- == lumby tele) {
    notice $nick Lumbridge Teleport Lvl:12 31 Runes:12 1 Law, 3 Air, 1 Earth Base Exp Gain:12 41
  halt }
  if ($2- == falador teleport || $2- == fally teleport || $2- == fally tele || $2- == falador tele) {
    notice $nick Falador Teleport Lvl:12 37 Runes:12 1 Law, 3 Air, 1 Water Base Exp Gain:12 48
  halt }
  if ($2- == house teleport || $2- == house tele || $2- == home teleport || $2- == home tele) {
    notice $nick House Teleport(M) Lvl:12 40 Runes:12 1 Law, 1 Air, 1 Earth Base Exp Gain:12 30
  halt }
  if ($2- == camelot teleport || $2- == camelot tele) {
    notice $nick Camelot Teleport(M) Lvl:12 45 Runes:12 1 Law, 5 Air Base Exp Gain:12 55.5
  halt }
  if ($2- == ardougne teleport || $2- == ardougne tele || $2- == ardy teleport || $2- == ardy tele) {
    notice $nick Ardougne Teleport(M) Lvl:12 51 Runes:12 2 Law, 2 Water Base Exp Gain:12 61
  halt }
  if ($2- == watchtower teleport || $2- == watchtower tele) {
    notice $nick Watchtower Teleport(M) Lvl:12 58 Runes:12 2 Law, 2 Earth Base Exp Gain:12 68
  halt }
  if ($2- == trollheim teleport || $2- == trollheim tele) {
    notice $nick Trollheim Teleport(M) Lvl:12 61 Runes:12 2 Law, 2 Fire Base Exp Gain:12 68
  halt }
  if ($2- == ape atoll teleport || $2- == ape atoll tele) {
    notice $nick Ape Atoll Teleport(M) Lvl:12 64 Runes:12 2 Law, 2 Water, 2 Fire, 1 Banana Base Exp Gain:12 74
  halt }


  if ($2- == teleother lumbridge || $2- == lumbridge teleother) {
    notice $nick Teleother Lumbridge(M) Lvl:12 74 Runes:12 1 Law, 1 Soul, 1 Earth Base Exp Gain:12 84
  halt }
  if ($2- == teleother falador || $2- == falador teleother) {
    notice $nick Teleother Falador(M) Lvl:12 82 Runes:12 1 Law, 1 Soul, 1 Water Base Exp Gain:12 92
  halt }
  if ($2- == teleother camelot || $2- == camelot teleother || $2- == cammy teleother || $2- == teleother cammy) {
    notice $nick Teleother Camelot(M) Lvl:12 90 Runes:12 1 Law, 2 Souls Base Exp Gain:12 100
  halt }


  if ($2- == smoke rush) {
    notice $nick Smoke Rush(M) Lvl:12 50 Runes:12 2 Death, 2 Chaos, 1 Air, 1 Fire Max Damage:12 13 Base Exp Gain:12 30
  halt }
  if ($2- == smoke burst) {
    notice $nick Smoke Burst(M) Lvl:12 62 Runes:12 2 Death, 4 Chaos, 2 Air, 2 Fire Max Damage:12 17 Base Exp Gain:12 36
  halt }
  if ($2- == smoke blitz) {
    notice $nick Smoke Blitz(M) Lvl:12 74 Runes:12 2 Death, 2 Blood, 2 Air, 2 Fire Max Damage:12 23 Base Exp Gain:12 42
  halt }
  if ($2- == smoke barrage) {
    notice $nick Smoke Barrage(M) Lvl:12 86 Runes:12 4 Death, 2 Blood, 4 Air, 4 Fire Max Damage:12 27 Base Exp Gain:12 48
  halt }


  if ($2- == shadow rush) {
    notice $nick Shadow Rush(M) Lvl:12 52 Runes:12 2 Death, 2 Chaos, 1 Soul, 1 Air Max Damage:12 14 Base Exp Gain:12 31
  halt }
  if ($2- == shadow burst) {
    notice $nick Shadow Burst(M) Lvl:12 64 Runes:12 2 Death, 4 Chaos, 2 Soul, 1 Air Max Damage:12 17 Base Exp Gain:12 37
  halt }
  if ($2- == shadow blitz) {
    notice $nick Shadow Blitz(M) Lvl:12 76 Runes:12 2 Death, 2 Blood, 2 Soul, 2 Air Max Damage:12 24 Base Exp Gain:12 43
  halt }
  if ($2- == shadow barrage) {
    notice $nick Shadow Barrage(M) Lvl:12 88 Runes:12 4 Death, 2 Blood, 3 Soul, 4 Air Max Damage:12 28 Base Exp Gain:12 48
  halt }


  if ($2- == blood rush) {
    notice $nick Blood Rush(M) Lvl:12 56 Runes:12 2 Death, 2 Chaos, 1 Blood Max Damage:12 15 Base Exp Gain:12 33
  halt }
  if ($2- == blood burst) {
    notice $nick Blood Burst(M) Lvl:12 68 Runes:12 2 Death, 4 Chaos, 2 Blood Max Damage:12 21 Base Exp Gain:12 39
  halt }
  if ($2- == blood blitz) {
    notice $nick Blood Blitz(M) Lvl:12 80 Runes:12 2 Death, 4 Blood Max Damage:12 25 Base Exp Gain:12 45
  halt }
  if ($2- == blood barrage) {
    notice $nick Blood Barrage(M) Lvl:12 92 Runes:12 4 Death, 4 Blood, 1 Soul Max Damage:12 29 Base Exp Gain:12 59
  halt }

  if ($2- == ice rush) {
    notice $nick Ice Rush(M) Lvl:12 58 Runes:12 2 Death, 2 Chaos, 2 Water Max Damage:12 16 Base Exp Gain:12 34
  halt }
  if ($2- == ice burst) {
    notice $nick Ice Burst(M) Lvl:12 70 Runes:12 2 Death, 4 Chaos, 4 Water Max Damage:12 22 Base Exp Gain:12 40
  halt }
  if ($2- == ice blitz) {
    notice $nick Ice Blitz(M) Lvl:12 82 Runes:12 2 Death, 2 Blood, 3 Water Max Damage:12 26 Base Exp Gain:12 46
  halt }
  if ($2- == ice barrage) {
    notice $nick Ice Barrage(M) Lvl:12 94 Runes:12 4 Death, 2 Blood, 6 Water Max Damage:12 30 Base Exp Gain:12 52
  halt }

  if ($2- == Paddewwa Teleport || $2- == Paddewwa Tele || $2- == Edgeville Teleport || $2- == Edgeville Tele) {
    notice $nick Paddewwa Teleport(M) Lvl:12 54 Runes:12 2 Law, 1 Air, 1 Fire Base Exp Gain:12 64
  halt }
  if ($2- == Senntisten Teleport || $2- == Senntisten Tele || $2- == Digsite Teleport || $2- == Digsite Tele) {
    notice $nick Senntisten Teleport(M) Lvl:12 60 Runes:12 2 Law, 1 Soul Base Exp Gain:12 70
  halt }
  if ($2- == Kharyrll Teleport || $2- == Kharyrll Tele || $2- == Canifis Teleport || $2- == Canifis Tele) {
    notice $nick Kharyrll Teleport(M) Lvl:12 66 Runes:12 2 Law, 1 Blood Base Exp Gain:12 76
  halt }
  if ($2- == Lassar Teleport || $2- == Lassar Tele || $2- == Ice Mountain Teleport || $2- == Ice Mountain Tele) {
    notice $nick Lassar Teleport(M) Lvl:12 72 Runes:12 2 Law, 4 Water Base Exp Gain:12 82
  halt }
  if ($2- == Dareeyak Teleport || $2- == Dareeyak Tele || $2- == ruins teleport || $2- == ruins tele) {
    notice $nick Dareeyak Teleport(M) Lvl:12 78 Runes:12 2 Law, 2 Air, 3 Fire Base Exp Gain:12 88
  halt }
  if ($2- == Carrallangar Teleport || $2- == Carrallangar Tele || $2- == graveyard teleport || $2- == graveyard tele) {
    notice $nick Carrallangar Teleport(M) Lvl:12 84 Runes:12 2 Law, 2 Soul Base Exp Gain:12 82
  halt }
  if ($2- == annakarl teleport || $2- == annakarl tele || $2- == demonic ruins teleport || $2- == demonic ruins tele) {
    notice $nick Annakarl Teleport(M) Lvl:12 90 Runes:12 2 Law, 2 Blood Base Exp Gain:12 100
  halt }
  if ($2- == ghorrock teleport || $2- == ghorrock tele || $2- == ice plateau teleport || $2- == ice plateau tele) {
    notice $nick Ghorrock Teleport(M) Lvl:12 96 Runes:12 2 Law, 8 Water Base Exp Gain:12 106
  halt }


  if ($2- == cure other) {
    notice $nick Cure Other(M) Lvl:12 68 Runes:12 1 Astral, 1 Law, 10 Earth Base Exp Gain:12 48
  halt }
  if ($2- == cure me) {
    notice $nick Cure Me(M) Lvl:12 71 Runes:12 2 Astral, 1 Law, 2 Cosmic Base Exp Gain:12 46
  halt }
  if ($2- == cure group) {
    notice $nick Cure Group(M) Lvl:12 71 Runes:12 2 Astral, 2 Law, 2 Cosmic Base Exp Gain:12 59
  halt }
  if ($2- == heal other) {
    notice $nick Heal Other(M) Lvl:12 92 Runes:12 3 Astral, 3 Law, 1 Blood Base Exp Gain:12 86
  halt }
  if ($2- == heal group) {
    notice $nick Heal Group(M) Lvl:12 95 Runes:12 4 Astral, 6 Law, 3 Blood Base Exp Gain:12 124
  halt }


  if ($2- == bake pie) {
    notice $nick Bake Pie(M) Lvl:12 65 Runes:12 1 Astral, 5 Fire, 4 Water Base Exp Gain:12 26
  halt }
  if ($2- == cure plant) {
    notice $nick Cure Plant(M) Lvl:12 66 Runes:12 1 Astral, 8 Earth Base Exp Gain:12 26
  halt }
  if ($2- == npc contact) {
    notice $nick NPC Contact(M) Lvl:12 67 Runes:12 1 Astral, 1 Cosmic, 2 Air Base Exp Gain:12 30
  halt }
  if ($2- == superglass make) {
    notice $nick Superglass Make(M) Lvl:12 77 Runes:12 2 Astral, 6 Fire, 10 Air Base Exp Gain:12 41
  halt }
  if ($2- == string jewellery) {
    notice $nick String Jewellery(M) Lvl:12 80 Runes:12 2 Astral, 10 Earth, 5 Water Base Exp Gain:12 44
  halt }
  if ($2- == stat restore pot share) {
    notice $nick Stat Restore Pot Share(M) Lvl:12 81 Runes:12 2 Astral, 10 Earth, 10 Water Base Exp Gain:12 49
  halt }
  if ($2- == magic imbue) {
    notice $nick Magic Imbue(M) Lvl:12 82 Runes:12 2 Astral, 7 Fire, 7 Water Base Exp Gain:12 51
  halt }
  if ($2- == fertile soil) {
    notice $nick Fertile Soil(M) Lvl:12 83 Runes:12 3 Astral, 2 Nature, 15 Earth Base Exp Gain:12 61
  halt }
  if ($2- == boost potion share) {
    notice $nick Boost Potion Share(M) Lvl:12 84 Runes:12 3 Astral, 12 Earth, 10 Water Base Exp Gain:12 62
  halt }
  if ($2- == energy transfer) {
    notice $nick Energy Transfer(M) Lvl:12 91 Runes:12 3 Astral, 2 Law, 1 Nature Base Exp Gain:12 68
  halt }
  if ($2- == vengeance other) {
    notice $nick Vengeance Other(M) Lvl:12 93 Runes:12 3 Astral, 2 Death, 10 Earth Base Exp Gain:12 73
  halt }
  if ($2- == vengeance) {
    notice $nick Vengeance(M) Lvl:12 94 Runes:12 4 Astral, 2 Death, 10 Earth Base Exp Gain:12 75
  halt }


  if ($2- == moonclan teleport || $2- == moonclan tele) {
    notice $nick Moonclan Teleport(M) Lvl:12 69 Runes:12 2 Astral, 1 Law, 2 Earth Base Exp Gain:12 50
  halt }
  if ($2- == tele group moonclan) {
    notice $nick Tele Group Moonclan(M) Lvl:12 70 Runes:12 2 Astral, 1 Law, 4 Earth Base Exp Gain:12 51
  halt }
  if ($2- == waterbirth teleport || $2- == waterbirth tele) {
    notice $nick Waterbirth Teleport(M) Lvl:12 72 Runes:12 2 Astral, 1 Law, 1 Water Base Exp Gain:12 51
  halt }
  if ($2- == tele group waterbirth) {
    notice $nick Tele Group Waterbirth(M) Lvl:12 73 Runes:12 2 Astral, 1 Law, 5 Water Base Exp Gain:12 53
  halt }
  if ($2- == barbarian teleport || $2- == barbarian tele) {
    notice $nick Barbarian Teleport(M) Lvl:12 75 Runes:12 2 Astral, 2 Law, 3 Fire Base Exp Gain:12 53
  halt }
  if ($2- == tele group barbarian) {
    notice $nick Tele Group Barbarian(M) Lvl:12 76 Runes:12 2 Astral, 2 Law, 6 FIre Base Exp Gain:12 55
  halt }
  if ($2- == khazard teleport || $2- == khazard tele) {
    notice $nick Khazard Teleport(M) Lvl:12 78 Runes:12 2 Astral, 2 Law, 4 Water Base Exp Gain:12 54
  halt }
  if ($2- == tele group khazard) {
    notice $nick Tele Group Khazard(M) Lvl:12 79 Runes:12 2 Astral, 2 Law, 8 Water Base Exp Gain:12 56
  halt }
  if ($2- == fishing guild teleport || $2- == fishing guild tele) {
    notice $nick Fishing Guild Teleport(M) Lvl:12 85 Runes:12 3 Astral, 3 Law, 10 Water Base Exp Gain:12 65
  halt }
  if ($2- == tele group fishing guild) {
    notice $nick Tele Group Fishing Guild(M) Lvl:12 86 Runes:12 3 Astral, 3 Law, 14 Water Base Exp Gain:12 70
  halt }
  if ($2- == catherby teleport || $2- == catherby tele) {
    notice $nick Catherby Teleport(M) Lvl:12 87 Runes:12 3 Astral, 3 Law, 10 Water Base Exp Gain:12 78
  halt }
  if ($2- == tele group catherby) {
    notice $nick Tele Group Catherby(M) Lvl:12 88 Runes:12 3 Astral, 3 Law, 15 Water Base Exp Gain:12 80
  halt }
  if ($2- == ice plateau teleport) {
    notice $nick Ice Plateau Teleport(M) Lvl:12 89 Runes:12 3 Astral, 3 Law, 8 Water Base Exp Gain:12 96
  halt }
  if ($2- == tele group ice plateau) {
    notice $nick Tele Group Ice Plateau(M) Lvl:12 90 Runes:12 3 Astral, 3 Law, 16 Water Base Exp Gain:12 99
  halt }

  else {
    notice $nick Spell not found. Make sure all words are spelled correctly, and in proper order.
  halt }
}

on *:text:@spell *:#: {
  if ($2- == wind strike || $2- == air strike) {
    msg $chan Wind Strike Lvl:12 1 Runes:12 1 Mind, 1 Air Max Damage:12 2 Base Exp Gain:12 5.5
  halt }
  if ($2- == water strike) {
    msg $chan Water Strike  Lvl:12 5 Runes:12 1 Mind, 1 Air, 1 Water Max Damage:12 4 Base Exp Gain:12 7.5
  halt }
  if ($2- == earth strike) {
    msg $chan Earth Strike Lvl:12 9 Runes:12 1 Mind, 1 Air, 2 Earths Max Damage:12 6 Base Exp Gain:12 9.5
  halt }
  if ($2- == fire strike) { 
    msg $chan Fire Strike Lvl:12 13 Runes:12 1 Mind, 2 Air, 3 Fire Max Damage:12 8 Base Exp Gain:12 11.5
  halt }


  if ($2- == wind bolt || $2- == air bolt) {
    msg $chan Wind Bolt Lvl:12 17 Runes:12 1 Chaos, 2 Air Max Damage:12 9 Base Exp Gain:12 13.5
  halt }
  if ($2- == water bolt) {
    msg $chan Water Bolt Lvl:12 23 Runes:12 1 Chaos, 2 Air, 2 Water Max Damage:12 10 Base Exp Gain:12 16.5
  halt }
  if ($2- == earth bolt) {
    msg $chan Earth Bolt Lvl:12 29 Runes:12 1 Chaos, 2 Air, 3 Earth Max Damage:12 11 Base Exp Gain:12 19.5
  halt }
  if ($2- == fire bolt) {
    msg $chan Fire Bolt Lvl:12 35 Runes:12 1 Chaos, 3 Air, 4 Fire Max Damage:12 12 Base Exp Gain:12 21.5
  halt }


  if ($2- == wind blast || $2- == air blast) {
    msg $chan Wind Blast Lvl:12 41 Runes:12 1 Death, 3 Air Max Damage:12 13 Base Exp Gain:12 25.5
  halt }
  if ($2- == water blast) {
    msg $chan Water Blast Lvl:12 47 Runes:12 1 Death, 3 Air, 3 Water Max Damage:12 14 Base Exp Gain:12 28.5
  halt }
  if ($2- == earth blast) {
    msg $chan Earth Blast Lvl:12 53 Runes:12 1 Death, 3 Air, 4 Earth Max Damage:12 15 Base Exp Gain:12 31.5
  halt }
  if ($2- == fire blast) {
    msg $chan Fire Blast Lvl:12 59 Runes:12 1 Death, 4 Air, 5 Fire Max Damage:12 16 Base Exp Gain:12 34.5
  halt }


  if ($2- == air wave || $2- == wind wave) {
    msg $chan Wind Wave Lvl:12 62 Runes:12 1 Blood, 5 Air Max Damage:12 17 Base Exp Gain:12 36
  halt }
  if ($2- == water wave) {
    msg $chan Water Wave Lvl:12 65 Runes:12 1 Blood, 5 Air, 7 Water Max Damage:12 18 Base Exp Gain:12 37.5
  halt }
  if ($2- == earth wave) {
    msg $chan Earth Wave Lvl:12 70 Runes:12 1 Blood, 5 Air, 7 Earth Max Damage:12 19 Base Exp Gain:12 40
  halt }
  if ($2- == fire wave) {
    msg $chan Fire Wave Lvl:12 75 Runes:12 1 Blood, 5 Air, 7 Fire Max Damage:12 20 Base Exp Gain:12 42.5
  halt }


  if ($2- == crumble undead) {
    msg $chan Crumble Undead Lvl:12 39 Runes:12 1 Chaos, 2 Air, 2 Earth Max Damage:12 15(on undead) Base Exp Gain:12 24.5
  halt }
  if ($2- == magic dart) {
    msg $chan Magic Dart(M) Lvl:12 50(+55 Slayer) Runes:12 1 Death, 4 Minds, Slayer Staff Max Damage:12 19 Base Exp Gain:12 30
  halt }
  if ($2- == iban blast) {
    msg $chan Iban Blast(M) Lvl:12 50 Runes:12 1 Death, 5 Fire, Iban Staff Max Damage:12 25 Base Exp Gain:12 30
  halt }


  if ($2- == confuse) {
    msg $chan Confuse Lvl:12 3 Runes:12 1 Body, 2 Earth, 3 Water Base Exp Gain:12 13
  halt }
  if ($2- == weaken) {
    msg $chan Weaken Lvl:12 11 Runes:12 1 Body, 2 Earth, 3 Water Base Exp Gain:12 21
  halt }
  if ($2- == curse) {
    msg $chan Curse Lvl:12 19 Runes:12 1 Body, 3 Earth, 2 Water Base Exp Gain:12 29
  halt }
  if ($2- == bind) {
    msg $chan Bind Lvl:12 20 Runes:12 2 Nature, 3 Earth, 3 Water Base Exp Gain:12 30
  halt }
  if ($2- == snare) {
    msg $chan Snare(M) Lvl:12 50 Runes:12 3 Nature, 4 Earth, 4 Water Base Exp Gain:12 60
  halt }
  if ($2- == vulnerability) {
    msg $chan Vulnerability(M) Lvl:12 66 Runes:12 1 Soul, 5 Earth, 5 Water Base Exp Gain:12 76
  halt }
  if ($2- == enfeeble) {
    msg $chan Enfeeble(M) Lvl:12 73 Runes:12 1 Soul, 8 Earth, 8 Water Base Exp Gain:12 83
  halt }
  if ($2- == entangle) {
    msg $chan Entangle(M) Lvl:12 79 Runes:12 4 Nature, 5 Earth, 5 Water Base Exp Gain:12 89
  halt }
  if ($2- == stun) {
    msg $chan Stun(M) Lvl:12 80 Runes:12 1 Soul, 12 Earth, 12 Water Base Exp Gain:12 90
  halt }
  if ($2- == charge) {
    msg $chan Charge(M) Lvl:12 80 Runes:12 3 Blood, 3 Air, 3 Fire Base Exp Gain:12 180
  halt }
  if ($2- == teleblock || $2- == tb) {
    msg $chan Teleblock(M) Lvl:12 85 Runes:12 1 Law, 1 Death, 1 Chaos Base Exp Gain:12 95
  halt }


  if ($2- == saradomin strike || $2- == sara strike) {
    msg $chan Saradomin Strike(M) Lvl:12 60 Runes:12 2 Bloods, 4 Air, 2 Fire Base Exp Gain:12 61
  halt }
  if ($2- == flames of zamorak || $2- == flames of zammy) {
    msg $chan Flames of Zamorak(M) Lvl:12 60 Runes:12 2 Bloods, 1 Air, 4 Fire Base Exp Gain:12 61
  halt }
  if ($2- == claws of guthix || $2- == claws of guth) {
    msg $chan Claws Of Guthix(M) Lvl:12 60 Runes:12 2 Bloods, 4 Airs, 1 Fire Base Exp Gain:12 61
  halt }


  if ($2- == enchant lvl 1 jewellery || $2- == enchant sapphire) {
    msg $chan Enchant Lvl 1 Jewellery Lvl:12 7 Runes:12 1 Cosmic, 1 Water Base Exp Gain:12 17.5
  halt }
  if ($2- == enchant lvl 2 jewellery || $2- == enchant emerald || $2- == enchant jewellery) {
    msg $chan Enchant Lvl 2 Jewellery Lvl:12 27 Runes:12 1 Cosmic, 3 Air Base Exp Gain:12 37
  halt }
  if ($2- == enchant lvl 3 jewellery || $2- == enchant ruby || $2- == enchant jewellery) {
    msg $chan Enchant Lvl 3 Jewellery Lvl:12 49 Runes:12 1 Cosmic, 5 Fire Base Exp Gain:12 59
  halt }
  if ($2- == enchant lvl 4 jewellery || $2- == enchant diamond || $2- == enchant jewellery) {
    msg $chan Enchant Lvl 4 Jewellery Lvl:12 57 Runes:12 1 Cosmic, 10 Earth Base Exp Gain:12 67
  halt }
  if ($2- == enchant lvl 5 jewellery || $2- == enchant dragonstone || $2- == enchant dstone || $2- == enchant d stone || $2- == enchant jewellery) {
    msg $chan Enchant Lvl 5 Jewellery(M) Lvl:12 68 Runes:12 1 Cosmic, 15 Earth, 15 Fire Base Exp Gain:12 78
  halt }
  if ($2- == enchant lvl 6 jewellery || $2- == enchant onyx || $2- == enchant jewellery) {
    msg $chan Enchant Lvl 6 Jewellery(M) Lvl:12 87 Runes:12 1 Cosmic, 20 Earth, 20 Fire Base Exp Gain:12 97
  halt }


  if ($2- == charge water orb || $2- == charge water) {
    msg $chan Charge Water Orb(M) Lvl:12 56 Runes:12 1 Orb, 3 Cosmic, 30 Water Base Exp Gain:12 56
  halt }
  if ($2- == charge earth orb || $2- == charge earth) {
    msg $chan Charge Earth Orb(M) Lvl:12 60 Runes:12 1 Orb, 3 Cosmic, 30 Earth Base Exp Gain:12 70
  halt }
  if ($2- == charge fire orb || $2- == charge fire) {
    msg $chan Charge Fire Orb(M) Lvl:12 63 Runes:12 1 Orb, 3 Cosmic, 30 Fire Base Exp Gain:12 73
  halt }
  if ($2- == charge air orb || $2- == charge air) {
    msg $chan Charge Air Orb(M) Lvl:12 66 Runes:12 1 Orb, 3 Cosmic, 30 Air Base Exp Gain:12 76
  halt }


  if ($2- == low level alchemy || $2- == low alch || $2- == low level alch) {
    msg $chan Low Level Alchemy Lvl:12 21 Runes:12 1 Nature, 3 Fire Base Exp Gain:12 31
  halt }
  if ($2- == high level alchemy || $2- == high alch || $2- == high level alch) {
    msg $chan High Level Alchemy Lvl:12 55 Runes:12 1 Nature, 5 Fire Base Exp Gain:12 65
  halt }


  if ($2- == bones to bananas) {
    msg $chan Bones To Bananas Lvl:12 15 Runes:12 1 Nature, 2 Earths, 2 Waters Base Exp Gain:12 25
  halt }
  if ($2- == bones to peaches) {
    msg $chan Bones To Peaches(M) Lvl:12 60 Runes:12 2 Natures, 4 Earths, 4 Waters Base Exp Gain:12 35.5
  halt }


  if ($2- == superheat item) {
    msg $chan Superheat Item Lvl:12 43 Runes:12 1 Nature, 4 Fires Base Exp Gain:12 53
  halt }
  if ($2- == telegrab || $2- == tele grab || $2- == tg || $2- == telekinetic grab) {
    msg $chan Telegrab Lvl:12 33 Runes:12 1 Law, 1 Air Base Exp Gain:12 43
  halt }


  if ($2- == home teleport || $2- == home tele) {
    msg $chan Home Teleport Lvl:12 N/A Runes:12 N/A Base Exp Gain:12 N/A
  halt }
  if ($2- == varrock teleport || $2- == varrock tele) {
    msg $chan Varrock Teleport Lvl:12 25 Runes:12 1 Law, 3 Air, 1 Fire Base Exp Gain:12 35
  halt }
  if ($2- == lumbridge teleport || $2- == lumby teleport || $2- == lumbridge tele || $2- == lumby tele) {
    msg $chan Lumbridge Teleport Lvl:12 31 Runes:12 1 Law, 3 Air, 1 Earth Base Exp Gain:12 41
  halt }
  if ($2- == falador teleport || $2- == fally teleport || $2- == fally tele || $2- == falador tele) {
    msg $chan Falador Teleport Lvl:12 37 Runes:12 1 Law, 3 Air, 1 Water Base Exp Gain:12 48
  halt }
  if ($2- == house teleport || $2- == house tele || $2- == home teleport || $2- == home tele) {
    msg $chan House Teleport(M) Lvl:12 40 Runes:12 1 Law, 1 Air, 1 Earth Base Exp Gain:12 30
  halt }
  if ($2- == camelot teleport || $2- == camelot tele) {
    msg $chan Camelot Teleport(M) Lvl:12 45 Runes:12 1 Law, 5 Air Base Exp Gain:12 55.5
  halt }
  if ($2- == ardougne teleport || $2- == ardougne tele || $2- == ardy teleport || $2- == ardy tele) {
    msg $chan Ardougne Teleport(M) Lvl:12 51 Runes:12 2 Law, 2 Water Base Exp Gain:12 61
  halt }
  if ($2- == watchtower teleport || $2- == watchtower tele) {
    msg $chan Watchtower Teleport(M) Lvl:12 58 Runes:12 2 Law, 2 Earth Base Exp Gain:12 68
  halt }
  if ($2- == trollheim teleport || $2- == trollheim tele) {
    msg $chan Trollheim Teleport(M) Lvl:12 61 Runes:12 2 Law, 2 Fire Base Exp Gain:12 68
  halt }
  if ($2- == ape atoll teleport || $2- == ape atoll tele) {
    msg $chan Ape Atoll Teleport(M) Lvl:12 64 Runes:12 2 Law, 2 Water, 2 Fire, 1 Banana Base Exp Gain:12 74
  halt }


  if ($2- == teleother lumbridge || $2- == lumbridge teleother) {
    msg $chan Teleother Lumbridge(M) Lvl:12 74 Runes:12 1 Law, 1 Soul, 1 Earth Base Exp Gain:12 84
  halt }
  if ($2- == teleother falador || $2- == falador teleother) {
    msg $chan Teleother Falador(M) Lvl:12 82 Runes:12 1 Law, 1 Soul, 1 Water Base Exp Gain:12 92
  halt }
  if ($2- == teleother camelot || $2- == camelot teleother || $2- == cammy teleother || $2- == teleother cammy) {
    msg $chan Teleother Camelot(M) Lvl:12 90 Runes:12 1 Law, 2 Souls Base Exp Gain:12 100
  halt }


  if ($2- == smoke rush) {
    msg $chan Smoke Rush(M) Lvl:12 50 Runes:12 2 Death, 2 Chaos, 1 Air, 1 Fire Max Damage:12 13 Base Exp Gain:12 30
  halt }
  if ($2- == smoke burst) {
    msg $chan Smoke Burst(M) Lvl:12 62 Runes:12 2 Death, 4 Chaos, 2 Air, 2 Fire Max Damage:12 17 Base Exp Gain:12 36
  halt }
  if ($2- == smoke blitz) {
    msg $chan Smoke Blitz(M) Lvl:12 74 Runes:12 2 Death, 2 Blood, 2 Air, 2 Fire Max Damage:12 23 Base Exp Gain:12 42
  halt }
  if ($2- == smoke barrage) {
    msg $chan Smoke Barrage(M) Lvl:12 86 Runes:12 4 Death, 2 Blood, 4 Air, 4 Fire Max Damage:12 27 Base Exp Gain:12 48
  halt }


  if ($2- == shadow rush) {
    msg $chan Shadow Rush(M) Lvl:12 52 Runes:12 2 Death, 2 Chaos, 1 Soul, 1 Air Max Damage:12 14 Base Exp Gain:12 31
  halt }
  if ($2- == shadow burst) {
    msg $chan Shadow Burst(M) Lvl:12 64 Runes:12 2 Death, 4 Chaos, 2 Soul, 1 Air Max Damage:12 17 Base Exp Gain:12 37
  halt }
  if ($2- == shadow blitz) {
    msg $chan Shadow Blitz(M) Lvl:12 76 Runes:12 2 Death, 2 Blood, 2 Soul, 2 Air Max Damage:12 24 Base Exp Gain:12 43
  halt }
  if ($2- == shadow barrage) {
    msg $chan Shadow Barrage(M) Lvl:12 88 Runes:12 4 Death, 2 Blood, 3 Soul, 4 Air Max Damage:12 28 Base Exp Gain:12 48
  halt }


  if ($2- == blood rush) {
    msg $chan Blood Rush(M) Lvl:12 56 Runes:12 2 Death, 2 Chaos, 1 Blood Max Damage:12 15 Base Exp Gain:12 33
  halt }
  if ($2- == blood burst) {
    msg $chan Blood Burst(M) Lvl:12 68 Runes:12 2 Death, 4 Chaos, 2 Blood Max Damage:12 21 Base Exp Gain:12 39
  halt }
  if ($2- == blood blitz) {
    msg $chan Blood Blitz(M) Lvl:12 80 Runes:12 2 Death, 4 Blood Max Damage:12 25 Base Exp Gain:12 45
  halt }
  if ($2- == blood barrage) {
    msg $chan Blood Barrage(M) Lvl:12 92 Runes:12 4 Death, 4 Blood, 1 Soul Max Damage:12 29 Base Exp Gain:12 59
  halt }

  if ($2- == ice rush) {
    msg $chan Ice Rush(M) Lvl:12 58 Runes:12 2 Death, 2 Chaos, 2 Water Max Damage:12 16 Base Exp Gain:12 34
  halt }
  if ($2- == ice burst) {
    msg $chan Ice Burst(M) Lvl:12 70 Runes:12 2 Death, 4 Chaos, 4 Water Max Damage:12 22 Base Exp Gain:12 40
  halt }
  if ($2- == ice blitz) {
    msg $chan Ice Blitz(M) Lvl:12 82 Runes:12 2 Death, 2 Blood, 3 Water Max Damage:12 26 Base Exp Gain:12 46
  halt }
  if ($2- == ice barrage) {
    msg $chan Ice Barrage(M) Lvl:12 94 Runes:12 4 Death, 2 Blood, 6 Water Max Damage:12 30 Base Exp Gain:12 52
  halt }

  if ($2- == Paddewwa Teleport || $2- == Paddewwa Tele || $2- == Edgeville Teleport || $2- == Edgeville Tele) {
    msg $chan Paddewwa Teleport(M) Lvl:12 54 Runes:12 2 Law, 1 Air, 1 Fire Base Exp Gain:12 64
  halt }
  if ($2- == Senntisten Teleport || $2- == Senntisten Tele || $2- == Digsite Teleport || $2- == Digsite Tele) {
    msg $chan Senntisten Teleport(M) Lvl:12 60 Runes:12 2 Law, 1 Soul Base Exp Gain:12 70
  halt }
  if ($2- == Kharyrll Teleport || $2- == Kharyrll Tele || $2- == Canifis Teleport || $2- == Canifis Tele) {
    msg $chan Kharyrll Teleport(M) Lvl:12 66 Runes:12 2 Law, 1 Blood Base Exp Gain:12 76
  halt }
  if ($2- == Lassar Teleport || $2- == Lassar Tele || $2- == Ice Mountain Teleport || $2- == Ice Mountain Tele) {
    msg $chan Lassar Teleport(M) Lvl:12 72 Runes:12 2 Law, 4 Water Base Exp Gain:12 82
  halt }
  if ($2- == Dareeyak Teleport || $2- == Dareeyak Tele || $2- == ruins teleport || $2- == ruins tele) {
    msg $chan Dareeyak Teleport(M) Lvl:12 78 Runes:12 2 Law, 2 Air, 3 Fire Base Exp Gain:12 88
  halt }
  if ($2- == Carrallangar Teleport || $2- == Carrallangar Tele || $2- == graveyard teleport || $2- == graveyard tele) {
    msg $chan Carrallangar Teleport(M) Lvl:12 84 Runes:12 2 Law, 2 Soul Base Exp Gain:12 82
  halt }
  if ($2- == annakarl teleport || $2- == annakarl tele || $2- == demonic ruins teleport || $2- == demonic ruins tele) {
    msg $chan Annakarl Teleport(M) Lvl:12 90 Runes:12 2 Law, 2 Blood Base Exp Gain:12 100
  halt }
  if ($2- == ghorrock teleport || $2- == ghorrock tele || $2- == ice plateau teleport || $2- == ice plateau tele) {
    msg $chan Ghorrock Teleport(M) Lvl:12 96 Runes:12 2 Law, 8 Water Base Exp Gain:12 106
  halt }


  if ($2- == cure other) {
    msg $chan Cure Other(M) Lvl:12 68 Runes:12 1 Astral, 1 Law, 10 Earth Base Exp Gain:12 48
  halt }
  if ($2- == cure me) {
    msg $chan Cure Me(M) Lvl:12 71 Runes:12 2 Astral, 1 Law, 2 Cosmic Base Exp Gain:12 46
  halt }
  if ($2- == cure group) {
    msg $chan Cure Group(M) Lvl:12 71 Runes:12 2 Astral, 2 Law, 2 Cosmic Base Exp Gain:12 59
  halt }
  if ($2- == heal other) {
    msg $chan Heal Other(M) Lvl:12 92 Runes:12 3 Astral, 3 Law, 1 Blood Base Exp Gain:12 86
  halt }
  if ($2- == heal group) {
    msg $chan Heal Group(M) Lvl:12 95 Runes:12 4 Astral, 6 Law, 3 Blood Base Exp Gain:12 124
  halt }


  if ($2- == bake pie) {
    msg $chan Bake Pie(M) Lvl:12 65 Runes:12 1 Astral, 5 Fire, 4 Water Base Exp Gain:12 26
  halt }
  if ($2- == cure plant) {
    msg $chan Cure Plant(M) Lvl:12 66 Runes:12 1 Astral, 8 Earth Base Exp Gain:12 26
  halt }
  if ($2- == npc contact) {
    msg $chan NPC Contact(M) Lvl:12 67 Runes:12 1 Astral, 1 Cosmic, 2 Air Base Exp Gain:12 30
  halt }
  if ($2- == superglass make) {
    msg $chan Superglass Make(M) Lvl:12 77 Runes:12 2 Astral, 6 Fire, 10 Air Base Exp Gain:12 41
  halt }
  if ($2- == string jewellery) {
    msg $chan String Jewellery(M) Lvl:12 80 Runes:12 2 Astral, 10 Earth, 5 Water Base Exp Gain:12 44
  halt }
  if ($2- == stat restore pot share) {
    msg $chan Stat Restore Pot Share(M) Lvl:12 81 Runes:12 2 Astral, 10 Earth, 10 Water Base Exp Gain:12 49
  halt }
  if ($2- == magic imbue) {
    msg $chan Magic Imbue(M) Lvl:12 82 Runes:12 2 Astral, 7 Fire, 7 Water Base Exp Gain:12 51
  halt }
  if ($2- == fertile soil) {
    msg $chan Fertile Soil(M) Lvl:12 83 Runes:12 3 Astral, 2 Nature, 15 Earth Base Exp Gain:12 61
  halt }
  if ($2- == boost potion share) {
    msg $chan Boost Potion Share(M) Lvl:12 84 Runes:12 3 Astral, 12 Earth, 10 Water Base Exp Gain:12 62
  halt }
  if ($2- == energy transfer) {
    msg $chan Energy Transfer(M) Lvl:12 91 Runes:12 3 Astral, 2 Law, 1 Nature Base Exp Gain:12 68
  halt }
  if ($2- == vengeance other) {
    msg $chan Vengeance Other(M) Lvl:12 93 Runes:12 3 Astral, 2 Death, 10 Earth Base Exp Gain:12 73
  halt }
  if ($2- == vengeance) {
    msg $chan Vengeance(M) Lvl:12 94 Runes:12 4 Astral, 2 Death, 10 Earth Base Exp Gain:12 75
  halt }


  if ($2- == moonclan teleport || $2- == moonclan tele) {
    msg $chan Moonclan Teleport(M) Lvl:12 69 Runes:12 2 Astral, 1 Law, 2 Earth Base Exp Gain:12 50
  halt }
  if ($2- == tele group moonclan) {
    msg $chan Tele Group Moonclan(M) Lvl:12 70 Runes:12 2 Astral, 1 Law, 4 Earth Base Exp Gain:12 51
  halt }
  if ($2- == waterbirth teleport || $2- == waterbirth tele) {
    msg $chan Waterbirth Teleport(M) Lvl:12 72 Runes:12 2 Astral, 1 Law, 1 Water Base Exp Gain:12 51
  halt }
  if ($2- == tele group waterbirth) {
    msg $chan Tele Group Waterbirth(M) Lvl:12 73 Runes:12 2 Astral, 1 Law, 5 Water Base Exp Gain:12 53
  halt }
  if ($2- == barbarian teleport || $2- == barbarian tele) {
    msg $chan Barbarian Teleport(M) Lvl:12 75 Runes:12 2 Astral, 2 Law, 3 Fire Base Exp Gain:12 53
  halt }
  if ($2- == tele group barbarian) {
    msg $chan Tele Group Barbarian(M) Lvl:12 76 Runes:12 2 Astral, 2 Law, 6 FIre Base Exp Gain:12 55
  halt }
  if ($2- == khazard teleport || $2- == khazard tele) {
    msg $chan Khazard Teleport(M) Lvl:12 78 Runes:12 2 Astral, 2 Law, 4 Water Base Exp Gain:12 54
  halt }
  if ($2- == tele group khazard) {
    msg $chan Tele Group Khazard(M) Lvl:12 79 Runes:12 2 Astral, 2 Law, 8 Water Base Exp Gain:12 56
  halt }
  if ($2- == fishing guild teleport || $2- == fishing guild tele) {
    msg $chan Fishing Guild Teleport(M) Lvl:12 85 Runes:12 3 Astral, 3 Law, 10 Water Base Exp Gain:12 65
  halt }
  if ($2- == tele group fishing guild) {
    msg $chan Tele Group Fishing Guild(M) Lvl:12 86 Runes:12 3 Astral, 3 Law, 14 Water Base Exp Gain:12 70
  halt }
  if ($2- == catherby teleport || $2- == catherby tele) {
    msg $chan Catherby Teleport(M) Lvl:12 87 Runes:12 3 Astral, 3 Law, 10 Water Base Exp Gain:12 78
  halt }
  if ($2- == tele group catherby) {
    msg $chan Tele Group Catherby(M) Lvl:12 88 Runes:12 3 Astral, 3 Law, 15 Water Base Exp Gain:12 80
  halt }
  if ($2- == ice plateau teleport) {
    msg $chan Ice Plateau Teleport(M) Lvl:12 89 Runes:12 3 Astral, 3 Law, 8 Water Base Exp Gain:12 96
  halt }
  if ($2- == tele group ice plateau) {
    msg $chan Tele Group Ice Plateau(M) Lvl:12 90 Runes:12 3 Astral, 3 Law, 16 Water Base Exp Gain:12 99
  halt }

  else {
    msg $chan Spell not found. Make sure all words are spelled correctly, and in proper order.
  halt }
}

on *:TEXT:!slots:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 5) {
    /notice $nick 10Sorry but you don't have enough money. Ask someone for a loan.
    halt
  }
  if ($rand(1,6) == 1) /set %srand1 ¤
  if ($rand(1,6) == 2) /set %srand1 ¤
  if ($rand(1,6) == 3) /set %srand1 ¤
  if ($rand(1,6) == 4) /set %srand1 Î
  if ($rand(1,6) == 5) /set %srand1 Î
  if ($rand(1,6) == 6) /set %srand1 ¥
  ; 
  if ($rand(1,6) == 1) /set %srand2 ¤
  if ($rand(1,6) == 2) /set %srand2 ¤
  if ($rand(1,6) == 3) /set %srand2 ¤
  if ($rand(1,6) == 4) /set %srand2 Î
  if ($rand(1,6) == 5) /set %srand2 Î
  if ($rand(1,6) == 6) /set %srand2 ¥
  ; 
  if ($rand(1,6) == 1) /set %srand3 ¤
  if ($rand(1,6) == 2) /set %srand3 ¤
  if ($rand(1,6) == 3) /set %srand3 ¤
  if ($rand(1,6) == 4) /set %srand3 Î
  if ($rand(1,6) == 5) /set %srand3 Î
  if ($rand(1,6) == 6) /set %srand3 ¥
  /set %money.temp $calc( $readini( casino.ini, $nick, Money ) -5 )
  /writeini casino.ini $nick Money %money.temp
  /unset %money.temp
  /msg $chan 10 $+ $nick pulls the handle...the slots are ( %srand1 )( %srand2 )( %srand3 )
  if (%srand1 == ¤) if (%srand2 == ¤) if (%srand3 == ¤) /msg $chan 10Congrats $nick $+ !!! You have won 100 dollars!!!
  if (%srand1 == ¤) if (%srand2 == ¤) if (%srand3 == ¤) /set %money.won $calc( $readini( casino.ini, $nick, Money ) +100 )
  if (%srand1 == ¤) if (%srand2 == ¤) if (%srand3 == ¤) /writeini casino.ini $nick Money %money.won
  if (%srand1 == ¤) if (%srand2 == ¤) if (%srand3 == ¤) /unset %money.won
  if (%srand1 == Î) if (%srand2 == Î) if (%srand3 == Î) /msg $chan 10Congrats $nick $+ !!! You have won 500 dollars!!!
  if (%srand1 == Î) if (%srand2 == Î) if (%srand3 == Î) /set %money.won $calc( $readini( casino.ini, $nick, Money ) +500 )
  if (%srand1 == Î) if (%srand2 == Î) if (%srand3 == Î) /writeini casino.ini $nick Money %money.won
  if (%srand1 == Î) if (%srand2 == Î) if (%srand3 == Î) /unset %money.won
  if (%srand1 == ¥) if (%srand2 == ¥) if (%srand3 == ¥) /msg $chan 10JACKPOT!!!! You have won 1,000 dollars $nick $+ !!!
  if (%srand1 == ¥) if (%srand2 == ¥) if (%srand3 == ¥) /set %money.won $calc( $readini( casino.ini, $nick, Money ) +1000 )
  if (%srand1 == ¥) if (%srand2 == ¥) if (%srand3 == ¥) /writeini casino.ini $nick Money %money.won
  if (%srand1 == ¥) if (%srand2 == ¥) if (%srand3 == ¥) /unset %money.won
}
;MONEY MANAGMENT
on *:TEXT:!money*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 != $null) {
    if ($readini( casino.ini, $2, Money ) == $null) {
      /msg $chan $2 has not registered.
      halt
    }
    else /msg $chan 10 $$2 has $readini(casino.ini, $$2, Money) dollars.
  }
  if ($2 == $null) /msg $chan 10 $nick has $readini(casino.ini, $nick, Money) dollars.
}
;GIVE
on *:TEXT:!give*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please use a type a nickname. ex: !give chef-tech 100
    halt
  }
  if ($3 == $null) {
    /notice $nick 10Please use a type a dollar ammount. ex: !give chef-tech 100
    halt
  }
  if ($$3 < 1) {
    /notice $nick 10Please give more than 1 dollar.
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < $3) {
    /msg $chan 10Sorry $nick doesn't have $3 dollars to give $$2 
    halt
  }
  if ($2 == $nick) {
    /notice $nick 10You can't give money to yourself, you already have it!
    halt
  }
  if ($readini( casino.ini, $nick, Money ) >= $3) {
    /set %money.give $calc( $readini( casino.ini, $nick, Money ) - $3 ) 
    /msg $chan 10 $nick has given $$2 $3 dollars. 
    /set %money.given $calc( $readini( casino.ini, $2, Money ) + $3 ) 
    /writeini casino.ini $nick Money %money.give
    /writeini casino.ini $2 Money %money.given
    /unset %money.give
    /unset %money.given
  }
}
;PICK3
on *:TEXT:!pickthree*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please pick three numbers 0-9. ex: !pickthree 1 2 3
    halt
  }
  if ($3 == $null) {
    /notice $nick 10Please pick three numbers 0-9. ex: !pickthree 1 2 3
    halt
  }
  if ($4 == $null) {
    /notice $nick 10Please pick three numbers 0-9. ex: !pickthree 1 2 3
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 5) {
    /notice $nick 10Sorry but you don't have enough money. Ask someone for a loan.
    halt
  }
  if ($readini( casino.ini, $nick, Money ) >= 5) {
    /set %lotto.nick $2 $3 $4
    %lotto.nick = $sorttok(%lotto.nick,32,n)
    /set %lotto.winner $rand(0,9) $rand(0,9) $rand(0,9)
    %lotto.winner = $sorttok(%lotto.winner,32,n)
    if (%lotto.nick == %lotto.winner) {
      /msg $chan 10Congrats $nick $+ !!! The numbers were -----> %lotto.winner <------ You have just won 100,000,000 dollars!!!!
      /set %money.won $calc( $readini( casino.ini, $nick, Money ) + 100000000)
      /writeini casino.ini $nick Money %money.won
      /unset %money.won
      /unset %lotto.nick
      /unset %lotto.winner
    }
    if (%lotto.nick != %lotto.winner) {
      /msg $chan 10Sorry $nick $+ , but you have lost 5 dollars. The numbers were -----> %lotto.winner <------ Try again. Remember if you win you get 100,000,000 dollars!!
      /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - 5)
      /writeini casino.ini $nick Money %money.temp
      /unset %money.temp
      /unset %lotto.nick
      /unset %lotto.winner
    }
  } 
}
;LOTTO
on *:TEXT:!luckylotto*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please enter a number 1-9. ex: !luckylotto 5
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 10) {
    /notice $nick 10Sorry but you don't have enough money. Ask someone for a loan.
    halt
  }
  if ($readini( casino.ini, $nick, Money ) >= 10) {
    /set %lotto.user $2
    /set %lotto.number $rand(1,9)
    if (%lotto.user == %lotto.number) {
      /msg $chan 10Congrats $nick $+ !!! You have just won 100 dollars!!!!
      /set %money.won $calc( $readini( casino.ini, $nick, Money ) + 100)
      /writeini casino.ini $nick Money %money.won
      /unset %money.won
    }
    if (%lotto.user != %lotto.number) {
      /msg $chan 10Sorry $nick $+ , but you lost 10 dollars. The number was ---> %lotto.number <---- Try again. Jackpot is 100 dollars!!
    }
    /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - 10)
    /writeini casino.ini $nick Money %money.temp
    /unset %money.temp
    /unset %lotto.user
    /unset %lotto.number
  }
}
;COINTOSS
on *:TEXT:!cointoss*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < $2) {
    /notice $nick 10Sorry but you don't have $2 dollars to spend.
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please type a dollar ammount. ex: !cointoss (money) (heads or tails)
    halt
  }
  if ($3 == $null) { 
    /notice $nick 10Please indicate whether you are betting on heads or tails. ex: !cointoss (money) (heads or tails)
    halt
  }
  if ($2 < 1) {
    /notice $nick 10Please bet with 1 dollar or more.
    halt
  } 
  if ($readini( casino.ini, $nick, Money ) >= $2) {
    /set %coinflip $rand(1,2)
    if ((%coinflip == 1) && ($3 == heads)) {
      /msg $chan 10Congratulations!!! $nick You have won $2 dollars!!!
      /set %money.temp $calc( $readini( casino.ini, $nick, Money ) + $2)
    }
    if ((%coinflip == 2) && ($3 == tails)) {
      /msg $chan 10Congratulations!!! $nick You have won $2 dollars!!!
      /set %money.temp $calc( $readini( casino.ini, $nick, Money ) + $2)
    }
    if ((%coinflip != 2) && ($3 == tails)) {
      /msg $chan 10Sorry $nick $+ , You lost $2 dollars. The coin landed on HEADS.
      /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - $2) 
    }
    if ((%coinflip == 2) && ($3 != tails)) {
      /msg $chan 10Sorry $nick $+ , You lost $2 dollars. The coin landed on TAILS.
      /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - $2)
    }
    /writeini casino.ini $nick Money %money.temp
    /unset %money.temp
    /unset %coinflip
  }
}
;BAR
on *:TEXT:!beer*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  } 
  if ($readini( casino.ini, $nick, Money ) < 5) {
    /notice $nick $+ , Ask a friend for some cash, no credit here.
    halt
  } 
  if ($2 != $null) /msg $chan 13 $+ $nick buys $$2 a $read(casinobeer.txt)
  if ($2 == $null) /describe $chan pours $nick an ice cold $read(casinobeer.txt)
  /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -5 )
  /writeini casino.ini $nick Money %money.drink
  /unset %money.drink
}
on *:TEXT:!malt*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 2) {
    /notice $nick $+, Ask a friend for some cash, no credit here.
    halt
  }
  if ($2 != $null) /msg $chan 13 $+ $nick buys $$2 a $read(casinomalt.txt)
  if ($2 == $null) /describe $chan hands $nick a 40 of $read(casinomalt.txt)
  /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -2 )
  /writeini casino.ini $nick Money %money.drink
  /unset %money.drink
}
on *:TEXT:!mixed*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 8) {
    /notice $nick $+ , Ask a friend for some cash, no credit here.
    halt
  }
  if ($2 != $null) /msg $chan 13 $+ $nick buys $$2 a $read(casinomixed.txt)
  if ($2 == $null) /describe $chan mixes up a $read(casinomixed.txt) for $nick
  /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -8 )
  /writeini casino.ini $nick Money %money.drink
  /unset %money.drink
}
on *:TEXT:!wine*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 10) {
    /notice $nick $+ Ask a friend for some cash, no credit here.
    halt
  }
  if ($2 != $null) /msg $chan 13 $+ $nick buys $$2 a glass of $read(casinowine.txt)
  if ($2 == $null) /describe $chan pours a glass of $read(casinowine.txt) for $nick
  /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -10 )
  /writeini casino.ini $nick Money %money.drink
  /unset %money.drink
}
on *:TEXT:!shot*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 7) {
    /notice $nick $+ , Ask a friend for some cash, no credit here.
    halt
  }
  if ($2 != $null) /msg $chan 13 $+ $nick buys $$2 a shot of $read(casinoshot.txt)
  if ($2 == $null) /describe $chan hands $nick a shot of $read(casinoshot.txt)
  /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -7 )
  /writeini casino.ini $nick Money %money.drink
  /unset %money.drink
}
;ORDER
on *:text:!order*:#: {
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < 10) {
    /notice $nick $+ , Ask a friend for some cash, no credit here.
    halt
  }
  if ($2 == $null) {
    /notice $nick 13Please use: !order (drink) (nick*)
    halt
  }
  if ($3 != $null) {
    /msg $chan 13 $+ $nick buys $$3 a $$2
    /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -10 )
    /writeini casino.ini $nick Money %money.drink
    /unset %money.drink
    halt
  }
  if ($2 != $null) {
    /describe $chan hands $nick a $$2
    /set %money.drink $calc( $readini( casino.ini, $nick, Money ) -10 )
    /writeini casino.ini $nick Money %money.drink
    /unset %money.drink
  }
}
;ATM
on *:TEXT:!atm:#:{
  if ($readini( casino.ini, $nick, Money ) != $null) {
    /notice $nick $+ , You have already registered. Better ask a friend for a loan.
    halt
  }
  /notice $nick Welcome to $chan $+ 's Bar & Casino. Here's 50 bucks. Have Fun and Drink Up! For help type: !bar or !casino
  /writeini casino.ini $nick Money 50
}
on *:TEXT:!tip*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please type a number. Ex. !tip 10
    halt
  }
  if ($2 < 1) {
    /notice $nick 10Please tip with 1 dollar or more.
    halt
  }
  else  {
    /msg $chan 13Thankyou, here's your tip:13,11 $read casinotip.txt
    /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - $2 )
    /set %money.tip $calc( $readini( casino.ini, $me, Money ) + $2 )
    /writeini casino.ini $nick Money %money.temp
    /writeini casino.ini $me Money %money.tip
    /unset %money.temp
    /unset %money.tip
  }
}
;BAR HELP
on *:TEXT:!bar:#:{
  /notice $nick 13Would you like to see the menu? 
  /notice $nick 13!malt, !beer, !shot, !mixed, !wine
  /notice $nick 13Prices: 2, 5, 7, 8, 10
  /notice $nick 13Buy any drink you want for 10 bucks with !order (drink)
  /notice $nick 13To buy anyone a drink type their nick after the trigger.
  /notice $nick 13Give a tip and receive one in return: !tip (#)
}
;CASINO HELP
on *:TEXT:`casino:#:{
  /notice $nick 10!atm [register your nick and recieve 50 dollars.
  /notice $nick 10!money <nick> [check to see your or anyone's winnings] 
  /notice $nick 10!give <nick> <money> [help someone down on their luck]
  /notice $nick 10!slots [Plays the game, costs 5 dollars a try]
  /notice $nick 10!cointoss <heads or tails> <money> [50/50 bet on the toss of a coin]
  /notice $nick 10!luckylotto <number> [10  dollars a tickets, wins 100]
  /notice $nick 10!pickthree <number> <number> <number> [5 dollars a ticket. wins 100,000,000]
  /notice $nick 10!blackjack <money> [play 21]
  /notice $nick 10!vphelp [shows VidoPoker rules]
  /notice $nick 10!craps <money> [try to hit 7 or 11]
  /notice $nick 10!dice <money> [ony 1:1 game]
}
;CRAPS
on *:TEXT:!craps*:#: {
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please type a dollar ammount. ex: !craps (money)
    halt
  }
  if ($readini( casino.ini, $nick, Money ) < $2) {
    /notice $nick 10Sorry but you don't have $2 dollars to spend.
    halt
  }
  if ($2 < 1) {
    /notice $nick 10Please bet with 1 dollar or more.
    halt
  }
  var %R = $rand(1,6) | var %C = $rand(1,6)
  var %T = $Calc(%R + %C)
  /msg $chan 10 $+ $nick Rolls the dice......... %R & %C
  /msg $chan 10 Dice Total= %T
  if (%T = 7) {
    var %M = $calc($2 * 5)
    /msg $chan 10 $+ $nick GOT SEVENS!! You Win %m dollars!
    /set %money.temp $calc( $readini( casino.ini, $nick, Money ) + %m)
    /writeini casino.ini $nick Money %money.temp
    /unset %money.temp
    /unset %R
    /unset %C
    /unset %T
    /unset %M  
    /halt
  }
  if  (%T = 11) {
    var %M = $calc($2 * 16)
    /msg $chan 10 $+ $nick GOT ELEVEN!! You Win %m dollars!!!
    /set %money.temp $calc( $readini( casino.ini, $nick, Money ) + %m)
    /writeini casino.ini $nick Money %money.temp
    /unset %money.temp
    /unset %R
    /unset %C
    /unset %T
    /unset %M
    /halt
  }
  else {
    /msg $chan 10 $+ $Nick Crapped out! You Lose $2 dollars.  
    /set %money.temp $calc( $readini( casino.ini, $nick, Money ) - $2)
    /writeini casino.ini $nick Money %money.temp
    /unset %money.temp
    /unset %R
    /unset %C
    /unset %T
    /unset %M
  }
}
;DICE
on *:TEXT:!dice*:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if (%dice == on) {
    /notice $nick 10Game already in progress. Please type: !djoin
    halt
  }
  if ($2 == $null) {
    /notice $nick 10Please enter a bet ammount. ex: !dice 10
    halt
  }
  if ($2 > $readini( casino.ini, $nick, Money )) {
    /msg $chan 10 $+ $nick does not have $2 dollars to play
    halt
  }
  if ($2 < 1) {
    /notice $nick 10Please give more than 1 dollar
    halt
  }
  /set %dicedplayer1 $nick
  /set %dice on
  /set %dicedmoney $2
  /msg $chan 10DICE has been started by %dicedplayer1 The bet is %dicedmoney You have 60 seconds to join type: !djoin
  /timer72 1 60 /msg $chan 10Sorry %dicedplayer1 nobody joined the DICE game.
  /timer73 1 60 /unset %dice*
}
on *:TEXT:!djoin:#:{
  if ($readini( casino.ini, $nick, Money ) == $null) {
    /notice $nick $+ , You have not registered yet. Please have some complimentary chips. Type: !atm
    halt
  }
  if ($nick == %dicedplayer1) {
    /notice $nick 10You cannot play yourself!
    halt
  }
  if (%dice == $null) {
    /notice $nick 10Sorry DICE has not yet started. To start type !dice <money>
    halt
  }
  if (%dicedmoney > $readini( casino.ini, $nick, Money )) {
    /msg $chan 10Sorry, $nick cannot join. $nick does have %dicedmoney dollars.
    halt
  }
  /timer72 off
  /timer73 off
  goto next 
  :next
  /set %dicedplayer2 $nick
  /set %diceplayer1num $rand(1,6)
  /set %diceplayer2num $rand(1,6)
  /msg $chan 10DICE have been thrown. Bet is set at %dicedmoney dollars.
  /msg $chan 10 $+ %dicedplayer1 $+ 's number was ---> %diceplayer1num <---
  /msg $chan 10 $+ %dicedplayer2 $+ 's number was ---> %diceplayer2num <---
  if (%diceplayer1num > %diceplayer2num) {
    /msg $chan 10 $+ %dicedplayer1 has won %dicedmoney dollars!!!
    /set %dicewinner $calc( $readini( casino.ini, %dicedplayer1, Money ) + %dicedmoney)
    /set %diceloser $calc( $readini( casino.ini, %dicedplayer2, Money ) - %dicedmoney)
    /writeini casino.ini %dicedplayer1 Money %dicewinner
    /writeini casino.ini %dicedplayer2 Money %diceloser 
    /unset %dice*
    halt
  }
  if (%diceplayer1num < %diceplayer2num) {
    /msg $chan 10 $+ %dicedplayer2 has won %dicedmoney dollars!!!
    /set %dicewinner $calc( $readini( casino.ini, %dicedplayer2, Money ) + %dicedmoney)
    /set %diceloser $calc( $readini( casino.ini, %dicedplayer1, Money ) - %dicedmoney)
    /writeini casino.ini %dicedplayer2 Money %dicewinner
    /writeini casino.ini %dicedplayer1 Money %diceloser 
    /unset %dice*
    halt
  }
  if (%diceplayer1num == %diceplayer2num) {
    /msg $chan 10It was a tie. Nobody one won. Please roll again.
    goto next
  }
}
;BLACKJACK
on *:TEXT:!blackjack*:#:{
  if (%bj == on) {
    /msg $chan 10Blackjack is already in progress. Please wait your turn.
    halt
  }
  if ( %hs [ $+ [ $nick ] ] != $null ) /notice $nick 10 $+ $nick $+ , you have a game in progress!!!
  if ( %hs [ $+ [ $nick ] ] == $null ) {
    if ( $2 == $null ) /notice $nick 10Please enter amount you want to bet. ex. !blackjack 20
    if ($readini( casino.ini, $nick, Money ) == $null ) /notice $nick 10 $+ $nick is not yet registered.  Type !atm
    if ( $readini( casino.ini, $nick, Money ) < $2 ) /notice $nick 10You don't have that much money...try something lower!
    if ( $readini( casino.ini, $nick, Money ) >= $2 ) {
      if ( $2 < 1 ) {
        /notice $nick 10Please bet more than 1 dollar.
        halt
      }
      if ( $2 > 0 ) {
        /set %bj on
        /set %bet [ $+ [ $nick ] ] $2
        /bjdeal
        /msg $chan 10 $+ $nick bet $2 dollars on a hand of blackjack
        /var %cch = $rand(1,4)
        if ( %cch == 1) /msg $chan 10 $+ $nick $+ 's hand: 4,0 %hcard1 [ $+ [ $nick ] ]  4,0 %hcard2 [ $+ [ $nick ] ] 
        if ( %cch == 2) /msg $chan 10 $+ $nick $+ 's hand: 4,0 %hcard1 [ $+ [ $nick ] ]  1,0 %hcard2 [ $+ [ $nick ] ] 
        if ( %cch == 3) /msg $chan 10 $+ $nick $+ 's hand: 1,0 %hcard1 [ $+ [ $nick ] ]  4,0 %hcard2 [ $+ [ $nick ] ] 
        if ( %cch == 4) /msg $chan 10 $+ $nick $+ 's hand: 1,0 %hcard1 [ $+ [ $nick ] ]  1,0 %hcard2 [ $+ [ $nick ] ] 
        if (( %hcard1 [ $+ [ $nick ] ] == A ) && ( %hcard2 [ $+ [ $nick ] ] == A )) {
          /set %addh [ $+ [ $nick ] ] 12
          /set %aceh [ $+ [ $nick ] ] 0
        }
        if (( %hcard1 [ $+ [ $nick ] ] == A ) || ( %hcard2 [ $+ [ $nick ] ] == A )) { /set %aceh [ $+ [ $nick ] ] 0 }
        /set %ccc [ $+ [ $nick ] ] $rand(1,2)
        if ( %ccc [ $+ [ $nick ] ] == 1) /msg $chan 10Dealer's hand: 4,0 %ccard1 [ $+ [ $nick ] ]  12,0 ? 
        if ( %ccc [ $+ [ $nick ] ] == 2) /msg $chan 10Dealer's hand: 1,0 %ccard1 [ $+ [ $nick ] ]  12,0 ? 
        if ( %addh [ $+ [ $nick ] ] == 21 ) {
          /set %bj [ $+ [ $nick ] ] $calc( $2 / 2 )
          /set %bj [ $+ [ $nick ] ] $calc( %bj [ $+ [ $nick ] ] + $2 )
          /msg $chan 4Blackjack!! $nick has won %bj [ $+ [ $nick ] ] dollars!!
          /set %bj.temp $calc( $readini( casino.ini, $nick, Money ) + %bj [ $+ [ $nick ] ] )
          /writeini casino.ini $nick Money %bj.temp
          /unset %bj.temp
          /unset %hs [ $+ [ $nick ] ]
          /unset %bet [ $+ [ $nick ] ]
          /unset %addh [ $+ [ $nick ] ]
          /unset %addc [ $+ [ $nick ] ]
          /unset %hcard1 [ $+ [ $nick ] ]
          /unset %hcard2 [ $+ [ $nick ] ]
          /unset %ccard1 [ $+ [ $nick ] ]
          /unset %ccard2 [ $+ [ $nick ] ]
          /unset %hcard3 [ $+ [ $nick ] ]
          /unset %ccard3 [ $+ [ $nick ] ]
          /unset %bj [ $+ [ $nick ] ]
          /unset %aceh [ $+ [ $nick ] ] 
          /unset %double [ $+ [ $nick ] ]
          /unset %bj
          /halt
        }
        if ( %addh [ $+ [ $nick ] ] != 21 ) {
          set %double [ $+ [ $nick ] ] $calc( %bet [ $+ [ $nick ] ] * 2)
          if ( $readini( casino.ini, $nick, Money ) >= %double [ $+ [ $nick ] ] ) {
            /msg $chan 10 Hit Stand or Double?
            /set %d [ $+ [ $nick ] ] 0
            /set %hs [ $+ [ $nick ] ] 0
            /halt
          }
          if ( $readini( casino.ini, $nick, Money ) < %double [ $+ [ $nick ] ] ) {
            /msg $chan 10 Hit or Stand?
            /set %hs [ $+ [ $nick ] ] 0
            /halt
          }
        }
      }
    }
  }
}
on *:TEXT:d:#:{
  if ( %d [ $+ [ $nick ] ] != $null ) {
    /unset %d [ $+ [ $nick ] ]
    /set %bet [ $+ [ $nick ] ] %double [ $+ [ $nick ] ] 
    /hit
    /var %cch = $rand(1,2)
    if ( %cch = 1 ) {
      if (( %hcard1 [ $+ [ $nick ] ] == A ) || ( %hcard2 [ $+ [ $nick ] ] == A )) {
        /msg $chan 10 $+ $nick hits: 4,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ] or $calc(%addh [ $+ [ $nick ] ] - 10)
      }
      else /msg $chan 10 $+ $nick hits: 4,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ]
    }
    if ( %cch = 2 ) {
      if (( %hcard1 [ $+ [ $nick ] ] == A ) || ( %hcard2 [ $+ [ $nick ] ] == A )) {
        /msg $chan 10 $+ $nick hits: 1,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ] or $calc(%addh [ $+ [ $nick ] ] - 10)
      }
      else {
        /msg $chan 10 $+ $nick hits: 1,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ]
      }
    }
    if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
    if ( %aceh [ $+ [ $nick ] ] != $null ) {
      if ( %add [ $+ [ $nick ] ] > 21 ) {
        /set %addh [ $+ [ $nick ] ] $calc( %addh [ $+ [ $nick ] ] - 10)
        /unset %aceh [ $+ [ $nick ] ]
      }
    }
    if ( %hcard3 [ $+ [ $nick ] ] == A ) {
      if ( %aceh [ $+ [ $nick ] ] != $null ) {
        if ( $calc(%addh [ $+ [ $nick ] ] + 10) > 21 ) {
          /unset %aceh [ $+ [ $nick ] ]
        }
        if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
      }
      if ( $calc(%addh [ $+ [ $nick ] ] + 10) == 21 ) /stand
    }
    if ( %hcard3 [ $+ [ $nick ] ] != A ) {
      if ( %aceh [ $+ [ $nick ] ] != $null ) {
        if ( %addh [ $+ [ $nick ] ] > 21 ) {
          /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 10)
          /unset %aceh [ $+ [ $nick ] ]
        }
        if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
      }
      if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
    }
    if ( %addh [ $+ [ $nick ] ] > 21 ) {
      if ( %aceh [ $+ [ $nick ] ] == $null ) {
        /msg $chan 4 $+ $nick Busts! $nick loses %bet [ $+ [ $nick ] ] dollars
        /var %ccc2 [ $+ [ $nick ] ] = $rand(1,2)
        if ( %ccc2 [ $+ [ $nick ] ] == 1 ) {
          if ( %ccc [ $+ [ $nick ] ] == 1) /msg $chan 10Dealer's hand: 4,0 %ccard1 [ $+ [ $nick ] ]  4,0 %ccard1 [ $+ [ $nick ] ] 
          if ( %ccc [ $+ [ $nick ] ] == 2) /msg $chan 10Dealer's hand: 1,0 %ccard1 [ $+ [ $nick ] ]  4,0 %ccard1 [ $+ [ $nick ] ] 
        }
        if ( %ccc2 [ $+ [ $nick ] ] == 2 ) {
          if ( %ccc [ $+ [ $nick ] ] == 1) /msg $chan 10Dealer's hand: 4,0 %ccard1 [ $+ [ $nick ] ]  1,0 %ccard1 [ $+ [ $nick ] ] 
          if ( %ccc [ $+ [ $nick ] ] == 2) /msg $chan 10Dealer's hand: 1,0 %ccard1 [ $+ [ $nick ] ]  1,0 %ccard1 [ $+ [ $nick ] ] 
        }
        /set %bj.temp $calc( $readini( casino.ini, $nick, Money ) - %bet [ $+ [ $nick ] ] )
        /writeini casino.ini $nick Money %bj.temp
        /unset %bj.temp
        /unset %hs [ $+ [ $nick ] ]
        /unset %bet [ $+ [ $nick ] ]
        /unset %addh [ $+ [ $nick ] ]
        /unset %addc [ $+ [ $nick ] ]
        /unset %hcard1 [ $+ [ $nick ] ]
        /unset %hcard2 [ $+ [ $nick ] ]
        /unset %ccard1 [ $+ [ $nick ] ]
        /unset %ccard2 [ $+ [ $nick ] ]
        /unset %hcard3 [ $+ [ $nick ] ]
        /unset %ccard3 [ $+ [ $nick ] ]
        /unset %a1 [ $+ [ $nick ] ]
        /unset %a2 [ $+ [ $nick ] ]
        /unset %b1 [ $+ [ $nick ] ]
        /unset %b2 [ $+ [ $nick ] ]
        /unset %a3 [ $+ [ $nick ] ]
        /unset %c3 [ $+ [ $nick ] ]
        /unset %aceh [ $+ [ $nick ] ]
        /unset %acec [ $+ [ $nick ] ]
        /unset %double [ $+ [ $nick ] ]
        /unset %bj
      }
      if ( %aceh [ $+ [ $nick ] ] != $null ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 10)
    }
    if ( %addh [ $+ [ $nick ] ] < 21 ) /stand
  }
}
on *:TEXT:h:#:{
  if ( %hs [ $+ [ $nick ] ] != $null ) {
    /unset %d [ $+ [ $nick ] ]
    /hit
    /var %cch = $rand(1,2)
    if ( %cch = 1 ) {
      if (( %hcard1 [ $+ [ $nick ] ] == A ) || ( %hcard2 [ $+ [ $nick ] ] == A )) {
        /msg $chan 10 $+ $nick hits: 4,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ] or $calc(%addh [ $+ [ $nick ] ] - 10)
      }
      else /msg $chan 10 $+ $nick hits: 4,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ]
    }
    if ( %cch = 2 ) {
      if (( %hcard1 [ $+ [ $nick ] ] == A ) || ( %hcard2 [ $+ [ $nick ] ] == A )) {
        /msg $chan 10 $+ $nick hits: 1,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ] or $calc(%addh [ $+ [ $nick ] ] - 10)
      }
      else {
        /msg $chan 10 $+ $nick hits: 1,0 %hcard3 [ $+ [ $nick ] ] 10 Total is %addh [ $+ [ $nick ] ]
      }
    }
    if ( %addh [ $+ [ $nick ] ] == 21 ) /stand 
    if ( %aceh [ $+ [ $nick ] ] != $null ) {
      if ( %add [ $+ [ $nick ] ] > 21 ) {
        /set %addh [ $+ [ $nick ] ] $calc( %addh [ $+ [ $nick ] ] - 10)
        /unset %aceh [ $+ [ $nick ] ]
      }
    }
    if ( %hcard3 [ $+ [ $nick ] ] == A ) {
      if ( %aceh [ $+ [ $nick ] ] != $null ) {
        if ( $calc(%addh [ $+ [ $nick ] ] + 10) > 21 ) {
          /unset %aceh [ $+ [ $nick ] ]
        }
        if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
      }
      if ( $calc(%addh [ $+ [ $nick ] ] + 10) == 21 ) /stand
    }
    if ( %hcard3 [ $+ [ $nick ] ] != A ) {
      if ( %aceh [ $+ [ $nick ] ] != $null ) {
        if ( %addh [ $+ [ $nick ] ] > 21 ) {
          /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 10)
          /unset %aceh [ $+ [ $nick ] ]
        }
        if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
      }
      if ( %addh [ $+ [ $nick ] ] == 21 ) /stand
    }
    if ( %addh [ $+ [ $nick ] ] > 21 ) {
      if ( %aceh [ $+ [ $nick ] ] == $null ) {
        /msg $chan 4 $+ $nick Busts! $nick loses %bet [ $+ [ $nick ] ] dollars
        /var %ccc2 [ $+ [ $nick ] ] = $rand(1,2)
        if ( %ccc2 [ $+ [ $nick ] ] == 1 ) {
          if ( %ccc [ $+ [ $nick ] ] == 1) /msg $chan 10Dealer's hand: 4,0 %ccard1 [ $+ [ $nick ] ]  4,0 %ccard1 [ $+ [ $nick ] ] 
          if ( %ccc [ $+ [ $nick ] ] == 2) /msg $chan 10Dealer's hand: 1,0 %ccard1 [ $+ [ $nick ] ]  4,0 %ccard1 [ $+ [ $nick ] ] 
        }
        if ( %ccc2 [ $+ [ $nick ] ] == 2 ) {
          if ( %ccc [ $+ [ $nick ] ] == 1) /msg $chan 10Dealer's hand: 4,0 %ccard1 [ $+ [ $nick ] ]  1,0 %ccard1 [ $+ [ $nick ] ] 
          if ( %ccc [ $+ [ $nick ] ] == 2) /msg $chan 10Dealer's hand: 1,0 %ccard1 [ $+ [ $nick ] ]  1,0 %ccard1 [ $+ [ $nick ] ] 
        }
        /set %bj.temp $calc( $readini( casino.ini, $nick, Money ) - %bet [ $+ [ $nick ] ] )
        /writeini casino.ini $nick Money %bj.temp
        /unset %bj.temp
        /unset %hs [ $+ [ $nick ] ]
        /unset %bet [ $+ [ $nick ] ]
        /unset %addh [ $+ [ $nick ] ]
        /unset %addc [ $+ [ $nick ] ]
        /unset %hcard1 [ $+ [ $nick ] ]
        /unset %hcard2 [ $+ [ $nick ] ]
        /unset %ccard1 [ $+ [ $nick ] ]
        /unset %ccard2 [ $+ [ $nick ] ]
        /unset %hcard3 [ $+ [ $nick ] ]
        /unset %ccard3 [ $+ [ $nick ] ]
        /unset %a1 [ $+ [ $nick ] ]
        /unset %a2 [ $+ [ $nick ] ]
        /unset %b1 [ $+ [ $nick ] ]
        /unset %b2 [ $+ [ $nick ] ]
        /unset %a3 [ $+ [ $nick ] ]
        /unset %c3 [ $+ [ $nick ] ]
        /unset %aceh [ $+ [ $nick ] ]
        /unset %acec [ $+ [ $nick ] ]
        /unset %double [ $+ [ $nick ] ]
        /unset %bj
      }
      if ( %aceh [ $+ [ $nick ] ] != $null ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 10)
    }
    if ( %addh [ $+ [ $nick ] ] < 21 ) /msg $chan 10 Hit or Stand?
  }
}
on *:TEXT:s:#:{
  if ( %hs [ $+ [ $nick ] ] != $null ) /stand
  /unset %d [ $+ [ $nick ] ]
  /unset %aceh [ $+ [ $nick ] ]
  /unset %acec [ $+ [ $nick ] ]
  /halt
}

alias /bjdeal {
  set %hcard1 [ $+ [ $nick ] ] $rand(0,11)
  set %hcard2 [ $+ [ $nick ] ] $rand(0,11)
  set %ccard1 [ $+ [ $nick ] ] $rand(0,11)
  set %ccard2 [ $+ [ $nick ] ] $rand(0,11)
  set %a1 [ $+ [ $nick ] ] $rand(1,4)
  set %a2 [ $+ [ $nick ] ] $rand(1,4)
  set %b1 [ $+ [ $nick ] ] $rand(1,4)
  set %b2 [ $+ [ $nick ] ] $rand(1,4)
  set %addh [ $+ [ $nick ] ] $calc( %hcard1 [ $+ [ $nick ] ] + %hcard2 [ $+ [ $nick ] ] )
  set %addc [ $+ [ $nick ] ] $calc( %ccard1 [ $+ [ $nick ] ] + %ccard2 [ $+ [ $nick ] ] )
  if ( %hcard1 [ $+ [ $nick ] ] == 0 ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] + 10)
  if ( %hcard2 [ $+ [ $nick ] ] == 0 ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] + 10)
  if ( %ccard1 [ $+ [ $nick ] ] == 0 ) /set %addc [ $+ [ $nick ] ] $calc(%addc [ $+ [ $nick ] ] + 10)
  if ( %ccard2 [ $+ [ $nick ] ] == 0 ) /set %addc [ $+ [ $nick ] ] $calc(%addc [ $+ [ $nick ] ] + 10)
  if ( %hcard1 [ $+ [ $nick ] ] == 11 ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 1)
  if ( %hcard2 [ $+ [ $nick ] ] == 11 ) /set %addh [ $+ [ $nick ] ] $calc(%addh [ $+ [ $nick ] ] - 1)
  if ( %ccard1 [ $+ [ $nick ] ] == 11 ) /set %addc [ $+ [ $nick ] ] $calc(%addc [ $+ [ $nick ] ] - 1)
  if ( %ccard2 [ $+ [ $nick ] ] == 11 ) /set %addc [ $+ [ $nick ] ] $calc(%addc [ $+ [ $nick ] ] - 1)
  if ( %hcard1 [ $+ [ $nick ] ] == 1 ) {
    /set %addh [ $+ [ $nick ] ] $calc( %addh [ $+ [ $nick ] ] + 10 )
    /set %aceh [ $+ [ $nick ] ] 0
    /set %hcard1 [ $+ [ $nick ] ] A
  }
  if (( %hcard1 [ $+ [ $nick ] ] == 10 ) || ( %hcard1 [ $+ [ $nick ] ] == 0 ) || ( %hcard1 [ $+ [ $nick ] ] == 11 )) {
    if ( %a1 [ $+ [ $nick ] ] == 1 ) /set %hcard1 [ $+ [ $nick ] ] J
    if ( %a1 [ $+ [ $nick ] ] == 2 ) /set %hcard1 [ $+ [ $nick ] ] Q
    if ( %a1 [ $+ [ $nick ] ] == 3 ) /set %hcard1 [ $+ [ $nick ] ] K
    if ( %a1 [ $+ [ $nick ] ] == 4 ) /set %hcard1 [ $+ [ $nick ] ] 10
  }
  if ( %hcard2 [ $+ [ $nick ] ] == 1 ) {
    /set %addh [ $+ [ $nick ] ] $calc( %addh [ $+ [ $nick ] ] + 10 )
    /set %aceh [ $+ [ $nick ] ] 0
    /set %hcard2 [ $+ [ $nick ] ] A
  }
  if (( %hcard2 [ $+ [ $nick ] ] == 10 ) || ( %hcard2 [ $+ [ $nick ] ] == 0 ) || ( %hcard2 [ $+ [ $nick ] ] == 11 )) { 
    if ( %a2 [ $+ [ $nick ] ] == 1 ) /set %hcard2 [ $+ [ $nick ] ] J
    if ( %a2 [ $+ [ $nick ] ] == 2 ) /set %hcard2 [ $+ [ $nick ] ] Q
    if ( %a2 [ $+ [ $nick ] ] == 3 ) /set %hcard2 [ $+ [ $nick ] ] K
    if ( %a2 [ $+ [ $nick ] ] == 4 ) /set %hcard2 [ $+ [ $nick ] ] 10
  }
  if ( %ccard1 [ $+ [ $nick ] ] == 1 ) {
    /set %addc [ $+ [ $nick ] ] $calc( %addc [ $+ [ $nick ] ] + 10 )
    /set %acec [ $+ [ $nick ] ] 0
    /set %ccard1 [ $+ [ $nick ] ] A
  }
  if (( %ccard1 [ $+ [ $nick ] ] == 10 ) || ( %ccard1 [ $+ [ $nick ] ] == 0 ) || ( %ccard1 [ $+ [ $nick ] ] == 11 )) {
    if ( %b1 [ $+ [ $nick ] ] == 1 ) /set %ccard1 [ $+ [ $nick ] ] J
    if ( %b1 [ $+ [ $nick ] ] == 2 ) /set %ccard1 [ $+ [ $nick ] ] Q
    if ( %b1 [ $+ [ $nick ] ] == 3 ) /set %ccard1 [ $+ [ $nick ] ] K
    if ( %b1 [ $+ [ $nick ] ] == 4 ) /set %ccard1 [ $+ [ $nick ] ] 10
  }
  if ( %ccard2 [ $+ [ $nick ] ] == 1 ) {
    /set %addc [ $+ [ $nick ] ] $calc( %addc [ $+ [ $nick ] ] + 10 )
    /set %acec [ $+ [ $nick ] ] 0
    /set %ccard2 [ $+ [ $nick ] ] A
  }
  if (( %ccard2 [ $+ [ $nick ] ] == 10 ) || ( %ccard2 [ $+ [ $nick ] ] == 0 ) || ( %ccard2 [ $+ [ $nick ] ] == 11 )) {
    if ( %b2 [ $+ [ $nick ] ] == 1 ) /set %ccard2 [ $+ [ $nick ] ] J
    if ( %b2 [ $+ [ $nick ] ] == 2 ) /set %ccard2 [ $+ [ $nick ] ] Q
    if ( %b2 [ $+ [ $nick ] ] == 3 ) /set %ccard2 [ $+ [ $nick ] ] K
    if ( %b2 [ $+ [ $nick ] ] == 4 ) /set %ccard2 [ $+ [ $nick ] ] 10
  }
  return
}



alias /hit {
  set %hcard3 [ $+ [ $nick ] ] $rand(0,10)
  set %a3 [ $+ [ $ 
}

on *:TEXT:`send*:#: {
  if (%sent2 != $nick) { 
    set %sentmsg $3-
    set %sent2 $2
    set %sentfrom $nick
    msg %sent2 10<2 $+ %sentfrom $+ 10>2 %sentmsg
    unset %sentmsg
    unset %sent2
    unset %sentfrom
  }
}

on *:CONNECT: {
  join #trav
  join #freakbot
  join #the-defenders
  join #realrsmarket
  identify bearbear
}

off *:TEXT:`bomb*:#:{
  if (!%bomb.active) {  
    set %snipper $2
    set %20secs timer 1 20    
    msg $chan 2 %snipper 10 has 20 seconds to snip the right bomb wire.
    msg $chan 10 To snip the wire,2 %snipper 10must type 2`snip <color>10.
    msg $chan 10 The colors are Red, Indigo, Blue, Green, Purple.
    %20secs kick $chan     
    set %color $rand(1,5)
    if (red == 1) { notice Trav1313 %snipper has been chosen to snip the wire. The color is %color }
    if (indigo == 2) { notice Trav1313 %snipper has been chosen to snip the wire. The color is %color }
    if (blue == 3) { notice Trav1313 %snipper has been chosen to snip the wire. The color is %color }
    if (green == 4) { notice Trav1313 %snipper has been chosen to snip the wire. The color is %color }
    if (purple == 5) { notice Trav1313 %snipper has been chosen to snip the wire. The color is %color }
    if (%20secs) { unset %color || %color.1 || %snipper || %20secs }  
  }
  else .notice $nick 2 %snipper 19is already on the case of snipping the right wire.
}

off *:TEXT:`snip*:#:{
  set %color.2 $2
  if ($nick == %snipper) {
    msg $chan 2 %snipper 10Has snipped %color.2 
    if (%color.2 == %color) { describe $chan Snip... }
    msg $chan 2 %snipper 10has save the day by snipping the right color!
    if (%color.2 != %color) { describe $chan Snip...
    kick $chan }
    unset %color.2
    unset %color
    unset %snipper
    unset %20secs
  }
}

off *:TEXT:`stopbomb:#:{
  if ($nick isop $chan) {
    msg $chan 10 Awwwww mannnnn,2 $nick 10has stopped the game =(
  }
  unset %color.2
  unset %color
  unset %snipper
  unset %20secs
}

off *:TEXT:`stopb:#:{
  if ($nick == Trav1313) {
    msg $chan  10 Awwwww mannnnn,2 $nick 10has stopped the game =(
  }
  unset %color.2
  unset %color
  unset %snipper
  unset %20secs
}

on *:TEXT:`today*:#: { notice $nick 10Today is:2 $asctime(mm/dd/yy) $+ 10. The time is:2 $asctime(h:nntt) Eastern }

on *:TEXT:`setpcw*:#: {
  set %pcwchanger $nick
  set %pcworld $2
  set %pcw.time. [ $+ [ $chan ] ] $ctime  
  set %date.time $asctime(mm/dd/yy) $+ , $asctime(h:nntt) Eastern  
  if ($nick == Trav1313 || Wsm2525) {
    amsg 10 The new pest world is changed. The pest world has been changed by2 $nick 10, type 2 `pcw 10to view the world. Only in #fallen_angels 
  }
}

on *:TEXT:`pcw*:#pc1OO,#fallen_angels: {
  inc %pest 1
  notice $nick 10 World:2 %pcworld $+ 10. Count:2 %pest $+ 10. Nick:2 %pcwchanger $+ 10. Updated:2 %date.time
} 

on *:TEXT:!gaymeter*:#: {
  set %gay $rand(0,100)
  describe $chan takes $2- $+ 's and put them on they 'gay-0-meter'
  describe $chan watches the gay meter stop on... %gay $+ % $+ .
  if (%gay <= 50) {
  msg $chan $2- is only %gay $+ % $+ . They arent all that gay. But they still have sum gayness deep down. }
  if (%gay >= 51) {
  msg $chan d-d-d-d-dammmm this person is fruity watch out!. }
  if (%gay == 100) {
  msg $chan well i kno who not to trust with my nephews and sons. }
  if (%gay == 0) {
  Thank god theres finally a str8 person in $chan $+ . =P }
}

off *:ACTION:huggles*:#:{
  inc %hugs 1
  notice $nick 6*breaks up the hug n says no hugging in here take it to a room*
  notice $2 6*breaks up the hug n says no hugging in here take it to a room*
  notice $nick 6*smacks both people and say wats a matter with you theres children in here*
  notice $2 6smacks both people and say wats a matter with you theres children in here*
  notice $nick 10 Yea you got it im bad. im really bad. i broke up 2 %hugs 10 so far
  notice $2 10 Yea you got it im bad. im really bad. i broke up 2 %hugs 10 so far
}

off *:ACTION:slap*:#:{
  inc %fish 1
  describe $chan Takes the trout out of $nick $+ 's hand b4 the use of it.
  describe $chan Puts the trout in a river and gives $nick a baseball bat to do the smacking with.
  msg $chan 10I have saved 2 %fish 10trouts
}

on *:TEXT:!disconnect*:#:{ 
  if ($nick isop $chan) {  
    msg $chan ^Disconnect requested^0 ___________________2( $+ $time $+ )* $2 has quit IRC (Client disconnected)
    notice $2 You where disconnected by a member of the channel0 ____2 * Disconnected
  }
}

on *:op:#: {
  if ($opnick == $me) {
    inc %op 1
    msg $chan 10Wewt, thanks for the 4op (+o)10 status, 2 $nick 10you rock! I have been opped 2 %op 10times.
  }
}
on *:help:#: {
  if ($hnick == $me) {
    inc %hop 1
    msg $chan 10Wewt, thanks for the 7halfop (+h)10 status,2 $nick 10you rock! I have been halfopped 2 %hop 10times.
  }
}
on *:deop:#: {
  if ($opnick == $me) {
    inc %dop 1
    msg $chan 10Hey, I want my 4op10 status back -.- . I have been deopped 2 %dop 10times.
  }
}
on *:dehelp:#: {
  if ($hnick == $me) {
    inc %dhop 1
    msg $chan 10Hey, I want my 7halfop10 back -.- . I have been dehalfopped 2 %dhop 10times.
  }
}
on *:voice:#: {
  if ($vnick == $me) {
    inc %voice 1
    msg $chan 10Wewt, thanks for the 2voice (+v)10 status,2 $nick 10you rock! I have been voiced 2 %voice  10times.
  }
}
on *:devoice:#: {
  if ($vnick == $me) {
    inc %devoice 1
    msg $chan 10Hey, I want my 2voice10 back -.- . I have been devoiced 2 %devoice 10times.
  }
}

on *:TEXT:!love*:#:{ 
  set %love $rand(0,100)  
  describe $chan takes $2 and $3 $+ 's hand and puts it on the 'love lever'
  msg $chan 6 *Love Lever feels the heart pumps from the 2 people. The love meter stops on %love percent.
  if (%love < 50) msg $chan The 2 people love is only %love percent. They will never make it in life with each other.
  if (%love > 50) msg $chan The 2 people will need each other to make it in life. They are true lovers.
  if (%love == 50) msg $chan No 1 can be to sure bout these people love. Only time can tell.
}

on *:TEXT:`part:#:{
  if ($nick isop $chan) {
    msg $chan 2 $nick 10 Commanded me to part from 2 $chan $+ 10 . 10 Type 2 /invite [TB]Travbot #channame 10 to get me back in your channel.
    part $chan
  }
}

on *:TEXT:!code*:#:{ notice $nick $replacecs($2-,d,1,a,5,b,%,c,&,d,1,e,6,f,^,g,*,h,",i,$,j,-,k,3,l,_,m,2,n,[,o,],p,`,q,4,r,',s,~,t,<,u,>,v,?,w,8,x,\,y,|,z,¬) }

on *:TEXT:!decode*:#:{ notice $nick $replacecs($2-,1,d,5,a,%,b,&,c,l,d,6,e,^,f,*,g,",h,$,i,-,j,3,k,_,l,2,m,[,n,],o,`,p,4,q,',r,~,s,<,t,>,u,?,v,8,w,\,x,|,y,¬,z) }

alias decode {
  .msg $active D: $replace($1-,1,d,5,a,%,b,&,c,l,d,6,e,^,f,*,g,",h,$,i,-,j,3,k,_,l,2,m,[,n,],o,`,p,4,q,',r,~,s,<,t,>,u,?,v,8,w,\,x,|,y,¬,z)
  echo $actice Decoded: $1-
}

on *:TEXT:!kick*:#: { describe $chan Leaves a 'Nike' sign on $2 $+ 's azz }

on *:TEXT:!k*:#: { describe $chan Leaves a 'Nike' sign on $2 $+ 's azz }

on *:TEXT:!k:#: { describe $chan Leaves a 'Nike' sign on $nick $+ 's azz }

on *:TEXT:!sites*:#:{
  notice $nick http://z8.invisionfree.com/RealRsMarket/index.php <<< RealRsMarket 
  notice $nick http://z10.invisionfree.com/FreakBot/index.php    <<< Freakbot 
  notice $nick http://z11.invisionfree.com/MircScripts/index.php?  <<< B0ts Forums            
}

on *:JOIN:#Fallen_Angels:{
  if ($nick == $me) { Halt }
  set %channy $chan
  set %user $nick
  set %pc.msg msg $chan
  sockopen pestkick www.slushpuppy.silverinterlocution.org 80
  if ($nick == Wsm2525 || $nick == Freakbot) {
  msg $chan 19My Co-owner has arrived. Hello 2 $nick }
  if ($nick == Trav1313) {
    10My owner has arrived. Hello 2Trav131310. 
  }
}
on *:SOCKOPEN:pestkick*:{
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %user HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:pestkick*:{
  var %sockread
  sockread %sockread
  if (<b> isin %sockread) {
    set %attack $gettok($htmlfree(%sockread),4,32)
    set %strength $gettok($htmlfree(%sockread),8,32) 
  }
  if (<br> isin %sockread) {
    var %combat = $htmlfree(%sockread)
    %pc.msg 2Rsn:10 %user 2¤ Strength:10 %strength 2¤  Attack:10 %attack 2¤  Combat:10 %combat
    if (%combat < 100) && ($calc(%attack + %strength) < 189) { notice %user 2Welcome to the Official Clan Channel of the Fallen Angels. }
    if (%combat >= 100) { notice %user 2Welcome to the Official Clan Channel of the Fallen Angels.  } 
    if ($calc(%attack + %strength) > 189) { notice %user 2Welcome to the Official Clan Channel of the Fallen Angels. }
    if ($calc(%attack + %strength) == 189) { notice %user 2Welcome to the Official Clan Channel of the Fallen Angels. }
    sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg
  }
} 


on *:Sockclose:pestkick*:{
  Sockclose $sockname
  unset %combat | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg
}


alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }



alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x } 

on *:TEXT:!duel:#trav,#freakbot,#the-defenders,#hell_razors:{
  if (!%duel.active) {
    if (!%duel.1) { set %duel.1 $nick | .msg $chan 4 $+ %duel.1 10has set up a Duel. Type 1!duel 10to challenge $nick $+ . (1Type !fight to attack the player when its your turn.10) | set %duel.chan $chan | set -u20 %duel 1 | .timerDUEL 1 20 duel-check }
    elseif ((%duel.1 != $null || $nick) && (%duel == 1)) { set %duel.2 $nick | .msg $chan 2 $+ %duel.2 10has challenged 4 $+ %duel.1 }
  }
  else .notice $nick There is already an active Duel. Wait till this Duel has ended before starting another one.
}

on *:TEXT:!end:#trav,#freakbot,#the-defenders,#hell_razors:{
  if (%duel.active != $null) {
    if ($nick == Trav1313 || %duel.1 || %duel.2) {
      .msg $chan 10Duel ended by 4 $+ $nick $+ . $nick 10has lost the battle due to forfeit!
      unset %duel*
      unset %damage
      .timers off
      halt
    }
    else .notice $nick Only %owner or those taking part in the Duel are allowed to use this command
  }
  else .notice $nick There are no active Duels
}

on *:TEXT:!fight:#trav,#freakbot,#the-defenders,#hell_razors:{
  if (%duel.active == 1) {
    if ($nick == %duel.turn) {
      attack
    }
    elseif (($nick == %duel.1 || %duel.2) && ($nick != %duel.turn)) .notice $nick It is not your turn yet.
  }
  elseif (%duel.active == $null) .notice $nick This is a Duel only command. There are no active Duels right now. Type !duel to start a Duel.
}

on *:TEXT:!---:%chan:{
  if (%duel.active == 1) {
    if ($nick != %duel.turn) {
      defend
    }
  }
  elseif (%duel.active == $null) .notice $nick This is a Duel only command. There are no active Duels right now. Type !duel to start a Duel.
}

alias duel-check {
  if (%duel.1 && %duel.2 != $null) {
    .msg %duel.chan 10Setting up duel. Duel will start in 3 seconds.
    .timerSTART 1 3 startduel
  }
  elseif (%duel.2 == $null) { .msg %duel.chan 10No one has dared to take up 4 $+ %duel.1 $+ 's 10challenge. Duel cancelled. | unset %duel* }
}

alias hp-check {
  if (%duel.2.hp <= 0) {
    .msg %duel.chan 4 $+ %duel.1 10has defeated 2 $+ %duel.2 10in battle.
    unset %duel*
    unset %block*
    unset %damage
    halt
  }
  if (%duel.1.hp <= 0) {
    .msg %duel.chan 2 $+ %duel.2 10has defeated 4 $+ %duel.1 10in battle.
    unset %duel*
    unset %block*
    unset %damage
    halt
  }
}

alias startduel {
  set %duel.1.hp 99
  set %duel.2.hp 99
  set %duel.active 1
  .msg %duel.chan 10Duel start! 4 $+ %duel.1 10will face off with 2 $+ %duel.2 $+ .
  set %duel.first $rand(1,10)
  if (%duel.first <= 5) { .msg %duel.chan 4 $+ %duel.1 10will start first. | set %duel.turn %duel.1 }
  if (%duel.first > 5) { .msg %duel.chan 4 $+ %duel.2 10will start first. | set %duel.turn %duel.2 }
  unset %duel.first
}

alias attack {
  if (%duel.turn == %duel.1) {
    .msg %duel.chan 4 $+ %duel.1 10swings at 2 $+ %duel.2 10with his sword...
    set %damage $rand(0,35)
    .timerattack 1 5 hit
  }
  elseif (%duel.turn == %duel.2) {
    .msg %duel.chan 2 $+ %duel.2 10swings at 4 $+ %duel.1 10with his sword...
    set %damage $rand(0,35)
    .timerattack 1 5 hit
  }
}

alias hit {
  if (%duel.turn == %duel.1) {
    dec %duel.2.hp %damage
    .msg %duel.chan 4 $+ %duel.1 10hits 2 $+ %duel.2 10for %damage damage. 2 $+ %duel.2 10has %duel.2.hp hitpoints left.
    hp-check
    set %duel.turn %duel.2
    .msg %duel.chan 10It is now 2 $+ %duel.2 $+ 's 10turn.
  }
  elseif (%duel.turn == %duel.2) {
    dec %duel.1.hp %damage
    .msg %duel.chan 2 $+ %duel.2 10hits 4 $+ %duel.1 10for %damage damage. 4 $+ %duel.1 10has %duel.1.hp hitpoints left.
    hp-check
    set %duel.turn %duel.1
    .msg %duel.chan 10It is now 2 $+ %duel.1 $+ 's 10turn.
  }
  unset %damage
}

alias defend {
  timerattack off
  if (%duel.turn == %duel.1) {
    set %block $rand(1,10)
    if (%block <= 7) {
      .msg %duel.chan 2 $+ %duel.2 7successfully blocks 4 $+ %duel.1 $+ 's 7attack. 
      set %duel.turn %duel.2
      .msg %duel.chan 10It is now 2 $+ %duel.2 $+ 's 7turn.
    }
    elseif (%block > 7) {
      set %block.damage $floor($calc(%damage/2))
      dec %duel.2.hp %block.damage
      .msg %duel.chan 2 $+ %duel.2 7manages to block 4 $+ %duel.1 $+ 's 7attack. But the force of the blow does %block.damage damage to 2 $+ %duel.2 $+ . %duel.2 7has %duel.2.hp hitpoints left.
      hp-check
      set %duel.turn %duel.2
      .msg %duel.chan 7It is now 2 $+ %duel.2 $+ 's 7turn.
    }
    if (%duel.turn == %duel.2) {
      set %block $rand(1,10)
      if (%block <= 7) {
        .msg %duel.chan 4 $+ %duel.1 7successfully blocks 2 $+ %duel.2 $+ 's 7attack. 
        set %duel.turn %duel.1
        .msg %duel.chan 7It is now 4 $+ %duel.1 $+ 's 7turn.
      }
      elseif (%block > 7) {
        set %block.damage $floor($calc(%damage/2))
        dec %duel.1.hp %block.damage
        .msg %duel.chan 4 $+ %duel.1 7manages to block 2 $+ %duel.2 $+ 's 7attack. But the force of the blow does %block.damage damage to 4 $+ %duel.1 $+. %duel.1 7has %duel.1.hp hitpoints left.
        hp-check
        set %duel.turn %duel.1
        .msg %duel.chan 7It is now 4 $+ %duel.1 $+ 's 7turn.
      }
    }
  }
  unset %damage
  unset %block*
}

on *:TEXT:!roulette*:#:{
  if (!$2) { notice $nick You must specify an amount of money and which number
  to bet on. [!.`]roulette money Number }
  if ($2 < 1 || $2 > 500) { notice $nick Please specify an amount of money
  between 1 and 500. }
  if (!$3) { notice $nick Please specify a number ot bet on. }
  else {
    set %roulette $read(roulette.txt) {
      msg $chan $nick has bet $ $+ $$2 on $$3 $+ .
      describe $chan spins the wheel and drops the ball on the wheel...
      describe $chan hears the ball go: Click.Click..Click...Click....Click.....Click {
        if ($$2 != %roulette) {
          msg $chan The ball landed on  %roulette $+ 1,0 . 1,0Sorry, $nick $+ , you lost your $ $+ 500.
        }
        if ($$2 == %roulette) {
          msg $chan The ball landed on %roulette $+ 1,0 . Congratulations, $nick $+ ,
        you won!! }
      }
    }
  }
}

off *:TEXT:ally*:#: {msg $chan 4,1 mi favorito bonita espanol amiga

off *:TEXT:wsm*:#: {msg $chan 4,1 Tought meh everythign i know bout bots... he pwns

on *:TEXT:!music*:#: {msg $nick Heres a random selection from [TB]Travbot... $read(musik.txt) (There will be more, also if you want me to add a song pm me and gimme song and artist) 

off *:TEXT:trav1313*:#: {msg $chan 4,1 Owner of me. And he 'will' pwn u...i repeat 'will'

off *:TEXT:!gaymeter*:#: { msg $chan  4,1 $2 is only $read(cool.txt.txt) gay! }

off *:TEXT:!coolmeter*:#: { msg $chan  4,1 $2 is $read(cool.txt.txt) percentage cool }

on *:TEXT:!lovemeter*:#: { msg $chan  4,1 $2 and $3's love percentage is ... $read(cool.txt.txt) }

on *:TEXT:!google*:#: {
  set %lookup $2-
  sockopen $+(google.,$nick) www.google.com 80
}
on *:SOCKOPEN:google.*:{
  sockwrite -nt $sockname GET /search?hl=en&q= $+ %lookup $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
  sockwrite -nt $sockname Host: www.google.com $+ $crlf $+ $crlf
}

on *:text:!global *:#: {
  if ($nick == Trav1313) {
    amsg [12Global1] from $nick $+ : $2-
  }
}  

on *:text:!autohalfop *:#: {
  if ($nick isop $chan) {
    autohalfop $2
  }
}
on *:text:!autovoice *:#: {
  if ($nick isop $chan || $nick isvoice $chan) {
    autovoice $2
  }
}
on 500:text:!autoadmin *:#: { autoadmin $2 }
on 500:text:!autoop *:#: { autoop $2 }
on 500:text:!autokill *:#: { autokill $2 }
on 500:text:!delete *:#: { delete $2 }
on 500:text:!add * *:#: { add $2 $3 
  notice $nick Added  $+ $2 $+  to $chan $+ 's access list at level  $+ $3 $+ .
notice $2 You have been added to access for $chan by  $+ $nick $+  at level  $+ $3 $+ . }

on $*:TEXT:/^!dice (10|[1-9]) (\d+[0-9]|[1-9])$/:#: var %i = 0, %limit = $iif($2 > 10, 10, $2) | while %i < %limit { inc %i | .timer 1 $calc(%i * 2) notice $nick $nick rolled $3 $+ -sided die number %i of $2 $+ : Result $rand(1,$3) } 

on $*:TEXT:/^[@!]lookup|define/Si:#:{
  set %dict.dest $iif($left($1,1) == @,msg $chan,notice $nick)
  if (!$2) { %dict.dest Sorry, you didn't specify a word to look up. | unset %dict.dest | halt } 
  set %dict.term $2
  sockopen dictionary dictionary.reference.com 80
}
on *:SOCKOPEN:dictionary:{ 
  sockwrite -n $sockname GET /search?q= $+ %dict.term  HTTP/1.1
  sockwrite -n $sockname Host: dictionary.reference.com $+ $crlf $+ $crlf
} 
on *:SOCKREAD:dictionary:{ 
  if ($sockerr) { %dict.dest $sockerror | sockclose $sockname }    
  var %result | sockread -f %result
  set %dict.result $remove($htmlfree(%result),$chr(9))
  if ((%dict.looking == on) && (%dict.term == $remove($htmlfree(%dict.result),$chr(9)))) {
    sockread -f %dict.result
    %dict.dest %dict.term $+ : $remove($htmlfree(%dict.result),n*:)
    sockclose $sockname
  }
  if (*results for:* iswm %dict.result) { set %dict.looking on }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}


on *:TEXT:!Poll *:#:{
  if (%poll. [ $+ [ $chan ] ] == $null) {
    /set %yes. [ $+ [ $chan ] ] 0
    /set %no. [ $+ [ $chan ] ] 0
    /set %poll. [ $+ [ $chan ] ] $2-
    /msg $chan 4,1 Poll: 12,1 %poll. [ $+ [ $chan ] ] 4,1 type: !yes : to vote yes! !no : to vote no!
  }
  else {
    /msg $chan 4,1 there is already an active poll in this channel.. Please type !endpoll to stop the current one.
  }
}
on *:TEXT:!yes:#:{
  if (%poll. [ $+ [ $chan ] ] == $null) { halt }
  if (%lol. [ $+ [ $+($nick,.,$chan) ] ] == on) {
    /notice $nick 4,1 You've already voted in this poll.
  }
  if (%lol. [ $+ [ $+($nick,.,$chan) ] ] != on) {
    /set %lol. [ $+ [ $+($nick,.,$chan) ] ] on 
    /inc %yes. [ $+ [ $chan ] ] 1
    /msg $chan 4,1 $nick $+ , you have voted yes.
  }
}
on *:TEXT:!no:#:{
  if (%poll. [ $+ [ $chan ] ] == $null) { halt }
  if (%lol. [ $+ [ $+($nick,.,$chan) ] ] == on) {
    /notice $nick 4,1 You've already voted in this poll. 
  }
  if (%lol. [ $+ [ $+($nick,.,$chan) ] ] != on) {
    /set %lol. [ $+ [ $+($nick,.,$chan) ] ] on 
    /inc %no. [ $+ [ $chan ] ] 1
    /msg $chan 4,1 $nick $+ , you have voted no.
  }
}
on *:TEXT:!endpoll:#:{
  if (%poll. [ $+ [ $chan ] ] == $null) {
    /msg $chan 4,1 There is no active poll in $chan type: !poll <question> to start a poll!
  }
  elseif ((%poll. [ $+ [ $chan ] ] != $null) && (%yes. [ $+ [ $chan ] ] > %no. [ $+ [ $chan ] ] )) {
    /msg $chan 4,1 Poll: 12,1 %poll. [ $+ [ $chan ] ]
    /msg $chan 4,1 Poll has been ended by: $nick $+ , Yes Votes: %yes. [ $+ [ $chan ] ] No Votes: %no. [ $+ [ $chan ] ]
    /msg $chan 4,1 $chan is more in favor of yes then no by $calc(%yes. [ $+ [ $chan ] ] - %no. [ $+ [ $chan ] ] ) Votes!
    /unset %no. [ $+ [ $chan ] ]
    /unset %yes. [ $+ [ $chan ] ]
    /unset %poll. [ $+ [ $chan ] ]
    /unset %lol. [ $+ [ $+(*,.,$chan) ] ] on
    /halt
  }
  elseif ((%poll. [ $+ [ $chan ] ] != $null) && (%yes. [ $+ [ $chan ] ]  < %no. [ $+ [ $chan ] ] )) {
    /msg $chan 4,1 Poll: %poll. [ $+ [ $chan ] ]
    /msg $chan 4,1 Poll has been ended by $nick $+ . Yes Votes: %yes No Votes: %no. [ $+ [ $chan ] ] 
    /msg $chan 4,1 $chan is more in favor of no then yes by $calc(%yes. [ $+ [ $chan ] ] - %no. [ $+ [ $chan ] ] ) Votes!
    /unset %no. [ $+ [ $chan ] ]
    /unset %yes. [ $+ [ $chan ] ]
    /unset %poll. [ $+ [ $chan ] ]
    /unset %lol. [ $+ [ $+(*,.,$chan) ] ] on
    /halt
  }
  elseif ((%poll. [ $+ [ $chan ] ] != $null) && (%yes. [ $+ [ $chan ] ] == %no. [ $+ [ $chan ] ])) {
    /msg $chan 4,1 Poll: %poll. [ $+ [ $chan ] ]
    /msg $chan 4,1 Poll has been ended by $nick $+ . Yes Votes: %yes. [ $+ [ $chan ] ] No Votes: %no. [ $+ [ $chan ] ]
    /msg $chan 4,1 $chan Voted a TIE!
    /unset %no. [ $+ [ $chan ] ]
    /unset %yes. [ $+ [ $chan ] ]
    /unset %poll. [ $+ [ $chan ] ]
    /unset %lol. [ $+ [ $+(*,.,$chan) ] ] on
    /halt
  }
}
off *:JOIN:#freakbot,#trav: {notice $nick 4`$0,4$,5,4`$4,5$,1,5`$5,1$,0Welcome to the chan. I am [TB]Travbot, for my commands please type !commands. If you have any questions about me please ask Trav1313. Dont forget have fun, and follow the rules of this channel. =)5,1,$1,5$`4,5,$5,4$`0,4,$4,0$`

on *:TEXT:@grats*:#: {msg $chan 11`$0,11$,12,11`$11,12$,2,12`$12,2$,1,2`$2,1$,0Congrats  $2 $3 $4 $5 $6 $7 $8 $9  $+ , $nick $+!!! !!!2,1,$1,2$`12,2,$2,12$`11,12,$12,11$`0,11,$11,0$`

on *:TEXT:!grats*:#: {notice $nick 11`$0,11$,12,11`$11,12$,2,12`$12,2$,1,2`$2,1$,0Congrats $2 $3 $4 $5 $6 $7 $8 $9 $+ , $nick $+!!! !!!2,1,$1,2$`12,2,$2,12$`11,12,$12,11$`0,11,$11,0$`

on *:text:!join *:#: { Join $2 }
on *:text:!join *:*: {
  if ($nick == Trav1313) {
    timer 1 3 join $2
  }
}

on $*:text:/^[!@](rs2|server|serv) .{1,4}$/Si:#:{
  if ($sock(server).status != $null) { notice $nick Please Try Again In a Minute. | halt }
  if ($left($1,1) == @) && ($left($remove($chan(#).mode,+),1) === c) || ($right($left($remove($chan(#).mode,+),2),1) === c) { set %rs2.color.strip on }
  set %rs2.nick $nick | set %rs2.send $iif($left($1,1) == @,.msg $chan,.notice $nick) | set %rs2.server $2 | set %rs2.color1 $+($chr(3),14) | set %rs2.color2 $+($chr(3),10))
  if (%rs2.server < 1) || (%rs2.server > 132) { .notice $nick Choose an RS2 Server Between 1-132 | unset %rs2.* | halt }
  sockopen server vulcan.ueuo.com 80
}
on *:sockopen:server:{
  if ($sockerr) { echo -s Rs2 Server Population Script SockOpen Error: $sock(server).wsmsg | .notice %rs2.nick Rs2 Server Population Script SockOpen Error: $sock(server).wsmsg | break }
  sockwrite -nt $sockname GET /genieserv2.php?world= $+ %rs2.server HTTP/1.1
  sockwrite -nt $sockname Host: vulcan.ueuo.com $+ $str($crlf,2)
}
on *:sockread:server:{
  if ($sockerr) { echo -s Rs2 Server Population Script SockRead Error: $sock(server).wsmsg | .notice %rs2.nick Rs2 Server Population Script SockRead Error: $sock(server).wsmsg | break }
  var %read | sockread %read
  tokenize 124 $remove(%read,Genie:)
  if ($0 == 6) { set %rs2.servernum $1 | set %rs2.players $2 | set %rs2.location $3 | set %rs2.servertype $4 | set %rs2.serverpct $5 | set %rs2.totalplayers $6 }
}
on *:sockclose:server:{
  if (%rs2.players == 2000) { %rs2.output = %rs2.color1 $+ World $+ %rs2.color2 %rs2.servernum %rs2.color1 $+ is a %rs2.color2 $+ %rs2.servertype %rs2.color1 $+ World located in $+ %rs2.color2 %rs2.location %rs2.color1 $+ . This World Is Currently %rs2.color2 $+ FULL $+ %rs2.color1 $+ . %rs2.color2 $+ %rs2.serverpct %rs2.color1 $+ Of The %rs2.color2 $+ $bytes(%rs2.totalplayers,b) %rs2.color1 $+ RS Players Can Be Found On This World. }
  if (%rs2.players < 2000) { %rs2.output = %rs2.color1 $+ World $+ %rs2.color2 %rs2.servernum %rs2.color1 $+ is a %rs2.color2 $+ %rs2.servertype %rs2.color1 $+ World located in $+ %rs2.color2 %rs2.location $+ %rs2.color1 $+ . You Can Find $+ %rs2.color2 $bytes(%rs2.players,b) %rs2.color1 $+ ( $+ %rs2.color2 $+ $calc((%rs2.players /2000)*100) $+ % Full $+ %rs2.color1 $+ ) Players On This World Which Is About %rs2.color2 $+ %rs2.serverpct %rs2.color1 $+ Of The %rs2.color2 $+ $bytes(%rs2.totalplayers,b) %rs2.color1 $+ RS Players. }
  %rs2.send $iif(%rs2.color.strip != $null,$strip(%rs2.output,c),%rs2.output) | unset %rs2.* | halt
}


on *:TEXT:!time*:#: {notice $nick  4,1 $TIME 

on *:TEXT:!date*:#: { notice $nick  4,1 $date }

on *:TEXT:!symbol*:#:{ msg $chan 4,1 $replacecs($2-,a,à,A,Å,b,ß,B,ß,c,ç,C,©,d,Ð,D,Ð,e,é,E,€,f,ƒ,F,ƒ,i,ì,I,Î,l,£,L,£,n,ñ,N,Ñ,o,ô,O,Ô,p,þ,P,þ,q,¶,Q,¶,r,®,R,®,s,§,S,§,u,µ,U,Ü,x,¤,X,×,y,ý,Y,¥,!,¡,?,¿,>,»,<,«,1,¹,2,²,3,³,half,½,fourth,¼,/,¬,.,·,ae,æ,tm,™,TM,™) }

on *:TEXT:!owns*:#: {msg $chan  4,1 $nick owns $2 $3 in the wildy!!  

off *:TEXT:!pked*:#: {msg $chan  4,1 WOW you really pked  $2 $+ !?!?!?!? , Congrats $nick 

on *:TEXT:!8ball*:#: { msg $chan 6*Shakes up the magic 8-ball.* 10Looks at the answer it apears to be... 2 $read(8ball.txt) }

off *:TEXT:!pwned*:#: {msg $chan  4,1 Awesome, can't believe you pwned $2. LMAO wait til they come back. 

on *:TEXT:!calc*:#: {
  set %calc $2-
  notice $nick 10 %calc = 2 $calc(%calc)
}

on $*:TEXT:/^[@!]lookup|define/Si:#:{
  set %dict.dest $iif($left($1,1) == @,msg $chan,notice $nick)
  if (!$2) { %dict.dest Sorry, you didn't specify a word to look up. | unset %dict.dest | halt } 
  set %dict.term $2
  sockopen dictionary dictionary.reference.com 80
}
on *:SOCKOPEN:dictionary:{ 
  sockwrite -n $sockname GET /search?q= $+ %dict.term  HTTP/1.1
  sockwrite -n $sockname Host: dictionary.reference.com $+ $crlf $+ $crlf
} 
on *:SOCKREAD:dictionary:{ 
  if ($sockerr) { %dict.dest $sockerror | sockclose $sockname }    
  var %result | sockread -f %result
  set %dict.result $remove($htmlfree(%result),$chr(9))
  if ((%dict.looking == on) && (%dict.term == $remove($htmlfree(%dict.result),$chr(9)))) {
    sockread -f %dict.result
    %dict.dest %dict.term $+ : $remove($htmlfree(%dict.result),n*:)
    sockclose $sockname
  }
  if (*results for:* iswm %dict.result) { set %dict.looking on }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
} 


on *:TEXT:!commands*:#: {notice $nick 11`$0,11$,12,11`$11,12$,2,12`$12,2$,1,2`$2,1$,0,1 Here are some of my commands. There will be more. !grats <level> <stat>, !calc <calculation>, !stats <rsname>, !8ball <Question>, !symbol <text>, !price <item>, !define <word>, !music, !roulette <bet> <number>, !server <world>, !duel, `part, !love <name><name>, `casino, `spell <spell>,`google <search>2,1,$1,2$`12,2,$2,12$`11,12,$12,11$`0,11,$11,0$`
on *:TEXT:@commands*:#: {msg $chan 11`$0,11$,12,11`$11,12$,2,12`$12,2$,1,2`$2,1$,0,1 Here are some of my commands. There will be more. !grats <level> <stat>, !calc <calculation>, !stats <rsname>, !8ball <Question>, !symbol <text>, !price <item>, !define <word>, !music, !roulette <bet> <number>, !server <world>, !duel, `part, !love <name><name>, `casino, `spell <spell>,`google <search>2,1,$1,2$`12,2,$2,12$`11,12,$12,11$`0,11,$11,0$`

on *:INVITE:#:{join $chan if ($istok($exceptchans,$chan,32))