Dice roller game

mIRC Snippet - Roleplaying game

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	Xini	games	Cod testat	344	2024-08-03 22:01:13

on *:text:!roll &:#: {
  if ($2 !isnum) { msg $chan Invalid number of dice. | return }
  var %c = $2
  if (%c > 30) {
    msg # $read errorbot.txt
    halt
  }
  while (%c) {
    var %roll = $rand(1,10)
    if (%roll = 1) { var %roll = $+ %roll }
    elseif (%roll isnum 2-5) { var %roll = $+ %roll }
    elseif (%roll isnum 6-9) { var %roll = $+ %roll }
    elseif (%roll = 10) { var %roll = $+ %roll }
    var %dice = %dice $+ $iif(%dice, $+ $chr(44)) %roll
    dec %c
  }
  describe $chan $nick 01,00rolls $2 dice diff 6: $replace(%dice,$chr(46), $+ $chr(44) $+ $chr(32))

  var %s10 = 10
  var %s9 = 9
  var %s8 = 8
  var %s7 = 7
  var %s6 = 6
  var %s1 = 1
  var %tens = $count(%dice,%s10)
  var %loss = $count(%dice,%s1)
  var %wins = $count(%dice,%s10,%s9,%s8,%s7,%s6)
  var %sucs = $calc(%wins + %s0)
  var %bots = $calc(%loss - %tens)
  var %temp = %sucs
  var %ded = %bots
  var %runtot = $calc(%sucs - %bots)
  msg $chan $nick has 03,01 %temp 03,01sucesses. (Before Botches or Spec)
  msg $chan ----------------------------------------
  msg $chan $nick has04,01 %ded 04,01botches.
  msg $chan ----------------------------------------
  msg $chan $nick has a grand total of 09,01 %runtot 09,01 sucesses.
  msg $chan ----------------------------------------

}