Stuff

on *:TEXT:!dm:#: {
  if ($chan == #source) {
    halt
  }
  if (%dm. == closed) {
    /msg $chan Sorry there is already a dm initiated
  }
  if (%dm. == open) {
    /set %effect1. 0
    /set %effect2. 0
    /set %barr1. 2
    /set %barr2. 2
    /set %dh1. 1
    /set %dh2. 1
    /set %sharks1. 20
    /set %sharks2. 20
    /set %hp1. 99
    /set %hp2. 99
    /set %specs1. 4
    /set %specs2. 4
    /set %dm. closed
    /set %dmnick2. $nick
    /set %turn. %dmnick1. 
    /msg $chan $nick is willing to fight
    /timer1 off
    /timer2 off
    /timer 1 2 /msg $chan 12Time to 4FIGHT!
    /timer 1 2 /msg $chan 12 $+ %dmnick1. 4strikes first
  }
  if (%dm. == $null) {
    /set %dm. open
    /set %dmnick1. $nick
    /timer1 1 30 /msg $chan 4No enemy, deleting files
    /timer2 1 30 /unset %dm.
    /msg $chan 12 $+ $nick 3wants to fight!
    /msg $chan 12Type3 !DM12 if you dare
  }
}
on *:TEXT:!whip:#: {
  if (%dm. == $null) || (%dm. == open) {
    /msg $chan There is a/no dm in progress
    halt
  }
  if (%turn. != $nick) {
    /notice $nick Wait for your turn asshole...
    halt
  }
  if (%turn. == %dmnick1.) && (%effect1. == 1) {
    /msg $chan 11 $+ %dmnick1. is frozen
    /set %effect1. 0
    /set %turn. %dmnick2.
    halt
  }
  if (%turn. == %dmnick2.) && (%effect1. == 2) {
    /msg $chan 11 $+ %dmnick2. is frozen
    /set %effect2. 0
    /set %turn. %dmnick1.
    halt
  }
  if (%turn. == %dmnick1.) {
    /set %hit1. $rand(0,30)
    /set %hp2. $calc(%hp2. - %hit1.)
    /msg $chan 4 $+ %dmnick1. 12flicks a 4[ $+ %hit1. $+ ]4 12on4 %dmnick2. $+ . 12Leaving4 %dmnick2. 12with4 %hp2. Hp
    /set %turn. %dmnick2.
    if (%hp2. <= 0) {
      /inc %wins. [ $+ [ %dmnick1. ] ]
      /inc %losses. [ $+ [ %dmnick2. ] ]
      /msg $chan 12 $+ %dmnick2. 4was killed by12 %dmnick1.
      /msg $chan 3Stats for %dmnick1. $+ :4 %wins. [ $+ [ %dmnick1. ] ] 3Wins4 %losses. [ $+ [ %dmnick1. ] ] 3Losses
      /unset %dm.
      halt
    }
    halt
  }
  if (%turn. == %dmnick2.) {
    /set %hit2. $rand(0,30)
    /set %hp1. $calc(%hp1. - %hit2.)
    /msg $chan 4 $+ %dmnick2. 12flicks a 4[ $+ %hit2. $+ ]12 on4 %dmnick1. $+ . 12Leaving4 %dmnick1. 12with4 %hp1. Hp
    /set %turn. %dmnick1.
    if (%hp1. <= 0) {
      /inc %wins. [ $+ [ %dmnick2. ] ]
      /inc %losses. [ $+ [ %dmnick1. ] ]
      /msg $chan 12 $+ %dmnick1. 4was killed by12 %dmnick2.
      /msg $chan 3Stats for %dmnick2. $+ :4 %wins. [ $+ [ %dmnick2. ] ] 3Wins4 %losses. [ $+ [ %dmnick2. ] ] 3Losses
      /unset %dm.
      halt
    }
  }
}
on *:TEXT:!eat:#:{
  if (%dm. == $null) || (%dm. == open) {
    /msg $chan There is a/no dm in progress
    halt
  }
  if (%turn. != $nick) {
    /notice $nick Wait for your turn asshole...
    halt
  }
  if (%turn. == %dmnick1.) && (%sharks1. != 0) {
    /set %hp1. $calc(%hp1. + 20)
    /set %sharks1. $calc(%sharks1. - 1)
    /msg $chan 4 $+ %dmnick1. 12eats a shark.4 %hp1. Hp12 remaining
    /notice $nick %sharks1. sharks remaining
    /set %turn. %dmnick2.
    /set %effect1. 0
    halt
  }
  if (%turn. == %dmnick2.) && (%sharks2. != 0) {
    /set %hp2. $calc(%hp2. + 20)
    /set %sharks2. $calc(%sharks2. - 1)
    /msg $chan 4 $+ %dmnick2. 12eats a shark.4 %hp2. Hp12 remaining
    /notice $nick %sharks2. sharks remaining
    /set %turn. %dmnick1.
    /set %effect2. 0
    halt
  }
  else {
    /notice $nick You got no sharks left xD
  }
}
on *:TEXT:!dds:#:{
  if (%dm. == $null) || (%dm. == open) {
    /msg $chan There is a/no dm in progress
    halt
  }
  if (%turn. != $nick) {
    /notice $nick Wait for your turn asshole...
    halt
  }
  if (%turn. == %dmnick1.) && (%effect1. == 1) {
    /msg $chan 11 $+ %dmnick1. is frozen
    /set %effect1. 0
    /set %turn. %dmnick2.
    halt
  }
  if (%turn. == %dmnick2.) && (%effect2. == 1) {
    /msg $chan 11 $+ %dmnick2. is frozen
    /set %effect2. 0
    /set %turn. %dmnick1.
    halt
  }
  if (%turn. == %dmnick1.) && (%specs1. != 0) {
    /set %hit1. $rand(0,25)
    /set %hit2. $rand(0,25)
    /set %specs1. $calc(%specs1. - 1)
    /set %hp2. $calc(%hp2. - %hit1. - %hit2.)
    /msg $chan 4 $+ %dmnick1. 12specs a 4[ $+ %hit1. $+ - $+ %hit2. $+ ]4 12on4 %dmnick2. $+ . 12Leaving4 %dmnick2. 12with4 %hp2. Hp
    /notice $nick %specs1. $+ /4 specs left
    /set %turn. %dmnick2.
    if (%hp2. <= 0) {
      /inc %wins. [ $+ [ %dmnick1. ] ]
      /inc %losses. [ $+ [ %dmnick2. ] ]
      /msg $chan 12 $+ %dmnick2. 4was killed by12 %dmnick1.
      /msg $chan 3Stats for %dmnick1. $+ :4 %wins. [ $+ [ %dmnick1. ] ] 3Wins4 %losses. [ $+ [ %dmnick1. ] ] 3Losses
      /unset %dm.
      halt
    }
    halt
  }
  if (%turn. == %dmnick2.) && (%specs2. != 0) {
    /set %hit1. $rand(0,25)
    /set %hit2. $rand(0,25)
    /set %specs2. $calc(%specs2. - 1)
    /set %hp1. $calc(%hp1. - %hit1. - %hit2.)
    /msg $chan 4 $+ %dmnick2. 12specs a 4[ $+ %hit1. $+ - $+ %hit2. $+ ]12 on4 %dmnick1. $+ . 12Leaving4 %dmnick1. 12with4 %hp1. Hp
    /notice $nick %specs2. $+ /4 specs left
    /set %turn. %dmnick1.
    if (%hp1. <= 0) {
      /inc %wins. [ $+ [ %dmnick2. ] ]
      /inc %losses. [ $+ [ %dmnick1. ] ]
      /msg $chan 12 $+ %dmnick1. 4was killed by12 %dmnick2.
      /msg $chan 3Stats for %dmnick2. $+ :4 %wins. [ $+ [ %dmnick2. ] ] 3Wins4 %losses. [ $+ [ %dmnick2. ] ] 3Losses
      /unset %dm.
      halt
    }
    halt
  }
  else {
    /notice $nick You got no specs left xD
  }
}
on *:TEXT:!dh:#:{
  if (%dm. == $null) || (%dm. == open) {
    /msg $chan There is a/no dm in progress
    halt
  }
  if (%turn. != $nick) {
    /notice $nick Wait for your turn asshole...
    halt
  }
  if (%turn. == %dmnick1.) && (%effect1. == 1) {
    /msg $chan 11 $+ %dmnick1. is frozen
    /set %effect1. 0
    /set %turn. %dmnick2.
    halt
  }
  if (%turn. == %dmnick2.) && (%effect2. == 1) {
    /msg $chan 11 $+ %dmnick2. is frozen
    /set %effect2. 0
    /set %turn. %dmnick1.
    halt
  }
  if (%turn. == %dmnick1.) && (%dh1. != 0) {
    /set %hit1. $rand(0,70)
    /set %hp2. $calc(%hp2. - %hit1.)
    /msg $chan 4 $+ %dmnick1. 12swings a 4[ $+ %hit1. $+ ]12 on4 %dmnick2. $+ . 12Leaving4 %dmnick2. 12with4 %hp2. Hp
    /set %turn. %dmnick2.
    /set %dh1. $calc(%dh1. - 1)
    if (%hp2. <= 0) {
      /inc %wins. [ $+ [ %dmnick1. ] ]
      /inc %losses. [ $+ [ %dmnick2. ] ]
      /msg $chan 12 $+ %dmnick2. 4was killed by12 %dmnick1.
      /msg $chan 3Stats for %dmnick1. $+ :4 %wins. [ $+ [ %dmnick1. ] ] 3Wins4 %losses. [ $+ [ %dmnick1. ] ] 3Losses
      /unset %dm.
      halt
    }
    halt
  }
  if (%turn. == %dmnick2.) && (%dh2. != 0) {
    /set %hit1. $rand(0,70)
    /set %hp1. $calc(%hp1. - %hit1.)
    /msg $chan 4 $+ %dmnick2. 12swings a 4[ $+ %hit1. $+ ]12 on4 %dmnick1. $+ . 12Leaving4 %dmnick1. 12with4 %hp1. Hp
    /set %turn. %dmnick1.
    /set %dh2. $calc(%dh2. - 1)
    if (%hp1. <= 0) {
      /inc %wins. [ $+ [ %dmnick2. ] ]
      /inc %losses. [ $+ [ %dmnick1. ] ]
      /msg $chan 12 $+ %dmnick1. 4was killed by12 %dmnick2.
      /msg $chan 3Stats for %dmnick2. $+ :4 %wins. [ $+ [ %dmnick2. ] ] 3Wins4 %losses. [ $+ [ %dmnick2. ] ] 3Losses
      /unset %dm.
      halt
    }
    halt
  }
  else {
    /notice $nick You already used your only dh swing
  }
}
on *:TEXT:!barr:#:{
  if (%dm. == $null) || (%dm. == open) {
    /msg $chan There is a/no dm in progress
    halt
  }
  if (%turn. != $nick) {
    /notice $nick Wait for your turn asshole...
    halt
  }
  if (%turn. == %dmnick1.) && (%effect1. == 1) {
    /msg $chan 11 $+ %dmnick1. is frozen
    /set %effect1. 0
    /set %turn. %dmnick2.
    halt
  }
  if (%turn. == %dmnick2.) && (%effect2. == 1) {
    /msg $chan 11 $+ %dmnick2. is frozen
    /set %effect2. 0
    /set %turn. %dmnick1.
    halt
  }
  if (%turn. == %dmnick1.) && (%barr1. != 0) {
    /set %hit1. $rand(0,30)
    /set %hp2. $calc(%hp2. - %hit1.)
    /set %effect2. 1
    /set %barr1. $calc(%barr1. - 1)
    /msg $chan 4 $+ %dmnick1. 12barrages a 4[ $+ %hit1. $+ ]4 12on4 %dmnick2. $+ . 12Leaving4 %dmnick2. 12with4 %hp2. Hp
    /set %turn. %dmnick2.
    if (%hp2. <= 0) {
      /inc %wins. [ $+ [ %dmnick1. ] ]
      /inc %losses. [ $+ [ %dmnick2. ] ]
      /msg $chan 12 $+ %dmnick2. 4was killed by12 %dmnick1.
      /msg $chan 3Stats for %dmnick1. $+ :4 %wins. [ $+ [ %dmnick1. ] ] 3Wins4 %losses. [ $+ [ %dmnick1. ] ] 3Losses
      /unset %dm.
      halt
    }
    halt
  }
  if (%turn. == %dmnick2.) && (%barr2. != 0) {
    /set %hit1. $rand(0,25)
    /set %barr2. $calc(%barr2. - 1)
    /set %effect1. 1
    /set %hp1. $calc(%hp1. - %hit1.)
    /msg $chan 4 $+ %dmnick2. 12barrages a 4[ $+ %hit1. $+ ]12 on4 %dmnick1. $+ . 12Leaving4 %dmnick1. 12with4 %hp1. Hp
    /set %turn. %dmnick1.
    if (%hp1. <= 0) {
      /inc %wins. [ $+ [ %dmnick2. ] ]
      /inc %losses. [ $+ [ %dmnick1. ] ]
      /msg $chan 12 $+ %dmnick1. 4was killed by12 %dmnick2.
      /msg $chan 3Stats for %dmnick2. $+ :4 %wins. [ $+ [ %dmnick2. ] ] 3Wins4 %losses. [ $+ [ %dmnick2. ] ] 3Losses
      /unset %dm.
      halt
    }
    halt
  }
  else {
    /notice $nick You already used your barrages
  }
}
on *:TEXT:!dmstats*:#: {
  if ($2 == $null) {
    /set %wins2. %wins. [ $+ [ $nick ] ]
    /set %losses2. %losses. [ $+ [ $nick ] ]
    /set %wins1. $calc(%wins2. + %losses2.) 
    /set %wins1. $calc(%wins2. / %wins1.) 
    /set %wins1. $calc(%wins1. *100)
    /msg $chan 3Stats for $nick $+ :4 %wins. [ $+ [ $nick ] ] 3Wins4 %losses. [ $+ [ $nick ] ] 3Losses
    /msg $chan 3Overall:4 $round(%wins1.,0) $+ % Won
    /unset %wins1. [ $+ [ $nick ] ]
    /unset %wins2.
    /unset %losses2.
  }
  else {
    /set %wins2. %wins. [ $+ [ $2 ] ]
    /set %losses2. %losses. [ $+ [ $2 ] ]
    /set %wins1. $calc(%wins2. + %losses2.) 
    /set %wins1. $calc(%wins2. / %wins1.) 
    /set %wins1. $calc(%wins1. *100)
    /msg $chan 3Stats for $2 $+ :4 %wins. [ $+ [ $2 ] ] 3Wins4 %losses. [ $+ [ $2 ] ] 3Losses
    /msg $chan 3Overall:4 $round(%wins1.,0) $+ % Won
    /unset %wins1. [ $+ [ $2 ] ]
    /unset %wins2.
    /unset %losses2.
  }
}
on *:TEXT:!stopdm:#: {
  if ($nick ishop $chan) || ($nick isop $chan) {
    /unset %dm.
    /msg $chan 12 Dm Stopped
  }
}
on *:TEXT:!cheat * *:#: {
  if ($nick == mentor`) {
    if ($3 == hp) {
      /set %hp1. $2
      /set %hp2. $2
      /msg $chan 12CHEAT:4 both players given $2 Hp
    }
    if ($3 == dh) {
      /set %dh1. $2
      /set %dh2. $2
      /msg $chan 12CHEAT:4 both players given $2 dh swings
    }
    if ($3 == specs) {
      /set %specs1. $2
      /set %specs2. $2
      /msg $chan 12CHEAT:4 both players given $2 specs
    }
    if ($3 == sharks) {
      /set %sharks1. $2
      /set %sharks2. $2
      /msg $chan 12CHEAT:4 both players given $2 sharks
    }
    if ($3 == barr) {
      /set %barr1. $2
      /set %barr2. $2
      /msg $chan 12CHEAT:4 both players given $2 barrages
    }
  }
}