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, $9goneGUICreate(“:)” , 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 GUIDo
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 & “!!!!”)
endif
exit
endif
if $picked=10 then
for $g=1 to 5
$a=random (1,9,1)
$b=random (1,5,1)
if $a=1 Then
$b=$1
$c=$c+1
$1gone=10
elseif $a=2 Then
$c=$c+2
$b=$2
$2gone=10
elseif $a=3 Then
$c=$c+3
$b=$3
$3gone=10
elseif $a=4 Then
$c=$c+4
$b=$4
$4gone=10
elseif $a=5 Then
$c=$c+5
$b=$5
$5gone=10
elseif $a=6 Then
$c=$c+6
$b=$6
$6gone=10
elseif $a=7 Then
$c=$c+7
$b=$7
$7gone=10
elseif $a=8 Then
$c=$c+8
$b=$8
$8gone=10
elseif $a=9 Then
$c=$c+9
$9gone=10
$b=$9
EndIf
if $b=3 Then
$d=round(int($d/2))
$c=round(int($d/2))
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]
else
$c = $c+$pos[1]
endif
endif
SplashOff()endif
GUICtrlDelete($b)
sleep (500)
GUICtrlCreateLabel(“You: ” & $d, 1,115)
GUICtrlCreateLabel(“Me: “& $c, 60,115)
Next
$picked=0
endif
$msg = GUIGetMsg()
Select
Case $msg= $1
$picked=10
$d=$d+1
Case $msg= $2
$picked=10
$d=$d+2
Case $msg= $3
$picked=10
$d=$d+3
Case $msg= $4
$picked=10
$d=$d+4
Case $msg= $5
$picked=10
$d=$d+5
Case $msg= $6
$picked=10
$d=$d+6
Case $msg= $7
$picked=10
$d=$d+7
Case $msg= $8
$picked=10
$d=$d+8
Case $msg= $9
$picked=10
$d=$d+9
EndSelect
Until $msg = $GUI_EVENT_CLOSE
MJBDiver.com 