All pastes #418754 Raw Edit

Anonymous

public text v1 · immutable
#418754 ·published 2007-03-31 20:26 UTC
rendered paste body
on $*:TEXT:/^[!.](Cbow|Crystalbow)/Si:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick *** [ 4DM ]: There is no deathmatch running. To start one please type: !dm - Then wait for someone to accept your challenge
    halt
  }
  if ($readini(dm.ini,$chan,Status) == on && $readini(dm.ini,$chan,Player1) == $nick) {
    notice $nick *** [ 4DM ]: Please hold...
    halt
  }
  if ($readini(dm.ini,$chan,Status) == on) {
    notice $nick *** [ 4DM ]: Hurry! A deathmatch sequence has been activated! Type " !dm " to accept the challenge!
    halt
  }
  if ($readini(dm.ini,$chan,Turn) == 1 && $readini(dm.ini,$chan,Player1) == $nick) {
    writeini dm.ini $chan Oldhp2 $readini(dm.ini,$chan,Hp2)
    writeini dm.ini $chan Hit $rand(0,30)
    writeini dm.ini $chan Hp2 $calc( $readini(dm.ini,$chan,Hp2) - $readini(dm.ini,$chan,Hit) )
    if ($readini(dm.ini,$chan,Hp2) >= 0) {
      msg $chan *** [ 4DM ]: $nick shoots out a crystal arrow at $readini(dm.ini,$chan,Player2) with a [ $readini(dm.ini,$chan,Oldhp2) ]. [ 0 ] hp remaining.
      timer 1 3 *** [ 4DM ]: $nick has won the deathmatch!
      remini dm.ini $chan
      halt
    }
    else {
      msg $chan *** [ 4DM ]: $nick flings a crystal arrow at $readini(dm.ini,$chan,Player2) with a [ $readini(dm.ini,$chan,Hit) ]. [ $readini(dm.ini,$chan,Hp2) ] hp reamining.
      writeini dm.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Turn) == 2 && $readini(dm.ini,$chan,Player2) == $nick) {
    writeini dm.ini $chan Oldhp1 $readini(dm.ini,$chan,Hp1)
    writeini dm.ini $chan Hit $rand(0,30)
    writeini dm.ini $chan Hp1 $calc( $readini(dm.ini,$chan,Hp1) - $readini(dm.ini,$chan,Hit) )
    if ($readini(dm.ini,$chan,Hp1) >= 0) {
      msg $chan *** [ 4DM ]: $nick shoots out a crystal arrow at $readini(dm.ini,$chan,Player1) with a [ $readini(dm.ini,$chan,Hit) ]. [ 0 ] hp remaining.
      timer 1 3 *** [ 4DM ]: $nick has won the deathmatch!
      remini dm.ini $chan
      halt
    }
    else {
      msg $chan *** [ 4DM ]: shoots out a crystal arrow at $readini(dm.ini,$chan,Player1) with a [ $readini(dm.ini,$chan,Hit) ]. [ $readini(dm.ini,$chan,Hp1) ] hp remaining.
      writeini dm.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick *** [ 4DM ]: You are either not participating in this deathmatch or it is not your turn.
  }
}