rendered paste bodyon $*: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 (*<!--name-->* iswm %sockreader) { set %name $htmlfree(%sockreader) }
if (*<!--price-->* iswm %sockreader) { set %price $htmlfree(%sockreader) }
if (*<td style="text-align: left; width: 180px;">* iswm %sockreader) { set %results $htmlfree(%sockreader) }
if (*<td class="tablebottom"><a href="/priceguide.php?category=* iswm %sockreader) { set %cat $htmlfree(%sockreader)
sockclose $sockname
%Display $c2 $+ Item: $c1 $+ %name $c2 $+ Price: $c1 $+ %price $c2 $+ Category: $c1 $+ %cat }
}
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&) | return %x }
on *:INVITE:#:{
set $+(%,nick.,$chan) $nick
join $chan
}
on $*:text:/^[!@]youtube/Si:#: {
if ($2 == $null) $iif($left($1,1) == @,msg $chan,notice $nick) You must search for something $nick $+ !, Syntax: !@youtube search
else {
inc %yc
set %yway [ $+ [ %yc ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
set %ysearch [ $+ [ %yc ] ] $replace($2-,$chr(32),+)
sockopen $+(youtube.,%yc) youtube.com 80
}
}
on *:sockopen:youtube.*: {
sockwrite -nt $sockname GET /results?search_query= $+ %ysearch [ $+ [ $gettok($sockname,2,46) ] ] $+ &search=search HTTP/1.1
sockwrite -nt $sockname Host: youtube.com
sockwrite -nt $sockname $crlf
}
on *:sockread:youtube.*: {
var %ytext [ $+ [ $gettok($sockname,2,46) ] ]
sockread %ytext [ $+ [ $gettok($sockname,2,46) ] ]
if (*<div><a href="/watch?v=* iswm %ytext [ $+ [ $gettok($sockname,2,46) ] ]) {
set %yvar [ $+ [ $gettok($sockname,2,46) ] ] $gettok(%ytext [ $+ [ $gettok($sockname,2,46) ] ],2,62)
set %yvarr [ $+ [ $gettok($sockname,2,46) ] ] $remove(%yvar [ $+ [ $gettok($sockname,2,46) ] ],<a href=,$chr(34))
%yway [ $+ [ $gettok($sockname,2,46) ] ] Top result for %ysearch [ $+ [ $gettok($sockname,2,46) ] ] $+ :
%yway [ $+ [ $gettok($sockname,2,46) ] ] http://www.youtube.com $+ $gettok(%yvarr [ $+ [ $gettok($sockname,2,46) ] ],1,32)
unset %yway [ $+ [ $gettok($sockname,2,46) ] ]
unset %ytext [ $+ [ $gettok($sockname,2,46) ] ]
unset %ysearch [ $+ [ $gettok($sockname,2,46) ] ]
unset %yvar [ $+ [ $gettok($sockname,2,46) ] ]
unset %yvarr [ $+ [ $gettok($sockname,2,46) ] ]
sockclose $sockname
}
if (*No Videos found* iswm %ytext [ $+ [ $gettok($sockname,2,46) ] ]) {
%yway [ $+ [ $gettok($sockname,2,46) ] ] Your search did not return any results
unset %yway [ $+ [ $gettok($sockname,2,46) ] ]
unset %ytext [ $+ [ $gettok($sockname,2,46) ] ]
unset %ysearch [ $+ [ $gettok($sockname,2,46) ] ]
sockclose $sockname
}
}
ON *:TEXT:?DefName*:#:{
if ($ isin $2-) { halt }
if ($2) {
writeini Name.ini $address($nick,2) Name $replace($2-,$chr(32),_)
notice $nick 12Name for4 $address($nick,2) 12saved. $+($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))
}
}
on $*:text:/^[!@.](Compare|Com)/Si:#: {
set %lalalalaalalal. $iif($left($1,1) == @, msg $chan, notice $nick)
if (!$3) {
notice $nick 12Please use the Format below.
notice $nick 12 $+ $1 <Skill> <Nick1> <Nick2>
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 <Skill> <Nick1> <Nick2>
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=*'>*</a></td> 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 <sentence/word>. }
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,</HTML>)) {
$sock($sockname).mark [Link: $bvar(&google,$calc($bfind(&google,1,<h2 class=r><a href=") + 21),$calc($bfind(&google,$calc($bfind(&google,1,<h2 class=r><a href=") + 21),34) - $calc($bfind(&google,1,<h2 class=r><a href=") + 21))).text $+ ] [Name: $htmlfree($bvar(&google,$calc($bfind(&google,1,class=l>) + 8),$calc($bfind(&google,$calc($bfind(&google,1,class=l>) + 9),</a></h2>) - $calc($bfind(&google,1,class=l>) + 8))).text) $+ ] [Description: $htmlfree($bvar(&google,$calc($bfind(&google,1,class="j">) + 14),$calc($bfind(&google,$calc($bfind(&google,1,class="j">) + 9),<br>) - $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
}