Hesitant direction.

I spent the past week expanding my AutoIt poem generator script to include an array of 500 adjectives, 500 nouns and 100 various opening lines of poetry. This poem came from the first run of that script, the first of many to come.

sensing lame patience
my scented family
in a bittersweet steel
you sing about the rubbery stupidity
listening to the self-inflicted duplicates
they don’t understand underrated rescue
can you see the walking features
under the sworn sickness
listening to the dazed thunder

A game of icon slots.

2017-05-06 05_50_01-Iconslots

Speaking of slots, here’s an AutoIt version that has a nice twist to it. Instead of using numbers, it uses the icons stored in SHELL32.DLL. If you get three matching icons, you win. However, victory won’t come so easily this time, just like the real thing.

#include <ButtonConstants.au3>
#include <GUIConstants.au3>

GUICreate("Iconslots" , 120, 90)

GUISetState()  ; display the GUI
$quest1 = GUICtrlCreateButton("1", 0, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 24)
$quest2 = GUICtrlCreateButton("2", 40, 00, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 24)
$quest3 = GUICtrlCreateButton("3", 80, 00, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 24)
$spin = GUICtrlCreateButton("Go", 35, 50, 50, 35)

$msg = GUIGetMsg()
Case $msg=$spin
GUICtrlDelete ($quest1)
GUICtrlDelete ($quest2)
GUICtrlDelete ($quest3)
$a=random (15,20,1)
$b=random (15,20,1)
$c=random (15,20,1)
$button1 = GUICtrlCreateButton("1", 0, 0, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", $na)
$button2 = GUICtrlCreateButton("2", 40, 00, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", $nb)
$button3 = GUICtrlCreateButton("3", 80, 00, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", $nc)
if $a=$b and $a=$c and $b=$c Then
GUICtrlDelete ($spin)
GUICtrlCreateLabel ("You win!", 1, 75, 50, 35)
Until $msg = $GUI_EVENT_CLOSE

In a future version I will make gold coins fall from your screen.

Some random jokes.

Here’s the output from a joke generator I created using AutoIt. Like my other generator scripts, this one randomly selects words from various arrays to generate a completely random joke along with an equally random punchline. Who knows, maybe with some fine tuning and larger arrays, this script could generate some genuinely funny jokes. For now, here’s what I came up with.

What did the dummy say to the bird?
Stop acting like a loud bandage.

What did the boat say to the door?
Keep this up and you’ll be a sober potato.

What did the fish say to the flea?
Keep this up and you’ll be a stinky tape.

Did you hear the one about the pencil and the actor?
A stupid blast.

Did you hear the one about the cat and the singer?
A dizzy stump.

What did the pencil say to the clown?
It sure looks like you got hit in the face by a musical joke.

What did the car say to the lamp?
I think you got ran over by a magnetic fall.

What did the doctor say to the clown?
Keep this up and you’ll be a bouncy breeze.

What did the robber say to the flower?
I think you got ran over by a cold breeze.

What did the cat say to the lamp?
Ah, go invent a musical movie.

What did the mouse say to the tree?
Boy, you sure smell like a hot potato.

Did you hear the one about the pin and the sneaker?
It sounded like a noxious potato.

AutoIt poem generator.

Presented here is an abbreviated version of my poem generator script for use with AutoIt. The original version is 504 lines long due to the size of the arrays, so I shrank them for this post without compromising the script’s functionality. This script generates three short poems and writes them to a file called “atpoem.htm” in your Documents folder. A word of warning: because the page colors are also randomly generated, the text may not be readable in some cases, so just run the script again for a different color combination. Enjoy.

ProgressOn("@Random", "Generating atpoem.htm...", "0 percent complete")

dim $po[15]
dim $adj[20]
dim $nou[20]
dim $lin[20]



$lin[0]="in a"
$lin[1]="outside the"
$lin[2]="under the"
$lin[7]="on top of"
$lin[8]="listening to the"
$lin[9]="tell me about"
$lin[13]="beware of"
$lin[14]="this is"
$lin[15]="that is"
$lin[17]="like the"
$lin[18]="life is"
$lin[19]="sing about"

$file=@MyDocumentsDir & "\atpoem.htm"
$FileOpen = FileOpen ($file, 2)
FileWriteLine($file, "<HTML>")
FileWriteLine($file, "<HEAD>")
FileWriteLine($file, "<TITLE>Random Poems</TITLE>")
FileWriteLine($file, "</HEAD>")
FileWrite ($file, "<BODY TEXT="& chr(34) & "#")
for $g=1 to 6
$a=random (1,9,1)
FileWrite ($file, hex($a,1))
FileWrite ($file, chr(34) & chr (32))
FileWrite ($file, "BGCOLOR=" & chr(34) & "#")
for $g=1 to 6
$a=random (1,9,1)
FileWrite ($file, hex($a,1))
FileWrite ($file, chr(34) & " LINK=" & chr(34) &"#")
for $g=1 to 6
$a=random (1,9,1)
FileWrite ($file, hex($a,1))
FileWrite ($file, chr(34) & ">" & @CRLF)
FileWriteLine ($file, "<center>")
FileWriteLine ($file, "<h1>Random Poems</h1>")
FileWriteLine ($file, "<h3>")

for $g=1 to 3
$a=random (0,19,1)
$b=random (0,19,1)
$t=stringupper ($adj[$a] & chr(32) & $nou[$b] )
FileWriteLine ($file, $t & "<p>")

$c=random (1,10,1)
for $j=0 to $c
$a=random (0,19,1)
$b=random (0,19,1)
$d=random (0,19,1)
FileWriteLine ($file, $lin[$d] & chr(32) & $adj[$a] & chr(32) & $nou[$b] & "<br>")
FileWriteLine ($file, "<p>")
ProgressSet( int(($g*33)), int(($g*33)) & " percent complete")

FileWriteLine ($file, "</h3>")
FileWriteLine ($file, "</BODY>")
FileWriteLine ($file, "</HTML>")
FileClose ($FileOpen)
ProgressSet(100 , "Done.", "Done.")
sleep (500)
ProgressOff ()

Random movie titles.

To wrap up this strange streak of AutoIt-induced randomness, I present a listing of generated movie titles that will most definitely not be playing at a theater near you. The genre of the movie is presented along with its top stars. Grab some popcorn and enjoy the show.

Western – starring Mel Gibson and Meryl Streep

Suspense – starring Tom Cruise and Roseanne

Crime Drama – starring Martin Short and Bette Midler

Drama – starring Martin Short and Daryl Hannah

Western – starring Kevin Bacon and Linda Evans

Horror – starring Tom Cruise and Christina Applegate

Action – starring Christopher Walken and Madonna

Drama – starring Brad Pitt and Bette Midler

Romantic Comedy – starring David Letterman and Daryl Hannah

Crime Drama – starring Dustin Hoffman and Roseanne

Drama – starring Steve Martin and Katharine Hepburn

Fantasy – starring Kevin Bacon and Elizabeth Taylor

Random insults.

Here are some insults randomly generated by another AutoIt script I wrote that uses 5 arrays containing various nouns and adjectives to create a devastating arsenal of verbal weaponry for use in a wide range of unpleasant situations. Rest assured they will all leave your victim speechless.

You’re a ridiculous geek who wears retarded horse sauce.
You’re a ridiculous loafer who collects melted beat chips.
You’re a smelly, rotting clown who collects worthless bed sweat.
You’re an ugly lardhead full of rejected jelly water.
You’re a boring dummy who washes in rotting chair hair.
You’re a rotten numbskull who spits out worthless onion mud.
You’re a slimy, slippery old toliet full of radioactive computer mud.
You’re a rotten loser stuffed with replusive garlic water.
You’re a cheap waste dump full of rotting jelly glop.
You’re a rotten loser stuffed with cheap cow sweat.
You’re a worthless balloon full of green poop mud.
You’re a disgusting lardhead full of slippery bed sandwiches.
You’re a sickening geek who wears disgusting bed sauce.
You’re a careless numbskull who spits out ugly smoke hair.
You’re a sickening bummer who eats dark wax glop.
You’re a worthless geek who wears dark dog paper.
You’re a slimy, slippery customer who buys shredded chair hair.
You’re a disgusting loser stuffed with dark poop roadkill.
You’re a slimy, slippery numbskull who spits out dark computer glop.
You’re a trashy , sickening fool who faxes cheap poop sweat.

Let me know when you use these up. There’s plenty more where these came from.

Some generated poems.

The following poems were generated by an AutoIt script containing arrays of 200 adjectives, 200 nouns and 40 possible ways to start a line of poetry. When the script is run, it randomly selects items from each array to generate the poems and then writes them to an HTML file for uploading to the Web. Even the page colors are randomly generated. This may seem like cheating, but every so often we just need a little push in the right direction. The results are interesting, if not surreal.

sing about foggy laughter
because difficult clouds
of sparkling horizons
about simple chords

is it not horrible dreams
his soft airport
life is lowering memories
the running drama
listening to the tired replies
without tall answers
without flexible beds
his dreaming drama
beside the sour sentences
thinking about triangular computer
watching the blind sandwich

of double answers
like lyrical patience
waiting for the triangular money
or hilarous romance
watching the doubtful hate
waiting for the blind streets
on top of molten offense

Time to play F.A.R.T.S.

My story A Game of F.A.R.T.S. is based on a game I made using AutoIt. I was experimenting with scripts that utilize a graphical user interface when I found myself at work on one of the strangest games ever created.

As in the story, you are presented with a 3 x 3 grid consisting of 9 numbers. Clicking on a number multiplies your score by that number, but you can only click on it so many times before it disappears, forcing you to concentrate on the lower numbers. When all the numbers are gone, the score is tallied and the winner is determined.

The game got its name from the farting sound effects you hear as you click on the numbers to boost your score. I felt this game needed some sound effects to make it fun, and I thought the farting noises were the way to go.

If you’d like to give this game a try for some pointless fun, here’s the AutoIt source code for an early version that only tallies the numbers. Later versions feature an insane scoring system that could earn you trillions of points along with penalties for losing, such as mailing ME a check. I’ll post them here if there’s enough interest.

Starg is waiting.

#include <GUIConstants.au3>
$dr=StringLeft (@ScriptDir,2)
dim $picked, $c, $d, $1gone, $2gone, $3gone, $4gone, $5gone, $6gone, $7gone, $8gone, $9gone

GUICreate(“:)” , 110, 130)

$1= GUICtrlCreateButton(“1”, 10, 5, 30, 35)
$2= GUICtrlCreateButton(“2”, 40, 5, 30, 35)
$3 = GUICtrlCreateButton(“3”, 70, 5, 30, 35)
$4 = GUICtrlCreateButton(“4”, 10, 40, 30, 35)
$5 = GUICtrlCreateButton(“5”, 40,40,30, 35)
$6 = GUICtrlCreateButton(“6”,70,40,30, 35)
$7 = GUICtrlCreateButton(“7”, 10, 75, 30, 35)
$8 = GUICtrlCreateButton(“8”, 40, 75, 30, 35)
$9 = GUICtrlCreateButton(“9”, 70, 75, 30, 35)
$you= GUICtrlCreateLabel(“You: ” & $d, 1,115)
$me=GUICtrlCreateLabel(“Me:  ” & $c, 60,115)
GUISetState()  ; display the GUI

if $1gone=10 and $2gone=10 and $3gone=10 and $4gone=10 and $5gone=10 and $6gone=10 and $7gone=10 and $8gone=10 and $9gone=10 then
if $c>$d Then
MsgBox(16, “Farts”, “you Lose!!!”)
ElseIf $d>$c Then
MsgBox(16, “Farts”, “you Win $”& $d & “!!!!”)
if $picked=10 then
for $g=1 to 5
$a=random (1,9,1)
$b=random (1,5,1)
if $a=1 Then
elseif $a=2 Then
elseif $a=3 Then
elseif $a=4 Then
elseif $a=5 Then
elseif $a=6 Then
elseif $a=7 Then
elseif $a=8 Then
elseif $a=9 Then
if $b=3 Then
sleep (200)
$r=random (1,2,1)
if $r=1 Then
$pos = MouseGetPos()
$w=Random (1,2,1)
If $w=1 then
$d = $d+$pos[0]
$c = $c+$pos[1]

sleep (500)
GUICtrlCreateLabel(“You: ” & $d, 1,115)
GUICtrlCreateLabel(“Me:  “& $c, 60,115)
$msg = GUIGetMsg()
Case $msg= $1
Case $msg= $2
Case $msg= $3
Case $msg= $4
Case $msg= $5
Case $msg= $6
Case $msg= $7
Case $msg= $8
Case $msg= $9
Until $msg = $GUI_EVENT_CLOSE

The password typer.

Last night, as I was registering for an online account with my healthcare provider, I experienced complications when I tried pasting the password I generated using KeePass Password Safe. The page I was on didn’t allow pasting, so I had to find another way to submit my password.

AutoIt to the rescue. I used it to create a very simple script that allows you to enter your password, then it waits 10 seconds so you can put the cursor in the password box on the web page before it types that text for you in the two input fields for the password. Simple, but it saved me tons of time.

$a=inputBox (“Pastype”, “Paste your password:”)
Msgbox (48, “Pastype”,”You have 10 seconds…”,5)
Send ($a{TAB}$a)