Mine

on $*:TEXT:/^[!@`.](dm on|set dm)/Si:#:{
  if (%dm.on [ $+ [ $chan ] ] == on) {
    notice $nick 12Dm is alreday 7set 12for7 $chan $+ 12.
  }
  elseif ($address($nick,2) == $address($me,2)) {
    set %dm.on [ $+ [ $chan ] ] on
    notice $nick 12DM Has been 7set 12for7 $chan $+ 12.
  }
}
on $*:TEXT:/^[!@`.](dm off|unset dm)/Si:#:{
  if (%dm.on [ $+ [ $chan ] ] == $null) {
    notice $nick 12Dm is already 7unset 12for7 $chan $+ 12.
  }
  elseif ($address($nick,2) == $address($me,2)) {
    unset %dm.on [ $+ [ $chan ] ] on
    notice $nick 12DM Has been 7unset 12for7 $chan $+ 12.
  }
}
on $*:TEXT:/^[!@`.](dh on|set dh)/Si:#:{
  if (%dh.on [ $+ [ $chan ] ] == on) {
    notice $nick 12Dh is alreday 7set 12for7 $chan $+ 12.
  }
  elseif ($address($nick,2) == $address($me,2)) {
    set %dh.on [ $+ [ $chan ] ] on
    notice $nick 12Dh Has been 7set 12for7 $chan $+ 12.
  }
}
on $*:TEXT:/^[!@`.](dh off|unset dh)/Si:#:{
  if (%dh.on [ $+ [ $chan ] ] == $null) {
    notice $nick 12Dh is already 7unset 12for7 $chan $+ 12.
  }
  elseif ($address($nick,2) == $address($me,2)) {
    unset %dh.on [ $+ [ $chan ] ] on
    notice $nick 12Dh Has been 7unset 12for7 $chan $+ 12.
  }
}
on *:TEXT:!dm*:#:{
  if (%dm.on [ $+ [ $chan ] ] == $null) { halt }
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
  if ($readini(pdm.ini,$chan,Player1) == $nick || $readini(pdm.ini,$chan,Player2) == $nick) {
    notice $nick 12Your already in the game.
    halt
  } 
  if ($readini(dm.ini,$chan,Status) == ON2) {
    notice $nick 12There is already a DM.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    writeini pdm.ini $chan Player2 $nick
    writeini dm.ini $chan Status ON2
    writeini hp.ini $chan Player2 99
    writeini turn.ini $chan Turn 1
    writeini shark.ini $chan Player2 20
    writeini spec.ini $chan Player2 100
    writeini spec.ini $chan Player1 100
    msg $chan 12The Fight is.4 $readini(pdm.ini,$chan,Player1) 12Vs.4 $readini(pdm.ini,$chan,Player2) 
    msg $chan 4!Cmds 12For DM Commands12.4 $readini(pdm.ini,$chan,Player1) 12starts. 
    notice $readini(pdm.ini,$chan,Player2) 12You have4 99 12HitPoints and4 20 12Shark that heal4 20 12Health each.
    halt
  }  
  if ($readini(dm.ini,$chan,Status) == $null) {
    writeini pdm.ini $chan Player1 $nick
    writeini dm.ini $chan Status ON
    writeini hp.ini $chan Player1 99
    writeini shark.ini $chan Player1 20
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12has initiated the 4DM Command12. Type 4!dm12 to fight4 $readini(pdm.ini,$chan,Player1) $+ 12.
    notice $readini(pdm.ini,$chan,Player1) 12You have4 99 12Hit Points and4 20 12Shark that heal4 20 12Health each.
    halt
  }
}
ON *:TEXT:!whip*:#:{
  if (%dm.on [ $+ [ $chan ] ] == $null) { halt }
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no DM on. Type4 !DM 12To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 12You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12swings at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 [ $readini(hit.ini,$chan,Hit) ]12. Leaving him with4 » 0 « 12Hitpoints.
      timer 1 1 msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12swings at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 [ $readini(hit.ini,$chan,Hit) ]12. Leaving him with4 » $readini(hp.ini,$chan,Player2) « 12Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12swings at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 [ $readini(hit.ini,$chan,Hit) ]12. Leaving him with4 » 0 « 12Hitpoints.
      timer 1 1 msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total 
      halt
    }
    else {
      if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12swings at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 [ $readini(hit.ini,$chan,Hit) ]12. Leaving him with4 » $readini(hp.ini,$chan,Player1) « 12Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick 12Its not your turn or your not in this round.
  }
}
ON *:TEXT:!dh*:#:{
  if (%dm.on [ $+ [ $chan ] ] == $nul) { halt }
  if (%dh.on [ $+ [ $chan ] ] == $null) { halt }
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(hp.ini,$chan,Player2) <= 30 ) {
    notice $nick 12You cant use the4 !dh12 attack when your Opponent has less than4 [ 30 ] 12Hit Points.
    halt 
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(hp.ini,$chan,Player1) <= 30 ) {
    notice $nick 12You cant use the4 !dh12 attack when your Opponent has less than4 [ 30 ] 12Hit Points.
    halt 
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no DM on. Type4 !DM 12To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 12You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,75)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12hacks at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 [ $readini(hit.ini,$chan,Hit) ]12. Leaving him with4 » 0 « 12Hitpoints.
      timer 1 1 msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini dds.ini $chan Total     
      remini pdm.ini $chan Player2
      halt
    }
    else {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12hacks at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 [ $readini(hit.ini,$chan,Hit) ]12. Leaving him with4 » $readini(hp.ini,$chan,Player2) « 12Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,75)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12hacks at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 [ $readini(hit.ini,$chan,Hit) ] 12. Leaving him with4 » 0 « 12Hitpoints.
      timer 1 1 msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12hacks at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 [ $readini(hit.ini,$chan,Hit) ]12. Leaving him with4 » $readini(hp.ini,$chan,Player1) « 12Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick 12Its not your turn or your not in this round.
  }
}
ON *:TEXT:!eat*:#:{
  if (%dm.on [ $+ [ $chan ] ] == $null) { halt }
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(shark.ini,$chan,Player2) <= 0 ) {
    Notice $nick 12You dont have any shark left....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(shark.ini,$chan,Player1) <= 0 ) {
    Notice $nick 12You dont have any shark left....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no DM on. Type4 !DM 12To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 12You can't eat yet.....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) + 20 )
    writeini shark.ini $chan Player1 $calc( $readini(shark.ini,$chan,Player1) - 1)
    notice $readini(pdm.ini,$chan,Player1) 12You now have4 $readini(shark.ini,$chan,Player1) 12Shark left.
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12eats a shark giving him4 [ $readini(hp.ini,$chan,Player1) ] 12HitPoints.
    writeini turn.ini $chan Turn 2
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) + 20 )
    writeini shark.ini $chan Player2 $calc( $readini(shark.ini,$chan,Player2) - 1)
    notice $readini(pdm.ini,$chan,Player2) 12You now have4 $readini(shark.ini,$chan,Player2) 12Shark left.
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12eats a shark giving him4 [ $readini(hp.ini,$chan,Player2) ] 12HitPoints.
    writeini turn.ini $chan Turn 1
    halt
  }  
  else {
    notice $nick 12Its not your turn or your not in this round.
  }
}
ON *:TEXT:!dds*:#:{
  if (%dm.on [ $+ [ $chan ] ] == $null) { halt }
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(spec.ini,$chan,Player1) <= 0 ) {
    notice $nick 12You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(spec.ini,$chan,Player2) <= 0 ) {
    notice $nick 12You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no DM on. Type4 !DM 12To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 12You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,25)
    writeini hit.ini $chan Hit2 $rand(0,25)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player1 $calc( $readini(spec.ini,$chan,Player1) - 25 )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12Specials at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 [ $readini(hit.ini,$chan,hit) 12,4 $readini(hit.ini,$chan,hit2) ]12. Leaving him with4 » 0 « 12Hitpoints.
      timer 1 1 msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick 12You have4 $readini(spec.ini,$chan,Player1) $+ 12% of your Special Bar left.  
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12specials at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 [ $readini(hit.ini,$chan,hit) 12,4 $readini(hit.ini,$chan,hit2) ]12. Leaving him with4 » $readini(hp.ini,$chan,Player2) « 12Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,25)
    writeini hit.ini $chan Hit2 $rand(0,25)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player2 $calc( $readini(spec.ini,$chan,Player2) - 25 )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12Specials at $readini(pdm.ini,$chan,Player1) hitting a4 [ $readini(hit.ini,$chan,hit) 12,4 $readini(hit.ini,$chan,hit2) ]12. Leaving him with4 » 0 « 12Hitpoints.
      timer 1 1 msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick 12You have4 $readini(spec.ini,$chan,Player2) $+ 12% of your Special Bar left.  

      msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12specials at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 [ $readini(hit.ini,$chan,hit) 12,4 $readini(hit.ini,$chan,hit2) ]12. Leaving him with4 » $readini(hp.ini,$chan,Player1) « 12Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick 12Its not your turn or your not in this round.
  }
}
ON *:TEXT:!stopDM*:#:{ 
  if (%dm.on [ $+ [ $chan ] ] == $null) { halt }
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no 4DM12 for this channel
    halt
  }
  if ($nick isop $chan || $nick ishop $chan || $nick == Kakadu55) {
    msg $chan 12DM Halted by4 $nick $+ 12.
    remini dm.ini $chan Status
    remini shark.ini $chan Player1
    remini shark.ini $chan Player2
    remini Hit.ini $chan Hit
    remini Hit.ini $chan Hit2
    remini hp.ini $chan Player1
    remini hp.ini $chan Player2
    remini pdm.ini $chan Player1
    remini pdm.ini $chan Player2
    remini dds.ini $chan Total
  }
  else { 
    notice $nick 12You need halfop or higher.
  }
}
ON *:TEXT:!cmds*:#:{
  if (%dm.on [ $+ [ $chan ] ] == $null) { halt }
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
  msg $nick 12 !StopDM (HalfOp +)
  msg $nick 12 !DM
  msg $nick 12 !Whip
  msg $nick 12 !DDS
  msg $nick 12 !DH
  msg $nick 12 !Eat
  msg $nick 12 !tele
}
ON *:TEXT:!tele*:#:{
  if (%dm.on [ $+ [ $chan ] ] == $null) { halt }
  if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no DM on. Type4 `DM 12To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 12You cant Tele yet.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12has just teled.
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12wins!
    remini dm.ini $chan Status
    remini shark.ini $chan Player1
    remini shark.ini $chan Player2
    remini Hit.ini $chan Hit
    remini Hit.ini $chan Hit2
    remini hp.ini $chan Player1
    remini hp.ini $chan Player2
    remini pdm.ini $chan Player1
    remini pdm.ini $chan Player2
    remini dds.ini $chan Total 
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has just teled.
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12wins!
    remini dm.ini $chan Status
    remini shark.ini $chan Player1
    remini shark.ini $chan Player2
    remini Hit.ini $chan Hit
    remini Hit.ini $chan Hit2
    remini hp.ini $chan Player1
    remini hp.ini $chan Player2
    remini pdm.ini $chan Player1
    remini pdm.ini $chan Player2
    remini dds.ini $chan Total   
  }
}