rendered paste body;<!---Script By RussellReal :) I Luff Joo ALL!!---!>
;<!---WebSite: www.altscripts.net---!>
;<!---IRC SERVER: irc.swiftirc.net---!>
;<!---MSN: RussellonMSN@hotmail.com---!>
on *:TEXT:*:#:{
if (($nick isop $chan) || ($nick ishop $chan)) {
if ($1 == !set) {
if ($2 == pcw) {
if ($3) writeini pc.ini $chan pcw $v1 | msg $chan new pcw set!!! type !pcw or !world to see it!
else notice $nick please specify a world
}
if ($2 == script) {
if ($3 == off) { writeini pc.ini $chan $chan off | notice $nick you have set this channel on the disabled list. }
if ($3 == on) { writeini pc.ini $chan $chan on | notice $nick you have set this channel on the enabled list. }
}
if ($2 == cmb) {
if ($3 isnum) { writeini pc.ini $chan combat $$3 | notice $nick combat requirement for $chan set to $$3 }
else notice $nick input a combat lvl requirement...
}
if ($2 == mage) {
if ($3 isnum) { writeini pc.ini $chan mage $$3 | notice $nick mage requirement for $chan set to $$3 }
else notice $nick input a mage lvl requirement...
}
if ($2 == range) {
if ($3 isnum) { writeini pc.ini $chan range $$3 | notice $nick range requirement for $chan set to $$3 }
else notice $nick input a range lvl requirement...
}
if ($2 == bantime) {
if ($3 isnum) { writeini pc.ini $chan bantime $$3 | notice $nick bantime for $chan set to $$3 minutes }
else notice $nick input a ban time in minutes...
}
if ($2 == attstr) {
if ($3 isnum) { writeini pc.ini $chan attstr $$3 | notice $nick attack + str requirement for $chan set to $$3 }
else notice $nick input a attack + strength requirement...
}
if ($2 == av) {
if ($3 ison $chan) { writeini pc.ini $+(av,.,$chan) $address($3,2) yes | notice $nick you've added $address($3,2) to the auto voice list. | mode $chan +v $3 }
else notice $nick input someone who is in the channel...
}
}
if ($1 == !av) {
if ($2 ison $chan) { writeini pc.ini $+(av,.,$chan) $address($2,2) yes | notice $nick you've added $address($2,2) to the auto voice list. | mode $chan +v $3 }
else notice $nick input someone who is in the channel...
}
if ($1 == !rv) {
remini pc.ini $+(av,.,$chan) $address($2,2)
}
}
if ($nick !isreg $chan) {
if ($regex($1,/^[!](pcw|world)$/Si)) notice $nick $iif($readini(pc.ini,$chan,pcw),the current world is $v1,there is no world set...)
}
}
on *:JOIN:#:{
if ($address($nick,2) == $address($me,2)) halt
if ($readini(pc.ini,$+(av,.,$chan),$address($nick,2))) { mode $chan +v $nick | halt }
if ($readini(pc.ini,$chan,$chan)) {
if ($readini(pc.ini,$chan,$chan) == off) { halt }
sockopen $+(pc1,.,$nick,.,$chan,.,$ticks) www.o-ss.net 80
}
}
on *:SOCKOPEN:pc1.*:{
sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $replace($gettok($sockname,2,46),_,+,$chr($asc(|)),+) HTTP/1.1
sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf
}
on *:SOCKREAD:pc1.*:{
sockread -f $+(%,$sockname,.,read)
tokenize 32 $($+(%,$sockname,.,read),2)
if (*does not feature* iswm $1-) { ban $+(-ku,$calc($iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) * 60)) $gettok($sockname,3,46) $gettok($sockname,2,46) 2 Please use your rsn... $iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) minutes | unset $+(%,$sockname,.,read) | sockclose $sockname }
if ($istok($yesline,$1,58)) { hadd -m $sockname $1 $iif(*not ranked* iswm $1-3,NA,$3) }
if ($1 == cooking) {
if ($check($hget($sockname,attack),$hget($sockname,strength),$hget($sockname,defence),$hget($sockname,hitpoints),$hget($sockname,prayer),$hget($sockname,ranged),$hget($sockname,magic)) == dead) {
ban $+(-ku,$calc($iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) * 60)) $gettok($sockname,3,46) $gettok($sockname,2,46) 2 Sorry you arn't in the high scores for any combat skill... $iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) minutes | halt
hfree $sockname
unset $+(%,$sockname,.,read)
sockclose $sockname
}
hadd -m $sockname combat $floor($extcmbcalc($hget($sockname,attack),$hget($sockname,strength),$hget($sockname,defence),$hget($sockname,hitpoints),$hget($sockname,prayer),$hget($sockname,ranged),$hget($sockname,magic)))
if ($hget($sockname,range) > $iif($readini(pc.ini,$gettok($sockname,3,46),range),$v1,1000)) { hfree $sockname | unset $+(%,$sockname,.,read) | sockclose $sockname }
if ($hget($sockname,mage) > $iif($readini(pc.ini,$gettok($sockname,3,46),mage),$v1,1000)) { hfree $sockname | unset $+(%,$sockname,.,read) | sockclose $sockname }
if ($hget($sockname,combat) < $iif($readini(pc.ini,$gettok($sockname,3,46),combat),$v1,80)) {
if ($calc($hget($sockname,attack) + $hget($sockname,strength)) < $iif($readini(pc.ini,$gettok($sockname,3,46),attstr),$v1,100)) {
ban $+(-ku,$calc($iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) * 60)) $gettok($sockname,3,46) $gettok($sockname,2,46) 2 You do not meet requirements, come back when you do... $iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) minutes
hfree $sockname
unset $+(%,$sockname,.,read)
sockclose $sockname
}
else { hfree $sockname | unset $+(%,$sockname,.,read) | sockclose $sockname }
}
else { hfree $sockname | unset $+(%,$sockname,.,read) | sockclose $sockname }
}
}
alias check {
if ($1-7 == $str(NA ,7)) { return dead }
else { return okay }
}
alias extcmbcalc {
var %line = $replace($1 $2 $3 $4 $5 $6 $7,NA,1)
tokenize 32 %line
if (($calc($1 + $2) > $6) && ($calc($1 + $2) > $7)) var %type = melee
if (($calc($1 + $2) < $6) || ($calc($1 + $2) < $7)) {
if ($7 > $calc($1 + $2)) if ($7 > $6) var %type = magic
if ($6 > $calc($1 + $2)) if ($6 > $7) var %type = range
}
if (%type == range) return $calc((0.487 * $6) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5))
if (%type == magic) return $calc((0.487 * $7) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5))
if (%type == melee) return $calc((0.32707 * $1) + (0.249 * $3) + (0.324 * $2) + (0.25 * $4) + (0.124 * $5))
}