Public feed
#531751
------------------------------------------------------------------------------------------------------------------------------------------
REQS + RSN
on *:TEXT:!noreqs*:#: {
if %allreqs [ $+ [ $chan ] ] == off { halt } {
if ($2 isop $chan || $2 == $me || $2 == Nedyc) { halt } {
if ($nick isop $chan || $nick ishop $chan) && ($2 ison $chan) {
mode $chan +b $address($2,2)
timer 1 300 mode $chan -b $address($2,2)
kick $chan $2 4You dont meet the requirements 3(12 $+ %reqs [ $+ [ $chan ] ] $+ 3
}
}
}
}
on *:TEXT:!decline*:#: {
if %allreqs [ $+ [ $chan ] ] == off { halt } {
if ($2 isop $chan || $2 == $me || $2 == Nedyc) { halt } {
if ($nick isop $chan || $nick ishop $chan) && ($2 ison $chan) {
mode $chan +b $address($2,2)
timer 1 300 mode $chan -b $address($2,2)
kick $chan $2 4You dont meet the requirements 3(12 $+ %reqs [ $+ [ $chan ] ] $+3
}
}
}
}
on *:TEXT:!setreqs*:#:{
if %allreqs [ $+ [ $chan ] ] == off { halt } {
If ( $nick isop $chan || $nick == Nedyc) {
set %reqs [ $+ [ $chan ] ] $2-
notice $nick 6¤ 12,0 You set some requirements for4 $chan 6¤
}
}
}
on *:TEXT:!reqs*:#:{
if %allreqs [ $+ [ $chan ] ] == off { halt } {
notice $nick 6¤ 4,0The Requirements are: 12 %reqs [ $+ [ $chan ] ] 6¤
}
}
on *:text:!delreqs*:#: {
if %allreqs [ $+ [ $chan ] ] == off { halt } {
If ( $nick isop $chan || $nick == Nedyc) {
set %reqs [ $+ [ $chan ] ] == $null.
notice $nick 6¤ You have erased the requirements for4 $chan 6¤
}
}
}
on *:TEXT:!rsn*:#: {
if %allreqs [ $+ [ $chan ] ] == off { halt } {
if ($2 isop $chan || $2 ishop $chan || $2 == $me || $2 == Nedyc) { halt } {
if ($nick isop $chan || $nick ishop $chan) && ($2 ison $chan) {
/ban -ku5 $chan $2 12,0Please come back using your 4RuneScape Name3
}
}
}
}
------------------------------------------------------------------------------------------------------------------------------------------
ADD THIS TO THE PM SCRIPT
on *:TEXT:!mkick:#: {
if %allpm [ $+ [ $chan ] ] == off { halt } {
if ($nick isop $chan) || ($nick ishop $chan) {
timer 1 2 /mode $chan -i
/kreges $chan
}
}
}
alias kreges {
var %a = $nick($1,0)
while ($nick($1,%a) isreg $1) {
mode $chan +i
kick $chan $nick($1,%a) 12For AutoVoice Message4 %PM [ $+ [ $chan ] ] 12in RuneScape3
dec %a
}
}
------------------------------------------------------------------------------------------------------------------------------------------
THE CMB + STAT SCRIPT
alias -l c1 { return $+($chr(3),12,$1-,$chr(3)) }
alias -l c2 { return $+($chr(3),04,$1-,$chr(3)) }
alias -l c3 { return $+($chr(3),06,$1-,$chr(3)) }
alias -l c4 { return $+($chr(3),02,$1-,$chr(3)) }
alias -l c5 { return $+($chr(3),03,$1-,$chr(3)) }
alias -l c6 { return $+($chr(3),07,$1-,$chr(3)) }
on *:TEXT:*:#: {
if (%allstats [ $+ [ $chan ] ] == off) { HALT }
if ($left($1,1) isin !@) {
if ($regex($1,/^[!@]setrsn/Si)) { writeini defrsn.ini defname $address($nick,2) $2- | $iif($left($1,1) == !,notice $nick,msg $chan) $c1($nick) $+ $c2($chr(44) your default RSN) $c1( $chr(91) $+ $2- $+ $chr(93)) $c2(is set for address) $c1($address($nick,2)) | halt }
if ($regex($1,/^[!@]defrsn/Si)) { writeini defrsn.ini defname $address($nick,2) $2- | $iif($left($1,1) == !,notice $nick,msg $chan) $c1($nick) $+ $c2($chr(44) your default RSN) $c1( $chr(91) $+ $2- $+ $chr(93)) $c2(is set for address) $c1($address($nick,2)) | halt }
if ($regex($1,/^[!@]setname/Si)) { writeini defrsn.ini defname $address($nick,2) $2- | $iif($left($1,1) == !,notice $nick,msg $chan) $c1($nick) $+ $c2($chr(44) your default RSN) $c1( $chr(91) $+ $2- $+ $chr(93)) $c2(is set for address) $c1($address($nick,2)) | halt }
if ($regex($1,/^[!@]defname/Si)) { writeini defrsn.ini defname $address($nick,2) $2- | $iif($left($1,1) == !,notice $nick,msg $chan) $c1($nick) $+ $c2($chr(44) your default RSN) $c1( $chr(91) $+ $2- $+ $chr(93)) $c2(is set for address) $c1($address($nick,2)) | halt }
if ($skill($right($1,-1))) {
if ($skill($right($1,-1)) == overall) { halt }
if ($regex($left($1,1),/^(@|!)/Si)) { hadd -m $+(stats,.,$nick) disp $iif($left($1,1) == @,msg $chan,$iif($left($1,1) == !,notice $nick)) }
if ($regex($skill($right($1,-1)),/^(combat|stats|cmb)/Si)) {
if ($skill($right($1,-1)) == combat) { hadd -m $+(stats,.,$nick) style cb }
else hadd -m $+(stats,.,$nick) style st
}
else {
hadd -m $+(stats,.,$nick) style ss
hadd -m $+(stats,.,$nick) skill $skill($right($1,-1))
}
if ($2) {
if ($len($replace($2-,$chr(32),+)) > 12) { $iif(@ == $left($1,1),msg $chan,$iif(! == $left($1,1),notice $nick,halt)) $c3(¤) $c1(That nickname is too long) $c3(¤) | halt }
hadd -m $+(stats,.,$nick) name $replace($2-,$chr(32),+,_,+,-,+)
}
else {
if ($readini(defrsn.ini,n,defname,$address($nick,2))) { hadd -m $+(stats,.,$nick) name $replace($readini(defrsn.ini,n,defname,$address($nick,2)),_,+) }
else {
if ($len($replace($nick,_,+)) > 12) { $iif(@ == $left($1,1),msg $chan,$iif(! == $left($1,1),notice $nick,halt)) Sorry, That nickname is too long. | halt }
hadd -m $+(stats,.,$nick) name $replace($nick,_,+)
}
}
sockopen $+(stats,.,$nick) www.fusionbot.frosthost.net 80
}
else halt
}
}
on *:SOCKOPEN:stats.*:{
sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $replace($hget($sockname,name),$chr(32),+) HTTP/1.1
sockwrite -nt $sockname Host: www.fusionbot.frosthost.net $+ $crlf $+ $crlf
}
on *:SOCKREAD:stats.*:{
sockread -f $+(%,$sockname,.,read)
tokenize 32 $($+(%,$sockname,.,read),2)
if (*does not feature in the hiscores* iswm $($+(%,$sockname,.,read),2)) {
$hget($sockname,disp) $c3(¤) $c1($hget($sockname,name)) $c2(isn't featured in the high scores) $c3(¤)
hfree $sockname
sockclose $sockname
halt
}
if ($hget($sockname,style) == pc) {
halt
}
if ($hget($sockname,style) == ss) {
if ($1 == $hget($sockname,skill)) {
if (*not ranked* iswm $($+(%,$sockname,.,read),2)) { $hget($sockname,disp) $c3(¤) $c2($hget($sockname,name)) $c1(isn't featured in high scores for) $c2($hget($sockname,skill)) $c3(¤) }
else {
hadd -m $sockname exp $xp2next($3,$remove($4,$chr(44)))
set $+(%,$sockname,.,a) 0
while ($($+(%,$sockname,.,a),2) < $ini(monsters.ini,$hget($sockname,skill),0)) {
inc $+(%,$sockname,.,a) 1
set $+(%,$sockname,.,b) $c1($($+(%,$sockname,.,b),2)) $c2($replace($gettok($readini(monsters.ini,$hget($sockname,skill),$($+(%,$sockname,.,a),2)),1,32),_,$chr(32),-,$chr(32))) $c1($floor($calc($hget($sockname,exp) / $gettok($readini(monsters.ini,$hget($sockname,skill),$($+(%,$sockname,.,a),2)),2,32))))
}
$hget($sockname,disp) $c3(¤) $c2($hget($sockname,skill)) $c1(stats for:) $c2($replace($hget($sockname,name),+,$chr(32))) $c3(¤)
$hget($sockname,disp) $c3(¤) $c2(Rank:) $c1($2) $c2(Level:) $c1($3) $c2(Exp:) $c1($4) $c2(Exp for) $c1($+($calc($3 + 1),:) $bytes($hget($sockname,exp),b)) $c3(¤)
}
unset $+(%,$sockname,.,*)
hfree $sockname
sockclose $sockname
}
}
if ($hget($sockname,style) == st) {
if (($skill($1)) && (*not ranked* !iswm $1-)) {
if ($hget($sockname,line)) { var %line = $hget($sockname,line) $c1($+($1,:)) $c2($3) | hdel $sockname line | hadd -m $sockname line %line }
else { hadd -m $sockname line $c1($+($1,:)) $c2($3) }
}
if ($1 == end) {
$hget($sockname,disp) $c3(¤) $c1(Stats for:) $c2($replace($hget($sockname,name),+,$chr(32))) $c3(¤)
$hget($sockname,disp) $c3(¤) $hget($sockname,line) $c3(¤)
hfree $sockname
sockclose $sockname
}
}
if ($hget($sockname,style) == cb) {
if ($istok($skill(13248624621354321574863),$1,58)) {
hadd -m $sockname $1 $iif(*not ranked* iswm $1-,NA,$3)
}
if ($1 == cooking) {
if ($count($hget($sockname,attack) $hget($sockname,strength) $hget($sockname,defence) $hget($sockname,hitpoints) $hget($sockname,prayer) $hget($sockname,ranged) $hget($sockname,magic),NA) >= 7) {
$hget($sockname,disp) $c3(¤) $hget($sockname,name) $c1(doesn't appear in highscores for any combat skill) $c3(¤)
}
else {
tokenize 32 $extcmbcalc($hget($sockname,attack),$hget($sockname,strength),$hget($sockname,defence),$hget($sockname,hitpoints),$hget($sockname,prayer),$hget($sockname,ranged),$hget($sockname,magic))
$hget($sockname,disp) $c3(¤) $c2($replace($hget($sockname,name),+,$chr(32))) $c1(is) $c1($floor($1) $2-) $c2(Combat) $c3(¤)
$hget($sockname,disp) $c3(¤) $c1(Att:) $c2($hget($sockname,attack)) $c1(Str:) $c2($hget($sockname,strength)) $c1(Def:) $c2($hget($sockname,defence)) $c1(Range:) $c2($hget($sockname,ranged)) $c1(Magic:) $c2($hget($sockname,magic)) $c1(Hp:) $c2($hget($sockname,hitpoints)) $c3(¤)
hadd -m $sockname temp $iif(*.* iswm $1,$calc(1 - $+($chr(46),$gettok($1,2,46))),1)
hfree $sockname
unset $+(%,$sockname,.,%read) | sockclose $sockname
}
}
}
if ($hget($sockname,style) == cc) {
notice Nedyc hi
halt
}
}
alias -l 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)) (Range Based) }
if (%type == magic) { return $calc((0.487 * $7) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5)) (Magic Based) }
if (%type == melee) { return $calc((0.32707 * $1) + (0.249 * $3) + (0.324 * $2) + (0.25 * $4) + (0.124 * $5)) (Melee Based) }
}
alias skill {
if ($regex($1,/c(mb|ombat)/Si)) Return Combat
if ($1 == overall) return Overall
if ($regex($1,/^Stats/Si)) Return Stats
if ($regex($1,/^att(ack)?$/Si)) Return Attack
if ($regex($1,/^str(ength)?$/Si)) Return Strength
if ($regex($1,/^Def(ence)?$/Si)) Return Defence
if ($regex($1,/^h(p|its|itpoints)?$/Si)) Return Hitpoints
if ($regex($1,/^pray(er)?$/Si)) Return Prayer
if ($regex($1,/^mag(e|ic)?$/Si)) Return Magic
if ($regex($1,/^range(d)?$/Si)) Return Ranged
if ($regex($1,/^Cook(ing)?$/Si)) Return Cooking
if ($regex($1,/^wc|Woodcut|woodcutting/Si)) Return Woodcutting
if ($regex($1,/^fletch(ing)?$/Si)) Return Fletching
if ($regex($1,/^fish(ing)?$/Si)) Return Fishing
if ($regex($1,/^fm|Firemake|firemaking/Si)) Return Firemaking
if ($regex($1,/^craft(ing)?$/Si)) Return Crafting
if ($regex($1,/^smith(ing)?$/Si)) Return Smithing
if ($regex($1,/^min(e|ing)?$/Si)) Return Mining
if ($regex($1,/^Herb(lore|y)?$/Si)) Return Herblore
if ($regex($1,/^Agility/Si)) Return Agility
if ($regex($1,/^th(ie|ei)v(e|ing)/Si)) Return Thieving
if ($regex($1,/^Slay(er|ing)?$/Si)) Return Slayer
if ($regex($1,/^farm(ing)?$/Si)) Return Farming
if ($regex($1,/^rc|runecraft|runecrafting/Si)) Return Runecraft
if ($regex($1,/^con(struction)?$/Si)) Return Construction
if ($regex($1,/^hun(ter|ing)?$/Si)) Return Hunter
if ($1 == 13248624621354321574863) Return attack:strength:ranged:magic:hitpoints:prayer:defence
}
alias xp {
var %x = 1, %level = $calc($1 - 1), %xp = 0
while (%x <= %level) {
var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4)
inc %xp %TempXp
inc %x
}
return $int(%xp)
}
alias xp2Next {
var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1))
return $calc(%nextxp - %xp)
}
alias ndp {
if (*.* iswm $1) { return $calc($gettok($1,1,46) + 1) }
else { return $1 }
}