rendered paste bodyon *:TEXT:!dmcommands*:#: {
msg $nick !whip - Damage 0-40
msg $nick !dds - Damage 0-35 0-35 - 25% spec bar
msg $nick !dbow - Damage 0-40 0-40 - 1 shot
msg $nick !gmaul - Damage 0-35 0-35 0-35 - 100% spec bar
msg $nick !dharok - Damage 0-70 - 1 shot
msg $nick !verac - Damage 20-35 - 1 shot
msg $nick !barrage - Damage 0-30 - Can freeze
msg $nick !guthans - Damage 1-30 - 33.3% chance of healing
msg $nick !eat - Heals 20
}
on *:TEXT:!dm:#: {
if (!%dm) {
set %player1 $nick
set %dm oneplayer
msg $chan $+ $nick has started a deathmatch, want to challange him? type !dm.
}
else {
if ($nick != %player1) && (%dm == oneplayer) {
set %player2 $nick
set %hp2 99
set %hp1 99
set %r $r(1,2)
if (%r == 1) {
set %shot %player1
}
if (%r == 2) {
set %shot %player2
}
msg $chan $+ $nick accepts %player1 $+ 's challange, $+ %shot will start.
notice %shot Its your shot!
set %dm ready
}
}
else {
if ($nick == %player1) {
msg $chan $+ %player1 is an emo and wonts to kill himself
}
}
else {
if (%dm == ready) {
notice $nick Sorry there is allready a death match running.
}
}
}
on *:TEXT:!whip:#: {
if ($nick == %player1) && (%shot == %player1) {
$iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto one)
$iif($r(1,2) == 1,1unfroz,1froz)
HALT
goto one
}
elseif ($nick == %player2) && (%shot == %player2) {
$iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto two)
$iif($r(1,2) == 1,2unfroz,2froz)
HALT
goto two
}
halt
else { HALT }
:one
set %hit $r(1,30)
if (%hit > %hp2) { set %hit %hp2
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 leaving $+ %player2 with 0hp!
inc %kill [ $+ [ %player1 ] ]
inc %death [ $+ [ %player2 ] ]
/dmoff
}
if (%hit < %hp2) {
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
set %shot %player2
notice %player2 Its your shot!
halt
}
:two
set %hit $r(1,30)
if (%hit > %hp1) { set %hit %hp1
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 leaving $+ %player1 with 0hp!
inc %kill [ $+ [ %player2 ] ]
inc %death [ $+ [ %player1 ] ]
/dmoff
}
if (%hit < %hp1) {
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
set %shot %player1
notice %player1 Its your shot!
}
}
on *:TEXT:!eat:#: {
if ($nick == %player1) && (%shot == %player1) {
goto one
}
elseif ($nick == %player2) && (%shot == %player2) {
goto two
}
halt
else { HALT }
:one
set %hp1 $calc(%hp1 + 20)
if (%hp1 > 99) { set %hp1 99 }
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick eats a shark and now has %hp1 $+ hp
set %shot %player2
notice %player2 Its your shot!
halt
:two
set %hp2 $calc(%hp2 + 20)
if (%hp2 > 99) { set %hp2 99 }
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick eats a shark and now has %hp2 $+ hp
set %shot %player1
notice %player1 Its your shot!
halt
}
on *:TEXT:!dds:#: {
if ($nick == %player1) && (%shot == %player1) {
if (%dds [ $+ [ $nick ] ] > 3) { notice $nick You have used you dds specials sorry
halt
}
$iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto one)
$iif($r(1,2) == 1,1unfroz,1froz)
HALT
goto one
}
elseif ($nick == %player2) && (%shot == %player2) {
if (%dds [ $+ [ $nick ] ] > 3) { notice $nick You have used you dds specials sorry
halt
}
$iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto two)
$iif($r(1,2) == 1,2unfroz,2froz)
HALT
goto two
}
halt
else { HALT }
:one
set %hit $r(1,25)
set %hit2 $r(1,25)
set %hit3 $calc(%hit + %hit2)
dec %hp2 %hit3
if (%hp2 < 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit and %hit2 on $+ %player2 with his dds leaving $+ %player2 with 0hp!
inc %kill [ $+ [ %player1 ] ]
inc %death [ $+ [ %player2 ] ]
/dmoff
}
if (%hp2 > 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit and %hit2 on $+ %player2 with his dds leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
notice %player2 Its your shot!
set %shot %player2
inc %dds [ $+ [ %player1 ] ]
halt
:two
set %hit $r(1,25)
set %hit2 $r(1,25)
set %hit3 $calc(%hit + %hit2)
dec %hp1 %hit3
if (%hp1 < 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit and %hit2 on $+ %player1 with his dds leaving $+ %player1 with 0hp!
inc %kill [ $+ [ %player2 ] ]
inc %death [ $+ [ %player1 ] ]
/dmoff
}
}
if (%hp1 > 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit and %hit2 on $+ %player1 with his dds leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
notice %player1 Its your shot!
set %shot %player1
inc %dds [ $+ [ %player2 ] ]
halt
}
}
on *:TEXT:!dbow:#: {
if ($nick == %player1) && (%shot == %player1) {
if (%dbow [ $+ [ $nick ] ] => 1) { notice $nick You have used your dragon arrows allready sorry
halt
}
goto one
}
elseif ($nick == %player2) && (%shot == %player2) {
if (%dbow [ $+ [ $nick ] ] => 1) { notice $nick You have used your dragon arrows allready sorry
halt
}
goto two
}
halt
else { HALT }
:one
set %hit $r(10,30)
set %hit2 $r(10,30)
set %hit3 $calc(%hit + %hit2)
dec %hp2 %hit3
if (%hp2 < 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit and %hit2 on $+ %player2 with his darkbow leaving $+ %player2 with 0hp!
inc %kill [ $+ [ %player1 ] ]
inc %death [ $+ [ %player2 ] ]
/dmoff
}
if (%hp2 > 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit and %hit2 on $+ %player2 with his darkbow leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
notice %player2 Its your shot!
set %shot %player2
inc %dbow [ $+ [ %player1 ] ]
halt
:two
set %hit $r(10,30)
set %hit2 $r(10,30)
set %hit3 $calc(%hit + %hit2)
dec %hp1 %hit3
if (%hp1 < 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit and %hit2 on $+ %player1 with his darkbow leaving $+ %player1 with 0hp!
inc %kill [ $+ [ %player2 ] ]
inc %death [ $+ [ %player1 ] ]
/dmoff
}
}
if (%hp1 > 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit and %hit2 on $+ %player1 with his darkbow leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
notice %player1 Its your shot!
set %shot %player1
inc %dbow [ $+ [ %player2 ] ]
halt
}
}
on *:TEXT:!gmaul:#: {
if ($nick == %player1) && (%shot == %player1) {
if (%dds [ $+ [ $nick ] ] > 1) { notice $nick You do not have enough special attack for your granite maul
halt
$iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto one)
$iif($r(1,2) == 1,1unfroz,1froz)
HALT
}
goto one
}
elseif ($nick == %player2) && (%shot == %player2) {
if (%dds [ $+ [ $nick ] ] > 1) { notice $nick You do not have enough special attack for your granite maul
halt
}
$iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto two)
$iif($r(1,2) == 1,2unfroz,2froz)
HALT
goto two
}
halt
else { HALT }
:one
set %hit $r(1,25)
set %hit1 $r(1,25)
set %hit2 $r(1,25)
set %hit3 $calc(%hit + %hit2 + %hit1)
dec %hp2 %hit3
if (%hp2 < 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit $+ , %hit1 and %hit2 on $+ %player2 with his graniate maul leaving $+ %player2 with 0hp!
inc %kill [ $+ [ %player1 ] ]
inc %death [ $+ [ %player2 ] ]
/dmoff
}
if (%hp2 > 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit $+ , %hit1 and %hit2 on $+ %player2 with his graniate maul leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
notice %player2 Its your shot!
set %shot %player2
set %dds [ $+ [ %player1 ] ] $calc(%dds [ $+ [ %player1 ] ] + 4)
halt
:two
set %hit $r(1,25)
set %hit1 $r(1,25)
set %hit2 $r(1,25)
set %hit3 $calc(%hit + %hit2 + %hit1)
dec %hp1 %hit3
if (%hp1 < 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit $+ , %hit1 and %hit2 on $+ %player1 with his graniate maul leaving $+ %player1 with 0hp!
inc %kill [ $+ [ %player2 ] ]
inc %death [ $+ [ %player1 ] ]
/dmoff
}
}
if (%hp1 > 1) {
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit $+ , %hit1 and %hit2 on $+ %player1 with his graniate maul leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
notice %player1 Its your shot!
set %shot %player1
set %dds [ $+ [ %player2 ] ] $calc(%dds [ $+ [ %player2 ] ] + 4)
halt
}
}
on *:TEXT:!dharok:#: {
if ($nick == %player1) && (%shot == %player1) {
if (%dharok [ $+ [ $nick ] ] == 1) { notice $nick Your dharok has degraded!
halt
}
$iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto one)
$iif($r(1,2) == 1,1unfroz,1froz)
HALT
goto one
}
elseif ($nick == %player2) && (%shot == %player2) {
if (%dharok [ $+ [ $nick ] ] == 1) { notice $nick Your dharok has degraded!
halt
}
$iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto two)
$iif($r(1,2) == 1,2unfroz,2froz)
HALT
goto two
}
halt
else { HALT }
:one
inc %dharok [ $+ [ $nick ] ]
set %hit $r(1,70)
if (%hit > %hp2) { set %hit %hp2
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 with his dharok leaving $+ %player2 with 0hp!
inc %kill [ $+ [ %player1 ] ]
inc %death [ $+ [ %player2 ] ]
/dmoff
}
if (%hit < %hp2) {
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 with his dharok leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
set %shot %player2
notice %player2 Its your shot!
halt
}
:two
inc %dharok [ $+ [ $nick ] ]
set %hit $r(1,70)
if (%hit > %hp1) { set %hit %hp1
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 with his dharok leaving $+ %player1 with 0hp!
inc %kill [ $+ [ %player2 ] ]
inc %death [ $+ [ %player1 ] ]
/dmoff
}
if (%hit < %hp1) {
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 with his dharok leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
set %shot %player1
notice %player1 Its your shot!
}
}
on *:TEXT:!verac:#: {
if ($nick == %player1) && (%shot == %player1) {
if (%verac [ $+ [ $nick ] ] == 1) { notice $nick Your verac has degraded!
halt
}
$iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto one)
$iif($r(1,2) == 1,1unfroz,1froz)
HALT
goto one
}
elseif ($nick == %player2) && (%shot == %player2) {
if (%verac [ $+ [ $nick ] ] == 1) { notice $nick Your verac has degraded!
halt
}
$iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto two)
$iif($r(1,2) == 1,2unfroz,2froz)
HALT
goto two
}
halt
else { HALT }
:one
inc %verac [ $+ [ $nick ] ]
set %hit $r(20,35)
if (%hit > %hp2) { set %hit %hp2
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 with his verac leaving $+ %player2 with 0hp!
inc %kill [ $+ [ %player1 ] ]
inc %death [ $+ [ %player2 ] ]
/dmoff
}
if (%hit < %hp2) {
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 with his verac leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
set %shot %player2
notice %player2 Its your shot!
halt
}
:two
inc %verac [ $+ [ $nick ] ]
set %hit $r(20,35)
if (%hit > %hp1) { set %hit %hp1
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 with his verac leaving $+ %player1 with 0hp!
inc %kill [ $+ [ %player2 ] ]
inc %death [ $+ [ %player1 ] ]
/dmoff
}
if (%hit < %hp1) {
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 with his verac leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
set %shot %player1
notice %player1 Its your shot!
}
}
on *:TEXT:!barrage:#: {
if ($nick == %player1) && (%shot == %player1) {
goto one
}
elseif ($nick == %player2) && (%shot == %player2) {
goto two
}
halt
else { HALT }
:one
set %hit $r(1,30)
set %freeze $r(1,2)
if (%hit > %hp2) { set %hit %hp2
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 leaving $+ %player2 with 0hp!
inc %kill [ $+ [ %player1 ] ]
inc %death [ $+ [ %player2 ] ]
/dmoff
}
if (%hit < %hp2) {
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 with his ice barrage leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
set %shot %player2
notice %player2 Its your shot!
$iif(%frez [ $+ [ %player2 ] ] == frozen,goto 2frozen)
if (%freeze == 1) { set %frez [ $+ [ %player2 ] ] Frozen }
else {
set %frez [ $+ [ %player2 ] ] Not Frozen
}
:2frozen
msg $chan $+ %player2 is %frez [ $+ [ %player2 ] ]
halt
}
:two
set %hit $r(1,30)
set %freeze $r(1,2)
if (%hit > %hp1) { set %hit %hp1
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 leaving $+ %player1 with 0hp!
inc %kill [ $+ [ %player2 ] ]
inc %death [ $+ [ %player1 ] ]
/dmoff
}
if (%hit < %hp1) {
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 with his ice barrage leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
set %shot %player1
notice %player1 Its your shot!
$iif(%frez [ $+ [ %player1 ] ] == frozen,goto 1frozen)
if (%freeze == 1) { set %frez [ $+ [ %player1 ] ] Frozen }
else {
set %frez [ $+ [ %player1 ] ] Not Frozen
}
:1frozen
msg $chan $+ %player1 is %frez [ $+ [ %player1 ] ]
}
}
on *:TEXT:!guthans:#: {
if ($nick == %player1) && (%shot == %player1) {
$iif(%frez [ $+ [ %player1 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto one)
$iif($r(1,2) == 1,1unfroz,1froz)
HALT
goto one
}
elseif ($nick == %player2) && (%shot == %player2) {
$iif(%frez [ $+ [ %player2 ] ] == Frozen,msg $chan $+ $nick attempts to break out of his ice cube,goto two)
$iif($r(1,2) == 1,2unfroz,2froz)
HALT
goto two
}
halt
else { HALT }
:one
set %hit $r(1,30)
if (%hit > %hp2) { set %hit %hp2
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 with his guthans spear leaving $+ %player2 with 0hp!
inc %kill [ $+ [ %player1 ] ]
inc %death [ $+ [ %player2 ] ]
/dmoff
}
if (%hit < %hp2) {
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 with his guthans spear leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
$iif($r(1,3) == 1,1healed)
set %shot %player2
notice %player2 Its your shot!
halt
}
:two
set %hit $r(0,30)
if (%hit > %hp1) { set %hit %hp1
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 with his guthans spear leaving $+ %player1 with 0hp!
inc %kill [ $+ [ %player2 ] ]
inc %death [ $+ [ %player1 ] ]
/dmoff
}
if (%hit < %hp1) {
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 with his guthans spear leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
$iif($r(1,3) == 1,2healed)
set %shot %player1
notice %player1 Its your shot!
}
}
on *:TEXT:!blood:#: {
if ($nick == %player1) && (%shot == %player1) {
goto one
}
elseif ($nick == %player2) && (%shot == %player2) {
goto two
}
halt
else { HALT }
:one
set %hit $r(1,28)
if (%hit > %hp2) { set %hit %hp2
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player1 with his blood barrage leaving $+ %player2 with 0hp!
inc %kill [ $+ [ %player1 ] ]
inc %death [ $+ [ %player2 ] ]
/dmoff
}
if (%hit < %hp2) {
dec %hp2 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp2))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp2)))))
msg $chan $+ $nick hits a %hit on $+ %player2 with his blood barrage leaving $+ %player2 with %hp2 $+ hp! Its now $+ %Player2 $+ 's shot
$iif($r(1,3) == 1,1healed)
set %shot %player2
notice %player2 Its your shot!
halt
}
:two
set %hit $r(0,30)
if (%hit > %hp1) { set %hit %hp1
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 with his blood barrage leaving $+ %player1 with 0hp!
inc %kill [ $+ [ %player2 ] ]
inc %death [ $+ [ %player1 ] ]
/dmoff
}
if (%hit < %hp1) {
dec %hp1 %hit
msg $chan $+($chr(3),9,$chr(44),09,$str(-,$floor($calc(20/99*%hp1))),$chr(3),04,$chr(44),04,$str(-,$ceil($calc(20/99*(99-%hp1)))))
msg $chan $+ $nick hits a %hit on $+ %player1 with his blood barrage leaving $+ %player1 with %hp1 $+ hp! Its now $+ %Player1 $+ 's shot
$iif($r(1,3) == 1,2healed)
set %shot %player1
notice %player1 Its your shot!
}
}
alias dmoff {
unset %frez [ $+ [ %player1 ] ]
unset %frez [ $+ [ %player2 ] ]
unset %verac [ $+ [ %player1 ] ]
unset %verac [ $+ [ %player2 ] ]
unset %dharok [ $+ [ %player1 ] ]
unset %dharok [ $+ [ %player2 ] ]
unset %dbow [ $+ [ %player1 ] ]
unset %dds [ $+ [ %player1 ] ]
unset %dbow [ $+ [ %player2 ] ]
unset %dds [ $+ [ %player2 ] ]
unset %dm
unset %player1
unset %Player2
unset %r
unset %shot
unset %hp1
unset %hp2
unset %turn
unset %hit
}
alias 1froz {
set %shot %player2
msg $chan $+ $nick fails and it is now %Player2 $+ 's turn
notice %player2 Its your shot!
}
alias 2froz {
set %shot %player1
msg $chan $+ $nick fails and it is now %Player1 $+ 's turn
notice %player1 Its your shot!
}
alias 1unfroz {
msg $chan $+ $nick Has broken out of his ice cube and may keep fighting
unset %frez [ $+ [ %player1 ] ]
}
alias 2unfroz {
msg $chan $+ $nick Has broken out of his ice cube and may keep fighting
unset %frez [ $+ [ %player2 ] ]
}
alias 2healed {
msg $chan $+ %player2 has healed %hit hp!
set %hp2 $calc(%hp2 + %hit)
if (%hp2 > 99) {
set %hp2 99
}
}
alias 1healed {
msg $chan $+ %player1 has healed %hit hp!
set %hp1 $calc(%hp1 + %hit)
if (%hp1 > 99) {
set %hp1 99
}
}
on *:TEXT:!offdm:#: {
dmoff
}
on *:TEXT:!score*:#: {
$iif($2 == $null,set %person $nick,set %person $2)
$iif(%kill [ $+ [ %person ] ] == $null,set %ki 0,set %ki %kill [ $+ [ %person ] ])
$iif(%death [ $+ [ %person ] ] == $null,set %de 0,set %de %death [ $+ [ %person ] ])
msg $chan %person has won %ki times and lost %de times and wins $round($calc(100/(%ki + %de)*%ki),n) $+ % of the time.
}