Azu Posted November 1, 2006 Share Posted November 1, 2006 I have no clue why I made this or why anyone would want it but I'm going to post it anyways. Use the GUI to control it or press end to generate message/alt to close it. I'm to lazy to make a better description sorry. Oh and it's very buggy no-where near complete. kthxbai expandcollapse popup#include<guiConstants.au3> #include<misc.au3> opt("SendKeyDelay",0) opt("SendKeyDownDelay",0) Dim $m[10] Dim $wd[9999] Local $objSpeach=ObjCreate ("Sapi.SpVoice") $objSpeach.Volume=100 hotkeyset("{end}","gen") hotkeyset("{alt}","qx") func qx() exit endfunc guiCreate("Thought of the Day",314,94) $maintext=guictrlcreateinput("",0,0,314,17,$es_readonly,$ws_ex_transparent) guictrlCreateGroup("",-99,-99,1,1) $go=guictrlcreatebutton("Generate",48,68,89,25) $cl=guictrlcreatebutton("Close",184,68,89,25) $ac=guictrlcreatecheckbox("",85,38,10,10) guictrlcreatelabel("Auto",81,50) $as=guictrlcreateinput("1000",103,49,42,16) guictrlcreatelabel("Speed",145,50) $ts=guictrlcreateinput("1000",176,49,42,16) guictrlcreatelabel("Talk",218,50) $tc=guictrlcreatecheckbox("",222,38,10,10) guiSetState() While 1 $objSpeach.Rate=(guictrlRead($ts))/500 $1=guiGetMsg() If $1=$gui_event_close then Exit If $1=$cl then Exit if _ispressed("12") then exit If $1=$go then gen() if guictrlRead($ac)=$gui_checked then gen() WEnd Func gen() $ab=random(1,12,1) $wd[1]=rnd(StringSplit("I have to/I must/I gotta/I should/Sorry but I gotta/I ought to/I was about to/Can you help me/I still need to/First let me/Oh! I forgot to/I just learned how to/I can't unless I/I need to/I want to/You should/Now I must/I got to/Do you know how to/I forgot I had to/Sorry but I need to/I'd rather/Please/Can you","/")) $wd[2]=rnd(StringSplit("water/do/beat/beat up/make/chase/run from/choose/walk with/type/move/grow/try/eat/test/hear/paint/jump over/check on/catch/throw/wax/fix/avoid/smack/slam/find/kiss/ignite/insult/trade with/obfuscate/study/explore/beat up/find something for/wash/kill/sniff/delete/watch a movie with/watch TV with/create/hug/drool on","/")) $wd[3]=rnd(StringSplit("some/his/her/the/your/my/any/the best/the worst/a","/")) $wd[4]=rnd(StringSplit("cauldron/ton/barrel/lot/horde/little bit/large amount/","/")) $wd[5]=rnd(StringSplit("s/","/")) $wd[6]=rnd(StringSplit(" of / full of ","/")) $wd[7]=rnd(StringSplit("sexy /ugly /opaque /invisible /strong /weak /shy /bold /brave /cowardly /heroic /wimpy /adventurous /unadventurous /decisive /indecisive /colorful /colorless /ambiguous /unambiguous /primitive /civilized /attractive /unattractive /truthful /deceitful /prudent /vulgar /clean /dirty /modest /vain /pure /soiled ","/")) $wd[8]=rnd(StringSplit("hamster/dog/cake/flower/friend/pie/cat/gum/foot/pet lizard/keyboard/house/sister/brother/nuclear missile/wife/slave/president/toy/something/log/mom/mother/Napoleon/bed/grandma/arm/computer/grandpa/cracker/soup/TV/lamp/plant/light bulb/table/dad/shoe/door/telephone/window/DVD/calendar/key/blow-up boat/motorcycle/chimney/wall/door bell/sneaker/sock/yogurt/desk/money/calculator/present/gift/ice cube/mop/frisbee/pizza/pet rock/toaster oven/toaster/wall socket/barber/princess/wheel/stick shift/paper house/french bread/cigar/clock hand/bicycle tire/faucet/nose hair trimmer/poker chip/ashtray/barbecue/bird house/laser printer/stick man/scrabble game/cane/trash compactor/dishwasher/blender/bus token/stamp collection/stapler/copy machine/melted candle/toy box/telescope/microscope/diving board/jump rope/medicine cabinet/lawyer/screen door/no vacancy sign/phone bill/camera/door knob/toilet/plexiglass window/battery charger/paper bag/mushroom/shroom/elevator/escalator/ladder/angel cake/angel/hair dryer/PDA/remote control/pencil set/pencil/fire pit/window blind/blueberry pie/chili/poinsettia","/")) if $ab=10 then $wd[8]=rnd(StringSplit("secret thing/arm/secretar/canop/dictionar/cand/pant","/")) if $ab=11 then $wd[8]=rnd(StringSplit("toothbrush/wooden box/candy dish","/")) if $ab=12 then $wd[8]=rnd(StringSplit("pants/hair/mail/champaign/dental floss/dentures/glasses/goldfish","/")) $wd[9]=rnd(StringSplit("s/","/")) if $ab=10 then $wd[9]=rnd(StringSplit("ies/y","/")) if $ab=11 then $wd[9]=rnd(StringSplit("es/","/")) if $ab=12 then $wd[9]="" $wd[10]=rnd(StringSplit("!/./.../?!/!?/!!!/..?/?/..!","/")) if $wd[4]="little bit" then $wd[6]=" of " if $wd[4]="large amount" then $wd[6]=" of " if $wd[4]="ton" then $wd[6]=" of " if $wd[4]="horde" then $wd[6]=" of " if $wd[3]="some"&$wd[4]="lot" then $wd[3]="a" if $wd[4]="" then $wd[5]="" $wd[6]="" endif if $wd[3]="a" then $wd[5]="" endif $b="" for $a = 1 to 10 if $wd[$a]<>"" then $b=$b&$wd[$a] if $a<4 then $b=$b&" " guictrlsetdata($maintext,$B) guictrlsetcolor($maintext,abc()) ;if guictrlRead($tc)=$gui_unchecked and $a<>5 and $a<>8 and $a<>9 then sleep(100) next guictrlsetcolor($maintext,abc()) clipput (guictrlRead($maintext)) send("{enter}") sleep(50) send($B) sleep(50) send("{enter}") if guictrlRead($tc)=$gui_checked then $objSpeach.Speak (guictrlRead($maintext)) if guictrlRead($ac)=$gui_checked then sleep(guictrlRead($as)) EndFunc Func abc() Local $clr="0x" for $a = 1 to 6 $clr=$clr&Random(1,9,1) next $clr=Number($clr) Return $clr EndFunc func rnd($array) return $array[Random(1,$array[0],1)] endfunc Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now