on *:text:skh*:#:/dice.skillhelp $1-
on *:text:sk*:#:/dice.skillroll $1-
on *:text:coh:#:/dice.combathelp $1-
on *:text:!c*:#:/dice.combat $2-
on *:text:co *:#:/dice.combat $2-
alias dice.combat {
if ($1 == $null) {
%dice.bonus = 0
}
if ($1 != $null) {
%dice.bonus = $1
}
set %base.dice $left($calc(%dice.bonus * 2),-1)
if (%dice.bonus >= 10) {
set %base.dice $calc((%base.dice * 10)+10)
}
if (%dice.bonus < 10) {
set %base.dice 20
}
if ($2 == $null) {
set %AttackTimes 1
}
if ($2 != $null) {
if (T isin $2) {
set %cash2 [ $+ $3- $+ ]
set %AttackTimes $right($2,-1)
}
if (T !isin $2) {
set %cash2 [ $+ $2- $+ ]
set %attacktimes 1
}
}
if (%attacktimes > 20) {
set %attacktimes 20
}
var %i = 0
var %DivCount = 0
Var %CritCount = 0
Var %CritFailCount = 0
var %DivFailCount = 0
while (%i < %attacktimes) {
set %roll $rand(1,%base.dice)
set %ten $calc(%base.dice / 10)
set %one $calc(%base.dice / 100)
%one == $round(%one,0)
if (%one == 0) { %one = 1 }
if (%roll >= $calc(%base.dice - %one)) {
inc %divcount
}
if (%roll > $calc(%base.dice - %ten) && %roll < $calc(%base.dice - %one)) {
inc %critcount
}
if (%roll <= %ten >= %one) {
inc %Critfailcount
}
if (%roll <= %one) { inc %DivFailCount }
set %rolltext %rolltext $iif(%roll == %one,4,$iif(%roll > $calc(%base.dice - %ten),12,$iif(%roll == $calc(%base.dice - %one),6))) $+ $+ %roll $+ 14(7 $+ $calc(%roll + %dice.bonus) $+ 14)
inc %i
}
%diceshow = %attacktimes $+ d $+ %base.dice $+ $iif(%dice.bonus > 0,+ $+ %dice.bonus)
/msg $chan 12(14 $+ $nick $+ 12)14 Rolled: %cash2 %diceshow 14and got:10 %rolltext $+ .
/msg $Chan 12(14 $+ $nick $+ 12)14 12Critical:14 %CritCount <> 6Divine:14 %DivCount <> 4Uh ohs:14 %critfailcount <> 3Critical Range:14 %ten unset %rolltext
}
alias dice.skillroll {
set %CritFail_Message 4Uh oh!14
set %Fail_Message 7Failure!14
set %Success_Message 6Success14
set %Crit_Message 10CRITICAL!14
set %Divine_Message 12DIVINE!14
set %fpvar cr
set %dice.fp 50
if ($left($2,2) == %fpvar) {
if ($right($2,2) isnum) {
set %dice.fp $right($2,-2)
}
}
if ($left($1,2) == sk) {
set %dice.skillroll.strleft $1
if ($right($1,1) == f) {
set %dice.skillroll.strleft $left($1,-1)
set %dice.skillroll.feat 1
}
set %dice.skillroll.strleft $right(%dice.skillroll.strleft,-2)
if (%dice.skillroll.strleft == $null) set %dice.skillroll.strleft -1
if (%dice.skillroll.strleft isnum) {
if (%dice.skillroll.strleft > 20) goto error
set %dice.rolled $rand(1,100)
set %dice.value.tweak $iif(%dice.skillroll.strleft == -1,-25,%dice.skillroll.strleft)
if (%dice.skillroll.feat == 1) inc %dice.value.tweak 10
if (%dice.skillroll.strleft == 20) inc %dice.value.tweak 5
set %dice.value $calc(%dice.rolled + %dice.value.tweak)
if (%dice.rolled >= 90) {
set %dice.value.input %Crit_Message
}
if (%dice.value >= 130) set %dice.value.input %Divine_Message
if (%dice.skillroll.strleft < 20) {
if (%dice.value < %dice.fp) {
set %dice.value.input %Fail_Message
}
if (%dice.rolled == 1) set %dice.value.input %CritFail_Message
if (%dice.rolled <= 10) {
if (%dice.rolled > 1) set %dice.value.input %CritFail_Message
}
if (%dice.value < 0) set %dice.value.input %CritFail_Message
if (%dice.value >= %dice.fp) {
if (%dice.value < 90) {
set %dice.value.input %Success_Message
}
}
}
if (%dice.skillroll.strleft == 20) {
if (%dice.value < %dice.fp) {
set %dice.value.input %Fail_Message
}
if (%dice.value <= 10) {
if (%dice.value > 5) set %dice.value.input %Fail_Message
}
if (%dice.value <= 5) set %dice.value.input %CritFail_Message
if (%dice.rolled <= 1) set %dice.value.input %CritFail_Message
if (%dice.value >= %dice.fp) {
if (%dice.value < 90) {
set %dice.value.input %Success_Message
}
}
}
set %cash2 $2-
if ($left($2,2) == %fpvar) set %cash2 $3-
set %dice.skillroll.value 1d100 $+ $iif(%dice.value.tweak >= 0,+) $+ %dice.value.tweak
if (%cash2 != $null) set %cash2 12( $+ %cash2 $+ 12)14
/msg $chan 12(14 $+ $nick $+ 12)14 Rolled: %cash2 %dice.skillroll.value 14and got: %dice.rolled $+ ( $+ %dice.value $+ ) %dice.value.input Difficulty: %dice.fp
goto end
}
}
goto end
:error
/msg $chan 12(14A mistake occured. type: skh for Help12)
:end
unset %dice.*
unset %cash1
unset %cash2
}
alias dice.skillhelp {
/msg $chan 12(14Skill Roller12)14 The Skill Dice Roller is used with SK. Using it without any options will roll with having NO skills(thus the -25 difficulty malus). You can add your skill level(0 to 20) to have it calculate your skill. Note that 0 will have it 1d100+0 thus having no skill bonus. Adding the option 'f' will define that the skill benefies from a Feat, giving you an automatic +10 to the skill roll bonus. All of these options are set as a single word, ex: sk2
/msg $chan 12(14Skill Roller12)14 You may also also add an optional FP(Then number required for success) by adding as a second word: diff followed with the value. An example roll for a skill check with a skill of ten and feat would be: sk10f diff80.
/msg $chan 12(14Skill Roller12)14 There is also the possibility to add a personal comment to the roll. "sk20f Fireball" will have the dice write that it is fr a 'Fireball'
/msg $chan 12(14Skill Roller12)14 By default, Diff is set to 50, Skillcheck is set to NoSkill(-25) and Feats are turned OFF. The script was written by Pascat, and colored and hosted by Aimee, owner of Fluffy.
/msg $chan 12(14Skill Roller12)14 Reminder - This is NOT for Combat, Just for Skill Checks.
}
alias dice.combathelp {
/msg $chan 14(7Combat Dice14)14 !C (num) 14or Co (num) 14to roll., example !C 10 - 12Rolled: 1d30+10 and got:14(31).14 The dice will add the % to the D. Add T(num) for more dice, Example !c 10 T2.12 5d30+10 and got: 14(13) 14(23).14 Please Check the !forum for more info.
}