rendered paste bodyon *: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, ) | 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 H it S tand or D ouble?
/set %d [ $+ [ $nick ] ] 0
/set %hs [ $+ [ $nick ] ] 0
/halt
}
if ( $readini( casino.ini, $nick, Money ) < %double [ $+ [ $nick ] ] ) {
/msg $chan 10 H it or S tand?
/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 H it or S tand?
}
}
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, )
return %x }
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
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, )
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$,0 Welcome 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$,0 Congrats $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$,0 Congrats $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, )
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))