All pastes #390365 Raw Edit

Stuff

public text v1 · immutable
·published 2007-03-11 12:01 UTC
rendered paste body
ON *:TEXT:!dm*:#:{
  if ($readini(pdm.ini,$chan,Player1) == $nick || $readini(pdm.ini,$chan,Player2) == $nick) {
    notice $nick 0,1Your already in the game.
    halt
  } 
  if ($readini(dm.ini,$chan,Status) == ON2) {
    notice $nick 0,1There is already a DM.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    writeini pdm.ini $chan Player2 $nick
    writeini dm.ini $chan Status ON2
    writeini hp.ini $chan Player2 99
    writeini turn.ini $chan Turn 1
    writeini shark.ini $chan Player2 20
    writeini spec.ini $chan Player2 100
    writeini spec.ini $chan Player1 100
    msg $chan 0,1The Fight is.0,4 $readini(pdm.ini,$chan,Player1) 0,1Vs.0,4 $readini(pdm.ini,$chan,Player2)
    msg $chan 0,112,4!thedmCommands For DM0,4 Commands0,1.
    notice $readini(pdm.ini,$chan,Player2) 0,1You have0,4 99 0,1Hit Points and0,4 20 0,1Shark that heal0,4 20 0,1Health each.
    halt
  }  
  if ($readini(dm.ini,$chan,Status) == $null) {
    writeini pdm.ini $chan Player1 $nick
    writeini dm.ini $chan Status ON
    writeini hp.ini $chan Player1 99
    writeini shark.ini $chan Player1 20
    msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) has initiated the DM Command. Type 0,4!dm0,1 to fight $readini(pdm.ini,$chan,Player1) $+ .
    notice $readini(pdm.ini,$chan,Player1) 0,1You have0,4 99 0,1Hit Points and0,4 20 0,1Shark that heal0,4 20 0,1Health each.
    halt
  }
}
ON *:TEXT:!whip*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 0,1There is no DM on. Type0,4 !DM 0,1To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 0,1You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 0 0,1Hitpoints.
      timer 1 3 msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 $readini(hp.ini,$chan,Player2) 0,1Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 0 0,1Hitpoints.
      timer 1 3 msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total     
      halt
    }
    else {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 $readini(hp.ini,$chan,Player1) 0,1Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick 0,1Its not your turn or your not in this round.
  }
}
ON *:TEXT:!fwave*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 0,1There is no DM on. Type0,4 !DM 0,1To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 0,1You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(15,25)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) mages at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 0 0,1Hitpoints.
      timer 1 3 msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) mages at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 $readini(hp.ini,$chan,Player2) 0,1Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(15,25)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) Mages at $readini(pdm.ini,$chan,Player1) mages at $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 0 0,1Hitpoints.
      timer 1 3 msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total     
      halt
    }
    else {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) Mages at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 $readini(hp.ini,$chan,Player1) 0,1Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick 0,1Its not your turn or your not in this round.
  }
}
ON *:TEXT:!xbow*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 0,1There is no DM on. Type0,4 !DM 0,1To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 0,1You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(5,28)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) ranges $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 0 0,1Hitpoints.
      timer 1 3 msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) Ranges at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 $readini(hp.ini,$chan,Player2) 0,1Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(5,28)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) Ranges at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 0 0,1Hitpoints.
      timer 1 3 msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total     
      halt
    }
    else {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) ranges at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with0,4 $readini(hp.ini,$chan,Player1) 0,1Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick 0,1Its not your turn or your not in this round.
  }
}
ON *:TEXT:!eat*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(shark.ini,$chan,Player2) <= 0 ) {
    Notice $nick 0,1You dont have any shark left....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(shark.ini,$chan,Player1) <= 0 ) {
    Notice $nick 0,1You dont have any shark left....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 0,1There is no DM on. Type0,4 !DM 0,1To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 0,1You can't eat yet.....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) + 20 )
    writeini shark.ini $chan Player1 $calc( $readini(shark.ini,$chan,Player1) - 1)
    notice $readini(pdm.ini,$chan,Player1) 0,1You now have0,4 $readini(shark.ini,$chan,Player1) 0,1Shark left.
    msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) eats a shark giving him0,4 $readini(hp.ini,$chan,Player1) 0,1Hit Points.
    writeini turn.ini $chan Turn 2
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) + 20 )
    writeini shark.ini $chan Player2 $calc( $readini(shark.ini,$chan,Player2) - 1)
    notice $readini(pdm.ini,$chan,Player2) 0,1You now have0,4 $readini(shark.ini,$chan,Player2) 0,1Shark left.
    msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) eats a shark giving him0,4 $readini(hp.ini,$chan,Player2) 0,1Hit Points.
    writeini turn.ini $chan Turn 1
    halt
  }  
  else {
    notice $nick 0,1Its not your turn or your not in this round.
  }
}
ON *:TEXT:!dds*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(spec.ini,$chan,Player1) <= 0 ) {
    notice $nick 0,1You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(spec.ini,$chan,Player2) <= 0 ) {
    notice $nick 0,1You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 0,1There is no DM on. Type0,4 !DM 0,1To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 0,1You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(5,20)
    writeini hit.ini $chan Hit2 $rand(5,20)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player1 $calc( $readini(spec.ini,$chan,Player1) - 25 )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) Specials at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2) $+ . Leaving him with0,4 0 0,1Hitpoints.
      timer 1 3 msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick 0,1You have0,4 $readini(spec.ini,$chan,Player1) $+ 0,1% of your Special Bar left.  
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) specials at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2)$+ . Leaving him with0,4 $readini(hp.ini,$chan,Player2) 0,1Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(5,20)
    writeini hit.ini $chan Hit2 $rand(5,20)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player2 $calc( $readini(spec.ini,$chan,Player2) - 25 )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) Specials at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2) $+ . Leaving him with0,4 0 0,1Hitpoints.
      timer 1 3 msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick 0,1You have0,4 $readini(spec.ini,$chan,Player2) $+ 0,1% of your Special Bar left.  

      msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) specials at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,hit) and $readini(hit.ini,$chan,hit2)$+ . Leaving him with0,4 $readini(hp.ini,$chan,Player1) 0,1Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick 0,1Its not your turn or your not in this round.
  }
}
ON *:TEXT:!stopDM*:#:{ 
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 13There is no DM for this channel
    halt
  }
  msg $chan 0,1DM Halted by $nick $+ .
  remini dm.ini $chan Status
  remini shark.ini $chan Player1
  remini shark.ini $chan Player2
  remini Hit.ini $chan Hit
  remini Hit.ini $chan Hit2
  remini hp.ini $chan Player1
  remini hp.ini $chan Player2
  remini pdm.ini $chan Player1
  remini pdm.ini $chan Player2
  remini dds.ini $chan Total
}
else { 
  notice $nick 0,1You need halfop+
}
}
ON *:TEXT:!thedmcommands*:#:{
msg $nick 0,1!fwave max hit 25
msg $nick 0,1!xbow  max hit 28
msg $nick 0,1!StopDM
msg $nick 0,1!DM
msg $nick 0,1!Whip  max hit 35
msg $nick 0,1!DDS  max hit 20 + 20 (25 spec)
msg $nick 0,1!Eat +20 Hp
}
ON *:TEXT:!tele*:#:{
if ($readini(dm.ini,$chan,Status) == $null) {
  notice $nick 0,1There is no DM on. Type0,4 !DM 0,1To start one.
  halt
}
if ($readini(dm.ini,$chan,Status) == ON) {
  notice $nick 0,1You cant Tele yet rofl.
  halt
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
  msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player1) has just teled.
  msg $chan 0,4 $+ $readini(pdm.ini,$chan,Player2) 0,1wins!
  remini dm.ini $chan Status
  remini shark.ini $chan Player1
  remini shark.ini $chan Player2
  remini Hit.ini $chan Hit
  remini Hit.ini $chan Hit2
  remini hp.ini $chan Player1
  remini hp.ini $chan Player2
  remini pdm.ini $chan Player1
  remini pdm.ini $chan Player2
  remini dds.ini $chan Total   
}
if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
  msg $chan 0,1 $+ $readini(pdm.ini,$chan,Player2) has just teled.
  msg $chan 0, $+ $readini(pdm.ini,$chan,Player1) 0,1wins!
  remini dm.ini $chan Status
  remini shark.ini $chan Player1
  remini shark.ini $chan Player2
  remini Hit.ini $chan Hit
  remini Hit.ini $chan Hit2
  remini hp.ini $chan Player1
  remini hp.ini $chan Player2
  remini pdm.ini $chan Player1
  remini pdm.ini $chan Player2
  remini dds.ini $chan Total   
  }
}