mod_iwhore_limbusdraw.qsrc 445 B

1234567891011121314151617181920
  1. # mod_iwhore_limbusdraw
  2. ! Request the length of the array
  3. _length = ARRSIZE('$random')
  4. ! If there are no options, return 'ERROR'
  5. IF _length = 0:
  6. $RESULT = 'ERROR'
  7. EXIT
  8. END
  9. ! We select from the array a random element, resp. length of the array
  10. _variant = RAND(0, _length-1)
  11. ! Remember the result
  12. $RESULT = $random[_variant]
  13. ! Delete the waste element
  14. KILLVAR '$random', _variant
  15. --- mod_iwhore_limbusdraw ---------------------------------