But i would just like to know where to start.
I made an excuse generator in AutoIT a while back. And would LOVE to convert it into revolution.
Code: Select all
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <GUIListbox.au3>
$Form1 = GUICreate("oExcuse Generator", 258, 275, 193, 125)
$Button1 = GUICtrlCreateButton("Generate", 8, 8, 241, 25, 0)
$List1 = GUICtrlCreateList("", 8, 40, 241, 201, BitOR($WS_VSCROLL,$WS_BORDER))
$Label1 = GUICtrlCreateLabel("Created By: oToom ( Ant )", 64, 248, 126, 17)
GUISetState(@SW_SHOW)
$Thing1 = _ArrayCreate(9, "My mom ", "My dad ", "My sister ", "My brother ", "My dog ", "My cat ", "My hamster ", "The Police ", "Hitler ")
$DidSomething = _ArrayCreate(8, "blew up ", "smashed ", "hit ", "puked on ", "punched ", "spat on ", "ate ", "threw ")
$Thing2 = _ArrayCreate(10, "my mom.", "my dad.", "my sister.", "my brother.", "my dog.", "my cat.", "my hamster.", "the police.", "hitler.", "my house.", "my homework.")
HotKeySet("^c", "_Copy")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
MsgBox(0, "oExcuse Generator", "Excuse generator created by oToom, ( Ant ).")
Exit
Case $Button1
$Excuse = $Thing1[Random(1, 9, 1)] & $DidSomething[Random(1, 8, 1)] & $Thing2[Random(1, 10, 1)]
_GUICtrlListBox_InsertString($List1, $Excuse, 0)
EndSwitch
WEnd
Func _Copy()
$Selected = _GUICtrlListBox_GetCurSel($List1)
$SelectedText = GUICtrlRead($List1, $Selected)
ClipPut($SelectedText)
EndFunc
Any help?
Thanks guys and girls.
@Ant