#include <Array.au3> $thing1s = _ArrayCreate(10, "Dementors", "My cat", "My dog", "My brother", "My sister", "Hitler", "My mom", "My dad", "The Police", "The Flying Spaghetti Monster") $didsomethingto = _ArrayCreate(9, "ate", "vomited on", "burned", "blew up", "shot", "cut", "washed", "stole", "ran over") $thing2s = _ArrayCreate(11, "my homework", "my money", "my house", "my face", "my brother", "my sister", "Hitler", "my mind", "my life", "my soul", "me") Do MsgBox(0, "Excuse Generator", $thing1s[Random(1, 10, 1)] & " " & $didsomethingto[Random(1, 9, 1)] & " " & $thing2s[Random(1, 11, 1)] & ".") Until MsgBox(4, "Excuse Generator", "Generate another excuse?" & @CRLF & "Visit us at bananafredsoft.com") = 7 MsgBox(0, "Excuse Generator", "Have a nice day!")
Edited by BananaFredSoft, 06 October 2007 - 09:06 PM.









