alias c {
  return $+($chr(3),10,$1-)
}

alias c2 {
  return $+($chr(3),04,$1-)
}

alias enddm {
  unset %Spec [ $+ [ %p1 ] ] %Spec [ $+ [ %p2 ] ]
  unset %GetSpec [ $+ [ %p1 ] ] %GetSpec [ $+ [ %p2 ] ]
  unset %Hp [ $+ [ %p1 ] ] %Hp [ $+ [ %p2 ] ]
  unset %Food [ $+ [ %p1 ] ] %Food [ $+ [ %p2 ] ]
  unset %Freeze [ $+ [ %p1 ] ] %Freeze [ $+ [ %p2 ] ]
  unset %move [ $+ [ %p1 ] ] %move [ $+ [ %p2 ] ]
  unset %p1 %p2
  unset %DmChan [ $+ [ $chan ] ]
}

alias dmstats {
  if ($1) {
    if (%win [ $+ [ $1 ] ] == $null) { set %win [ $+ [ $1 ] ] 0 }
    if (%loss [ $+ [ $1 ] ] == $null) { set %loss [ $+ [ $1 ] ] 0 }
    return $c(Statistics for) $c2($1) $c(wins:) $c2(%win [ $+ [ $1 ] ]) $c(losses:) $c2(%loss [ $+ [ $1 ] ])
  }
  else {
    if (%win [ $+ [ $nick ] ] == $null) { set %win [ $+ [ $nick ] ] 0 }
    if (%loss [ $+ [ $nick ] ] == $null) { set %loss [ $+ [ $nick ] ] 0 }
    return $c(Statistics for) $c2($nick) $c(wins:) $c2(%win [ $+ [ $nick ] ]) $c(losses:) $c2(%loss [ $+ [ $nick ] ])
  }
}

on $*:TEXT:/^[!@\.]dmstat(s)?/Si:*:{
  if ($chan isin $noscript) { halt }
  var %iif $iif($left($1,1) == @, msg $chan, notice $nick)
  if ($2) {
    %iif $dmstats($2-)
  }
  else {
    %iif $dmstats
  } 
}

on $*:TEXT:/^[!@\.]dmcommand(s)?/Si:#:{
  $iif($left($1,1) == @, msg $chan , notice $nick) $c(The commands are:) $&
    $c2(!Whip , !Dds , !Gmaul , !Dh , !Msb , !Cbow , !Xbow , !Dbow , !Barrage , !Eat , ![A,G,B,Z]gs , !Spec , !GetSpec , !Skip)
}

on *:TEXT:!dm*:#:{
  if ($chan isin $noscript) { halt }
  if ($chan == #3x) { halt }
  if (%p1 != $null && %p2 != $null) { $c(Notice $nick theres already a game in progress!) | halt }
  if (%p1 == $null && %p2 == $null) {
    set %p1 $nick
    msg $chan $c2($nick) $c(has intiated a dm!) $c2(!dm) $c(to accept his challenge!)    
    .timerDm 1 20 unset %p1
    .timerDm2 1 20 msg $chan $c(no one has accepted) $c2($nick $+ 's) $c(challenge so the dm was cancelled!) 
  } 
  elseif (%p1 != $null && %p2 == $null) {
    .timerDm off
    .timerDm2 off
    msg $chan $c2($nick) $c(has accepted!) $c2(%p1 $+ 's) $c(challenge!)
    set %p2 $nick
    set %Spec [ $+ [ %p1 ] ] 10
    set %Spec [ $+ [ %p2 ] ] 10
    set %GetSpec [ $+ [ %p1 ] ] 2
    set %GetSpec [ $+ [ %p2 ] ] 2
    set %Hp [ $+ [ %p1 ] ] 99
    set %Hp [ $+ [ %p2 ] ] 99
    set %Food [ $+ [ %p1 ] ] 15
    set %Food [ $+ [ %p2 ] ] 15
    set %DmChan [ $+ [ $chan ] ]
    var %Start $rand(1,2)
    if (%Start == 1) {
      set %Move [ $+ [ %p1 ] ] on
      msg $chan $c2(%p1) $c(starts!)
      notice %p1 $c(its your turn!)
    }
    elseif (%Start == 2) {
      set %Move [ $+ [ %p2 ] ] on
      msg $chan $c2(%p2) $c(starts!)
      notice %p2 $c(its your turn!)
    }
  }
}

on $*:TEXT:/^[!](end|halt)dm/Si:#:{
  if ($chan isin $noscript) { halt }
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2) || $nick == %p1 || $nick == %p2) {
    msg $chan $c2($nick) $c(has stopped the dm!)
    enddm 
  }
}


on *:PART:#:{
  if ((%DmChan [ $+ [ $chan ] ] == $chan) && (%p1 == $nick || %p2 == $nick)) {
    msg $chan $c2($nick) $c(has parted) $c2($chan) $c(so the dm has ended)
    enddm
  }
}

on *:TEXT:!whip*:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
    elseif ($nick == %p1) {
      var %whip $rand(0,36)
      dec %hp [ $+ [ %p2 ] ] %whip
      if (%hp [ $+ [ %p2 ] ] <= 0) { 
        msg $chan $c2($nick) $c(has hit) $c2(%whip) $c(with his) $c2(whip)  $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%whip $c(with his) $c2(whip) ) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
        notice %p2 $c(its your turn!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  }   
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
    elseif ($nick == %p2) {
      var %whip $rand(0,36)
      dec %hp [ $+ [ %p1 ] ] %whip
      if (%hp [ $+ [ %p1 ] ] <= 0) { 
        msg $chan $c2($nick) $c(has hit) $c2(%whip) $c(with his) $c2(whip)  $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%whip) $c(with his) $c2(whip) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
        notice %p1 $c(its your turn!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  }  
}

on $*:TEXT:/^[!](dds|drag dagger|dd)/Si:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p1 ] ] < 2.5 && $nick == %p1) { notice $nick $c(You dont have enough special left!) | halt }
    elseif ($nick == %p1) {
      var %dds $rand(0,27)
      var %dds1 $rand(0,27)
      dec %hp [ $+ [ %p2 ] ] $calc( %dds + %dds1 )
      dec %Spec [ $+ [ %p1 ] ] 2.5
      if (%hp [ $+ [ %p2 ] ] <= 0) { 
        msg $chan $c2($nick) $c(has hit) $c2(%dds) $c(and) $c2(%dds1) $c(with his) $c2(dds) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0) {
        notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p1 ] ] ) $+ %) $c(Special left)   
        msg $chan $c2($nick) $c(has hit) $c2(%dds) $c(and) $c2(%dds1) $c(with his) $c2(dds) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
        notice %p2 $c(its your turn!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  } 
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p2 ] ] < 2.5 && $nick == %p2) { notice $nick $c(You dont have enough special left!) | halt }
    elseif ($nick == %p2) {
      var %dds $rand(0,27)
      var %dds1 $rand(0,27)
      dec %hp [ $+ [ %p1 ] ] $calc( %dds + %dds1 )
      dec %Spec [ $+ [ %p2 ] ] 2.5
      if (%hp [ $+ [ %p1 ] ] <= 0) { 
        msg $chan $c2($nick) $c(has hit) $c2(%dds) $c(and) $c2(%dds1) $c(with his) $c2(dds) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0) {
        notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p2 ] ] ) $+ %)  $c(Special left) 
        msg $chan $c2($nick) $c(has hit) $c2(%dds) $c(and) $c2(%dds1) $c(with his) $c2(dds) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
        notice %p1 $c(its your turn!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  } 
}

on $*:TEXT:/^[!](dh|gaxe|dharok)/Si:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
    elseif ($nick == %p1) {
      if (%hp [ $+ [ %p1 ] ] > 25) {
        var %dh $rand(0,35)
        dec %hp [ $+ [ %p2 ] ] %dh
        if (%hp [ $+ [ %p2 ] ] <= 0) {
          msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p2 , %p2) $c(has no hp left!) $c2($nick) $c(wins!)
          inc %win [ $+ [ %p1 ] ] 1
          inc %loss [ $+ [ %p2 ] ] 1
          msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
          msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
          enddm
        }
        elseif (%hp [ $+ [ %p1 ] ] > 0) {
          msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
          notice %p2 $c(its your turn!)
          set %move [ $+ [ %p2 ] ] on
          unset %move [ $+ [ %p1 ] ]
        }
      }
      elseif (%hp [ $+ [ %p1 ] ] < 25) {
        var %dh $rand(0,65)
        dec %hp [ $+ [ %p2 ] ] %dh
        if (%hp [ $+ [ %p2 ] ] <= 0) {
          msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
          inc %win [ $+ [ %p1 ] ] 1
          inc %loss [ $+ [ %p2 ] ] 1
          msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
          msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
          enddm
        }
        elseif (%hp [ $+ [ %p1 ] ] > 0) {
          msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
          notice %p2 $c(its your turn!)
          set %move [ $+ [ %p2 ] ] on
          unset %move [ $+ [ %p1 ] ]
        }
      }
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
    elseif ($nick == %p2) {
      if (%hp [ $+ [ %p2 ] ] > 25) {
        var %dh $rand(0,35)
        dec %hp [ $+ [ %p1 ] ] %dh
        if (%hp [ $+ [ %p1 ] ] <= 0) {
          msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
          inc %win [ $+ [ %p2 ] ] 1
          inc %loss [ $+ [ %p1 ] ] 1
          msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
          msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
          enddm
        }
        elseif (%hp [ $+ [ %p1 ] ] > 0) {
          msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
          notice %p1 $c(its your turn!)
          set %move [ $+ [ %p1 ] ] on
          unset %move [ $+ [ %p2 ] ]
        }
      }
      elseif (%hp [ $+ [ %p2 ] ] < 25) {
        var %dh $rand(0,65)
        dec %hp [ $+ [ %p1 ] ] %dh
        if (%hp [ $+ [ %p1 ] ] <= 0) {
          msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
          inc %win [ $+ [ %p2 ] ] 1
          inc %loss [ $+ [ %p1 ] ] 1
          msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
          msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
          enddm
        }
        elseif (%hp [ $+ [ %p2 ] ] > 0) {
          msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
          notice %p1 $c(its your turn!)
          set %move [ $+ [ %p1 ] ] on
          unset %move [ $+ [ %p2 ] ]
        }
      }
    }
  }
}

on $*:TEXT:/^[!](msb|short|bow)/Si:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Spec [ $+ [ %p1 ] ] < 5 && $nick == %p1) { notice $nick $c(You dont have enough special for that!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { 
      unset %Freeze [ $+ [ %p1 ] ]
      notice $nick $c(You have been unfrozen!)
    }
    if ($nick == %p1) {
      var %msb $rand(0,23)
      var %msb1 $rand(0,23)
      dec %hp [ $+ [ %p2 ] ] $calc( %msb + %msb1 )
      dec %Spec [ $+ [ %p1 ] ] 5
      if (%hp [ $+ [ %p2 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%msb) $c(and) $c2(%msb1) $c(with his) $c2(mage short bow) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0) {
        notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p1 ] ] ) $+ %) $c(Special left)   
        msg $chan $c2($nick) $c(has hit) $c2(%msb) $c(and) $c2(%msb1) $c(with his) $c2(mage short bow) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
        notice %p2 $c(its your turn!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Spec [ $+ [ %p2 ] ] < 5 && $nick == %p2) { notice $nick $c(You dont have enough special for that!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { 
      unset %Freeze [ $+ [ %p2 ] ]
      notice $nick $c(You have been unfrozen!)
    }
    if ($nick == %p2) {
      var %dbow $rand(0,23)
      var %dbow1 $rand(0,23)
      dec %hp [ $+ [ %p1 ] ] $calc( %msb + %msb1 )
      dec %Spec [ $+ [ %p2 ] ] 5
      if (%hp [ $+ [ %p1 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%msb) $c(and) $c2(%msb1) $c(with his) $c2(mage short bow) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0) {
        notice %p2 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p2 ] ] ) $+ %) $c(Special left)   
        msg $chan $c2($nick) $c(has hit) $c2(%msb) $c(and) $c2(%msb1) $c(with his) $c2(mage short bow) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
        notice %p1 $c(its your turn!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  }
}

on $*:TEXT:/^[!](dbow|darkbow)/Si:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Spec [ $+ [ %p1 ] ] < 7.5 && $nick == %p1) { notice $nick $c(You dont have enough special for that!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { 
      unset %Freeze [ $+ [ %p1 ] ]
      notice $nick $c(You have been unfrozen!)
    }
    if ($nick == %p1) {
      var %dbow $rand(0,36)
      var %dbow1 $rand(0,36)
      dec %hp [ $+ [ %p2 ] ] $calc( %dbow + %dbow1 )
      dec %Spec [ $+ [ %p1 ] ] 7.5
      if (%hp [ $+ [ %p2 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%dbow) $c(and) $c2(%dbow1) $c(with his) $c2(dark bow) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0) {
        notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p1 ] ] ) $+ %) $c(Special left)   
        msg $chan $c2($nick) $c(has hit) $c2(%dbow) $c(and) $c2(%dbow1) $c(with his) $c2(dark bow) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
        notice %p2 $c(its your turn!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Spec [ $+ [ %p2 ] ] < 7.5 && $nick == %p2) { notice $nick $c(You dont have enough special for that!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { 
      unset %Freeze [ $+ [ %p2 ] ]
      notice $nick $c(You have been unfrozen!)
    }
    if ($nick == %p2) {
      var %dbow $rand(0,36)
      var %dbow1 $rand(0,36)
      dec %hp [ $+ [ %p1 ] ] $calc( %dbow + %dbow1 )
      dec %Spec [ $+ [ %p2 ] ] 7.5
      if (%hp [ $+ [ %p1 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%dbow) $c(and) $c2(%dbow1) $c(with his) $c2(dark bow) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0) {
        notice %p2 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p2 ] ] ) $+ %) $c(Special left)   
        msg $chan $c2($nick) $c(has hit) $c2(%dbow) $c(and) $c2(%dbow1) $c(with his) $c2(dark bow) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
        notice %p1 $c(its your turn!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  }
}

on $*:TEXT:/^[!](gmaul|maul)/Si:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p1 ] ] != 10 && %p1 == $nick) { notice $nick $c(You dont have enough special for that!) | halt }
    elseif ($nick == %p1) {
      var %gmaulx $rand(0,23)
      var %gmauly $rand(0,23)
      var %gmaulz $rand(0,23)
      dec %hp [ $+ [ %p2 ] ] $calc( %gmaulx + %gmauly + %gmaulz )
      dec %Spec [ $+ [ %p1 ] ] 10
      if (%hp [ $+ [ %p2 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%gmaulx $chr(44) %gmauly) $c(and) $c2(%gmaulz) $c(with his) $c2(granite maul) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0) {
        notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p1 ] ] ) $+ %) $c(Special left)   
        msg $chan $c2($nick) $c(has hit) $c2(%gmaulx $chr(44) %gmauly) $c(and) $c2(%gmaulz) $c(with his) $c2(granite maul) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
        notice %p2 $c(its your turn!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p2 ] ] != 10 && %p2 == $nick) { notice $nick $c(You dont have enough special for that!) | halt }
    elseif ($nick == %p2) {
      var %gmaulx $rand(0,23)
      var %gmauly $rand(0,23)
      var %gmaulz $rand(0,23)
      dec %hp [ $+ [ %p1 ] ] $calc( %gmaulx + %gmauly + %gmaulz )
      dec %Spec [ $+ [ %p2 ] ] 10
      if (%hp [ $+ [ %p1 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%gmaulx $chr(44) %gmauly) $c(and) $c2(%gmaulz) $c(with his) $c2(granite maul) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0) {
        notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p2 ] ] ) $+ %) $c(Special left)   
        msg $chan $c2($nick) $c(has hit) $c2(%gmaulx $chr(44) %gmauly) $c(and) $c2(%gmaulz) $c(with his) $c2(granite maul) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
        notice %p1 $c(its your turn!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  }
}

on $*:TEXT:/^[!](barrage|blitz|ice)/Si:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Spec [ $+ [ %p1 ] ] < 7.5 && $nick == %p1) { notice $nick $c(You dont have enough special for that!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { 
      unset %Freeze [ $+ [ %p1 ] ]
      notice $nick $c(You have been unfrozen!)
    }
    if ($nick == %p1) {
      var %Barrage $rand(0,30)
      var %bFreeze $rand(1,3)
      dec %hp [ $+ [ %p2 ] ] %Barrage
      if (%hp [ $+ [ %p2 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1))) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0) && (%bFreeze == 3) {
        set %Freeze [ $+ [ %p2 ] ] on
        msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1)))) $c(on) $c2(%p2 $chr(44) %p2 is frozen for one round!) $&
          $c2($chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
        notice %p2 $c(its your turn, and you are) $c2(frozen!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0) && (%bFreeze != 3) {
        msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1)))) $c(on) $c2(%p2 $chr(44) %p2 didnt get frozen!) $&
          $c2($chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
        notice %p2 $c(its your turn)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Spec [ $+ [ %p2 ] ] < 7.5 && $nick == %p2) { notice $nick $c(You dont have enough special for that!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { 
      unset %Freeze [ $+ [ %p2 ] ]
      notice $nick $c(You have been unfrozen!)
    }
    if ($nick == %p2) {
      var %Barrage $rand(0,30)
      var %bFreeze $rand(1,3)
      dec %hp [ $+ [ %p1 ] ] %Barrage
      if (%hp [ $+ [ %p1 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1)))) $c(on) $c1(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0) && (%bFreeze == 3) {
        set %Freeze [ $+ [ %p1 ] ] on
        msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1)))) $c(on) $c2(%p1 $chr(44) %p1 is frozen for one round!) $&
          $c2($chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
        notice %p1 $c(its your turn, and you are) $c2(frozen!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0) && (%bFreeze != 3) {
        msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1)))) $c(on) $c2(%p1 $chr(44) %p1 didnt get frozen!) $&
          $c2($chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
        notice %p1 $c(its your turn)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  }
}

on $*:TEXT:/^[!](cbow|xbow)/Si:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { 
      notice $nick $c(You have been unfrozen!) 
      unset %Freeze [ $+ [ %p1 ] ]    
    }
    elseif ($nick == %p1) {
      var %xbow $rand(0,24)
      dec %hp [ $+ [ %p2 ] ] %whip
      if (%hp [ $+ [ %p2 ] ] <= 0) { 
        msg $chan $c2($nick) $c(has hit) $c2(%xbow) $c(with his) $c2($remove($1,$left($1,1)))  $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%xbow) $c(with his) $c2($remove($1,$left($1,1)))  $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
        notice %p2 $c(its your turn!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  }   
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { 
      notice $nick $c(you been unfrozen) 
      unset %Freeze [ $+ [ %p2 ] ] 
    }   
    elseif ($nick == %p2) {
      var %xbow $rand(0,24)
      dec %hp [ $+ [ %p1 ] ] %whip
      if (%hp [ $+ [ %p1 ] ] <= 0) { 
        msg $chan $c2($nick) $c(has hit) $c2(%xbow) $c(with his) $c2($remove($1,$left($1,1)))  $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%xbow) $c(with his) $c2($remove($1,$left($1,1))) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
        notice %p1 $c(its your turn!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  }  
}

on $*:TEXT:/^[!](eat|food|shark)/Si:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Food [ $+ [ %p1 ] ] == 0) { notice $nick $c(You are out of food!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { 
      notice $nick $c(You have been unfrozen!) 
      unset %Freeze [ $+ [ %p1 ] ]    
    }
    elseif ($nick == %p1) {
      inc %hp [ $+ [ %p1 ] ] 20
      dec %Food [ $+ [ %p1 ] ] 1
      if (%hp [ $+ [ %p1 ] ] > 99) { set %hp [ $+ [ %p1 ] ] 99 }
      notice $nick $c(You have) $c2(%Food [ $+ [ %p1 ] ]) $c(Sharks left.)
      msg $chan $c2($nick) $c(has eaten) $c(a shark! he now has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp)
      notice %p2 $c(its your turn)
      set %move [ $+ [ %p2 ] ] on
      unset %move [ $+ [ %p1 ] ]
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Food [ $+ [ %p2 ] ] == 0) { notice $nick $c(You are out of food!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { 
      notice $nick $c(You have been unfrozen!) 
      unset %Freeze [ $+ [ %p2 ] ]    
    }
    elseif ($nick == %p2) {
      inc %hp [ $+ [ %p2 ] ] 20
      dec %Food [ $+ [ %p2 ] ] 1
      if (%hp [ $+ [ %p2 ] ] > 99) { set %hp [ $+ [ %p2 ] ] 99 }
      notice $nick $c(You have) $c2(%Food [ $+ [ %p2 ] ]) $c(Sharks left.)
      msg $chan $c2($nick) $c(has eaten) $c(a shark! he now has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp)
      notice %p2 $c(its your turn)
      set %move [ $+ [ %p1 ] ] on
      unset %move [ $+ [ %p2 ] ]
    }
  }
}

on *:TEXT:!sgs*:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p1 ] ] != 10 && $nick == %p1) { notice $nick $c(You dont have enough special!) | halt }
    elseif ($nick == %p1) {
      var %gs $rand(0,50)
      dec %Spec [ $+ [ %p1 ] ] 10
      dec %Hp [ $+ [ %p2 ] ] %gs
      if (%hp [ $+ [ %p2 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword)  $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0 && %gs < 4) {
        notice $nick $c(You have) $c2(0%) $c(Special left.)
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword) ) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left,) $&
          $c2($nick) $c(Didnt heal at all!)
        notice %p2 $c(its your turn!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0 && %gs >= 4) {
        notice $nick $c(You have) $c2(0%) $c(Special left.)
        inc %hp [ $+ [ %p1 ] ] $floor($calc( %gs / 4))
        if (%hp [ $+ [ %p1 ] ] > 99) { set %hp [ $+ [ %p1 ] ] 99 }
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword) ) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left,) $&
          $c2($nick) $c(Healed) $c2($floor($calc( %gs / 4)) $+ !)
        notice %p2 $c(its your turn!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p2 ] ] != 10 && $nick == %p2) { notice $nick $c(You dont have enough special!) | halt }
    elseif ($nick == %p2) {
      var %gs $rand(0,50)
      dec %Spec [ $+ [ %p2 ] ] 10
      dec %Hp [ $+ [ %p1 ] ] %gs
      if (%hp [ $+ [ %p1 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword)  $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0 && %gs < 4) {
        notice $nick $c(You have) $c2(0%) $c(Special left.)
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword) ) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left,) $&
          $c2($nick) $c(Didnt heal at all!)
        notice %p1 $c(its your turn!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0 && %gs >= 4) {
        notice $nick $c(You have) $c2(0%) $c(Special left.)
        inc %hp [ $+ [ %p2 ] ] $floor($calc( %gs / 4))
        if (%hp [ $+ [ %p2 ] ] > 99) { set %hp [ $+ [ %p2 ] ] 99 }
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword) ) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left,) $&
          $c2($nick) $c(Healed) $c2($floor($calc( %gs / 4)) $+ !)
        notice %p1 $c(its your turn !)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  }
}

on *:TEXT:!zgs*:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p1 ] ] != 10 && $nick == %p1) { notice $nick $c(You dont have enough special!) | halt }
    elseif ($nick == %p1) {
      var %gs $rand(0,52)
      var %zFreeze $rand(1,3)
      dec %hp [ $+ [ %p2 ] ] %gs
      dec %Spec [ $+ [ %p1 ] ] 10
      if (%hp [ $+ [ %p2 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword)  $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0 && %zFreeze == 3) {
        notice $nick $c(You have) $c2(0%) $c(Special left)     
        set %Freeze [ $+ [ %p2 ] ] on
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword)  $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left) $&
          $c2(%p2) $c(is frozen for one round!)
        notice %p2 $c(its your turn, and you are) $c2(frozen!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0 && %zFreeze != 3) {
        notice $nick $c(You have) $c2(0%) $c(Special left)       
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword)  $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left) $&
          $c2(%p2) $c(didnt get frozen)
        notice %p2 $c(its your turn)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p2 ] ] != 10 && $nick == %p2) { notice $nick $c(You dont have enough special!) | halt }
    elseif ($nick == %p2) {
      var %gs $rand(0,52)
      var %zFreeze $rand(1,3)
      dec %hp [ $+ [ %p1 ] ] %gs
      dec %Spec [ $+ [ %p2 ] ] 10
      if (%hp [ $+ [ %p1 ] ] <= 0) {
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword)  $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0 && %zFreeze == 3) {
        set %Freeze [ $+ [ %p1 ] ] on
        notice $nick $c(You have) $c2(0%) $c(Special left)
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword)  $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left) $&
          $c2(%p1) $c(is frozen for one round!)
        notice %p1 $c(its your turn, and you are) $c2(frozen!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0 && %zFreeze != 3) {
        notice $nick $c(You have) $c2(0%) $c(Special left)    
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword)  $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left) $&
          $c2(%p1) $c(didnt get frozen)
        notice %p1 $c(its your turn)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  }
}

on *:TEXT:!bgs*:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p1 ] ] != 10 && $nick == %p1) { notice $nick $c(You dont have enough special!) | halt }
    elseif ($nick == %p1) {
      var %gs $rand(0,62)
      dec %hp [ $+ [ %p2 ] ] %gs
      dec %Spec [ $+ [ %p1 ] ] 10
      if (%hp [ $+ [ %p2 ] ] <= 0) { 
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Bandos GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0) {
        notice $nick $c(You have) $c2(0%) $c(Special left)   
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Bandos GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
        notice %p2 $c(its your turn!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  }   
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p2 ] ] != 10 && $nick == %p2) { notice $nick $c(You dont have enough special!) | halt }
    elseif ($nick == %p2) {
      var %gs $rand(0,62)
      dec %hp [ $+ [ %p1 ] ] %gs
      dec %Spec [ $+ [ %p2 ] ] 10
      if (%hp [ $+ [ %p1 ] ] <= 0) { 
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Bandos GodSword)  $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0) {
        notice $nick $c(You have) $c2(0%) $c(Special left)
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Bandos GodSword) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
        notice %p1 $c(its your turn!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  }  
}

on *:TEXT:!ags*:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p1 ] ] != 10 && $nick == %p1) { notice $nick $c(You dont have enough special!) | halt }
    elseif ($nick == %p1) {
      var %gs $rand(0,65)
      dec %hp [ $+ [ %p2 ] ] %gs
      dec %Spec [ $+ [ %p1 ] ] 10     
      if (%hp [ $+ [ %p2 ] ] <= 0) { 
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Armadyl GodSword)  $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p1 ] ] 1
        inc %loss [ $+ [ %p2 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p2 ] ] > 0) {
        notice $nick $c(You have) $c2(0%) $c(Special left) 
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Armadyl GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
        notice %p2 $c(its your turn!)
        set %move [ $+ [ %p2 ] ] on
        unset %move [ $+ [ %p1 ] ]
      }
    }
  }   
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
    if (%Spec [ $+ [ %p2 ] ] != 10 && $nick == %p2) { notice $nick $c(You dont have enough special!) | halt }
    elseif ($nick == %p2) {
      var %gs $rand(0,62)
      dec %hp [ $+ [ %p1 ] ] %gs
      dec %Spec [ $+ [ %p2 ] ] 10
      if (%hp [ $+ [ %p1 ] ] <= 0) { 
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Armadyl GodSword)  $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
        inc %win [ $+ [ %p2 ] ] 1
        inc %loss [ $+ [ %p1 ] ] 1
        msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1  ] ])
        msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2  ] ])
        enddm
      }
      elseif (%hp [ $+ [ %p1 ] ] > 0) {
        notice $nick $c(You have) $c2(0%) $c(Special left) 
        msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Armadyl GodSword) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
        notice %p1 $c(its your turn!)
        set %move [ $+ [ %p1 ] ] on
        unset %move [ $+ [ %p2 ] ]
      }
    }
  }  
}

on $*:TEXT:/^[!](spec|restore)/Si:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { 
      if (%Spec [ $+ [ %p1 ] ] == 10) { notice $nick $c(Cant have more then 100% Spec!) | halt }    
      notice $nick $c(You have been unfrozen!) 
      unset %Freeze [ $+ [ %p1 ] ]    
    }
    elseif ($nick == %p1) {
      inc %Spec [ $+ [ %p1 ] ] 2.5
      notice $nick $c(You now have) $c2($calc(%Spec [ $+ [ %p1 ] ] * 10) $+ %) $c(Special left)
      msg $chan $c2($nick) $c(has restored) $c2(25% special!)
      notice %p2 $c(its your turn)
      set %move [ $+ [ %p2 ] ] on
      unset %move [ $+ [ %p1 ] ] 
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { 
      notice $nick $c(You have been unfrozen!)
    }
    if (%Spec [ $+ [ %p2 ] ] == 10) { notice $nick $c(Cant have more then 100% Spec!) | halt }    
    unset %Freeze [ $+ [ %p2 ] ]    
    elseif ($nick == %p2) {
      inc %Spec [ $+ [ %p2 ] ] 2.5
      notice $nick $c(You now have) $c2($calc(%Spec [ $+ [ %p2 ] ] * 10) $+ %) $c(Special left)
      msg $chan $c2($nick) $c(has restored) $c2(25% special!)
      notice %p1 $c(its your turn)
      set %move [ $+ [ %p1 ] ] on
      unset %move [ $+ [ %p2 ] ] 
    }
  }
}

on $*:TEXT:/^[!]get(spec|special)/Si:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { 
      notice $nick $c(You have been unfrozen!) 
      unset %Freeze [ $+ [ %p1 ] ] 
    }
    if (%Spec [ $+ [ %p1 ] ] == 10) { notice $nick $c(Cant have more then 100% Spec!) | halt }
    elseif ($nick == %p1) {
      dec %hp [ $+ [ %p1 ] ] $floor($calc(%hp [ $+ [ %p1 ] ] / 2))
      set %Spec [ $+ [ %p1 ] ] 10
      notice $nick $c(You now have) $c2(100%) $c(Special) 
      msg $chan $c2($nick) $c(has restored) $c2(100% special) $c(however) $c2(Half of his hp was lost! , $nick) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left)
      notice %p2 $c(its your turn)   
      unset %move [ $+ [ %p1 ] ] 
      set %move [ $+ [ %p2 ] ] on  
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { 
      notice $nick $c(You have been unfrozen!) 
      unset %Freeze [ $+ [ %p2 ] ] 
    }
    if (%Spec [ $+ [ %p2 ] ] == 10) { notice $nick $c(Cant have more then 100% Spec!) | halt }
    elseif ($nick == %p2) {
      dec %hp [ $+ [ %p2 ] ] $floor($calc(%hp [ $+ [ %p2 ] ] / 2))
      set %Spec [ $+ [ %p2 ] ] 10
      notice $nick $c(You now have) $c2(100%) $c(Special) 
      msg $chan $c2($nick) $c(has restored) $c2(100% special) $c(however) $c2(Half of his hp was lost! , $nick) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left)
      notice %p1 $c(its your turn)
      set %move [ $+ [ %p1 ] ] on
      unset %move [ $+ [ %p2 ] ]   
    }
  }
}

on *:TEXT:!skip*:#:{
  if (%move [ $+ [ %p1 ] ] == on) {
    if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { 
      notice $nick $c(You have been unfrozen!) 
      unset %Freeze [ $+ [ %p1 ] ] 
    }
    if ($nick == %p1) {
      msg $chan $c2($nick) $c(has skipped a turn!) 
      notice %p2 $c(its your turn)
      set %move [ $+ [ %p2 ] ] on 
      unset %move [ $+ [ %p1 ] ] 
    }
  }
  elseif (%move [ $+ [ %p2 ] ] == on) {
    if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
    if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { 
      notice $nick $c(You have been unfrozen!) 
      unset %Freeze [ $+ [ %p2 ] ] 
    }
    if ($nick == %p2) {
      msg $chan $c2($nick) $c(has skipped a turn!) 
      notice %p1 $c(its your turn)
      set %move [ $+ [ %p1 ] ] on 
      unset %move [ $+ [ %p2 ] ] 
    }
  }
}