on $*:TEXT:/^[@!](DM|Duel)/Si:#:{ 
  if ($readini(dm.ini,$chan,Player1) == $nick) {
    notice $nick Why would you want to kill yourself Dumbass.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    writeini dm.ini $chan Status ON2
    writeini dm.ini $chan Player2 $nick
    writeini dm.ini $chan Shark1 10
    writeini dm.ini $chan Shark2 10
    writeini dm.ini $chan Hp1 99
    writeini dm.ini $chan Hp2 99
    writeini dm.ini $chan Turn 1
    .timer $+ $chan $+ 1 off
    .timer $+ $chan $+ 2 off 
    notice $readini(dm.ini,$chan,Player1) $c1(You have) $c2(99) $c1(HitPoints and 10 Shark. Type !Eat to eat and !Slash to attack.)
    notice $readini(dm.ini,$chan,Player2) $c1(You have) $c2(99) $c1(HitPoints and 10 Shark. Type !Eat to eat and !Slash to attack.)
    msg $chan Lets FIGHT!
    msg $chan Its $readini(dm.ini,$chan,Player1) $+ 's turn.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    writeini dm.ini $chan Status ON
    writeini dm.ini $chan Player1 $nick
    msg $chan $nick has initiated the DM Commands. You have 30 seconds to type !DM to fight $nick $+ .
    .timer $+ $chan $+ 1 1 30 msg $chan Sorry but 30 seconds are up. Dm Halted
    .timer $+ $chan $+ 2 1 30 remini dm.ini $chan
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2) {
    notice $nick Sorry there is already a dm.
    halt
  }
}
on $*:TEXT:/^[@!]Slash/Si:#:{ 
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick Theres not even a dm...
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON && $readini(dm.ini,$chan,Player1) == $nick) {
    notice $nick Please wait...
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick Type !DM Hurry to join.
    halt
  }
  if ($readini(dm.ini,$chan,Turn) == 1 && $readini(dm.ini,$chan,Player1) == $nick) {
    writeini dm.ini $chan OldHp2 $readini(dm.ini,$chan,hp2) 
    writeini dm.ini $chan Hit $rand(1,30)
    writeini dm.ini $chan hp2 $calc( $readini(dm.ini,$chan,hp2) - $readini(dm.ini,$chan,Hit) )
    if ($readini(dm.ini,$chan,hp2) <= 0) {
      msg $chan $nick swings at $readini(dm.ini,$chan,Player2) hitting a $readini(dm.ini,$chan,OldHp2) leaving $readini(dm.ini,$chan,Player2) with 0 HitPoints.
      .timer 1 3 msg $chan $nick has Won!
      remini dm.ini $chan 
      halt
    }
    else {
      msg $chan $nick swings at $readini(dm.ini,$chan,Player2) hitting a $readini(dm.ini,$chan,Hit) leaving $readini(dm.ini,$chan,Player2) with $readini(dm.ini,$chan,hp2) HitPoints.
      writeini dm.ini $chan Turn 2

      halt
    }
  }
  if ($readini(dm.ini,$chan,Turn) == 2 && $readini(dm.ini,$chan,Player2) == $nick) {
    writeini dm.ini $chan OldHp1 $readini(dm.ini,$chan,hp1) 
    writeini dm.ini $chan Hit $rand(1,30)
    writeini dm.ini $chan hp1 $calc( $readini(dm.ini,$chan,hp1) - $readini(dm.ini,$chan,Hit) )
    if ($readini(dm.ini,$chan,hp1) <= 0) {
      msg $chan $nick swings at $readini(dm.ini,$chan,Player1) hitting a $readini(dm.ini,$chan,OldHp1) leaving $readini(dm.ini,$chan,Player1) with 0 HitPoints.
      .timer 1 3 msg $chan $nick has Won!
      remini dm.ini $chan
      halt
    }
    else {
      msg $chan $nick swings at $readini(dm.ini,$chan,Player1) hitting a $readini(dm.ini,$chan,Hit) leaving $readini(dm.ini,$chan,Player1) with $readini(dm.ini,$chan,hp1) HitPoints.
      writeini dm.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick Its either not your turn or your not in this game.
  }
}
on $*:TEXT:/^[@!](eat|heal)/Si:#:{ 
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick Theres not even a dm...
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON && $readini(dm.ini,$chan,Player1) == $nick) {
    notice $nick Please wait...
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick Type !DM Hurry to join.
    halt
  }
  if ($readini(dm.ini,$chan,Turn) == 2 && $readini(dm.ini,$chan,Player2) == $nick && $readini(dm.ini,$chan,Shark2) <= 0) {
    notice $nick You dont have any shark left.
    halt
  }
  if ($readini(dm.ini,$chan,Turn) == 1 && $readini(dm.ini,$chan,Player1) == $nick && $readini(dm.ini,$chan,Shark1) <= 0) {
    notice $nick You dont have any shark left.
    halt
  }
  if ($readini(dm.ini,$chan,Turn) == 1 && $readini(dm.ini,$chan,Player1) == $nick) {
    writeini dm.ini $chan hp1 $calc( $readini(dm.ini,$chan,hp1) + 20 )
    writeini dm.ini $chan Shark1 $calc( $readini(dm.ini,$chan,Shark1) -1 )
    if ($readini(dm.ini,$chan,hp1) >= 100) {
      writeini dm.ini $chan hp1 $calc( $readini(dm.ini,$chan,hp1) - 20 )
      writeini dm.ini $chan Shark1 $calc( $readini(dm.ini,$chan,Shark1) +1 )
      notice $nick You cant have more than 99 HitPoints!
      halt
    }
    else {
      msg $chan $nick eats a shark giving him $readini(dm.ini,$chan,hp1) HitPoints
      notice $nick You now have $readini(dm.ini,$chan,Shark1) shark left
      writeini dm.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Turn) == 2 && $readini(dm.ini,$chan,Player2) == $nick) {
    writeini dm.ini $chan hp2 $calc( $readini(dm.ini,$chan,hp2) + 20 )
    writeini dm.ini $chan Shark2 $calc( $readini(dm.ini,$chan,Shark2) -1 )
    if ($readini(dm.ini,$chan,hp2) >= 100) {
      writeini dm.ini $chan hp2 $calc( $readini(dm.ini,$chan,hp2) - 20 )
      writeini dm.ini $chan Shark2 $calc( $readini(dm.ini,$chan,Shark2) +1 )
      notice $nick You cant have more than 99 HitPoints!
      halt
    }
    else {
      msg $chan $nick eats a shark giving him $readini(dm.ini,$chan,hp2) HitPoints
      notice $nick You now have $readini(dm.ini,$chan,Shark2) shark left
      writeini dm.ini $chan Turn 1
      halt
    }
  }
}
on $*:TEXT:/^[@!](StopDM|StopDuel)/Si:#:{ 
  if ($readini(dm.ini,$chan,Status) == $null) {
    if (Duel isin $1) {
      notice $nick There is no duel for $chan
      halt
    }
    if (dm isin $1) {
      notice $nick There is no DM for $chan
      halt
    }
  }
  if ($nick isop $chan || $nick ishop $chan || $nick == $readini(dm.ini,$chan,Player2) || $nick == $readini(dm.ini,$chan,Player1)) {
    remini dm.ini $chan
    if (Duel isin $1) {
      msg $chan Duel for $chan has been halted.
      halt
    }
    if (dm isin $1) {
      msg $chan Dm for $chan has been halted.
      halt
    }
  }
  else {
    notice $nick Halfop+
  }
}