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

Do
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

Advertisements

Tags:

Leave a Reply

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 )

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s


%d bloggers like this: