Case"/8ball"Call random(index)Exit Sub
Sub random(index)Dim randomiserDim maxDim messagemax = Getvar("random.ini", "index", "total_messages")randomiser = Int((Int(max) + 1) * Rnd) + 0If randomiser = 0 Thenrandomiser = 1End Ifmessage = Getvar("random.ini", "messages", Int(randomiser) )Call Playermsg(index, message, 10)End Sub
[INDEX]total_messages=5[MESSAGES]1=No2=Maybe3=Yes4=Perhaps5=Dance like a chicken while juggling midgets
put the lineCall random(index) under a new case in your sub scriptedtile(index,script)