Posted by Spitfire3292 Tue 23rd Jan 2007 03:45 - Syntax is mIRC Script - 24 views
Download | New Post | Modify | Hide line numbers
Download | New Post | Modify | Hide line numbers
-
alias getcmb {
-
tokenize 32 $1-
-
var %rsmc = $calc(($1 * .325) + ($3 * .325) + ($2 * .25) + ($4 * .25) + ($6 * .125))
-
var %rsrc = $calc(($5 * .4875) + ($6 * .125) + ($2 * .25) + ($4 * .25))
-
var %rsmac = $calc(($7 * .4875) + ($6 * .125) + ($2 * .25) + ($4 * .25))
-
; Hitpoint Estimation? MAYBE! - $iif($4 = 1,$calc(10 + ($1 / 4) + ($2 / 4) + ($3 / 4)),$4)
-
if ((%rsmc > %rsrc) && (%rsmc > %rsmac)) {
-
var %rscmb = %rsmc
-
var %rsbase = Melee Based
-
}
-
elseif ((%rsrc > %rsmc) && (%rsrc > %rsmac)) {
-
var %rscmb = %rsrc
-
var %rsbase = Ranged Based
-
}
-
elseif ((%rsmac > %rsmc) && (%rsmac > %rsrc)) {
-
var %rscmb = %rsmac
-
var %rsbase = Magic Based
-
}
-
if ($prop == cmb) {
-
if (%rscmb == 1.273) { return $c1(The Combat Stats for:) $c2($($+(%,rsnick,$gettok($sockname,2,46)),2)) $c1(could not be retrieved becuase they don't have any combat stats in the HighScores) | halt }
-
return $c1(Combat Stats For:) $c2($($+(%,rsnick,$gettok($sockname,2,46)),2)) $c1(Combat Level:) $c2($round(%rscmb,1)) $c1($chr(40)) $+ $c2(%rsbase) $+ $c1($chr(41))
-
}
-
if ($prop == stcmb) {
-
if (%rscmb == 1.273 || %rscmb == $null) { return $null }
-
else {
-
return $c1(Combat Level:) $c2($round(%rscmb,1)) $c1($chr(40)) $+ $c2(%rsbase) $+ $c1($chr(41))
-
}
-
}
-
elseif ($prop == tonext) {
-
if (%rscmb == 1.273) { halt }
-
;Was a good idea but didnt work because of lvl 126 combat cap - var %cmb.temp = $iif($($+(%,futlvl,$gettok($sockname,2,46)),2) != 1,$abs($calc($calc(%rscmb - $($+(%,futlvl,$gettok($sockname,2,46)),2)))),$abs($calc($int($calc(%rscmb + $($+(%,futlvl,$gettok($sockname,2,46)),2))) - %rscmb))), $&
-
var %cmb.temp = $abs($calc($int($calc(%rscmb + $($+(%,futlvl,$gettok($sockname,2,46)),2))) - %rscmb)), $&
-
%a = $ceil($calc(%cmb.temp / .325)), %s = $ceil($calc(%cmb.temp / .325)), $&
-
%d = $ceil($calc(%cmb.temp / .25)), %m = $ceil($calc(%cmb.temp / .4875)), $&
-
%r = $ceil($calc(%cmb.temp / .4875)), %p = $ceil($calc(%cmb.temp / .125))
-
if (%rsbase == Melee Based) {
-
return $c1(Levels for) $c2($iif($($+(%,futlvl,$gettok($sockname,2,46)),2) = 1,$int($calc(%rscmb + 1)),$($+(%,futlvl,$gettok($sockname,2,46)),2))) $+ $c1(:) $c1(Attack:) $c2(%a) $c1(Strength:) $c2(%s) $c1(Defence:) $c2(%d) $c1(HitPoints:) $c2(%d) $c1(Prayer:) $c2(%p)
-
}
-
elseif (%rsbase = Ranged Base) {
-
return $c1(Levels for) $c2($iif($($+(%,futlvl,$gettok($sockname,2,46)),2) = 1,$int($calc(%rscmb + 1)),$($+(%,futlvl,$gettok($sockname,2,46)),2))) $+ $c1(:) $c1(Ranged:) $c2(%r) $c1(Defence:) $c2(%d) $c1(HitPoints:) $c2(%d) $c1(Prayer:) $c2(%p)
-
}
-
elseif (%rsbase = Magic Base) {
-
return $c1(Levels for) $c2($iif($($+(%,futlvl,$gettok($sockname,2,46)),2) = 1,$int($calc(%rscmb + 1)),$($+(%,futlvl,$gettok($sockname,2,46)),2))) $+ $c1(:) $c1(Magic:) $c2(%m) $c1(Defence:) $c2(%d) $c1(HitPoints:) $c2(%d) $c1(Prayer:) $c2(%p)
-
}
-
}
-
}
-
PermaLink to this entry https://pastebin.co.uk/9445
Posted by Spitfire3292 Tue 23rd Jan 2007 03:45 - Syntax is mIRC Script - 24 views
Download | New Post | Modify | Hide line numbers
Download | New Post | Modify | Hide line numbers