'---------------------------------------------------------------------------
Sub GetPath
'Be sure you store the images in the same directory as the program
Path = Program.Directory
'array to store filenames of the program directory.
'we can then check for the image files & if needed throw an error if we cannot find them.
'we could do the same for sound files, but if the sound is not found, the program ignores the sound.play command without major error
FileArray = 0
'check for images and load them
' The following line could be harmful and has been automatically commented.
' File.GetFiles(Path, FileArray)
For I = 1 to Array.GetItemCount(FileArray)
If (FileArmsDown = "NotFound") Then
If (Array.GetValue(FileArray,I) = Path + "\GorillaArmsDown.bmp") Then
FileArmsDown = "Found"
EndIf
EndIf
If (FileLeftUp = "NotFound") Then
If (Array.GetValue(FileArray,I) = Path + "\GorillaLeftUp.bmp") Then
FileLeftUp = "Found"
EndIf
EndIf
If (FileRightUp = "NotFound") Then
If (Array.GetValue(FileArray,I) = Path + "\GorillaRightUp.bmp") Then
FileRightUp = "Found"
EndIf
EndIf
If (FileVictory = "NotFound") Then
If (Array.GetValue(FileArray,I) = Path + "\GorillaVictory.bmp") Then
FileVictory = "Found"
EndIf
EndIf
EndFor
If (FileArmsDown = "NotFound" Or FileLeftUp = "NotFound" Or FileRightUp = "NotFound" Or FileVictory = "NotFound") Then
GraphicsWindow.ShowMessage("Could not find image files. Please place image files in the same directory as the Gorilla.exe program", "Error:")
Program.End()
EndIf
'---------------------------------------------------------------------------
Sub GameInit
'used to set a decimal color to hex color, see FadeIn()
HexaDecimal = "0123456789ABCDEF"
'each building has 5 to 20 floors with windows, each with a height of 15
FloorHeight = 15
'size of the building's windows
WindowWidth = 4
WindowHeight = 6
'offsets to correctly position the windows on the building
WindowWidthOffset = 3
WindowHeightOffset = 4
'initiate arrays for the buildings
BuildingHeight = "BHeight"
BuildingWidth = "BWidth"
BuildingX = "X" 'this is a marker pointing to where the building is on the screen
'these are the width and height of the gorilla images
GorillaWidth = 28
GorillaHeight = 29
'banana stuff
BananaSize = 4
'bananastate is a counter used to animate the banana
BananaState = 0
'explosion stuff
'this is the number of ellipses the explosion makes when blowing up the gorilla
NumExplosions = 24
'Game stuff
'how many rounds to play
NumRounds = 3
EndSub
'---------------------------------------------------------------------------
Sub RoundInit
' 1 = gorilla 1 is throwing 2 = gorilla 2 is throwing 0 = no one is throwing
Throwing = 0
'reset sun
SunMouth = "Smile"
'banana stuff
'BananaState is a flag to what frame the banana animation is on
BananaState = 0
EndSub
'---------------------------------------------------------------------------
Sub BuildingInit
'I seperated the BuildingInit from RoundInit() to add a nice graphic to Intro()
'there are 15 different heights, pick one and multipy it by size of each floor
'CitySize is a counter of the number of pixels used to draw the screen
'if CitySize is greater than the screensize then screen is full
CitySize = 0
'how many buildings were we able to fit on the screen
'used also to place gorilla 2
NumBuildings = 0
While (CitySize <= ScrX - 10)
'this varies the size of the buildings from sizes 40, 50, 60
NewBuilding = Math.GetRandomNumber(9)
NumBuildings = NumBuildings + 1
If (NewBuilding < 2) Then
Array.SetValue(BuildingWidth, NumBuildings, 40)
Array.SetValue(BuildingX, NumBuildings, CitySize)
'the extra 2 is a offset so the buildings are not so close together
CitySize = CitySize + 42
ElseIf (NewBuilding >= 2 And NewBuilding <= 7) Then
Array.SetValue(BuildingWidth, NumBuildings, 50)
Array.SetValue(BuildingX, NumBuildings, CitySize)
'the extra 2 is a offset so the buildings are not so close together
CitySize = CitySize + 52
ElseIf (NewBuilding > 7) Then
Array.SetValue(BuildingWidth, NumBuildings, 60)
Array.SetValue(BuildingX, NumBuildings, CitySize)
'the extra 2 is a offset so the buildings are not so close together
CitySize = CitySize + 62
EndIf
'the original game made V slopes and peaks, I didn't bother with that yet
'add nice landscape later, until then
Array.SetValue(BuildingHeight, NumBuildings, Math.GetRandomNumber(15)+5)
'if the game is over, make a row of buildings to announce winner
If (GameOver = 1) Then
Array.SetValue(BuildingHeight, NumBuildings, 13)
EndIf
EndWhile
EndSub
'---------------------------------------------------------------------------
Sub DrawCity
'CitySize is now just used as a counter to draw the actual landscape
'I offset it by -20 so both sides of the screen would look similar
CitySize = 0 - CityOffset
For DC = 1 To NumBuildings
BW = Array.GetValue(BuildingWidth, DC)
BH = Array.GetValue(BuildingHeight, DC)
'add a little color so everything doesn't look the same
BuildingColor = Math.GetRandomNumber(3)
If (BuildingColor = 1) Then
GraphicsWindow.BrushColor = "IndianRed"
ElseIf (BuildingColor = 2) Then
GraphicsWindow.BrushColor = "SpringGreen"
ElseIf (BuildingColor = 3) Then
GraphicsWindow.BrushColor = "Cyan"
EndIf
'Draw the building
GraphicsWindow.FillRectangle(CitySize, GroundLevel - (FloorHeight * BH), BW, (FloorHeight * BH))
'I added an outline to make the buildings look better
GraphicsWindow.PenColor = "RoyalBlue"
GraphicsWindow.DrawRectangle(CitySize, GroundLevel - (FloorHeight * BH), BW, (FloorHeight * BH))
'as we draw each building we also draw the windows
'the size of the building determines how many windows it has
WW = 0
WH = 0
For WH = 1 To BH - 1
For WW = 1 To BW / 10
'some lights are on and some are off
If (Math.GetRandomNumber(2) = 2) Then
GraphicsWindow.BrushColor = "Khaki"
Else
GraphicsWindow.BrushColor = "Grey"
EndIf
'draw the window
GraphicsWindow.FillRectangle(CitySize - 5 + (WW * WindowWidthOffset * 3), GroundLevel - 4 - (FloorHeight * WH), WindowWidth, WindowHeight)
EndFor
EndFor
CitySize = CitySize + 4 + Array.GetValue(BuildingWidth, DC)
EndFor
SetWind()
EndSub
'---------------------------------------------------------------------------
Sub SetWind
'this code is very similar to the original
'create wind
Wind = Math.GetRandomNumber(10) - 5
If (Math.GetRandomNumber(3) = 2) Then
If (Wind > 0) Then
Wind = Wind + Math.GetRandomNumber(10)
Else
Wind = Wind - Math.GetRandomNumber(10)
EndIf
EndIf
'---------------------------------------------------------------------------
Sub DrawBanana
'go to the next frame in the animation
BananaState = BananaState + 1
GraphicsWindow.BrushColor = "#FFFF00"
' left pointing ( banana
If (BananaState = 1 ) Then
GraphicsWindow.FillRectangle(BananaX, BananaY, 2, 4)
GraphicsWindow.FillRectangle(BananaX + 2, BananaY - 2, 2, 8)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY - 4, 2, 4)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY + 4, 2, 4)
EndIf
'upward pointing ^ banana
If (BananaState = 2) Then
'rotate the banana the right way
If (Thrower = 1) Then
GraphicsWindow.FillRectangle(BananaX - 4, BananaY + 4, 4, 2)
GraphicsWindow.FillRectangle(BananaX - 2, BananaY + 2, 8, 2)
GraphicsWindow.FillRectangle(BananaX, BananaY, 4, 2)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY + 4, 4, 2)
Else
GraphicsWindow.FillRectangle(BananaX - 4, BananaY - 2, 4, 2)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY - 2, 4, 2)
GraphicsWindow.FillRectangle(BananaX - 2, BananaY, 8, 2)
GraphicsWindow.FillRectangle(BananaX, BananaY + 2, 4, 2)
EndIf
EndIf
'right pointing ) banana
If (BananaState = 3) Then
GraphicsWindow.FillRectangle(BananaX - 2, BananaY - 4, 2, 4)
GraphicsWindow.FillRectangle(BananaX, BananaY - 2, 2, 8)
GraphicsWindow.FillRectangle(BananaX + 2, BananaY, 2, 4)
GraphicsWindow.FillRectangle(BananaX - 2, BananaY + 4, 2, 4)
EndIf
'downward pointing V banana
If (BananaState = 4) Then
'rotate the banana the right way
If (Thrower = 1) Then
GraphicsWindow.FillRectangle(BananaX - 4, BananaY - 2, 4, 2)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY - 2, 4, 2)
GraphicsWindow.FillRectangle(BananaX - 2, BananaY, 8, 2)
GraphicsWindow.FillRectangle(BananaX, BananaY + 2, 4, 2)
Else
GraphicsWindow.FillRectangle(BananaX - 4, BananaY + 4, 4, 2)
GraphicsWindow.FillRectangle(BananaX - 2, BananaY + 2, 8, 2)
GraphicsWindow.FillRectangle(BananaX, BananaY, 4, 2)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY + 4, 4, 2)
EndIf
EndIf
EndSub
'---------------------------------------------------------------------------
Sub EraseBanana
GraphicsWindow.BrushColor = GraphicsWindow.BackgroundColor
If (BananaState = 1 ) Then
GraphicsWindow.FillRectangle(BananaX, BananaY, 2, 4)
GraphicsWindow.FillRectangle(BananaX + 2, BananaY - 2, 2, 8)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY - 4, 2, 4)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY + 4, 2, 4)
EndIf
'upward pointing ^ banana
If (BananaState = 2) Then
'rotate the banana the right way
If (Thrower = 1) Then
GraphicsWindow.FillRectangle(BananaX - 4, BananaY + 4, 4, 2)
GraphicsWindow.FillRectangle(BananaX - 2, BananaY + 2, 8, 2)
GraphicsWindow.FillRectangle(BananaX, BananaY, 4, 2)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY + 4, 4, 2)
Else
GraphicsWindow.FillRectangle(BananaX - 4, BananaY - 2, 4, 2)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY - 2, 4, 2)
GraphicsWindow.FillRectangle(BananaX - 2, BananaY, 8, 2)
GraphicsWindow.FillRectangle(BananaX, BananaY + 2, 4, 2)
EndIf
EndIf
'right pointing ) banana
If (BananaState = 3) Then
GraphicsWindow.FillRectangle(BananaX - 2, BananaY - 4, 2, 4)
GraphicsWindow.FillRectangle(BananaX, BananaY - 2, 2, 8)
GraphicsWindow.FillRectangle(BananaX + 2, BananaY, 2, 4)
GraphicsWindow.FillRectangle(BananaX - 2, BananaY + 4, 2, 4)
EndIf
'downward pointing V banana
If (BananaState = 4) Then
'rotate the banana the right way
If (Thrower = 1) Then
GraphicsWindow.FillRectangle(BananaX - 4, BananaY - 2, 4, 2)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY - 2, 4, 2)
GraphicsWindow.FillRectangle(BananaX - 2, BananaY, 8, 2)
GraphicsWindow.FillRectangle(BananaX, BananaY + 2, 4, 2)
Else
GraphicsWindow.FillRectangle(BananaX - 4, BananaY + 4, 4, 2)
GraphicsWindow.FillRectangle(BananaX - 2, BananaY + 2, 8, 2)
GraphicsWindow.FillRectangle(BananaX, BananaY, 4, 2)
GraphicsWindow.FillRectangle(BananaX + 4, BananaY + 4, 4, 2)
EndIf
'the draw-erase cycle of the banana is complete so reset state to startover
BananaState = 0
EndIf
'if banana is in the sun's air space then redraw sun
If (BananaUnderSun = "True") Then
DoSun()
EndIf
EndSub
'---------------------------------------------------------------------------
Sub DoMiniExplosion
'if the banana hits something other than the gorilla, just make a small explosion
If (SoundOnOff = "On") Then
Sound.Play(Path + "\Explo Classic.wav")
EndIf
'erase the Banana
EraseBanana()
GraphicsWindow.BrushColor = "#B22222"
For C = 1 To NumExplosions - 5
GraphicsWindow.FillEllipse(BananaX - C / 4, BananaY - C / 4, C , C)
Program.Delay(25)
EndFor
GraphicsWindow.BrushColor = "#0000FF"
'add 1 to cleanup explosion
For C = 1 To NumExplosions - 4
GraphicsWindow.FillEllipse(BananaX - C / 4, BananaY - C / 4, C, C)
Program.Delay(25)
EndFor
Sound.Stop(Path + "\Explo Classic.wav")
If (ShatterGlass = "True" And SoundOnOff = "On") Then
Sound.Play(Path + "\glass_shatter_c.wav")
Program.Delay(1100)
Sound.Stop(Path + "\glass_shatter_c.wav")
ShatterGlass = "False"
EndIf
EndSub
'---------------------------------------------------------------------------
Sub DoExplosion
If (SoundOnOff = "On") Then
Sound.Play(Path + "\bigboom.wav")
EndIf
GraphicsWindow.BrushColor = "#B22222"
For C = 1 To NumExplosions
GraphicsWindow.FillEllipse(BananaX - C , BananaY - C , C * 3 , C * 2)
Program.Delay(25)
EndFor
GraphicsWindow.BrushColor = "#0000FF"
'add 1 to cleanup explosion
For C = 1 To NumExplosions + 1
GraphicsWindow.FillEllipse(BananaX - C , BananaY - C , C * 3 , C * 2)
Program.Delay(25)
EndFor
Sound.Stop(Path + "\bigboom.wav")
EndSub
'---------------------------------------------------------------------------
Sub DrawGorillas
'throwing is a flag that properly shows the gorilla images
If (Throwing = 0) Then
'no one is throwing
GraphicsWindow.DrawImage(GorillaArmsDown, G1X, G1Y)
GraphicsWindow.DrawImage(GorillaArmsDown, G2X, G2Y)
ElseIf (Throwing = 1) Then
'gorilla 1 is throwing
GraphicsWindow.DrawImage(GorillaRightUp, G1X, G1Y)
GraphicsWindow.DrawImage(GorillaArmsDown, G2X, G2Y)
ElseIf (Throwing = 2) Then
'gorilla 2 is throwing
GraphicsWindow.DrawImage(GorillaArmsDown, G1X, G1Y)
GraphicsWindow.DrawImage(GorillaLeftUp, G2X, G2Y)
ElseIf (Throwing = 3) Then
'gorilla 1 won, raise his arms in victory
GraphicsWindow.DrawImage(GorillaVictory, G1X, G1Y)
GraphicsWindow.DrawImage(GorillaArmsDown, G2X, G2Y)
ElseIf (Throwing = 4) Then
'gorilla 2 won, raise his arms in victory
GraphicsWindow.DrawImage(GorillaArmsDown, G1X, G1Y)
GraphicsWindow.DrawImage(GorillaVictory, G2X, G2Y)
ElseIf (Throwing = 5) Then
'its a tie, raise one arm of each gorilla
GraphicsWindow.DrawImage(GorillaLeftUp, G1X, G1Y)
GraphicsWindow.DrawImage(GorillaRightUp, G2X, G2Y)
EndIf
EndSub
'---------------------------------------------------------------------------
Sub DoSun
'set position of sun
SunX = ScrX / 2
SunY = 60
'clear old sun
GraphicsWindow.BrushColor = "#0000FF"
GraphicsWindow.FillRectangle(SunX - 20, SunY - 20, 40, 40)
'draw new sun
'body
GraphicsWindow.BrushColor = "#FFFF00"
GraphicsWindow.FillEllipse(SunX -15, SunY -15, 30, 30)
'---------------------------------------------------------------------------
Sub Intro
'black background
GraphicsWindow.BackgroundColor = "#000000"
'display text
GraphicsWindow.FontSize = 16
GraphicsWindow.BrushColor = "#FFFFFF"
'When a key is pressed fade the text to the background color
ColorDown = 100
For T = 1 To 9
GraphicsWindow.DrawText(MidScrX - 100, Y + 28, "Small Basic G O R I L L A S")
ColorDown = ColorDown - 10
String = "#" + ColorDown + ColorDown + ColorDown
GraphicsWindow.BrushColor = String
GraphicsWindow.DrawText(MidScrX - 220, Y + 56, "Your mission is to hit your opponent with the exploding")
GraphicsWindow.DrawText(MidScrX - 238, Y + 72, "banana by varing the angle and power of your throw, taking")
GraphicsWindow.DrawText(MidScrX - 215, Y + 88, "into account wind speed, gravity, and the city skyline.")
GraphicsWindow.DrawText(MidScrX - 245, Y + 104, "The wind speed is shown by a directional arrow at the bottom")
GraphicsWindow.DrawText(MidScrX - 210, Y + 120, "of the playing field, its length relative to its strength.")
GraphicsWindow.DrawText(MidScrX - 95, Y + 150, "To start, press any key")
If (T = 1) Then
BuildingInit()
DrawCity()
If (SoundOnOff = "On") Then
Sound.PlayAndWait(Path + "\computer_any_key.wav")
Endif
WaitForKeypress()
EndIf
Program.Delay(50)
EndFor
GraphicsWindow.Clear()
Options()
FadeIn()
EndSub
'---------------------------------------------------------------------------
Sub FadeIn
'fade in blue background
'background color should be black
For T = 1 To 15
HexColor = Text.GetSubText(HexaDecimal, T, 1) + "0"
String = "#0000" + HexColor
GraphicsWindow.BackgroundColor = String
Program.Delay(150)
EndFor
'we're not quite at the background color, just set it
GraphicsWindow.BackgroundColor = "#0000FF"
EndSub
'---------------------------------------------------------------------------
Sub UpdateGravityNumRounds
'clear old values
GraphicsWindow.BrushColor = "#000000"
GraphicsWindow.FillRectangle(X + 200, Y + 104, 170, 20)
GraphicsWindow.FillRectangle(X + 100, Y + 150, 270, 20)
'draw new values
GraphicsWindow.BrushColor = "#FFFFFF"
GraphicsWindow.DrawText(X + 200, Y + 104, "Set Gravity (" + Gravity + ")")
GraphicsWindow.DrawText(X + 100, Y + 150, "Number of rounds to play (" + NumRounds + ")")
EndSub
'---------------------------------------------------------------------------
Sub DrawSoundButtons
'on
GraphicsWindow.DrawRectangle(380, 191, 50, 30)
If (SoundOnOff = "On") Then
GraphicsWindow.BrushColor = "#00FF00"
Else
GraphicsWindow.BrushColor = "#FFFFFF"
EndIf
GraphicsWindow.DrawText(393, 195, "On")
'---------------------------------------------------------------------------
Sub Options
'flag for mouseclicks
SetOptions = "True"
'print some options
GraphicsWindow.FontSize = 16
GraphicsWindow.BrushColor = "#FFFFFF"
GraphicsWindow.DrawText(X + 115, Y + 56, "Use the arrow buttons to change the value for each option.")
UpdateGravityNumRounds()
GraphicsWindow.DrawText(X + 280, Y + 195, "Sound")
GraphicsWindow.DrawText(X + 218, Y + 320, "Press ESC while playing to exit.")
GraphicsWindow.DrawText(X + 130, Y + 370, "Sound files - wavsource.com - shockwave-sound.com")
GraphicsWindow.DrawText(X + 220, Y + 420, "Press any key to begin playing.")
'---------------------------------------------------------------------------
Sub DoShot
'GetInputT() 'old subroutine to accept input from a text window
GetInput()
'change gorilla 2 angle so its throw goes left and not right
If (Thrower = 2) Then
Angle = 90 + (90 - Angle)
EndIf
OnScreen = "True"
WhatWasHit = "Nothing"
'time variable used in MoveShot()
T = 0.0
'Draw the Gorilla Throwing the Banana
If (Thrower = 1 ) Then
GraphicsWindow.DrawImage(GorillaRightUp, G1X, G1Y)
Else
GraphicsWindow.DrawImage(GorillaLeftUp, G2X, G2Y)
EndIf
Program.Delay(500)
'draw both gorillas with arms down
GraphicsWindow.DrawImage(GorillaArmsDown, G1X, G1Y)
GraphicsWindow.DrawImage(GorillaArmsDown, G2X, G2Y)
' loop until we hit something or go off screen(left, right)
While (WhatWasHit = "Nothing")
'erase the old banana before we move it to a new position
If (OnScreen = "True") Then
EraseBanana()
EndIf
'advance time
T = T + 0.1
'move the banana to a new position
MoveShot()
'did we go off screen left or right
If (BananaX < 10 Or BananaX > ScrX - 10) Then
WhatWasHit = "OutOfBounds"
OnScreen = "False"
Goto ContactMade
EndIf
'did we throw the banana too high
If (BananaY < 10) Then
OnScreen = "False"
Else
OnScreen = "True"
EndIf
'is the banana below the groundlevel
If (BananaY > GroundLevel) Then
WhatWasHit = "OutOfBounds"
OnScreen = "False"
EndIf
'if banana is not too high, draw it
If (OnScreen = "True" And BananaY >= 20) Then
DrawBanana()
EndIf
'delay the program to see the banana movement
Program.Delay(15)
'check if banana is onscreen and goto Offscreen label if it is not to avoid targetinvocation errors
If (OnScreen = "False") Then
Goto OffScreen
EndIf
'check for collisions
'did we hit the sun
BananaUnderSun = "False"
'SunHit <> "True" And
If (BananaX >= SunX - 25 And BananaX <= SunX + 25 And BananaY >= SunY - 25 And BananaY <= SunY + 25) Then
If (SunMouth = "Smile" And SoundOnOff = "On") Then
Sound.Play(Path + "\ouch.wav")
Endif
'the sun is shocked it got hit
SunMouth = "O"
'DoSun() 'Sun is redrawn in erasebanana subroutine
SunHit = "True"
BananaUnderSun = "True"
'contact made, but continue
'Goto ContactMade
EndIf
'did we hit a gorilla
'g1 location
If (BananaX + BananaSize >= G1X And BananaX - BananaSize <= G1X + GorillaWidth And BananaY + BananaSize >= G1Y And BananaY - BananaSize <= G1Y + GorillaHeight) Then
'if g2 hit g1 or g1 hit itself - g2 scores point
WhatWasHit = "Gorilla1"
GorillaHit = "True"
Dancer = 2
EraseBanana()
'center the explosion on the gorilla
BananaX = G1X + GorillaWidth / 3 - 1
BananaY = G1Y + GorillaHeight / 2
DoExplosion()
G2Score = G2Score + 1
VictoryDance()
Goto ContactMade
EndIf
'g2 location
If (BananaX + BananaSize >= G2X And BananaX - BananaSize <= G2X + GorillaWidth / 2 And BananaY + BananaSize >= G2Y And BananaY - BananaSize <= G2Y + GorillaHeight / 2) Then
'if g1 hit g2 or g2 hit itself - g1 scores point
WhatWasHit = "Gorilla2"
GorillaHit = "True"
Dancer = 1
EraseBanana()
'center the explosion on the gorilla
BananaX = G2X + GorillaWidth / 2
BananaY = G2Y + GorillaHeight / 2
DoExplosion()
G1Score = G1Score + 1
VictoryDance()
Goto ContactMade
EndIf
'did we hit anything else - ground, building
'Grab the colors under banana and check for colors that will cause the banana to explode
'BananaPX1, BananaPY1, BananaPX2, BananaPY2 are used to capture a square directly under the banana, otherwise the bounding box would give false positives
If (BananaState = 1) Then
BananaPX1 = 0
BananaPY1 = -4
BananaPX2 = 5
BananaPY2 = 7
EndIf
If (BananaState = 2) Then
BananaPX1 = -4
BananaPY1 = 0
BananaPX2 = 7
BananaPY2 = -5
EndIf
If (BananaState = 3) Then
BananaPX1 = -2
BananaPY1 = -4
BananaPX2 = 3
BananaPY2 = 7
EndIf
If (BananaState = 4) Then
BananaPX1 = -4
BananaPY1 = -2
BananaPX2 = 7
BananaPY2 = 3
EndIf
For GUY = BananaY + BananaPY1 To BananaY + BananaPY2
For GUX = BananaX + BananaPX1 To BananaX + BananaPX2
CheckColor = GraphicsWindow.GetPixel(GUX, GUY)
If (CheckColor = "#00FFFF" Or CheckColor = "#CD5C5C" Or CheckColor = "#00FF7F" Or CheckColor = "#4169E1" Or CheckColor = "#F0E68C") Then
WhatWasHit = "Object"
DoMiniExplosion()
If (CheckColor = "Khaki" Or CheckColor = "Grey") Then
'shatter glass
ShatterGlass = "True"
EndIf
Goto ContactMade
EndIf
EndFor
EndFor
OffScreen:
EndWhile
ContactMade:
Sound.Stop(Path + "\ouch.wav")
EndSub
'---------------------------------------------------------------------------
Sub PlayGame
'don't always let player 1 throw first
Thrower = Math.GetRandomNumber(2)
G1Score = 0
G2Score = 0
For NR = 1 To NumRounds
GraphicsWindow.Clear()
RoundInit()
DrawCity()
DrawGorillas()
SunMouth = "Smile"
DoSun()
UpdateScore()
GorillaHit = "False"
While (GorillaHit = "False")
'since 3 - 1 = 2 and 3 - 2 = 1, this will swap the thrower and target
Thrower = 3 - Thrower
TargetGorilla = 3 - Thrower
DoShot()
'if the sun was hit on the previous shot reset to smile
'if sunhit then dosunhappy
If (SunMouth = "O") Then
SunMouth = "Smile"
SunHit = "False"
DoSun()
EndIf
EndWhile
EndFor
'wait a second before we clear the screen (in dogameover)
Program.Delay(1000)
DoGameOver()
EndSub
GraphicsWindow.BrushColor = "#FFFFFF"
GraphicsWindow.DrawText(MidScrX - 20, 80, "Quit")
GraphicsWindow.DrawText(MidScrX - 75, 100, "Are you sure? Y/N")
If (SoundOnOff = "On") Then
'Sound.PlayAndWait(Path + "\homerquit.wav")
Sound.Play(Path + "\homerquit.wav")
Program.Delay(1)
EndIf
WaitForKeypress()
If (Key = "Y") Then
DoGameOver()
Else
'erase box and continue playing
GraphicsWindow.BrushColor = GraphicsWindow.BackgroundColor
'make a box slightly bigger to erase question
GraphicsWindow.FillRectangle(MidScrX - 101, 79, 202, 42)
EndIf
Sound.Stop(Path + "\homerquit.wav")
EndSub
'---------------------------------------------------------------------------
Sub Rect
'takes variable mousebox containing four arguements, left top right & bottom (in string format "################" - 4 four digit numbers together)
'and sets status variable mouseinside to true if mousex and mousey are inside
If (Text.GetLength(MouseBox) = 16) Then
Left = Text.GetSubText(MouseBox,1,4)
Top = Text.GetSubText(MouseBox,5,4)
Right = Text.GetSubText(MouseBox,9,4)
Bottom = Text.GetSubText(MouseBox,13,4)
If (MouseX >= Left And MouseY >= Top And MouseX <= Right And MouseY <= Bottom) Then
MouseInside = "True"
Else
MouseInside = "False"
EndIf
Else
'mousebox string incorrect length
MouseInside = "False"
EndIf
EndSub
'---------------------------------------------------------------------------
Sub OnMouseDown
If (SetOptions = "True") Then
MouseX = GraphicsWindow.MouseX
MouseY = GraphicsWindow.MouseY
'gravity up .1
MouseBox = "0380009904300129"
Rect()
If (MouseInside = "True") Then
Gravity = Gravity + 0.1
EndIf
'gravity down .1
MouseBox = "0450009905000129"
Rect()
If (MouseInside = "True" And Gravity > 0.1) Then
Gravity = Gravity - 0.1
EndIf
'number of rounds up 1
MouseBox = "0380014504300175"
Rect()
If (MouseInside = "True" And NumRounds < 18) Then
NumRounds = NumRounds + 1
EndIf
'number of rounds down 1
MouseBox = "0450014505000175"
Rect()
If (MouseInside = "True" And NumRounds > 1) Then
NumRounds = NumRounds - 1
EndIf
'sound on
MouseBox = "0380019104300221"
Rect()
If (MouseInside = "True") Then
SoundOnOff = "On"
EndIf
'sound off
MouseBox = "0450019105000221"
Rect()
If (MouseInside = "True") Then
SoundOnOff = "Off"
EndIf
DrawSoundButtons()
UpdateGravityNumRounds()
EndIf
EndSub
'---------------------------------------------------------------------------
Sub WaitForKeypress
'wait for the user to press a key
WaitingForKeypress = "Yes"
While (WaitingForKeypress = "Yes")
'do nothing
'the checkkey subroutine will change waitingforkeypress to "no" when an event is triggered
EndWhile
EndSub
'---------------------------------------------------------------------------
Sub DoKeyDown
Key = GraphicsWindow.LastKey
'in case a user has caps lock on
Key = Text.ConvertToUpperCase(Key)
If (WaitingForKeypress = "Yes") Then
WaitingForKeypress = "No"
Else
'the sound can be changed at any time
If (Key = "S") Then
ToggleSound()
EndIf
EndIf
EndSub
Program Listing: NLQ667-1