All pastes #590175 Raw Edit

Unnamed

public text v1 · immutable
#590175 ·published 2007-06-26 12:20 UTC
rendered paste body
ON *:TEXT:!DM:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2) {
    notice $nick 10*** 02[10 DM 02]10 Sorry there is already a game for02 $chan 10 please wait for it to finish or expire.
    halt 
  }
  if ($readini(dm.ini,$chan,Status) == ON && $nick == $readini(dm.ini,$chan,Player1)) { 
    .notice $nick 10*** 02[10 DM 02]10 You cant fight yourself.
    halt
  } 
  if ($readini(dm.ini,$chan,Status) == ON) {
    writeini dm.ini $chan HP2 99
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan Player2 $nick
    writeini dm.ini $chan Shark2 10
    writeini dm.ini $chan Status ON2
    writeini dm.ini $chan Spec2 100
    writeini dm.ini $chan b2 5
    msg $chan 10*** 02[10 DM 02]10 The battle -02 $readini(dm.ini,$chan,Player1) 10Vs.02 $readini(dm.ini,$chan,Player2) 
    .notice $nick 10You have02 1010 shark. Use 02!Eat10 to eat the sharks. Your hitpoint level will be noticed to you momentarily.
    .notice $readini(dm.ini,$chan,Player1) 10You have02 1010 shark. Use 02!Eat10 to eat the sharks. Your hitpoint level will be noticed to you momentarily.
    set %dm.turn. $+ $chan $rand(1,2)
    if (%dm.turn. [ $+ [ $chan ] ] == 2) {
      writeini dm.ini $chan Turn P2
      msg $chan 10*** 02[10 DM 02]10 $nick it is your turn to go. Use02 !DmCommands10 to see all the weapons you can use.
      halt
    }
    if (%dm.turn. [ $+ [ $chan ] ] == 1) {
      writeini dm.ini $chan Turn P1
      msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) it is your turn to go. Use02 !DmCommands10 to see all the weapons you can use.
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    writeini dm.ini $chan HP1 99
    writeini dm.ini $chan Status ON
    writeini dm.ini $chan Player1 $nick
    writeini dm.ini $chan Shark1 10
    writeini dm.ini $chan Spec1 100
    writeini dm.ini $chan b1 5
    msg $chan 10*** 02[10 DM 02]10 You have02 6010 seconds to death match $nick $+ . Type02 !DM 10if you have the balls!
    .timer $+ $chan $+ 1 1 60 msg $chan 10*** 02[10 DM 02]10 The time for this02 DM10 has been halted. - .ini file deleted.
    .timer $+ $chan $+ 2 1 60 remini dm.ini $chan
    halt
  }
}
ON *:TEXT:!Whip:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
    writeini dm.ini $chan Hit $rand(0,25)
    if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
      msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
      writeini dm.ini $chan Turn P2
      .timer $+ $chan $+ 1 1 30 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
      .timer $+ $chan $+ 2 1 30 writeini dm.ini $chan Turn P1
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
    writeini dm.ini $chan Hit $rand(0,25)
    if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
      msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
      writeini dm.ini $chan Turn P1
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
      halt
    }
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}
ON *:TEXT:!Flick:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
    writeini dm.ini $chan Hit $rand(0,15)
    if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
      msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
      writeini dm.ini $chan Turn P2
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
    writeini dm.ini $chan Hit $rand(0,15)
    if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
      msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
      writeini dm.ini $chan Turn P1
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
      halt
    }
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}
ON *:TEXT:!dds:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Spec2) <= 0) { 
    .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Spec1) <= 0) { 
    .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {  
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
    writeini dm.ini $chan Hit $rand(0,20) 
    writeini dm.ini $chan Hit2 $rand(0,20)
    if ($calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2))) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) & 0 $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2)))
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
      writeini dm.ini $chan Turn P2
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) - 25)
      .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec1) $+ 10% of special left.
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
    writeini dm.ini $chan Hit $rand(0,20)
    writeini dm.ini $chan Hit2 $rand(0,20)
    if ($calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2))) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) & 0 $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2)))
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) $+ 10]  $HPLevel($readini(dm.ini,$chan,HP1))
      writeini dm.ini $chan Turn P1
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) - 25)
      .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec2) $+ 10% of special left.
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
      halt
    }
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}
ON *:TEXT:!GMaul:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Spec2) <= 0) { 
    .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Spec1) <= 0) { 
    .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {  
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
    writeini dm.ini $chan Hit $rand(0,30) 
    writeini dm.ini $chan Hit2 $rand(0,20)
    writeini dm.ini $chan Hit3 $rand(0,15)
    if ($calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2) + $readini(dm.ini,$chan,Hit3))) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) & 0 & 0 $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2) + $readini(dm.ini,$chan,Hit3)))
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) & $readini(dm.ini,$chan,Hit3) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
      writeini dm.ini $chan Turn P2
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) - 25)
      .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec1) $+ 10% of special left.
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
    writeini dm.ini $chan Hit $rand(0,30)
    writeini dm.ini $chan Hit2 $rand(0,20)
    writeini dm.ini $chan Hit3 $rand(0,15)
    if ($calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit))) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) & 0 & 0 $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2)))
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) & $readini(dm.ini,$chan,Hit3) $+ 10]  $HPLevel($readini(dm.ini,$chan,HP1))
      writeini dm.ini $chan Turn P1
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) - 25)
      .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec2) $+ 10% of special left.
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
      halt
    }
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}

ON *:TEXT:!cBow:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
    writeini dm.ini $chan Hit $rand(0,25)
    if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick aims at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
      msg $chan 10*** 02[10 DM 02]10 $nick aims at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
      writeini dm.ini $chan Turn P2
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
    writeini dm.ini $chan Hit $rand(0,25)
    if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick aims at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
      msg $chan 10*** 02[10 DM 02]10 $nick aims at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
      writeini dm.ini $chan Turn P1
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
      halt
    }
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}
ON *:TEXT:!DScimmy:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
    writeini dm.ini $chan Hit $rand(0,30)
    if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick slashes at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
      msg $chan 10*** 02[10 DM 02]10 $nick slashes at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
      writeini dm.ini $chan Turn P2
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
    writeini dm.ini $chan Hit $rand(0,30)
    if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick slashes at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
      msg $chan 10*** 02[10 DM 02]10 $nick slashes at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
      writeini dm.ini $chan Turn P1
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
      halt
    }
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}
ON *:TEXT:!DLong:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Spec2) <= 0) { 
    .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Spec1) <= 0) { 
    .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {  
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
    writeini dm.ini $chan Hit $rand(0,45) 
    if ($calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + 0 )) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)))
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
      writeini dm.ini $chan Turn P2
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) - 25)
      .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec1) $+ 10% of special left.
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
    writeini dm.ini $chan Hit $rand(0,45)
    if ($calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + 0 )) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)))
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10]  $HPLevel($readini(dm.ini,$chan,HP1))
      writeini dm.ini $chan Turn P1
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) - 25)
      .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec2) $+ 10% of special left.
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
      halt
    }
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}
ON *:TEXT:!DMace:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Spec2) <= 0) { 
    .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!. You cant Special!
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Spec1) <= 0) { 
    .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!. You cant Special!
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {  
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
    writeini dm.ini $chan Hit $rand(0,50) 
    if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)))
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
      writeini dm.ini $chan Turn P2
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) - 25)
      .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec1) $+ 10% of special left.
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
    writeini dm.ini $chan Hit $rand(0,50)
    if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)))
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10]  $HPLevel($readini(dm.ini,$chan,HP1))
      writeini dm.ini $chan Turn P1
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) - 25)
      .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec2) $+ 10% of special left.
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
      halt
    }
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}
ON *:TEXT:!DAxe:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Spec2) <= 0) { 
    .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Spec1) <= 0) { 
    .notice $nick 10*** 02[10 DM 02]10 You have 02010% special left!.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }  
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
    writeini dm.ini $chan Hit $rand(0,15) 
    if ($calc($readini(dm.ini,$chan,HP2) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit))) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)))
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
      writeini dm.ini $chan Turn P2
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) - 25)
      .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec1) $+ 10% of special left.
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
    writeini dm.ini $chan Hit $rand(0,15)
    if ($calc($readini(dm.ini,$chan,HP1) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit))) <= 0) {
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
      msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
      remini dm.ini $chan
      halt
    }
    else {
      writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)))
      msg $chan 10*** 02[10 DM 02]10 $nick specials at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10]  $HPLevel($readini(dm.ini,$chan,HP1))
      writeini dm.ini $chan Turn P1
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) - 25)
      .notice $nick 10*** 02[10 DM 02]10 You now have02 $readini(dm.ini,$chan,Spec2) $+ 10% of special left.
      .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
      .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
      halt
    }
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}
ON *:TEXT:!Eat:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Shark1) <= 0) {
    .notice $nick 10*** 02[10 DM 02]10 You have no shark left!
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Shark2) <= 0) {
    .notice $nick 10*** 02[10 DM 02]10 You have no shark left!
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Shark1) >= 0) {
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }
    writeini dm.ini $chan Shark1 $calc($readini(dm.ini,$chan,Shark1) - 1 )
    writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) + 20)
    msg $chan 10*** 02[10 DM 02]10 $nick eats a shark $HPLevel($readini(dm.ini,$chan,HP1))
    .notice $nick 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Shark1) shark left.
    writeini dm.ini $chan Turn P2
    .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
    .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Shark2) >= 0) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    writeini dm.ini $chan Shark2 $calc($readini(dm.ini,$chan,Shark2) - 1 )
    writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) + 20)
    msg $chan 10*** 02[10 DM 02]10 $nick eats a shark $HPLevel($readini(dm.ini,$chan,HP2))
    .notice $nick 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Shark2) shark left.
    writeini dm.ini $chan Turn P1
    .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
    .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
    halt
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}
ON *:TEXT:!GAxe:#:{
  if ($readini(Status.ini,$network,$chan) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P1 && $readini(dm.ini,$chan,Player1) == $nick) {
      writeini dm.ini $chan Spec1 $calc($readini(dm.ini,$chan,Spec1) + 5)
if ($readini(dm.ini,$chan,Spec1) > 100) { writeini dm.ini $chan Spec1 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP2 $readini(dm.ini,$chan,HP2)
    if ($readini(dm.ini,$chan,HP1) <= 10) {
      writeini dm.ini $chan Hit $rand(0,100)
      if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
        writeini dm.ini $chan Turn P2
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
        halt
      }
    }
    if ($readini(dm.ini,$chan,HP1) <= 20) {
      writeini dm.ini $chan Hit $rand(0,60)
      if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
        writeini dm.ini $chan Turn P2
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
        halt
      }
    }
    if ($readini(dm.ini,$chan,HP1) <= 50) {
      writeini dm.ini $chan Hit $rand(0,45)
      if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
        writeini dm.ini $chan Turn P2
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
        halt
      }
    }
    if ($readini(dm.ini,$chan,HP1) <= 70) {
      writeini dm.ini $chan Hit $rand(0,25)
      if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
        writeini dm.ini $chan Turn P2
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
        halt
      }
    }
    if ($readini(dm.ini,$chan,HP1) <= 70) {
      writeini dm.ini $chan Hit $rand(0,25)
      if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
        writeini dm.ini $chan Turn P2
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
        halt
      }
    }
    if ($readini(dm.ini,$chan,HP1) <= 99) {
      writeini dm.ini $chan Hit $rand(0,25)
      if ($calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP2) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player2) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP2))
        writeini dm.ini $chan Turn P2
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player2) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P1
        halt
      }
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(dm.ini,$chan,Turn) == P2 && $readini(dm.ini,$chan,Player2) == $nick) {
      writeini dm.ini $chan Spec2 $calc($readini(dm.ini,$chan,Spec2) + 5)
if ($readini(dm.ini,$chan,Spec2) > 100) { writeini dm.ini $chan Spec2 100 }
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    writeini dm.ini $chan OLDHP1 $readini(dm.ini,$chan,HP1)
    if ($readini(dm.ini,$chan,HP2) <= 10) {
      writeini dm.ini $chan Hit $rand(0,100)
      if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
        writeini dm.ini $chan Turn P1
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
        halt
      }
    }
    if ($readini(dm.ini,$chan,HP2) <= 20) {
      writeini dm.ini $chan Hit $rand(0,60)
      if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
        writeini dm.ini $chan Turn P1
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
        halt
      }
    }
    if ($readini(dm.ini,$chan,HP2) <= 50) {
      writeini dm.ini $chan Hit $rand(0,45)
      if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP1 $calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
        writeini dm.ini $chan Turn P1
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
        halt
      }
    }
    if ($readini(dm.ini,$chan,HP2) <= 70) {
      writeini dm.ini $chan Hit $rand(0,25)
      if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
        writeini dm.ini $chan Turn P1
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
        halt
      }
    }
    if ($readini(dm.ini,$chan,HP2) <= 99) {
      writeini dm.ini $chan Hit $rand(0,25)
      if ($calc($readini(dm.ini,$chan,HP1) - $readini(dm.ini,$chan,Hit)) <= 0) {
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,OLDHP1) $+ 10] $HPLevel(0)
        msg $chan 10*** 02[10 DM 02]10 $nick is the winner!
        remini dm.ini $chan
        halt
      }
      else {
        writeini dm.ini $chan HP2 $calc($readini(dm.ini,$chan,HP2) - $readini(dm.ini,$chan,Hit))
        msg $chan 10*** 02[10 DM 02]10 $nick swings at02 $readini(dm.ini,$chan,Player1) 10hitting a [02 $+ $readini(dm.ini,$chan,Hit) $+ 10] $HPLevel($readini(dm.ini,$chan,HP1))
        writeini dm.ini $chan Turn P1
        .timer $+ $chan $+ 1 1 20 msg $chan 10*** 02[10 DM 02]10 $readini(dm.ini,$chan,Player1) has missed his turn.
        .timer $+ $chan $+ 2 1 20 writeini dm.ini $chan Turn P2
        halt
      }
    }
  }
  else {
    .notice $nick 10*** 02[10 DM 02]10 Its not your turn 02or10 your not in this game.
  }
}
ON *:TEXT:!DMCommands:#:{
  msg $nick 10--Mindhead's Script--
  msg $nick 10!GAxe 02-10 !Whip 02-10 !DAxe 02-10 !DDS 02-10 !DLong 02-10 !DMace 02-10 !Flick 02-10 !CBow 02-10 !DScimmy 02-10 !GMaul 
}
ON *:TEXT:!StopDM:#:{
  if ($nick isop $chan || $nick ishop $chan) {
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off
    remini dm.ini $chan
    .notice $nick 10*** 02[10 DM 02]10 Game Over
    msg $chan 10*** 02[10 DM 02]10 I'll be back ~ Arnold.
  }
}
alias HPLevel {
  if ($1 > 95) return 9,9...................
  elseif ($1 > 90) return 9,9...................
  elseif ($1 > 85) return 9,9..................4,4.
  elseif ($1 > 80) return 9,9.................4,4..
  elseif ($1 > 75) return 9,9................4,4...
  elseif ($1 > 70) return 9,9...............4,4....
  elseif ($1 > 65) return 9,9..............4,4.....
  elseif ($1 > 60) return 9,9.............4,4......
  elseif ($1 > 55) return 9,9............4,4.......
  elseif ($1 > 50) return 9,9...........4,4........
  elseif ($1 > 45) return 9,9..........4,4.........
  elseif ($1 > 40) return 9,9.........4,4..........
  elseif ($1 > 35) return 9,9........4,4...........
  elseif ($1 > 30) return 9,9.......4,4............
  elseif ($1 > 25) return 9,9......4,4.............
  elseif ($1 > 20) return 9,9.....4,4..............
  elseif ($1 > 15) return 9,9....4,4...............
  elseif ($1 > 10) return 9,9...4,4................
  elseif ($1 > 5) return 9,9..4,4.................
  elseif ($1 > 0) return 9,9.4,4..................
  elseif ($1 == 0) return 4,4...................
}
ON *:START:{
  remove dm.ini
  remove BA.ini
  remove CW.ini
  remove PC.ini
}