All pastes #479497 Raw Edit

Someone

public text v1 · immutable
·published 2007-05-09 19:45 UTC
rendered paste body
on *:TEXT:!dm:#pcstaff:{ 
  if (!%dm.p1) {
    Set %dm.p1 $nick
    set %dm.hp1 99
    msg $chan %dm.p1 has started a death match, type !dm to join pls.
  }
  elseif (!%dm.p2) {
    set %dm.p2 $nick
    set %dm.hp2 99
    msg $chan $nick has joined the DM. %dm.p1 and %dm.p2 Will now battle it out 4FIGHT
    set %dm.turn $rand(1,2)
    msg $chan %dm.p [ $+ [ %dm.turn ] ] goes first.
  }
  else {
    msg $chan There is already a DM underway.
  }
}
on *:TEXT:!whip:#pcstaff: { 
  if (%dm.p1 == $null || %dm.p2 == $null) { 
    msg $chan There needs to be two players to play the game, type !dm to join. 
  }
  elseif ($nick == %dm.p1) && (%dm.turn == 1) {
    set %dm.hit $rand(0,40)
    dec %dm.hp2 %dm.hit
    msg $chan $nick hits $iif(%dm.hit >= %dm.hp2,%dm.hp2,%dm.hit) %+ , %dm.p2 has $iif(%dm.hit >= %dm.hp2,0,%dm.hp2) hits left.
    set %dm.turn 2
    if (%dm.hp2 <= 0) {
      msg $chan %dm.p2 is dead, %dm.p1 wins :o yay for %dm.p1 $+ . The dm has reset please fight again its fun to watch. :o
      unset %dm.*
    }
  }
  elseif ($nick == %dm.p2) && (%dm.turn == 2) {
    set %dm.hit $rand(0,40)
    dec %dm.hp1 %dm.hit
    msg $chan $nick hits $iif(%dm.hit >= %dm.hp1,%dm.hp1,%dm.hit) $+ , %dm.p1 has $iif(%dm.hit >= %dm.hp1,0,%dm.hp1) hits left.
    set %dm.turn 1
    if (%dm.hp1 <= 0) {
      msg $chan %dm.p1 is dead, %dm.p2 wins :o yay for %dm.p2 $+ . The dm has reset please fight again its fun to watch. :o
      unset %dm.*
    }
  }
}
on *:TEXT:!dds:#pcstaff: { 
  if (%p1 == $null || %p2 == $null) { 
    msg $chan There needs to be two players to play the game type !dm2 to join. 
  }
  elseif ($nick == %p1) {
    set %hit1 $rand(0,48)
    set %hit2 $rand(0,48)
    dec %hp2 %hit1
    dec %hp2 %hit2
    msg $chan %p1 has just hit %p2 a %hit1 $+ , $+ %hit2 dds spec. %p2 has %hp2 hitpoints left.
    if (%hp2 <= 0) {
      msg $chan %p2 is dead, %p1 wins :o yay for %p1 $+ . The dm has reset please fight again its fun to watch :o.
      unset %p1
      unset %p2
    }
  }
  elseif ($nick == %p2) {
    set %hit1 $rand(0,48)
    set %hit2 $rand(0,48)
    dec %hp1 %hit1
    dec %hp1 %hit2
    msg $chan %p2 has just hit %p1 a %hit1 $+ , $+ %hit2 dds spec. %p1 has %hp1 hitpoints left.
    if (%hp1 <= 0) {
      msg $chan %p1 is dead, %p2 wins :o yay for %p2 $+ . The dm has reset please fight again its fun to watch :o.
      unset %p1
      unset %p2
    }
  }
}