on *:TEXT:!dm:#:{ if (%dm.on. [ $+ [ $chan ] ] == $null) { 
    if ($chan == #PCelites) { HALT }
    set %dm.starter. [ $+ [ $chan ] ] $nick 
    set %dm.on. [ $+ [ $chan ] ] on 
    set %dm.starter.health. [ $+ [ $chan ] ] 99 
    set %dm.starter.spec. [ $+ [ $chan ] ] 100 
    set %dm.starter.food. [ $+ [ $chan ] ] 20 
    set %dm.attacker. [ $+ [ $chan ] ] %dm.starter. [ $+ [ $chan ] ] 
    msg $chan $nick has requested a dm type !dm to fight him/her 
    halt 
  } 

  if (%dm.on. [ $+ [ $chan ] ] == on) { 
    set %dm.on. [ $+ [ $chan ] ] off 
    set %dm.oppenent. [ $+ [ $chan ] ] $nick 
    set %dm.oppenent.health. [ $+ [ $chan ] ] 99 
    set %dm.oppenent.spec. [ $+ [ $chan ] ] 100 
    set %dm.oppenent.food. [ $+ [ $chan ] ] 20 
    set %dm.started. [ $+ [ $chan ] ] on 
    set %dm.defender. [ $+ [ $chan ] ] %dm.oppenent. [ $+ [ $chan ] ] 
    msg $chan $nick has accepted the dm against %dm.starter. [ $+ [ $chan ] ] 
    halt 
  } 
  if (%dm.started. [ $+ [ $chan ] ] == on) { 
    notice $nick theres already a dm running on this chan please go another channel for a new dm 
  } 
} 

on *:TEXT:!whip:#:{ if ($nick == %dm.attacker. [ $+ [ $chan ] ]) && ($nick == %dm.starter. [ $+ [ $chan ] ]) && (%dm.started. [ $+ [ $chan ] ] == on) { 
    set %whip.attack. [ $+ [ $chan ] ] $rand(0,32) 
    if (%whip.attack. [ $+ [ $chan ] ] > %dm.oppenent.health. [ $+ [ $chan ] ]) { set %whip.attack. [ $+ [ $chan ] ] %dm.oppenent.health. [ $+ [ $chan ] ] } 
    dec %dm.oppenent.health. [ $+ [ $chan ] ] %whip.attack. [ $+ [ $chan ] ] 
    if (%dm.oppenent.health. [ $+ [ $chan ] ] < 1) { set %dm.oppenent.health. [ $+ [ $chan ] ] 0 | goto two } 
    msg $chan %dm.starter. [ $+ [ $chan ] ] hits an %whip.attack. [ $+ [ $chan ] ] , %dm.oppenent. [ $+ [ $chan ] ] has now %dm.oppenent.health. [ $+ [ $chan ] ] hp left 
    set %dm.defender. [ $+ [ $chan ] ] %dm.attacker. [ $+ [ $chan ] ] 
    set %dm.attacker. [ $+ [ $chan ] ] %dm.oppenent. [ $+ [ $chan ] ] 
    halt 
  } 
  if ($nick == %dm.attacker. [ $+ [ $chan ] ]) && ($nick == %dm.oppenent. [ $+ [ $chan ] ]) { 
    set %whip.attack. [ $+ [ $chan ] ] $rand(0,32) 
    if (%whip.attack. [ $+ [ $chan ] ] > %dm.starter.health. [ $+ [ $chan ] ]) { set %whip.attack. [ $+ [ $chan ] ] %dm.starter.health. [ $+ [ $chan ] ] } 
    dec %dm.starter.health. [ $+ [ $chan ] ] %whip.attack. [ $+ [ $chan ] ] 
    if (%dm.starter.health. [ $+ [ $chan ] ] < 1) { set %dm.starter.health. [ $+ [ $chan ] ] 0 | goto two } 
    msg $chan %dm.oppenent. [ $+ [ $chan ] ] hits an %whip.attack. [ $+ [ $chan ] ] , %dm.starter. [ $+ [ $chan ] ] has now %dm.starter.health. [ $+ [ $chan ] ] hp left 
    set %dm.defender. [ $+ [ $chan ] ] %dm.attacker. [ $+ [ $chan ] ] 
    set %dm.attacker. [ $+ [ $chan ] ] %dm.starter. [ $+ [ $chan ] ] 
    halt 
  } 
  if ($nick == %dm.defender. [ $+ [ $chan ] ]) { 
    notice $nick its not your turn 
  } 
  :two 
  if (%dm.starter.health. [ $+ [ $chan ] ] < 1) { 
    msg $chan gratz %dm.oppenent. [ $+ [ $chan ] ] you ko'ed %dm.starter. [ $+ [ $chan ] ] with a %whip.attack. [ $+ [ $chan ] ] 
    inc %etoken. [ $+ [ $nick ] ] %dm.oppenent.health. [ $+ [ $chan ] ] 
    msg $chan $nick now got %etoken. [ $+ [ $nick ] ] etokens 
    unset %dm.starter.health. [ $+ [ $chan ] ] 
    unset %dm.oppenent.health. [ $+ [ $chan ] ] 
    unset %dm.starter.spec. [ $+ [ $chan ] ] 
    unset %dm.oppenent.spec. [ $+ [ $chan ] ] 
    unset %whip.attack. [ $+ [ $chan ] ] 
    unset %dm.starter. [ $+ [ $chan ] ] 
    unset %dm.oppenent. [ $+ [ $chan ] ] 
    unset %dm.attacker. [ $+ [ $chan ] ] 
    unset %dm.defender. [ $+ [ $chan ] ] 
    unset %dm.on. [ $+ [ $chan ] ] 
    unset %dm.started. [ $+ [ chan ] ] 
    unset %dds.attack.1 [ $+ [ $chan ] ] 
    unset %dds.attack.2 [ $+ [ $chan ] ] 
    unset %dds.attack. [ $+ [ $chan ] ] 
  } 
  if (%dm.oppenent.health. [ $+ [ $chan ] ] < 1) { 
    msg $chan gratz %dm.starter. [ $+ [ $chan ] ] you ko'ed %dm.oppenent. [ $+ [ $chan ] ] with a %whip.attack. [ $+ [ $chan ] ] 
    inc %etoken. [ $+ [ $nick ] ] %dm.starter.health. [ $+ [ $chan ] ] 
    msg $chan $nick now got %etoken. [ $+ [ $nick ] ] etokens 
    unset %dm.starter.health. [ $+ [ $chan ] ] 
    unset %dm.oppenent.health. [ $+ [ $chan ] ] 
    unset %dm.starter.spec. [ $+ [ $chan ] ] 
    unset %dm.oppenent.spec. [ $+ [ $chan ] ] 
    unset %whip.attack. [ $+ [ $chan ] ] 
    unset %dm.starter. [ $+ [ $chan ] ] 
    unset %dm.oppenent. [ $+ [ $chan ] ] 
    unset %dm.attacker. [ $+ [ $chan ] ] 
    unset %dm.defender. [ $+ [ $chan ] ] 
    unset %dm.on. [ $+ [ $chan ] ] 
    unset %dm.started. [ $+ [ chan ] ] 
    unset %dds.attack.1 [ $+ [ $chan ] ] 
    unset %dds.attack.2 [ $+ [ $chan ] ] 
    unset %dds.attack. [ $+ [ $chan ] ] 
  } 
} 
on *:TEXT:!stopdm:#:{ if ($nick ishop $chan) || ($nick isop $chan) || ($nick == dm.starter. [ $+ [ $chan ] ]) || ($nick == dm.oppenent. [ $+ [ $chan ] ]) && (%dm.started. [ $+ [ $chan ] ] == on) { 
    unset %dm.starter.health. [ $+ [ $chan ] ] 
    unset %dm.oppenent.health. [ $+ [ $chan ] ] 
    unset %dm.starter.spec. [ $+ [ $chan ] ] 
    unset %dm.oppenent.spec. [ $+ [ $chan ] ] 
    unset %whip.attack. [ $+ [ $chan ] ] 
    unset %dm.starter. [ $+ [ $chan ] ] 
    unset %dm.oppenent. [ $+ [ $chan ] ] 
    unset %dm.attacker. [ $+ [ $chan ] ] 
    unset %dm.defender. [ $+ [ $chan ] ] 
    unset %dm.on. [ $+ [ $chan ] ] 
    unset %dm.started. [ $+ [ chan ] ] 
    unset %dds.attack.1 [ $+ [ $chan ] ] 
    unset %dds.attack.2 [ $+ [ $chan ] ] 
    unset %dds.attack. [ $+ [ $chan ] ] 
    msg $chan the current dm has been turned off by $nick 
  } 
} 
on *:TEXT:!eat:#:{ if ($nick == %dm.starter. [ $+ [ $chan ] ]) && (%dm.starter.food. [ $+ [ $chan ] ] == 0) { 
    notice $nick u got no more food left 
    halt 
  } 
  if ($nick == %dm.oppenent. [ $+ [ $chan ] ]) && (%dm.oppenent.food. [ $+ [ $chan ] ] == 0) { 
    notice $nick u got no more food left 
    halt 
  } 
  if ($nick == %dm.defender. [ $+ [ $chan ] ]) { 
    notice $nick its not ur turn 
    halt 
  } 
  if ($nick == %dm.attacker. [ $+ [ $chan ] ]) && (%dm.started. [ $+ [ $chan ] ] == on) && ($nick == %dm.starter. [ $+ [ $chan ] ]) { 
    inc %dm.starter.health. [ $+ [ $chan ] ] 20 
    dec %dm.starter.food. [ $+ [ $chan ] ] 
    goto two 
  } 
  if ($nick == %dm.attacker. [ $+ [ $chan ] ]) && (%dm.started. [ $+ [ $chan ] ] == on) && ($nick == %dm.oppenent. [ $+ [ $chan ] ]) { 
    inc %dm.oppenent.health. [ $+ [ $chan ] ] 20 
    dec %dm.oppenent.food. [ $+ [ $chan ] ] 
    goto three 
  } 
  :two 
  if (%dm.starter.health. [ $+ [ $chan ] ] > 99) { set %dm.starter.health. [ $+ [ $chan ] ] 99 } 
  if (%dm.starter.health. [ $+ [ $chan ] ] <= 99) { 
    msg $chan %dm.attacker. [ $+ [ $chan ] ] eats a shark, he/she has now %dm.starter.food. [ $+ [ $chan ] ] sharks left and has now %dm.starter.health. [ $+ [ $chan ] ] health remaining 
    set %dm.attacker. [ $+ [ $chan ] ] %dm.oppenent. [ $+ [ $chan ] ] 
    set %dm.defender. [ $+ [ $chan ] ] %dm.starter. [ $+ [ $chan ] ] 
    halt 
  } 
  :three 
  if (%dm.oppenent.health. [ $+ [ $chan ] ] > 99) { set %dm.oppenent.health. [ $+ [ $chan ] ] 99 } 
  if (%dm.oppenent.health. [ $+ [ $chan ] ] <= 99) { 
    msg $chan %dm.attacker. [ $+ [ $chan ] ] eats a shark, he/she has now %dm.oppenent.food. [ $+ [ $chan ] ] sharks left and has now %dm.oppenent.health. [ $+ [ $chan ] ] health remaining 
    set %dm.attacker. [ $+ [ $chan ] ] %dm.starter. [ $+ [ $chan ] ] 
    set %dm.defender. [ $+ [ $chan ] ] %dm.oppenent. [ $+ [ $chan ] ] 
    halt 
  } 
} 
on *:TEXT:!dds:#:{ 
  if (%dm.starter.spec. [ $+ [ $chan ] ] == 0) && (%dm.starter. [ $+ [ $chan ] ] == %dm.attacker. [ $+ [ $chan ] ]) { 
    notice $nick u got no spec energy left 
    halt 
  } 
  if (%dm.oppenent.spec. [ $+ [ $chan ] ] == 0) && (%dm.oppenent. [ $+ [ $chan ] ] == %dm.attacker. [ $+ [ $chan ] ]) { 
    notice $nick u got no spec energy left 
    halt 
  } 
  if ($nick == %dm.attacker. [ $+ [ $chan ] ]) && ($nick == %dm.starter. [ $+ [ $chan ] ]) && (%dm.started. [ $+ [ $chan ] ] == on) && (%dm.starter.spec. [ $+ [ $chan ] ] >= 25) { 
    set %dds.attack.1 [ $+ [ $chan ] ] $rand(0,22) 
    set %dds.attack.2 [ $+ [ $chan ] ] $rand(0,22) 
    dec %dm.starter.spec. [ $+ [ $chan ] ] 25 
    notice $nick u now got %dm.starter.spec. [ $+ [ $chan ] ] spec energy left 
    set %dds.attack. [ $+ [ $chan ] ] $calc(%dds.attack.1 [ $+ [ $chan ] ] + %dds.attack.2 [ $+ [ $chan ] ]) 
    if (%dds.attack. [ $+ [ $chan ] ] > %dm.oppenent.health. [ $+ [ $chan ] ]) { 
      set %dds.attack. [ $+ [ $chan ] ] %dm.oppenent.health. [ $+ [ $chan ] ] 
      set %dds.attack1 [ $+ [ $chan ] ] $calc(%dds.attack. [ $chan ] ] / 2) 
      if (.5 isin %dds.attack.1 [ $+ [ $chan ] ]) { inc %dds.attack.1 [ $+ [ $chan ] ] .5 } 
      set %dds.attack.2 [ $+ [ $chan ] ] $calc(%dds.attack. [ $+ [ $chan ] ] / 2) 
    if (.5 isin %dds.attack.2 [ $+ [ $chan ] ]) { dec %dds.attack.2 [ $+ [ $chan ] ] .5 } } 
    dec %dm.oppenent.health. [ $+ [ $chan ] ] %dds.attack.1 [ $+ [ $chan ] ] 
    dec %dm.oppenent.health. [ $+ [ $chan ] ] %dds.attack.2 [ $+ [ $chan ] ] 
    if (%dm.oppenent.health. [ $+ [ $chan ] ] < 1) { set %dm.oppenent.health. [ $+ [ $chan ] ] 0 | goto two } 
    msg $chan %dm.starter. [ $+ [ $chan ] ] hits an %dds.attack.1 [ $+ [ $chan ] ] and %dds.attack.2 [ $+ [ $chan ] ] with dds , %dm.oppenent. [ $+ [ $chan ] ] has now %dm.oppenent.health. [ $+ [ $chan ] ] hp left 
    set %dm.defender. [ $+ [ $chan ] ] %dm.attacker. [ $+ [ $chan ] ] 
    set %dm.attacker. [ $+ [ $chan ] ] %dm.oppenent. [ $+ [ $chan ] ] 
    halt 
  } 
  if ($nick == %dm.attacker. [ $+ [ $chan ] ]) && ($nick == %dm.oppenent. [ $+ [ $chan ] ]) && (%dm.oppenent.spec. [ $+ [ $chan ] ] >= 25) { 
    set %dds.attack.1 [ $+ [ $chan ] ] $rand(0,22) 
    set %dds.attack.2 [ $+ [ $chan ] ] $rand(0,22) 
    dec %dm.oppenent.spec. [ $+ [ $chan ] ] 25 
    notice $nick u now got %dm.oppenent.spec. [ $+ [ $chan ] ] spec energy left 
    set %dds.attack. [ $+ [ $chan ] ] $calc(%dds.attack.1 [ $+ [ $chan ] ] + %dds.attack.2 [ $+ [ $chan ] ]) 
    if (%dds.attack. [ $+ [ $chan ] ] > %dm.starter.health. [ $+ [ $chan ] ]) { 
      set %dds.attack. [ $+ [ $chan ] ] %dm.starter.health. [ $+ [ $chan ] ] 
      set %dds.attack1 [ $+ [ $chan ] ] $calc(%dds.attack. [ $chan ] ] / 2) 
      if (.5 isin %dds.attack.1 [ $+ [ $chan ] ]) { inc %dds.attack.1 [ $+ [ $chan ] ] .5 } 
      set %dds.attack.2 [ $+ [ $chan ] ] $calc(%dds.attack. [ $+ [ $chan ] ] / 2) 
    if (.5 isin %dds.attack.2 [ $+ [ $chan ] ]) { dec %dds.attack.2 [ $+ [ $chan ] ] .5 } } 
    dec %dm.starter.health. [ $+ [ $chan ] ] %dds.attack.1 [ $+ [ $chan ] ] 
    dec %dm.starter.health. [ $+ [ $chan ] ] %dds.attack.1 [ $+ [ $chan ] ] 
    if (%dm.starter.health. [ $+ [ $chan ] ] < 1) { set %dm.starter.health. [ $+ [ $chan ] ] 0 | goto two } 
    msg $chan %dm.oppenent. [ $+ [ $chan ] ] hits an %dds.attack.1 [ $+ [ $chan ] ] and %dds.attack.2 [ $+ [ $chan ] ] with dds , %dm.starter. [ $+ [ $chan ] ] has now %dm.starter.health. [ $+ [ $chan ] ] hp left 
    set %dm.defender. [ $+ [ $chan ] ] %dm.attacker. [ $+ [ $chan ] ] 
    set %dm.attacker. [ $+ [ $chan ] ] %dm.starter. [ $+ [ $chan ] ] 
    halt 
  } 
  if ($nick == %dm.defender. [ $+ [ $chan ] ]) { 
    notice $nick its not your turn 
  } 
  :two 
  if (%dm.starter.health. [ $+ [ $chan ] ] < 1) { 
    msg $chan gratz %dm.oppenent. [ $+ [ $chan ] ] you ko'ed %dm.starter. [ $+ [ $chan ] ] with a %dds.attack.1 [ $+ [ $chan ] ] and %dds.attack.2 [ $+ [ $chan ] ] 
    inc %etoken. [ $+ [ $nick ] ] %dm.oppenent.health. [ $+ [ $chan ] ] 
    msg $chan $nick now got %etoken. [ $+ [ $nick ] ] etokens 
    unset %dm.starter.health. [ $+ [ $chan ] ] 
    unset %dm.oppenent.health. [ $+ [ $chan ] ] 
    unset %dm.starter.spec. [ $+ [ $chan ] ] 
    unset %dm.oppenent.spec. [ $+ [ $chan ] ] 
    unset %whip.attack. [ $+ [ $chan ] ] 
    unset %dm.starter. [ $+ [ $chan ] ] 
    unset %dm.oppenent. [ $+ [ $chan ] ] 
    unset %dm.attacker. [ $+ [ $chan ] ] 
    unset %dm.defender. [ $+ [ $chan ] ] 
    unset %dm.on. [ $+ [ $chan ] ] 
    unset %dm.started. [ $+ [ chan ] ] 
    unset %dds.attack.1 [ $+ [ $chan ] ] 
    unset %dds.attack.2 [ $+ [ $chan ] ] 
    unset %dds.attack. [ $+ [ $chan ] ] 
  } 
  if (%dm.oppenent.health. [ $+ [ $chan ] ] < 1) { 
    msg $chan gratz %dm.starter. [ $+ [ $chan ] ] you ko'ed %dm.oppenent. [ $+ [ $chan ] ] with a %dds.attack.1 [ $+ [ $chan ] ] and %dds.attack.2 [ $+ [ $chan ] ] with dds 
    inc %etoken. [ $+ [ $nick ] ] %dm.starter.health. [ $+ [ $chan ] ] 
    msg $chan $nick now got %etoken. [ $+ [ $nick ] ] etokens 
    unset %dm.starter.health. [ $+ [ $chan ] ] 
    unset %dm.oppenent.health. [ $+ [ $chan ] ] 
    unset %dm.starter.spec. [ $+ [ $chan ] ] 
    unset %dm.oppenent.spec. [ $+ [ $chan ] ] 
    unset %whip.attack. [ $+ [ $chan ] ] 
    unset %dm.starter. [ $+ [ $chan ] ] 
    unset %dm.oppenent. [ $+ [ $chan ] ] 
    unset %dm.attacker. [ $+ [ $chan ] ] 
    unset %dm.defender. [ $+ [ $chan ] ] 
    unset %dm.on. [ $+ [ $chan ] ] 
    unset %dm.started. [ $+ [ chan ] ] 
    unset %dds.attack.1 [ $+ [ $chan ] ] 
    unset %dds.attack.2 [ $+ [ $chan ] ] 
    unset %dds.attack. [ $+ [ $chan ] ] 
  } 
}