All pastes #369504 Raw Edit

Mine

public text v1 · immutable
#369504 ·published 2007-02-23 21:55 UTC
rendered paste body
ON *:TEXT:!dm*:#:{ 
  if ($readini(pdm.ini,$chan,Player1) == $nick || $readini(pdm.ini,$chan,Player2) == $nick) { 
    notice $nick Your already in the game. 
    halt 
  } 
  if ($readini(dm.ini,$chan,Status) == ON2) { 
    notice $nick There 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 The Fight is. $readini(pdm.ini,$chan,Player1) Vs. $readini(pdm.ini,$chan,Player2) 
    msg $chan `dmcommands For DM Commands. 
    notice $readini(pdm.ini,$chan,Player2) You have 99 Hit Points and 20 Shark that heal 20 Health 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 $+ $readini(pdm.ini,$chan,Player1) has initiated the DM Command. Type !dm to fight $readini(pdm.ini,$chan,Player1) $+ . 
    notice $readini(pdm.ini,$chan,Player1) You have 99 Hit Points and 20 Shark that heal 20 Health each. 
    halt 
  } 
} 
ON *:TEXT:!whip*:#:{ 
  if ($readini(dm.ini,$chan,Status) == $null) { 
    notice $nick There is no DM on. Type !DM To start one. 
    halt 
  } 
  if ($readini(dm.ini,$chan,Status) == ON) { 
    notice $nick You 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 $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints. 
      timer 1 3 msg $chan $+ $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 $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints. 
      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 $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints. 
      timer 1 3 msg $chan $+ $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 $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints. 
      writeini turn.ini $chan Turn 1 
      halt 
    } 
  } 
  else { 
    notice $nick Its not your turn or your not in this round. 
  } 
} 
ON *:TEXT:!dh*:#:{ 
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(hp.ini,$chan,Player2) <= 30 ) { 
    notice $nick You cant use the !dh attack when your Opponent has less than 30 Hit Points. 
    halt 
  } 
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(hp.ini,$chan,Player1) <= 30 ) { 
    notice $nick You cant use the !dh attack when your Opponent has less than 30 Hit Points. 
    halt 
  } 
  if ($readini(dm.ini,$chan,Status) == $null) { 
    notice $nick There is no DM on. Type !DM To start one. 
    halt 
  } 
  if ($readini(dm.ini,$chan,Status) == ON) { 
    notice $nick You 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,75) 
    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 $+ $readini(pdm.ini,$chan,Player1) hacks at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints. 
      timer 1 3 msg $chan $+ $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 dds.ini $chan Total      
      remini pdm.ini $chan Player2 
      halt 
    } 
    else { 
      msg $chan $+ $readini(pdm.ini,$chan,Player1) hacks at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player2) Hitpoints. 
      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,75) 
    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 $+ $readini(pdm.ini,$chan,Player2) hacks at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with 0 Hitpoints. 
      timer 1 3 msg $chan $+ $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 $+ $readini(pdm.ini,$chan,Player2) hacks at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with $readini(hp.ini,$chan,Player1) Hitpoints. 
      writeini turn.ini $chan Turn 1 
      halt 
    } 
  } 
  else { 
    notice $nick Its 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 You 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 You dont have any shark left.... 
    halt 
  } 
  if ($readini(dm.ini,$chan,Status) == $null) { 
    notice $nick There is no DM on. Type !DM To start one. 
    halt 
  } 
  if ($readini(dm.ini,$chan,Status) == ON) { 
    notice $nick You 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) You now have $readini(shark.ini,$chan,Player1) Shark left. 
    msg $chan $+ $readini(pdm.ini,$chan,Player1) eats a shark giving him $readini(hp.ini,$chan,Player1) Hit 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) You now have $readini(shark.ini,$chan,Player2) Shark left. 
    msg $chan $+ $readini(pdm.ini,$chan,Player2) eats a shark giving him $readini(hp.ini,$chan,Player2) Hit Points. 
    writeini turn.ini $chan Turn 1 
    halt 
  }  
  else { 
    notice $nick 10Its 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 You 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 10You dont have any special Left. 
    halt 
  } 
  if ($readini(dm.ini,$chan,Status) == $null) { 
    notice $nick 7There is no DM on. Type !DM To start one. 
    halt 
  } 
  if ($readini(dm.ini,$chan,Status) == ON) { 
    notice $nick 13You 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,25) 
    writeini hit.ini $chan Hit2 $rand(0,25) 
    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 $+ $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 with 0 Hitpoints. 
      timer 1 3 msg $chan $+ $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 11You have $readini(spec.ini,$chan,Player1) $+ % of your Special Bar left.  
      msg $chan $+ $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 with $readini(hp.ini,$chan,Player2) Hitpoints. 
      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,25) 
    writeini hit.ini $chan Hit2 $rand(0,25) 
    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 $+ $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 with 0 Hitpoints. 
      timer 1 3 msg $chan $+ $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 11You have $readini(spec.ini,$chan,Player2) $+ % of your Special Bar left.  

      msg $chan $+ $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 with $readini(hp.ini,$chan,Player1) Hitpoints. 
      writeini turn.ini $chan Turn 1 
      halt 
    } 
  } 
  else { 
    notice $nick Its not your turn or your not in this round. 
  } 
} 
ON *:TEXT:!stopdm*:#:{ 
  if ($readini(dm.ini,$chan,Status) == $null) { 
    notice $nick There is no DM for this channel 
    halt 
  } 
  if ($nick isop $chan || $nick ishop $chan) { 
    msg $chan DM 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 You need halfop+ 
  } 
} 
ON *:TEXT:`dmcommands*:#:{ 
  msg $nick 4!StopDM 
  msg $nick 15!DM 
  msg $nick 13!Whip 
  msg $nick 6!DDS 
  msg $nick 3!DH 
  msg $nick 8!Eat 
  msg $nick 11!tele


} 
ON *:TEXT:!tele*:#:{ 
  if ($readini(dm.ini,$chan,Status) == $null) { 
    notice $nick 7There is no DM on. 12Type !DM To start one. 
    halt 
  } 
  if ($readini(dm.ini,$chan,Status) == ON) { 
    notice $nick 10You 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 $+ $readini(pdm.ini,$chan,Player1) 5has just teled. 
    msg $chan $+ $readini(pdm.ini,$chan,Player2) 3wins! 
    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 $+ $readini(pdm.ini,$chan,Player2) 5has just teled. 
    msg $chan $+ $readini(pdm.ini,$chan,Player1) 3wins! 
    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    
  } 
}