Untitled

on $*:TEXT:/^[!@](dm|duel)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if (%duel [ $+ [ $chan ] ] == on) {
    notice $nick 12[14Duel12]14 There is already a duel going on in this channel.
    halt
  }
  elseif (%duel.p1 [ $+ [ $chan ] ] == $null) {
    set %duel.p1 [ $+ [ $chan ] ] $nick
    set %duel.start [ $+ [ $chan ] ] $rand(1,3)
    if (%duel.start [ $+ [ $chan ] ] == 1) { msg $chan 12[14Duel12] 14Someone dares to duel12 %duel.p1 [ $+ [ $chan ] ] 14?? Type12!duel 14or12 !dm
    }
    if (%duel.start [ $+ [ $chan ] ] == 2) { msg $chan 12[14Duel12]12 %duel.p1 [ $+ [ $chan ] ] 14is looking for someone to Duel with, type12!duel 14or12 !dm
    }
    if (%duel.start [ $+ [ $chan ] ] == 3) { msg $chan 12[14Duel12] 14Type 12!duel14 or12 !dm to duel 12 %duel.p1 [ $+ [ $chan ] ] 14.
    }
  }
  elseif (%duel.p2 [ $+ [ $chan ] ] == $null) {
    if ($nick == %duel.p1 [ $+ [ $chan ] ]) { Need someone else to dm }
    set %duel.p2 [ $+ [ $chan ] ] $nick
    set %duel [ $+ [ $chan ] ] on
    set %duel.hp1 [ $+ [ $chan ] ] 99
    set %duel.hp2 [ $+ [ $chan ] ] 99
    set %duel.spc1 [ $+ [ $chan ] ] 0
    set %duel.spc1 [ $+ [ $chan ] ] 0
    set %duel.turn [ $+ [ $chan ] ] 1
    msg $chan 12[14Duel12]Duel between %duel.p1 [ $+ [ $chan ] ] and %duel.p2 [ $+ [ $chan ] ]
    msg $chan 12[14Duel12] %duel.p1 [ $+ [ $chan ] ] starts!
  }
}
on $*:TEXT:/^[!@](ice barrage|barrage)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if (%duel.turn [ $+ [ $chan ] ] == 1) && ($nick == %duel.p1 [ $+ [ $chan ] ]) {
    set %duel.hit [ $+ [ $chan ] ] $rand(5,30)
    dec %duel.hp2 [ $+ [ $chan ] ] %duel.hit [ $+ [ $chan ] ]
    set %duel.turn [ $+ [ $chan ] ] 2
    msg $chan 12[14Duel12] %duel.p2 [ $+ [ $chan ] ] 14has been frozen And got hit by12 %duel.hit [ $+ [ $chan ] ] $+ ,12 %duel.p2 [ $+ [ $chan ] ] 14has12 %duel.hp2 [ $+ [ $chan ] ] 14hp left
    if (%duel.hp2 [ $+ [ $chan ] ] < 0) { /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
      /stopdm $chan lost %duel.p2 [ $+ [ $chan ] ]
    }
  }
  if (%duel.turn [ $+ [ $chan ] ] == 2) && ($nick == %duel.p2 [ $+ [ $chan ] ]) {
    set %duel.hit [ $+ [ $chan ] ] $rand(5,30)
    dec %duel.hp1 [ $+ [ $chan ] ] %duel.hit [ $+ [ $chan ] ]
    set %duel.turn [ $+ [ $chan ] ] 1
    msg $chan 12[14Duel12]12 %duel.p1 [ $+ [ $chan ] ] 14has been frozen And got hit by12 %duel.hit [ $+ [ $chan ] ] $+ ,12 %duel.p1 [ $+ [ $chan ] ] 14has12 %duel.hp1 [ $+ [ $chan ] ] 14hp left
    if (%duel.hp1 [ $+ [ $chan ] ] < 0) { /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
      /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
    }
  }
}

on $*:TEXT:/^[!@](ice blitz|blitz)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if (%duel.turn [ $+ [ $chan ] ] == 1) && ($nick == %duel.p1 [ $+ [ $chan ] ]) {
    set %duel.hit [ $+ [ $chan ] ] $rand(0,26)
    dec %duel.hp2 [ $+ [ $chan ] ] %duel.hit [ $+ [ $chan ] ]
    set %duel.turn [ $+ [ $chan ] ] 2
    msg $chan 12[14Duel12] %duel.p2 [ $+ [ $chan ] ] 14has been frozen And got hit by12 %duel.hit [ $+ [ $chan ] ] $+ ,12 %duel.p2 [ $+ [ $chan ] ] 14has12 %duel.hp2 [ $+ [ $chan ] ] 14hp left
    if (%duel.hp2 [ $+ [ $chan ] ] < 0) { /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
      /stopdm $chan lost %duel.p2 [ $+ [ $chan ] ]
    }
  }
  if (%duel.turn [ $+ [ $chan ] ] == 2) && ($nick == %duel.p2 [ $+ [ $chan ] ]) {
    set %duel.hit [ $+ [ $chan ] ] $rand(0,26)
    dec %duel.hp1 [ $+ [ $chan ] ] %duel.hit [ $+ [ $chan ] ]
    set %duel.turn [ $+ [ $chan ] ] 1
    msg $chan 12[14Duel12]12 %duel.p1 [ $+ [ $chan ] ] 14has been frozen And got hit by12 %duel.hit [ $+ [ $chan ] ] $+ ,12 %duel.p1 [ $+ [ $chan ] ] 14has12 %duel.hp1 [ $+ [ $chan ] ] 14hp left
    if (%duel.hp1 [ $+ [ $chan ] ] < 0) { /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
      /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
    }
  }
}
on $*:TEXT:/^[!@](dds)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if (%duel.spec1 [ $+ [ $chan ] ] > 4) { notice $nick Your special energy is to low. | halt }
  if (%duel.turn [ $+ [ $chan ] ] == 1) && ($nick == %duel.p1 [ $+ [ $chan ] ]) {
    set %duel.hit [ $+ [ $chan ] ] $rand(0,37)
    set %duel.hit2 [ $+ [ $chan ] ] $rand(0,37)
    dec %duel.hp2 [ $+ [ $chan ] ] %duel.hit [ $+ [ $chan ] ]
    dec %duel.hp2 [ $+ [ $chan ] ] %duel.hit2 [ $+ [ $chan ] ]
    set %duel.turn [ $+ [ $chan ] ] 2
    inc %duel.spec [ $+ [ $chan ] ] 1
    msg $chan 12[14Duel12] %duel.p2 [ $+ [ $chan ] ] 14got hit by12 %duel.hit [ $+ [ $chan ] ] 14and12 %duel.hit2 [ $+ [ $chan ] ] $+ ,12 %duel.p2 [ $+ [ $chan ] ] 14has12 %duel.hp2 [ $+ [ $chan ] ] 14hp left
    if (%duel.hp2 [ $+ [ $chan ] ] < 0) { /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
      /stopdm $chan lost %duel.p2 [ $+ [ $chan ] ]
    }
  }
  if (%duel.turn [ $+ [ $chan ] ] == 2) && ($nick == %duel.p2 [ $+ [ $chan ] ]) {
    if (%duel.spec2 [ $+ [ $chan ] ] > 4) { notice $nick Your special energy is to low. | halt }
    set %duel.hit [ $+ [ $chan ] ] $rand(0,37)
    set %duel.hit2 [ $+ [ $chan ] ] $rand(0,37)
    dec %duel.hp1 [ $+ [ $chan ] ] %duel.hit [ $+ [ $chan ] ]
    dec %duel.hp1 [ $+ [ $chan ] ] %duel.hit2 [ $+ [ $chan ] ]
    set %duel.turn [ $+ [ $chan ] ] 1
    inc %duel.spec [ $+ [ $chan ] ] 1
    msg $chan 12[14Duel12]12 %duel.p1 [ $+ [ $chan ] ] 14hgot hit by12 %duel.hit [ $+ [ $chan ] ] 14and12 %duel.hit2 [ $+ [ $chan ] ] $+ ,12 %duel.p1 [ $+ [ $chan ] ] 14has12 %duel.hp1 [ $+ [ $chan ] ] 14hp left
    if (%duel.hp1 [ $+ [ $chan ] ] < 0) { /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
      /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
    }
  }
}
on $*:TEXT:/^[!@](dh)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if (%duel.turn [ $+ [ $chan ] ] == 1) && ($nick == %duel.p1 [ $+ [ $chan ] ]) {
    set %duel.hit [ $+ [ $chan ] ] $rand(0,60)
    dec %duel.hp2 [ $+ [ $chan ] ] %duel.hit [ $+ [ $chan ] ]
    set %duel.turn [ $+ [ $chan ] ] 2
    msg $chan 12[14Duel12]12 %duel.p2 [ $+ [ $chan ] ] 14got hit by12 %duel.hit [ $+ [ $chan ] ] $+ ,12 %duel.p2 [ $+ [ $chan ] ] 14has12 %duel.hp2 [ $+ [ $chan ] ] 14hp left
    if (%duel.hp2 [ $+ [ $chan ] ] < 0) { /stopdm $chan lost %duel.p2 [ $+ [ $chan ] ]
      /stopdm $chan lost %duel.p2 [ $+ [ $chan ] ]
    }
  }
  if (%duel.turn [ $+ [ $chan ] ] == 2) && ($nick == %duel.p2 [ $+ [ $chan ] ]) {
    set %duel.hit [ $+ [ $chan ] ] $rand(0,87)
    dec %duel.hp1 [ $+ [ $chan ] ] %duel.hit [ $+ [ $chan ] ]
    set %duel.turn [ $+ [ $chan ] ] 1
    msg $chan 12[14Duel12]12 %duel.p1 [ $+ [ $chan ] ] 14got hit by12 %duel.hit [ $+ [ $chan ] ] $+ ,12 %duel.p1 [ $+ [ $chan ] ] 14has12 %duel.hp1 [ $+ [ $chan ] ] 14hp left
    if (%duel.hp1 [ $+ [ $chan ] ] < 0) { /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]  
      /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
    }
  }
}
on $*:TEXT:/^[!@](whip)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if (%duel.turn [ $+ [ $chan ] ] == 1) && ($nick == %duel.p1 [ $+ [ $chan ] ]) {
    set %duel.hit [ $+ [ $chan ] ] $rand(0,43)
    dec %duel.hp2 [ $+ [ $chan ] ] %duel.hit [ $+ [ $chan ] ]
    set %duel.turn [ $+ [ $chan ] ] 2   
    msg $chan 12[14Duel12]12 %duel.p2 [ $+ [ $chan ] ] 14got hit by12 %duel.hit [ $+ [ $chan ] ] $+ ,12 %duel.p2 [ $+ [ $chan ] ] 14has12 %duel.hp2 [ $+ [ $chan ] ] 14hp left
  }
  if (%duel.hp2 [ $+ [ $chan ] ] < 0) { /stopdm $chan lost %duel.p2 [ $+ [ $chan ] ]
  }
  if (%duel.turn [ $+ [ $chan ] ] == 2) && ($nick == %duel.p2 [ $+ [ $chan ] ]) {
    set %duel.hit [ $+ [ $chan ] ] $rand(0,43)
    dec %duel.hp1 [ $+ [ $chan ] ] %duel.hit [ $+ [ $chan ] ]
    set %duel.turn [ $+ [ $chan ] ] 1
    msg $chan 12[14Duel12]12 %duel.p1 [ $+ [ $chan ] ] 14got hit by12 %duel.hit [ $+ [ $chan ] ] $+ ,12 %duel.p1 [ $+ [ $chan ] ] 14has12 %duel.hp1 [ $+ [ $chan ] ] 14hp left
  }
  if (%duel.hp1 [ $+ [ $chan ] ] < 0) { /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
  }
}
on $*:TEXT:/^[!@](shark|food|eat)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if (%duel.turn [ $+ [ $chan ] ] == 1) && ($nick == %duel.p1 [ $+ [ $chan ] ]) {
    set %duel.turn [ $+ [ $chan ] ] 2
    if (%duel.hp1 [ $+ [ $chan ] ] > 79) {
      set %duel.hp1 [ $+ [ $chan ] ] 99 | msg $chan 12[14Duel12]12 %duel.p1 [ $+ [ $chan ] ] 14Eats a shark Hp left: 129914 hp left
    halt  }
    inc %duel.hp1 [ $+ [ $chan ] ] 20
    msg $chan 12[14Duel12]12 %duel.p1 [ $+ [ $chan ] ] 14Eats a shark Hp left:12 %duel.hp1 [ $+ [ $chan ] ] 14hp left

  }
  if (%duel.turn [ $+ [ $chan ] ] == 2) && ($nick == %duel.p2 [ $+ [ $chan ] ]) {
    set %duel.turn [ $+ [ $chan ] ] 1
    if (%duel.hp2 [ $+ [ $chan ] ] > 79) {
      set %duel.hp2 [ $+ [ $chan ] ] 99 | msg $chan 12[14Duel12]12 %duel.p2 [ $+ [ $chan ] ] 14Eats a shark Hp left: 129914 hp left
    halt  }
    inc %duel.hp2 [ $+ [ $chan ] ] 20
    msg $chan 12[14Duel12]12 %duel.p2 [ $+ [ $chan ] ] 14Eats a shark Hp left:12 %duel.hp2 [ $+ [ $chan ] ] 14hp left
  }
}
on $*:TEXT:/^[!@](run|leave)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if (%duel.turn [ $+ [ $chan ] ] == 1) && ($nick == %duel.p1 [ $+ [ $chan ] ]) {
    msg $chan 12[14Duel12]12 %duel.p1 [ $+ [ $chan ] ] 14Ran away from the duel.
    /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
  }
  if (%duel.turn [ $+ [ $chan ] ] == 2) && ($nick == %duel.p2 [ $+ [ $chan ] ]) {
    msg $chan 12[14Duel12]12 %duel.p2 [ $+ [ $chan ] ] 14Ran away from the duel.
    /stopdm $chan lost %duel.p2 [ $+ [ $chan ] ]
  }
}
on $*:TEXT:/^[!@](tele|teleport)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if (%duel.turn [ $+ [ $chan ] ] == 1) && ($nick == %duel.p1 [ $+ [ $chan ] ]) {
    msg $chan 12[14Duel12]12 %duel.p1 [ $+ [ $chan ] ] 14Teled away from the duel.
    /stopdm $chan lost %duel.p1 [ $+ [ $chan ] ]
  }
  if (%duel.turn [ $+ [ $chan ] ] == 2) && ($nick == %duel.p2 [ $+ [ $chan ] ]) {
    msg $chan 12[14Duel12]12 %duel.p2 [ $+ [ $chan ] ] 14Teled away from the duel.
    /stopdm $chan lost %duel.p2 [ $+ [ $chan ] ]
  }
}
on $*:TEXT:/^[!@](stop dm|stop)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  if ($nick isop $chan) || ($nick == %duel.p2 [ $+ [ $chan ] ]) || ($nick == %duel.p1 [ $+ [ $chan ] ]) {
    /stopdm $chan stop
  }
}
on $*:TEXT:/^[!@](rules|dminfo)/Si:#: {
  if $floodprot($nick,$network) { return }  
  illegalcheck $1-
  msg $nick 12[14Duel12]14 Starting
  msg $nick 14You need 122 ppl to 12dm/duel.
  msg $nick 14Use These commands to fight: 12Whip - !barrage - !dds - !dh - !blitz  - !eat - !tele - !run
}
alias stopdm {
  unset %duel* [ $+ [ $1 ] ]
  if ($2 == lost) {
    msg $1 14GF12 $3 14You Tried. | halt
  }
  if ($2 == stop) {
    msg $1 14Duel Stopped.
  }
  if ($2 == no-one) {
    msg $1 14Sorry, No-one accepted the 12duel14.
  }
}