random saying by flutschi
removelist 'randomSaying'
createlist 'randomSaying'
pushlist 'randomSaying' 'zero saying'
pushlist 'randomSaying' 'a saying'
pushlist 'randomSaying' 'two saying'
pushlist 'randomSaying' 'three saying'
pushlist 'randomSaying' 'four saying'
pushlist 'randomSaying' 'five saying'
pushlist 'randomSaying' 'six saying'
pushlist 'randomSaying' 'seven saying'
random 10
@setvar! randomNumber 0
if insysmsg 'Random: 1'
@setvar! randomNumber 1
endif
if insysmsg 'Random: 2'
@setvar! randomNumber 2
endif
if insysmsg 'Random: 3'
@setvar! randomNumber 3
endif
if insysmsg 'Random: 4'
@setvar! randomNumber 4
endif
if insysmsg 'Random: 5'
@setvar! randomNumber 5
endif
if insysmsg 'Random: 6'
@setvar! randomNumber 6
endif
if insysmsg 'Random: 7'
@setvar! randomNumber 7
endif
if insysmsg 'Random: 8'
@setvar! randomNumber 8
endif
if insysmsg 'Random: 9'
@setvar! randomNumber 9
endif
if insysmsg 'Random: 10'
@setvar! randomNumber 10
endif
foreach saying in randomSaying
if randomNumber = index
say saying 6
break
endif
endfor