on *:TEXT:hey:#:{ msg $chan 4Hello $nick } on *:TEXT:!timer*:#:{ if ($nick isop #logic-bot) { timer $2- } } on *:TEXT:!timersoff*:#:{ if ($nick isop #logic-bot) { /timers off } } on *:TEXT:!ms*:#:{ set %uping $nick | ctcp $iif($2,$2,$nick) ping } on *:CTCPREPLY:PING*:{ if (%uping) notice %uping $1- } on $*:TEXT:/^[!@]((def|set)?(name|rsn)|p(est|c)|stats?|overall?|totaa?l|co?mb|att|def|str|h(p|it)|rang|pray|mag[ie]|cook|w(c|ood)|flet|fish|f(m|iremak)|craft|smith|min|herb|agi|th(ie|ei)|slay|farm|r(c|une)|hunt|c(s|on))/Si:#:{ if ($regex($1,/^[!@](def|set)?(name|rsn)/Si)) { if (!$2) notice $nick $+($c1,[,$c2,You didn't specify a name! Please type,$c1 $1 name]) else { writeini defname.ini Defname $address($nick,3) $hr($2-) notice $nick $+($c1,[,$c2,The nick $c1,$2- $c2,is now set for your host,$c1,]) } } else { inc %sc | sockopen $+(stats.,%sc) o-ss.net 80 if ($regex($1,/^[!@]p(est|c)/Si)) sockmark $+(stats.,%sc) $iif($regex($1,/^@/Si),msg $chan,notice $nick) $iif($regex($left($3,1),/^[#-]/Si),$iif($4,$hr($4-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick)),$iif($3,$hr($3-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick))) $+(p.,$StatsID($2)) $iif($regex($left($3,1),/^[#-]/Si),$remove($3,$chr(35),-)) else sockmark $+(stats.,%sc) $iif($regex($1,/^@/Si),msg $chan,notice $nick) $iif($regex($left($2,1),/^[#-]/Si),$iif($3,$hr($3-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick)),$iif($2,$hr($2-),$iif($readini(defname.ini,defname,$address($nick,3)),$v1,$nick))) $StatsID($1) $iif($regex($left($2,1),/^[#-]/Si),$remove($2,$chr(35),-)) } } on *:SOCKOPEN:stats.*:{ sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $gettok($sock($sockname).mark,3,32) HTTP/1.1 sockwrite -nt $sockname Host: o-ss.net sockwrite -nt $sockname $crlf } on *:SOCKREAD:stats.*:{ var %rs | sockread %rs if ((*does not feature* iswm %rs) && ($sockname)) { $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,any skill]) sockclose $sockname } elseif ((*overall* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == overall) && ($sockname)) { var %z = %rs, %c = 1 while (%c <= 23) { sockread %rs | tokenize 32 %rs | if ($3 != ranked) var %z = %z $+($gettok(%rs,1,32),: $c1,$gettok(%rs,3,32),$c2) | if (%c isnum 1-7) var %k = %k $iif($3 == ranked,$iif($1 == hitpoints,10,1),$3) | inc %c } | tokenize 32 %z $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Overall for $sr($gettok($sock($sockname).mark,3,32)),$c1,] [,$c2,Combat:,$c1 $cmb(%k $sockname) |,$c2 Total: $c1,$3 |,$c2 Rank: $c1,$2 |,$c2 Exp: $c1,$4,]) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$left($gettok(%z,5-,32),-3),$c1,]) sockclose $sockname } elseif ((!$regex($gettok($sock($sockname).mark,4,32),/(overall|combat)/Si)) && ($+(*,$gettok($sock($sockname).mark,4,32),*) iswm %rs) && ($sockname)) { if ($gettok(%rs,2,32) == not) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,$gettok($sock($sockname).mark,4,32),]) else $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$gettok($sock($sockname).mark,4,32) for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Level: $c1,$gettok(%rs,3,32) |,$c2 Rank: $c1,$gettok(%rs,2,32) |,$c2 Exp: $c1,$gettok(%rs,4,32),$iif($gettok(%rs,3,32) != 99,$+($chr(32),|,$c2 Exp till level $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),$c2,:,$c1 $bytes($calc($exp($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))),bd))),]) sockclose $sockname } elseif ((*attack* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == combat) && ($sockname)) { var %c = $iif($gettok(%rs,3,32) != ranked,$v1,1), %z = 1 while (%z <= 6) { sockread %rs | var %c = %c $iif($gettok(%rs,3,32) != ranked,$v1,$iif($gettok(%rs,1,32) == hitpoints,10,1)) | inc %z } | tokenize 32 %c $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Combat for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Combat: $c1,$cmb(%c $sockname),] [,$c2,Att:,$c1 $1 |,$c2 Str:,$c1 $3 |,$c2 Def:,$c1 $2 |,$c2 Hp:,$c1 $4 |,$c2 Ranged:,$c1 $5 |,$c2 Pray:,$c1 $6 |,$c2 Magic:,$c1 $7,]) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Stats till combat $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok($cmb(%c $sockname),1,46) + 1)),] [,$c2,$iif($gettok($cmb(%c $sockname),2,32) == melee,$+(Att/Str: $c1,$cc1($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$iif($gettok($cmb(%c $sockname),2,32) == ranged,$+(Ranged: $c1,$cc3($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$& $iif($gettok($cmb(%c $sockname),2,32) == magic,$+(Magic: $c1,$cc3($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$chr(32),|,$c2 Hp/Def: $c1,$cc2($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))) |,$c2 Pray: $c1,$cc4($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))),]) sockclose $sockname } elseif ((*overall* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == combatp) && ($sockname)) { var %o = $iif($gettok(%rs,4,32),$remove($v1,$chr(44)),0), %z = 1 while (%z <= 7) { sockread %rs | var %c = $calc(%c + $iif($gettok(%rs,4,32),$remove($v1,$chr(44)),0)) | inc %z } $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Combat percentage of $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Total Exp:,$c1 $bytes(%o,bd) |,$c2 Combat Exp:,$c1 $bytes(%c,bd) |,$c2 Combat Percentage:,$c1 $round($calc((%c / %o) * 100),2),$chr(37),]) sockclose $sockname } elseif ((p.* iswm $gettok($sock($sockname).mark,4,32)) && ($+(*,$remove($gettok($sock($sockname).mark,4,32),p.),*) iswm %rs) && ($sockname)) { if ($gettok(%rs,2,32) == not) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,$remove($gettok($sock($sockname).mark,4,32),p.),]) elseif ($gettok(%rs,3,32) == 99) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$remove($gettok($sock($sockname).mark,4,32),p.) for $c1,$sr($gettok($sock($sockname).mark,3,32)) $c2,is already 99,$c1,]) else { var %m = $calc($gettok($calc(($exp($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))) / ($gettok($calc(($gettok(%rs,3,32) * $gettok(%rs,3,32)) / $iif($remove($gettok($sock($sockname).mark,4,32),p.) == prayer,12,6)),1,46) + 1)),1,46) + 1) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$remove($gettok($sock($sockname).mark,4,32),p.) for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Level: $c1,$gettok(%rs,3,32) |,$c2 Rank: $c1,$gettok(%rs,2,32) |,$c2 Exp: $c1,$gettok(%rs,4,32),]) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Exp till level $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),$c2,:,$c1 $bytes($calc($exp($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))),bd),] [,$c2,PC Tickets (1):,$c1 $bytes(%m,bd) |,$c2 PC Tickets (100):,$c1 $bytes($gettok($calc(((%m / 10) * 9) + 1),1,46),bd),]) sockclose $sockname } } } alias -l c1 return $+($chr(3),14) alias -l c2 return $+($chr(3),07) alias -l hr { return $replace($1-,$chr(32),+,$chr(45),+,$chr(95),+) } alias -l sr { return $replace($1-,+,$chr(32)) } alias -l StatsID { if ($regex($1,/^([!@])?(stats?|overall?|totaa?l)/Si)) return Overall elseif ($regex($1,/^([!@])?co?mb%/Si)) return Combatp elseif ($regex($1,/^([!@])?co?mb/Si)) return Combat elseif ($regex($1,/^([!@])?att/Si)) return Attack elseif ($regex($1,/^([!@])?def/Si)) return Defence elseif ($regex($1,/^([!@])?str/Si)) return Strength elseif ($regex($1,/^([!@])?h(p|it)/Si)) return Hitpoints elseif ($regex($1,/^([!@])?rang/Si)) return Ranged elseif ($regex($1,/^([!@])?pray/Si)) return Prayer elseif ($regex($1,/^([!@])?mag[ei]/Si)) return Magic elseif ($regex($1,/^([!@])?cook/Si)) return Cooking elseif ($regex($1,/^([!@])?w(c|oodcut)/Si)) return Woodcutting elseif ($regex($1,/^([!@])?flet/Si)) return Fletching elseif ($regex($1,/^([!@])?fish/Si)) return Fishing elseif ($regex($1,/^([!@])?f(m|iremak)/Si)) return Firemaking elseif ($regex($1,/^([!@])?craft/Si)) return Crafting elseif ($regex($1,/^([!@])?smith/Si)) return Smithing elseif ($regex($1,/^([!@])?min/Si)) return Mining elseif ($regex($1,/^([!@])?herb/Si)) return Herblore elseif ($regex($1,/^([!@])?agi/Si)) return Agility elseif ($regex($1,/^([!@])?th(ie|ei)/Si)) return Thieving elseif ($regex($1,/^([!@])?slay/Si)) return Slayer elseif ($regex($1,/^([!@])?farm/Si)) return Farming elseif ($regex($1,/^([!@])?r(c|une)/Si)) return Runecraft elseif ($regex($1,/^([!@])?hunt/Si)) return Hunter elseif ($regex($1,/^([!@])?c(s|on)/Si)) return Construction } alias -l cmb { tokenize 32 $1- var %rsc1 [ $+ [ $8 ] ] $calc((($1 * 130) + ($3 * 130)) / 400) var %rsc2 [ $+ [ $8 ] ] $calc($iif($and($5,1) == 0,$calc($5 * 195),$calc((($5 - 1) + ($5 * 2)) * 65)) / 400) var %rsc3 [ $+ [ $8 ] ] $calc($iif($and($7,1) == 0,$calc($7 * 195),$calc((($7 - 1) + ($7 * 2)) * 65)) / 400) if ((%rsc1 [ $+ [ $8 ] ] >= %rsc2 [ $+ [ $8 ] ]) && (%rsc1 [ $+ [ $8 ] ] >= %rsc3 [ $+ [ $8 ] ])) return $calc(%rsc1 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + ($iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50)) / 400)) Melee Based elseif ((%rsc2 [ $+ [ $8 ] ] >= %rsc3 [ $+ [ $8 ] ]) && (%rsc2 [ $+ [ $8 ] ] >= %rsc1 [ $+ [ $8 ] ])) return $calc(%rsc2 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Ranged Based elseif ((%rsc3 [ $+ [ $8 ] ] >= %rsc1 [ $+ [ $8 ] ]) && (%rsc3 [ $+ [ $8 ] ] >= %rsc2 [ $+ [ $8 ] ])) return $calc(%rsc3 [ $+ [ $8 ] ] + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Magic Based } alias -l exp { return $gettok(0 83 174 276 388 512 650 801 969 1154 1358 1584 1833 2107 2411 2746 3115 3523 3973 4470 5018 5624 6291 7028 7842 8740 9730 10824 12031 13363 14833 16456 18247 20224 22406 24815 27473 30408 33648 37224 41171 45529 50339 55649 61512 67983 75127 83014 91721 101333 111945 123660 136594 150872 166636 184040 203254 224466 247886 273742 302288 333804 368599 407015 449428 496254 547953 605032 668051 737627 814445 899257 992895 1096278 1210421 1336443 1475581 1629200 1798808 1986068 2192818 2421087 2673114 2951373 3258594 3597792 3972294 4385776 4842295 5346332 5902831 6517253 7195629 7944614 8771558 9684577 10692629 11805606 13034431,$1,32) } alias -l cc1 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.325) + 1),1,46) } alias -l cc2 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.25) + 1),1,46) } alias -l cc3 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.4875) + 1),1,46) } alias -l cc4 { tokenize 32 $1 | return $gettok($calc(((($gettok($4,1,46) + 1) - $1) / 0.125) + 1),1,46) } on *:TEXT:!calc *:#: { notice $nick $2 = $calc($2) } alias c1 { return $+($chr(3),07,$1-) } alias c2 { return $+($chr(3),02,$1-) } alias c3 { return $+($chr(3),04,$1-) } on $*:text:/^[!@](Price)/Si:#:{ if (!$2) { notice $nick $c3 $+ ~ $c2 $+ Price $c3 $+ ~ $c2 $+ Error, Please specify something to lookup. $c1 $+ [ $c2 Ex: $c1 !Price Whip $c1 $+ ] } if ($sock(Price)) .sockclose Price if ($left($1,1) == !) set %display notice $nick $c3 $+ ~ $c2 $+ Price $c3 $+ ~ if ($left($1,1) == @) set %display msg $chan $c3 $+ ~ $c2 $+ Price $c3 $+ ~ set %item $replace($2-,$chr(32),$chr(43)) sockopen Price www.zybez.net 80 } on *:SOCKOPEN:Price: { sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ %item $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1 sockwrite -nt $sockname Host: www.zybez.net sockwrite -nt $sockname $crlf } on *:SOCKREAD:Price: { if ($sockerr) { %way Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message. halt } else { var %sockreader sockread %sockreader if (** iswm %sockreader) { set %name $htmlfree(%sockreader) } if (** iswm %sockreader) { set %price $htmlfree(%sockreader) } if (** iswm %sockreader) { set %results $htmlfree(%sockreader) } if (*  halt } if ($3 != $null && $4 == $null) { if ($readini(Name.ini,$address($nick,2),name) != $null) { set %user1 $3 set %user2 $readini(Name.ini,$address($nick,2),name) set %skill $Skillo($remove($2,@,!,.)) sockopen ComOSS. parsers.o-ss.net 80 halt } else { set %user1 $3 set %user2 $nick set %skill $Skillo($remove($2,@,!,.)) sockopen ComOSS. parsers.o-ss.net 80 halt } } if ($ != $null) { set %user1 $3 set %user2 $4 set %skill $Skillo($remove($2,@,!,.)) sockopen ComOSS. parsers.o-ss.net 80 halt } else { notice $nick 12Please use the Format below. notice $nick 12 $+ $1  halt } } on *:SOCKOPEN:ComOSS.*: { sockwrite -nt $sockname GET /compare.php?user1= $+ %user1 $+ &user2= $+ %user2 $+ &skill= $+ %skill HTTP/1.1 sockwrite -nt $sockname Host: parsers.o-ss.net sockwrite -nt $sockname $crlf } on *:SOCKREAD:ComOSS.*: { if (%fdhfdasdfafsfasd == ON) { unset %fdhfdasdfafsfasd sockclose $sockname halt } if (%skill == $null) { set %skill Overall } if ($sockerr) { halt } else { var %sgagafdgf sockread %sgagafdgf tokenize 32 %sgagafdgf if (is not in the hi-scores for isin %sgagafdgf) { %lalalalaalalal. 12 $+ $1 is not in HiScores for4 %skill $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(3),$chr(3),$chr(49),$chr(50),$chr(74),$chr(100),$chr(97),$chr(119),$chr(103),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(3),$chr(52),$chr(93),$chr(2),$chr(3)) sockclose $sockname halt } if (are not in the hi-scores for isin %sgagafdgf) { %lalalalaalalal. 12 $+ $1 and $3 are not in HiScores for4 %skill $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(3),$chr(3),$chr(49),$chr(50),$chr(74),$chr(100),$chr(97),$chr(119),$chr(103),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(3),$chr(52),$chr(93),$chr(2),$chr(3)) sockclose $sockname halt } if (END isin $1-) { %lalalalaalalal. 2[12Compare2]4:12 %user1 $+ :4 $1 12 $+ %User2 $+ :4 $2  $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(3),$chr(3),$chr(49),$chr(50),$chr(74),$chr(100),$chr(97),$chr(119),$chr(103),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(3),$chr(52),$chr(93),$chr(2),$chr(3)) if ($2 == $1) { %lalalalaalalal. 12 $+ %user1 and %user2 have the same4 %skill 12level. sockclose $sockname halt } if ($1 < $2) { %lalalalaalalal. 12 $+ %user2 has4 $calc($remove($2,$chr(44),) - $remove($1,$chr(44),)) 12more %skill levels than %user1 $+ . sockclose $sockname halt } if ($1 > $2) { %lalalalaalalal. 12 $+ %user1 has4 $calc($remove($1,$chr(44),) - $remove($2,$chr(44),)) 12more %skill levels than %user2 $+ . sockclose $sockname halt } } } } alias -l Skillo { if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction elseif ($1 == 22) sockclose ComOss. | %lalalalaalalal. 12 $+ $1 is not a skill $+($chr(2),$chr(3),$chr(52),$chr(91),$chr(3),$chr(3),$chr(49),$chr(50),$chr(74),$chr(100),$chr(97),$chr(119),$chr(103),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(3),$chr(52),$chr(93),$chr(2),$chr(3)) | set %fdhfdasdfafsfasd ON } ON $*:TEXT:/[@!](Clan|Gang) */Si:#:{ set %rrisftw $iif($left($1,1) == @,msg $chan,notice $nick) set %Last_Resort $replace($2-,$chr(32),_) sockopen kkk www.runehead.com 80 } on *:sockopen:kkk:{ sockwrite -n $sockname GET /clans/search.php?search= $+ %Last_Resort $+ &searchtype=exact HTTP/1.1 sockwrite -n $sockname Host: www.runehead.com $+ $crlf $+ $crlf } ON *:SOCKREAD:kkk:{ if ($sockerr) { %rrisftw There was a socket error. halt } else { var %JBizzle sockread %JBizzle if ( *'ml.php?clan=*'>* iswm %JBizzle) { %rrisftw %Last_Resort is in: $IAmGod(%JBizzle) } } } ON *:SOCKCLOSE:kkk:{ unset %Last_Resort unset %rrisftw } alias IAmGod { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return %x } ON *:KICK:#:{ if ($knick == $me) { part $chan notice $nick 12Next time please use my part command.4 !Part writeini WarnLevel.ini $chan Kicked $calc( $readini(WarnLevel.ini,$chan,Kicked) + 1 ) notice $nick 12You channel now has4 $readini(WarnLevel.ini,$chan,Kicked) $+ 12/5 Kicks. } } ON *:TEXT:!Part*:#:{ if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) { part $chan Requested By: $nick  } else { notice $nick 12Only a HalfOp+ can use this command. } } ON *:JOIN:#:{ if ($chan == #b0ts || $chan == #bots || $chan == #bot's || $chan == #bot || $chan == #mIRC || $chan == #Scripting) { halt } if ($nick == $me && $readini(WarnLevel.ini,$chan,Kicked) == $null) { msg $chan 12Hello I am4 $me $+ 12. I have been kicked4 012 Times out of4 512. halt } if ($nick == $me && $readini(WarnLevel.ini,$chan,Kicked) >= 5) { msg $chan 12This channel has been blacklisted. Please message me "4!Unblacklist $chan Why12" part $chan Blacklisted halt } if ($nick == $me && $readini(WarnLevel.ini,$chan,Kicked) <= 5) { msg $chan 12Hello I am4 $me $+ 12. I have been kicked4 $readini(WarnLevel.ini,$chan,Kicked) 12Times out of4 512. halt } } ON *:TEXT:!Unblacklist*:?:{ if ($readini(WarnLevel.ini,$chan,Kicked) >= 5) { ms send $me $nick Wishes his channel ( $+ $2 $+ ) to be Unblacklisted. Reason: $3- msg $nick 12Thank You. Message Recived. close -m $nick } else { msg $nick 12Your channel isnt blacklisted. close -m $nick } } menu * { BlackList System --> ..BlackList Dialog:/dialog -m BlackList BlackList } menu @Blacklist. { Help:/Join #Jdawg140 } dialog BlackList { title "BlackList Dialog | Made By: Jdawg140 ©" size -1 -1 160 60 option dbu button "Ok", 1, 0 0 37 60, ok button "Cancel", 2, 123 0 37 60, cancel edit "Script By Jdawg140 © ", 3, 50 0 60 12, center edit "#channel", 4, 50 12 60 12, center button "Add", 5, 50 24 60 12, center button "DEL", 6, 50 36 60 12, center } on *:DIALOG:BlackList:sclick:5:{ writeini WarnLevel.ini $did($dname,4) Kicked 5 echo @BlackList. 3 $+ $timestamp * $did($dname,4) added to BlackList part $did($dname,4) Blacklisted } on *:DIALOG:BlackList:sclick:6:{ writeini WarnLevel.ini $did($dname,4) Kicked 4 echo @BlackList. 3 $+ $timestamp * $did($dname,4) deleted from BlackList } ON *:START:{ window -m @BlackList. } ON *:TEXT:!addblacklist*:#:{ if ($address($nick,2) == $address($me,2)) { writeini WarnLevel.ini $2 Kicked 5 notice $nick 12 $2 Added halt } else { notice $nick 12You dont have premmision to do that. } } ON *:TEXT:!delblacklist*:#:{ if ($address($nick,2) == $address($me,2)) { writeini WarnLevel.ini $2 Kicked 4 notice $nick 12 $2 Deleted halt } else { notice $nick 12You dont have premmision to do that. } } on $*:text:/^[!@]phat/Si:#:{ if ($left($2,1) == $chr(35)) { msg $chan $+($chr(3),$right($2,2)) $+ |\/\/\/| $iif($3,$3-) msg $chan $+($chr(3),$right($2,2)) $+ |____| } else { var %rand = $rand(1,15) msg $chan $+($chr(3),%rand) $+ |\/\/\/| $iif($2,$2-) msg $chan $+($chr(3),%rand) $+ |____| } } On $*:text:/^[!@]Google/Si:#: { if ($2 == $null) { $iif($left($1,1) == @,msg $chan,notice $nick) You must specify a sentence or word to search for. Syntax: [!@]Google . } else { inc %hi set %hisearch [ $+ [ %hi ] ] $replace($2-,$chr(32),+) sockopen $+(google.,%hi) www.google.com 80 sockmark $+(google.,%hi) $+($iif($left($1,1) == @,msg $chan,notice $nick)) } } on *:sockopen:google.*: { remove google sockwrite -nt $sockname GET /search?hl=en&q= $+ %hisearch [ $+ [ $gettok($sockname,2,46) ] ] HTTP/1.0 sockwrite -nt $sockname Host: www.google.com sockwrite -nt $sockname $crlf } on *:sockread:google.*: { while ($sock($sockname).rq) { sockread &google bwrite google -1 -1 &google } bread google 0 $file(google).size &google if ($bfind(&google,1,did not match)) { $sock($sockname).mark [Nothing was found for %hisearch [ $+ [ $gettok($sockname,2,46) ] ] $+ ] halt unset %hisearch [ $+ [ $gettok($sockname,2,46) ] ] sockclose $sockname } if ($bfind(&google,1,)) { $sock($sockname).mark [Link: $bvar(&google,$calc($bfind(&google,1,

) + 14),$calc($bfind(&google,$calc($bfind(&google,1,class="j">) + 9),
) - $calc($bfind(&google,1,class="j">) + 14))).text) $+ ] unset %hisearch [ $+ [ $gettok($sockname,2,46) ] ] sockclose $sockname } } alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&) | return %x } on *:TEXT:!timer*:#:{ if ($nick isop #logic-bot) { timer $2- } }