Sign in to follow this  
Followers 0
Azu

Random

1 post in this topic

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

#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

Share this post


Link to post
Share on other sites



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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0