; The Randulator version 1.0b | for OUTCHAT | Made By Tokie-D-Bear 2/25/96 |
; My 1st Script!
;             USAGE: randulate text propname #loops
;             ALSO: Type ?randulate for a usage description in case you 
;             forgot how to use it.


{ "$1" GREPSUB Text = "$2" GREPSUB Propstr = "$3" GREPSUB Loop =
{ 470 random Hl =  342 random Vl =
  i ++
  Propstr Hl Vl ADDLOOSEPROP
  Text Hl 5 + Vl 25 + SAYAT
} { i Loop ATOI < } WHILE
  "" CHATSTR =
} CHATSTR "^randulate (.*) (.*) (.*)$" GREPSTR IF
{ "@60,50 !The Randulator v1.0 | Another ChoticPsyae IptScrae brought to 
you by
Tokie-D-Bear" LOCALMSG
  "@240,50 !USAGE: randulate text propname #loops  |  EXAMPLE: randulate Toke
Me! blunt 20" LOCALMSG
  "" CHATSTR =
} CHATSTR "?randulate" == IF