rendered paste bodyon *:TEXT:.dmcommands:#: {
msg $nick A list of dm commands:
msg $nick .dm [Starts the dm]
msg $nick .stopdm [Stops the dm ]
msg $nick .whip [Whips the other person. (Max 40 damage)]
msg $nick .dds [Hits the other person with a DDS special (Max 60 damage) {Drains 25% of special bar}]
msg $nick .eat [Eats a shark and heals 20 hp. Can use when frozen. {10 sharks}]
msg $nick .cbow [Hits the person with a crystal bow. Can use when frozen. (Max 30 damage) {4 damage penalty when frozen}]
msg $nick .barrage [Hits the opponent with ice barrage. Has 70% chance of freezing the opponent for 1 turn. (Max 30 damage) {4 uses}]
msg $nick .dh [Hits the oppenent with dharoks set. (Max 70 damage {Need 7 or less hp for hit of 70})]
msg $nick .fwave [Hits the opponent with fire wave. Can use when frozen. (Max 20 damage)]
msg $nick .msb [Hits the opponent with a magic shortbow. Can use when frozen. (Max 50) {Drains 50% of special bar}]
msg $nick .guth [Hits the opponent with Guthans Set. (Max 30) {35% chance of healing yourself}]
msg $nick .score [Tells you your score]
msg $nick .turn [Says whos turn it is]
msg $nick .status [Tells you your hp, special bar, sharks etc.]
msg $nick Weapons to come in the future: Guthans, Poisons, AntiPoisons, Super Strength Potions, and much more!
}
alias dmoff {
unset %hp [ $+ [ %nick1 ] ]
unset %hp [ $+ [ %nick2 ] ]
unset %specbar [ $+ [ %nick1 ] ]
unset %specbar [ $+ [ %nick2 ] ]
unset %sharks [ $+ [ %turn1 ] ]
unset %sharks [ $+ [ %turn2 ] ]
unset %barrages [ $+ [ %turn1 ] ]
unset %barrages [ $+ [ %turn2 ] ]
unset %frozen [ $+ [ %turn1 ] ]
unset %frozen [ $+ [ %turn2 ] ]
unset %nick1
unset %nick2
unset %turn1
unset %turn2
unset %turn11
unset %turn22
unset %whip
unset %eat
unset %dds1
unset %dds2
unset %msb1
unset %msb2
unset %cbow
unset %barrage
unset %R
unset %dh
unset %fwave
unset %hai
unset %N
unset %J
unset %heal
unset %guth
disable #dm
}
alias scores {
inc %wins [ $+ [ %turn1 ] ]
inc %losses [ $+ [ %turn2 ] ]
}
on *:TEXT:.dm:#: {
if (!%nick1) {
enable #dm
set %nick1 $nick
set %N $r(1,2)
set %hai %nick1
msg $chan DM has been started by 2 $+ %nick1 $+ ! Type 4.dm to challenge 2 $+ %nick1 $+ .
}
elseif ($address($nick,2) == $address(%nick1,2)) { msg $chan 2 $+ %nick1 is such a freaking moron that he wants to dm himself. | halt }
elseif (%nick1) && (!%nick2) && ($group(#dm).status == on) && ($nick ison $chan) && (%nick1 ison $chan) {
set %nick2 $nick
set %turn1 $iif(%N == 1, %nick1 , %nick2)
set %hp [ $+ [ %nick1 ] ] 99
set %hp [ $+ [ %nick2 ] ] 99
set %turn2 $iif(%N == 1, %nick2, %nick1)
set %turn11 %turn2
set %turn22 %turn1
set %specbar [ $+ [ %turn1 ] ] 100
set %specbar [ $+ [ %turn2 ] ] 100
set %sharks [ $+ [ %turn1 ] ] 10
set %sharks [ $+ [ %turn2 ] ] 10
set %barrages [ $+ [ %turn1 ] ] 4
set %barrages [ $+ [ %turn2 ] ] 4
set %frozen [ $+ [ %turn1 ] ] off
set %frozen [ $+ [ %turn2 ] ] off
msg $chan 14 $+ %nick2 has accepted 2 $+ %nick1 $+ 's challenge!
timer 1 1 msg $chan For a list of dm commands, type 4.dmcommands
timer 1 2 msg $chan It's 2 $+ %turn1 $+ 's turn.
}
else {
notice $nick There is a dm already in progress, please wait.
halt
}
}
on *:TEXT:.stopdm:#: {
if ($nick == %nick1 || $nick == %nick2) || ($address($nick,2) == $address($me,2)) {
dmoff
msg $chan DM halted by 2 $+ $nick $+ .
}
}
#dm on
on *:TEXT:.turn:#: {
if ($group(#dm).status == on) {
msg $chan It's currently2 $iif( !%nick2 , %hai , %turn1 ) $+ 's turn.
}
else {
halt
}
}
on *:TEXT:.status:#: {
if ($nick == %turn1 || $nick == %turn2) {
notice $nick Your current hp is: %hp [ $+ [ $nick ] ] $+ . You have %sharks [ $+ [ $nick ] ] sharks left. You can use %barrages [ $+ [ $nick ] ] more barrages. Your special bar is %specbar [ $+ [ $nick ] ] $+ % $+ . You $iif(%frozen [ $+ [ $nick == on ] ] , are , are not) frozen.
}
else {
halt
}
}
on *:TEXT:.whip:#: {
if ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
set %whip $rand(0,40)
dec %hp [ $+ [ %turn2 ] ] %whip
}
if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
set %hp [ $+ [ %turn2 ] ] 0
msg $chan 2 $+ %turn1 just hit a4 %whip with a 10whip.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
timer 1 1 msg $chan 14 $+ %turn2 is now 4dead!
scores
dmoff
}
elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
msg $chan 2 $+ %turn1 just hit a4 %whip with a 10whip.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
unset %R
timer 1 1 msg $chan It's14 %turn1 $+ 's turn.
}
elseif (%frozen [ $+ [ %turn1 ] ] == on) {
notice $nick You are frozen, you can't use the whip.
}
elseif ($nick == %turn2) {
notice $nick It's not your turn
}
}
on *:TEXT:.eat*:#: {
if ($nick == %turn1) && (%sharks [ $+ [ %turn1 ] ] > 0) {
set %eat $iif( %hp [ $+ [ %turn1 ] ] >= 79, $calc( 99 - %hp [ $+ [ %turn1 ] ] ) , 20)
inc %hp [ $+ [ %turn1 ] ] %eat
dec %sharks [ $+ [ %turn1 ] ]
msg $chan 2 $+ %turn1 just healed4 20 hp by eating a 10shark. 2 $+ %turn1 $+ 's hp is 4 %hp [ $+ [ %turn1 ] ] .
notice $nick You have %sharks [ $+ [ %turn1 ] ] sharks left.
inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
set %frozen [ $+ [ %turn2 ] ] off
unset %R
timer 1 1 msg $chan It's14 %turn1 $+ 's turn.
}
elseif (%sharks [ $+ [ %turn1 ] ] < 1) {
notice $nick You have already used up all 10 of your sharks, please use something else.
}
elseif ($nick == %turn2) {
notice $nick It's not your turn
}
}
on *:TEXT:.dds*:#: {
if ($nick == %turn1) && (%specbar [ $+ [ %turn1 ] ] >= 25) && (%frozen [ $+ [ %turn1 ] ] == off) {
set %dds1 $rand(0,30)
set %dds2 $rand(0,30)
dec %hp [ $+ [ %turn2 ] ] $calc( %dds1 + %dds2 )
}
elseif (%specbar [ $+ [ %turn1 ] ] <= 24) {
notice %turn1 Your special bar is less than 25% so you cant use the dds.
halt
}
if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
set %hp [ $+ [ %turn2 ] ] 0
msg $chan 2 $+ %turn1 just hit a4 %dds1 and4 %dds2 with a 10dds.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
timer 1 1 msg $chan 14 $+ %turn2 is now 4dead!
scores
dmoff
}
elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 25) && (%frozen [ $+ [ %turn1 ] ] == off) {
dec %specbar [ $+ [ %turn1 ] ] 25
msg $chan 2 $+ %turn1 just hit a4 %dds1 and4 %dds2 with a 10dds.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
notice %turn1 You're special bar is %specbar [ $+ [ %turn1 ] ] $+ % $+ .
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
unset %R
timer 1 1 msg $chan It's14 %turn1 $+ 's turn.
}
elseif (%frozen [ $+ [ %turn1 ] ] == on) {
notice $nick You are frozen, you can't use the dds.
}
elseif ($nick == %turn2) {
notice $nick It's not your turn
}
}
on *:TEXT:.cbow:#: {
if ($nick == %turn1) && ($nick != %turn2) {
set %cbow $rand(0,30)
dec %hp [ $+ [ %turn2 ] ] %cbow
}
if ( %frozen [ $+ [ %turn1 ] ] == on ) {
dec %hp [ $+ [ %turn1 ] ] 4
}
if ( %hp [ $+ [ %turn1 ] ] < 1 ) && (%hp [ $+ [ %turn2 ] ] < 1 ) && (%frozen [ $+ [ %turn1 ] ] == on) {
msg $chan 2 $+ %turn1 just hit a4 %cbow with a 10crystal bow. However,2 %turn1 was frozen so there was a4 4 damage penalty so both2 %turn1 and14 %turn2 are 4dead!
inc %wins [ $+ [ %turn1 ] ]
inc %wins [ $+ [ %turn2 ] ]
inc %losses [ $+ [ %turn1 ] ]
inc %losses [ $+ [ %turn2 ] ]
dmoff
}
elseif ( %hp [ $+ [ %turn1 ] ] < 1 ) && {%hp [ $+ [ %turn2 ] ] > 0 ) && (%frozen [ $+ [ %turn1 ] ] == on) {
set %hp [ $+ [ %turn1 ] ] 0
msg $chan 2 $+ %turn1 just hit a4 %cbow with a 10crystal bow.14 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
timer 1 1 msg $chan However,2 %turn1 was 11frozen so there is a4 4 6damage penalty.2 %turn1 $+ 's hp is now4 %hp [ $+ [ %turn1 ] ] $+ .
timer 1 2 msg $chan 2 $+ %turn1 is now 4dead!
inc %wins [ [ %turn2 ] ]
inc %losses [ $+ [ %turn1 ] ]
dmoff
}
elseif (%hp [ $+ [ %turn1 ] ] > 0) && (%hp [ $+ [ %turn2 ] ] > 0) && (%frozen [ $+ [ %turn1 ] ] == on) {
msg $chan 2 $+ %turn1 just hit a4 %cbow with a 10crystal bow. 14 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
timer 1 1 msg $chan However,2 %turn1 was 11frozen so there is a4 4 damage penalty.2 %turn1 $+ 's hp is now4 %hp [ $+ [ %turn1 ] ] $+ .
inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
set %frozen [ $+ [ %turn2 ] ] off
unset %R
timer 1 2 msg $chan It's14 %turn1 $+ 's turn.
}
elseif ( %hp [ $+ [ %turn2 ] ] < 1 ) && (%hp [ $+ [ %turn1 ] ] > 0) && (%frozen [ $+ [ %turn1 ] ] == off) {
set %hp [ $+ [ %turn2 ] ] 0
msg $chan 2 $+ %turn1 just hit a4 %cbow with a 10crystal bow.14 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
timer 1 1 msg $chan 14 $+ %turn2 is now 4dead!
inc %wins [ $+ [ %turn1 ] ]
inc %losses [ $+ [ %turn2 ] ]
scores
dmoff
}
elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
msg $chan 2 $+ %turn1 just hit a4 %cbow with a 10crystal bow.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
set %frozen [ $+ [ %turn2 ] ] off
unset %R
timer 1 1 msg $chan It's14 %turn1 $+ 's turn.
}
elseif ($nick == %turn2) {
notice $nick It's not your turn
}
}
on *:TEXT:.barrage:#: {
if ($nick == %turn1) && (%barrages [ $+ [ %turn1 ] ] >= 0) {
set %barrage $rand(0,30)
set %R $r(1,10)
dec %barrages [ $+ [ %turn1 ] ]
dec %hp [ $+ [ %turn2 ] ] %barrage
}
if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
set %hp [ $+ [ %turn2 ] ] 0
msg $chan 2 $+ %turn1 just hit a4 %barrage with 10ice barrage.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
timer 1 1 msg $chan 14 $+ %turn2 is now 4dead!
scores
dmoff
}
elseif (%barrages [ $+ [ %turn1 ] ] <= -1) {
notice %turn1 You have used the ice barrage 4 times already, please choose something else.
halt
}
elseif ($nick == %turn1) && ($nick != %turn2) && (%barrages [ $+ [ %turn1 ] ] >= 0) && (%R isnum 1-7) {
set %frozen [ $+ [ %turn2 ] ] on
msg $chan 2 $+ %turn1 just hit a4 %barrage with 10ice barrage.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
notice %turn1 You have %barrages [ $+ [ %turn1 ] ] more barrages left.
timer 1 1 msg $chan 14 $+ %turn2 is 11frozen.
inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
set %frozen [ $+ [ %turn2 ] ] off
unset %R
timer 1 2 msg $chan It's 14 %turn1 $+ 's turn.
}
elseif ($nick == %turn1) && ($nick != %turn2) && (%barrages [ $+ [ %turn1 ] ] >= 0) && (%R isnum 8-10) {
msg $chan 2 $+ %turn1 just hit a4 %barrage with 10ice barrage.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
notice %turn1 You have %barrages [ $+ [ %turn1 ] ] more barrages left.
inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
set %frozen [ $+ [ %turn1 ] ] off
unset %R
timer 1 1 msg $chan It's14 %turn1 $+ 's turn.
}
elseif ($nick == %turn2) {
notice $nick It's not your turn
}
}
on *:TEXT:.dh:#: {
if ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
if (%hp [ $+ [ %turn1 ] ] isnum 70-99) && (%hp [ $+ [ %turn1 ] ] !isnum 0-69) {
set %dh $rand(0,70)
}
elseif (%hp [ $+ [ %turn1 ] ] isnum 50-69) && (%hp [ $+ [ %turn1 ] ] !isnum 0-49) && (%hp [ $+ [ %turn1 ] ] !isnum 70-99) {
set %dh $rand(0,35)
}
elseif (%hp [ $+ [ %turn1 ] ] isnum 35-49) && (%hp [ $+ [ %turn1 ] ] !isnum 0-34) && (%hp [ $+ [ %turn1 ] ] !isnum 50-99) {
set %dh $rand(0,40)
}
elseif (%hp [ $+ [ %turn1 ] ] isnum 20-34) && (%hp [ $+ [ %turn1 ] ] !isnum 0-19) && (%hp [ $+ [ %turn1 ] ] !isnum 35-99) {
set %dh $rand(0,50)
}
elseif (%hp [ $+ [ %turn1 ] ] isnum 8-19) && (%hp [ $+ [ %turn1 ] ] !isnum 0-7) && (%hp [ $+ [ %turn1 ] ] !isnum 20-99) {
set %dh $rand(0,60)
}
elseif (%hp [ $+ [ %turn1 ] ] isnum 1-7) && (%hp [ $+ [ %turn1 ] ] !isnum 0) && (%hp [ $+ [ %turn1 ] ] !isnum 8-99) {
set %dh $rand(0,70)
}
dec %hp [ $+ [ %turn2 ] ] %dh
if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
set %hp [ $+ [ %turn2 ] ] 0
msg $chan 2 $+ %turn1 just hit a4 %dh with a 10dharoks. 14 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
timer 1 1 msg $chan 14 $+ %turn2 is now 4dead!
scores
dmoff
}
elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
msg $chan 2 $+ %turn1 just hit a4 %dh with a 10dharoks.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
unset %R
timer 1 1 msg $chan It's14 %turn1 $+ 's turn.
}
elseif (%frozen [ $+ [ %turn1 ] ] == on) {
notice $nick You are frozen, you can't use dharoks.
}
elseif ($nick == %turn2) {
notice $nick It's not your turn
}
}
}
on *:TEXT:.fwave:#: {
if ($nick == %turn1) && ($nick != %turn2) {
set %fwave $rand(0,20)
dec %hp [ $+ [ %turn2 ] ] %fwave
}
if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
set %hp [ $+ [ %turn2 ] ] 0
msg $chan 2 $+ %turn1 just hit a4 %fwave with 10fire wave.14 $+ %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
timer 1 1 msg $chan 14 $+ %turn2 is now 4dead!
scores
dmoff
}
elseif ($nick == %turn1) && ($nick != %turn2) {
msg $chan 2 $+ %turn1 just hit a4 %fwave with 10fire wave.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
set %frozen [ $+ [ %turn2 ] ] off
unset %R
timer 1 1 msg $chan It's14 %turn1 $+ 's turn.
}
elseif ($nick == %turn2) {
notice $nick It's not your turn
}
}
on *:TEXT:.msb*:#: {
if ($nick == %turn1) && (%specbar [ $+ [ %turn1 ] ] >= 50) {
set %msb1 $rand(0,25)
set %msb2 $rand(0,25)
dec %hp [ $+ [ %turn2 ] ] $calc( %msb1 + %msb2 )
}
elseif (%specbar [ $+ [ %turn1 ] ] <= 49) {
notice %turn1 Your special bar is less than 50% so you cant use the magic shortbow.
halt
}
if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
set %hp [ $+ [ %turn2 ] ] 0
msg $chan 2 $+ %turn1 just hit a4 %msb1 and4 %msb2 with a 10magic shortbow.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
timer 1 1 msg $chan 14 $+ %turn2 is now 4dead!
scores
dmoff
}
elseif ($nick == %turn1) && ($nick != %turn2) && (%specbar [ $+ [ %turn1 ] ] >= 50) {
dec %specbar [ $+ [ %turn1 ] ] 50
msg $chan 2 $+ %turn1 just hit a4 %msb1 and4 %msb2 with a 10magic shortbow.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] $+ .
notice %turn1 You're special bar is %specbar [ $+ [ %turn1 ] ] $+ % $+ .
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
set %frozen [ $+ [ %turn2 ] ] off
unset %R
timer 1 1 msg $chan It's14 %turn1 $+ 's turn.
}
elseif ($nick == %turn2) {
notice $nick It's not your turn
}
}
on *:TEXT:.guth:#: {
if ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) {
set %J $r(1,100)
set %guth $rand(0,30)
dec %hp [ $+ [ %turn2 ] ] %guth
}
if ( %hp [ $+ [ %turn2 ] ] < 1 ) {
set %hp [ $+ [ %turn2 ] ] 0
msg $chan 2 $+ %turn1 just hit a4 %guth with a 10guthans set.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
timer 1 1 msg $chan 14 $+ %turn2 is now 4dead!
scores
dmoff
}
elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) && (%J isnum 1-35) {
msg $chan 2 $+ %turn1 just hit a4 %guth with a 10guthans set.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
set %heal $iif( $calc(%hp [ $+ [ %turn1 ] ] + %guth) >= 100 , $calc(99 - %hp [ $+ [ %turn1 ] ]), %guth)
inc %hp [ $+ [ %turn1 ] ] %heal
timer 1 1 msg $chan 2 $+ %turn1 also healed4 %guth so2 %turn1 $+ 's hp is now4 %hp [ $+ [ %turn1 ] ] $+ .
inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
unset %R
timer 1 2 msg $chan It's14 %turn1 $+ 's turn.
}
elseif ($nick == %turn1) && ($nick != %turn2) && (%frozen [ $+ [ %turn1 ] ] == off) && (%J isnum 36-100) {
msg $chan 2 $+ %turn1 just hit a4 %guth with a 10guthans set.14 %turn2 $+ 's hp is 4 %hp [ $+ [ %turn2 ] ] .
inc %specbar [ $+ [ %turn1 ] ] $iif(%specbar [ $+ [ %turn1 ] ] >= 96, $calc( 100 - %specbar [ $+ [ %turn1 ] ] ) , 5 )
set %turn1 %turn11
set %turn2 %turn22
set %turn11 %turn2
set %turn22 %turn1
unset %R
timer 1 1 msg $chan It's14 %turn1 $+ 's turn.
}
elseif (%frozen [ $+ [ %turn1 ] ] == on) {
notice $nick You are frozen, you can't use guthans.
}
elseif ($nick == %turn2) {
notice $nick It's not your turn
}
}
#dm end
on *:TEXT:.score*:#: {
var %nick = $iif(!$2,$nick,$2)
var %allwins = $iif(!%wins [ $+ [ %nick ] ],0,%wins [ $+ [ %nick ] ])
var %allloss = $iif(!%losses [ $+ [ %nick ] ],0,%losses [ $+ [ %nick ] ])
var %totalwins $round($bytes($calc(100/( %allwins + %allloss ) * %allwins ),b3),3)
msg $chan 2 $+ %nick $+ 's Win-Loss record:2 %allwins -2 %allloss $+ . The win vs loss percentage is2 %totalwins $+ % -2 $calc( 100 - %totalwins) $+ % $+ .
}
on *:TEXT:!shoot*:#:{
set %snipetarget $iif(!$2,$nick($chan,$rand(1,$nick($chan,0))),$2)
set %snipetype $rand(1,12)
describe $chan picks up his sniper rifle.
.timer 1 1 describe $chan aims at his target, %snipetarget $+ .
.timer 1 2 describe $chan lines up a clear shot on %snipetarget $+ .
.timer 1 3 describe $chan pulls the trigger.
if (%snipetype == 1) { .timer 1 3 describe $chan BOOM! "HEAD SHOT!!" }
if (%snipetype == 2) { .timer 1 3 describe $chan BOOM! "NECK SHOT!" }
if (%snipetype == 3) { .timer 1 3 describe $chan BOOM! "CHEST SHOT!" }
if (%snipetype == 4) { .timer 1 3 describe $chan BOOM! "SHOULDER SHOT!" }
if (%snipetype == 5) { .timer 1 3 describe $chan BOOM! "CHEST SHOT!" }
if (%snipetype == 6) { .timer 1 3 describe $chan BOOM! "STOMACH SHOT!" }
if (%snipetype == 7) { .timer 1 3 describe $chan BOOM! "ARM SHOT!" }
if (%snipetype == 8) { .timer 1 3 describe $chan BOOM! "BUTT SHOT!" }
if (%snipetype == 9) { .timer 1 3 describe $chan BOOM! "LEG SHOT!" }
if (%snipetype == 10) { .timer 1 3 describe $chan BOOM! "HAND SHOT!" }
if (%snipetype == 11) { .timer 1 3 describe $chan BOOM! "FOOT SHOT!" }
if (%snipetype == 12) { .timer 1 3 describe $chan BOOM! "MISSED SHOT!!" }
unset %snipetype
unset %snipetarget