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

Leave a Comment

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s