Entries by JL235/Wed. Workshop (SoCoder)

JL235's Wednesday Workshop Entries
More of JL235's stuff.
Blog, Profile, Showcases, Code snippets, Articles, W.W Entries, Recent Posts

Content posted during the past 12 weeks.

7 Entries Latest Entries First
Square Surprise

Created for Workshop #141 | Comments (0) | No Votes

Keep within the rectangle.

Mouse

Show Sourcecode for this entry

Hide Sourcecode

; Square Surprise v.1
;	by Joseph Lenton - JL235@Kent.ac.uk
; 9th March 2008, 2:20am
; if used or distributed without credit being given then I'll come and break your legs
;
; Built for Wednesday Workshop 141 - The Rectangle Challenge
; at SoCoder.net

; notes:
;  - the players x, y position is presumed to be equal to the mouse position

	; ### Constants ###
	
; the starting width and height of the computer box
Const SQUARE_WIDTH = 50
Const SQUARE_HEIGHT = 50
Const SQUARE_SPEED# = 2

; the starting player width and height
Const PLAYER_WIDTH = 180
Const PLAYER_HEIGHT = 180

Const SCORE_INCREMENT# = 5.0
Const SCORE_INCREMENT_INCREMENT# = 0.03

Const DEAD_TEXT$ = "You Died!"
Const RESET_TEXT$ = "press any key to restart"

Const COLOR_OFFSET = 50

	; ### Types ###
	
; Color
; represents a color which glows and changes
; (probably should have been called GlowColor like the version I wrote in Java)
Type Color
	Field r.ColorComponent
	Field g.ColorComponent
	Field b.ColorComponent
End Type

; Color Component
; the indevidual glowing component of a color
Type ColorComponent
	Field col#
	Field max
	Field min
	Field inc#
End Type

; Square
; all the data about a square,
Type Square
	; the centre (NOT top-left) of the square on screen
	Field x#, y#
	
	Field destX, destY
	Field deltaX#, deltaY#
	
	; the width and height of the square
	Field w, h
	
	Field col.Color
End Type

; Player
; all the data about the player
Type Player
	; the centre (NOT top-left) of the square on screen
	Field x, y
	
	; CURRENT width, height of player
	Field w, h
	
	Field col.Color
End Type

; Score
; represents the score data in the world,
Type Score
	; the current score
	Field score#
	; how much the score will be incremented by
	Field increment#
	; how much the score increment will be incremented by
	Field increment_increment#
End Type

	; ### Initialize! ###
	
Graphics 800, 600, 0, 2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
AppTitle "Square Surprise!"
	
Local square.Square = Null
Local player.Player = Null
Local score.Score = Null

; when this is true the player is playing the game and the world will be updated
Local alive = False
; when this is true the world will be updated
Local reset = True

	; ### Main Loop! ###
; (it's been too long since I've written that)
While Not KeyDown(1)
	; reset
	If Not alive
		If reset
			player = initializePlayer(player, GraphicsWidth()/2, GraphicsHeight()/2)
			square = initializeSquare(square, GraphicsWidth()/2, GraphicsHeight()/2)
			score = initializeScore(score)
			alive = True
			reset = False
		Else
			; check for a keypress
			reset = GetKey() <> 0
		EndIf
	; update
	Else
		updateSquare(square)
		updatePlayer(player)
		alive = isSquareInsidePlayer(player, square)
		incrementScore(score)
	EndIf
	
	; draw
	Cls
	drawSquare(square)
	drawPlayer(player)
	drawScore(score)
	If Not alive
		drawResetText()
	EndIf
	Flip
Wend
End
; end of program, here on are:

	; ### Function Declarations ###
	
	; ## Initialize Functions ###
	; these functions either reset the given type to it's initial state
	; and return it, or create a new one and set it to it's initial state.
	
; Initialize Score
Function initializeScore.Score(s.Score)
	If s = Null Then s = New Score
	
	s\score# = 0.0
	s\increment# = SCORE_INCREMENT#
	s\increment_increment# = SCORE_INCREMENT_INCREMENT#
	
	Return s
End Function

; Initialize Square
Function initializeSquare.Square(s.Square, x, y)
	If s = Null Then s = New Square
	
	s\x = x
	s\y = y
	
	s\destX = s\x
	s\destY = s\y
	
	s\deltaX = 0
	s\deltaY = 0
	
	s\w = SQUARE_WIDTH
	s\h = SQUARE_HEIGHT
	
	s\col = initializeColor(s\col)
	
	Return s
End Function

; Initialize Player
; x, y - player start position
; creates and returns a new player type with the given location
; and also moves the mouse to the given location
Function initializePlayer.Player(p.Player, x, y)
	If p = Null Then p = New Player
	
	MoveMouse(x, y)
	; position
	p\x = x
	p\y = y
	; size
	p\w = PLAYER_WIDTH
	p\h = PLAYER_HEIGHT
	; color
	p\col = initializeColor(p\col)
	
	Return p
End Function

; Initialize Color
Function initializeColor.Color(col.Color)
	If col = Null Then col = New Color
	
	col\r = initializeColorComponent(col\r)
	col\g = initializeColorComponent(col\g)
	col\b = initializeColorComponent(col\b)
	
	Return col
End Function

; Initialize Color Component
Function initializeColorComponent.ColorComponent(col.ColorComponent)
	If col = Null Then col = New ColorComponent
	
	col\col# = Rand(100, 255)
	col\max = isValidColorComponent(col\col + COLOR_OFFSET)
	col\min = isValidColorComponent(col\col - COLOR_OFFSET)
	col\inc# = Rnd(-3.0, 3.0)
	
	Return col
End Function

; Is Valid Color Component
; a color component is valid if it is greater or equal to 0
; and less or equal to 255.
; If the given colour is valid then it will be returnd.
; If it is not then the closest valid value (0 or 255)
; will be returned instead
Function isValidColorComponent(col)
	If col < 0
		Return 0
	Else If col > 255
		Return 255
	Else
		Return col
	EndIf
End Function

	; ## Update Functions ##

; Update Square
Function updateSquare(s.Square)
	s\x# = s\x# + s\deltaX#
	s\y# = s\y# + s\deltaY#
	
	; if we are moving away from the destination
	If isSquareMovingAwayFromDestination(s)
		setRandomDestination(s)
	EndIf
	
	updateColor(s\col)
End Function

; Is Square Moving Away From Destination
; well, is it?
Function isSquareMovingAwayFromDestination(s.Square)
	Return (s\destX# - s\x#) * s\deltaX# <= 0 Or (s\destY# - s\y#) * s\deltaY# <= 0
End Function

; Set Random Destination
Function setRandomDestination(s.Square)
	; set a new one
	s\destX = Rand(0, GraphicsWidth())
	s\destY = Rand(0, GraphicsHeight())
	Local angle# = ATan2(s\destY-s\y#, s\destX-s\x#)
	s\deltaX# = SQUARE_SPEED*Cos(angle#)
	s\deltaY# = SQUARE_SPEED*Sin(angle#)
End Function

; Update Player
; p - the player to update
; moves the given player to the current mouse co-ordinates on the screen
Function updatePlayer(p.Player)
	p\x = MouseX()
	p\y = MouseY()
	updateColor(p\col)
End Function

; Update Color
Function updateColor(c.Color)
	updateColorComponent(c\r)
	updateColorComponent(c\g)
	updateColorComponent(c\b)
End Function

; Update Color Component
Function updateColorComponent(c.ColorComponent)
	c\col# = c\col# + c\inc#
	
	If c\col# > c\max
		c\col = c\max
		c\inc = -c\inc
	Else If c\col# < c\min
		c\col# = c\min
		c\inc = -c\inc
	EndIf
End Function

; Is Square Inside Player
; p - the player to compare with
; s - the square to compare against
; returns true if the square is completely within the player, false if not.
Function isSquareInsidePlayer(p.Player, s.Square)
	Local w = (p\w-s\w)/2
	Local h = (p\h-s\h)/2
	Return ((s\x-w < p\x) And (s\x+w > p\x) And (s\y-h < p\y) And (s\y+h > p\y))
End Function

; Increment Score
; increments the score and the amount of which it is incremented by
Function incrementScore(score.Score)
	score\increment# = score\increment# + score\increment_increment#
	score\score = score\score + score\increment#
End Function

	; ## Drawing Functions ##

; Set Color
Function setColor(col.Color)
	Color col\r\col, col\g\col, col\b\col
End Function

; Draw Square
Function drawSquare(s.Square)
	setColor(s\col)
	Rect s\x-s\w/2, s\y-s\h/2, s\w, s\h, True
End Function

; Draw Player
Function drawPlayer(p.Player)
	setColor(p\col)
	Rect p\x-p\w/2, p\y-p\h/2, p\w, p\h, False
End Function

; Draw Score
Function drawScore(score.Score)
	Color 255, 255, 255
	Text 5, 5, "Score: " + Int(score\score#)
End Function

; Draw Reset Text
Function drawResetText()
	Local strHeight = (StringHeight(DEAD_TEXT$) + StringHeight(RESET_TEXT$))
	Color 255, 255, 255
	Text (GraphicsWidth()-StringWidth(DEAD_TEXT$))/2, (GraphicsHeight()-strHeight)/2, DEAD_TEXT$
	Text (GraphicsWidth()-StringWidth(RESET_TEXT$))/2, GraphicsHeight()/2, RESET_TEXT$
End Function

	; ## stuff missing from standard command library ##

; Max
; returns the larger of the two values
Function max(a, b)
	If (a > b)
		Return a
	EndIf
	Return b
End Function

; Min
; returns the smaller of the two values
Function min(a, b)
	If (a < b)
		Return a
	EndIf
	Return b
End Function

Mouse Madness

Created for Workshop #103 | Comments (1) | Rating 50%

Keep the ball inside the square

Mouse

Click to Download this entry

Pick a card!

Created for Workshop #097 | Comments (2) | Rating 25%

Are you a mind reader? Pick a card to find out!

Keyboard

Show Sourcecode for this entry

Hide Sourcecode

AppTitle("Pick a card!")

; card type
Type Card
	Field suit$
	Field num$
End Type

; main loop
While Not KeyDown(1)
	myCard.Card = NewRandomCard()
	
	Print "pick a card, any card!"
	
	yourCard.Card = New Card
		
	acceptInput = False
	While Not acceptInput
		suit$ = Input$("pick the suit first (c,d,h,s): ")
		If cardSuitString$(suit$) = ""
			Print "that's not acceptable, try again"
		Else
			yourCard\suit$ = cardSuitString$(suit$)
			acceptInput = True
		EndIf
	Wend
	
	acceptInput = False
	While Not acceptInput
		num$ = Input$("now pick the number (1 to 13): ")
		If CardNumber$(Int(num$)) = ""
			Print "that's not acceptable, try again"
		Else
			yourCard\num$ = CardNumber$(Int(num$))
			acceptInput = True
		EndIf
	Wend
	
	Print ""
	Print "ok, your card is the: "
	PrintCard( yourCard )
	Print ""
	If yourCard\suit$ = myCard\suit$ And yourCard\num$ = myCard\num$
		Print "WOW!, you must be a (pc) mind-reader!"
	Else
		Print "Sorry, that was not my card."
		Print "My card was the:"
		PrintCard( myCard )
	EndIf
	
	Print ""
Wend

Function NewRandomCard.Card()
	Local c.Card = New Card
	
	c\num$ = CardNumber$(Rand(1, 13))
	c\suit$ = CardSuitNum$(Rand(1, 4))

	Return c
End Function

Function PrintCard(card.Card)
	Print "The " + card\num$ + " of " + card\suit$ + "."
End Function

Function CardNumber$(num)
	Select num
	Case 1
		Return "ace"
	Case 2
		Return "two"
	Case 3
		Return "three"
	Case 4
		Return "four"
	Case 5
		Return "five"
	Case 6
		Return "six"
	Case 7
		Return "seven"
	Case 8
		Return "eight"
	Case 9
		Return "nine"
	Case 10
		Return "ten"
	Case 11
		Return "jack"
	Case 12
		Return "queen"
	Case 13
		Return "king"
	Default
		Return ""
	End Select
End Function

Function CardSuitNum$(num)
	Select num
	Case 1
		Return "clubs"
	Case 2
		Return "diamonds"
	Case 3
		Return "hearts"
	Case 4
		Return "spades"
	End Select
End Function

Function CardSuitString$(num$)
	Select num$
	Case "c"
		Return "clubs"
	Case "d"
		Return "diamonds"
	Case "h"
		Return "hearts"
	Case "s"
		Return "spades"
	Default 
		Return ""
	End Select
End Function

Physics Balls

Created for Workshop #082 | Comments (7) | Rating 25%

Not much of a game.

Mouse

Click to Download this entry

Missile Command

Created for Workshop #081 | Comments (0) | No Votes

Shoot the missiles from out of the sky.

Mouse

Show Sourcecode for this entry

Hide Sourcecode

// MISSILE COMMAND
// by Joseph Lenton
// 29/12/06

Program
Uses pure2d, keyset

const
    GRAPHICS_WIDTH = 800
    GRAPHICS_HEIGHT = 600
    
    LAND_HEIGHT = 500
    
    BASE_SIZE = 15
    
    PLAYER_MISSILE_SIZE = 3
    PLAYER_MISSILE_SPEED = 4
    PLAYER_MISSILE_COLLISION_OFFSET = 3
    
    MISSILE_SPEED = 3
    MISSILE_SIZE = 3
    MISSILE_RANDOMIZER = 10
    MISSILE_START_ANGLE = 120
    MISSILE_END_ANGLE = 60
    
    EXPLOSION_MAXIMUM_SIZE = 80
    EXPLOSION_SIZE_INCRIMENT = 6

type Bases = record
    x : integer
    y : integer
endtype

type PlayerMissiles = record
    x : real
    y : real
    destinationX : integer
    destinationY : integer
    deltaX : real
    deltaY : real
endtype

type Missiles = record
    x : real
    y : real
    origX : integer
    origY : integer
    deltaX : real
    deltaY : real
endtype

type Explosions = record
    x : integer
    y : integer
    size : integer
endtype 

// draw land
procedure drawLand()
begin
    RectC(0, LAND_HEIGHT, GRAPHICS_WIDTH, GRAPHICS_HEIGHT, ToRGBA(180,60,90), true) 
end

// BASES
// new base
Procedure newBase(x:Integer, y:Integer)
Begin
    base = NewItem(baseList)
    If Assigned(base)
        base.x = x
        base.y = y
    Else 
        MessageBox("Could not add base")
    EndIf
End

// draw bases
procedure drawBases()
begin
    loop base through baseList
        Ellipse(base.x, base.y, BASE_SIZE, BASE_SIZE, ToRGBA(255,255,255), true)
    endloop
end         

// PLAYER MISSILES
// new player missile
procedure newPlayerMissile(x:integer, y:integer, destinationX:integer, destinationY:integer)
var
    angle : real
begin
    playerMissile = newItem(playerMissileList)
    if assigned(playerMissile)
        playerMissile.x = x
        playerMissile.y = y
        playerMissile.destinationX = destinationX
        playerMissile.destinationY = destinationY
        
        angle = atan2(y-destinationY, x-destinationX)
        playerMissile.deltaX = cos(angle)*PLAYER_MISSILE_SPEED
        playerMissile.deltaY = sin(angle)*PLAYER_MISSILE_SPEED
    else
        messagebox("Could not add Player Missile")
    endif
end

// update player missiles
procedure updatePlayerMissiles()
begin
    loop playerMissile through playerMissileList
        playerMissile.x = playerMissile.x-playerMissile.deltaX
        playerMissile.y = playerMissile.y-playerMissile.deltaY
        
        if abs(playerMissile.x-playerMissile.destinationX) < PLAYER_MISSILE_COLLISION_OFFSET
            if abs(playerMissile.y-playerMissile.destinationY) < PLAYER_MISSILE_COLLISION_OFFSET
                newExplosion(playerMissile.x, playerMissile.y)
                free(playerMissile)
            endif
        endif 
    endloop
end

// draw player missiles
procedure drawPlayerMissiles()
begin
    loop playerMissile through playerMissileList
        ellipse(playerMissile.x, playerMissile.y, PLAYER_MISSILE_SIZE, PLAYER_MISSILE_SIZE, torgba(200, 60, 130))
    endloop
end

// MISSILES
// generate new missile
procedure generateNewMissile()
var
    randAngle:integer
    randX:integer
    
begin
    if Rand(0, MISSILE_RANDOMIZER) = 0
        randAngle = Rand(MISSILE_START_ANGLE, MISSILE_END_ANGLE)
        randX = Rand(50, GRAPHICS_WIDTH-50)
         
        newMissile(randAngle, randX, -10)
    endif
end

// new missile
procedure newMissile(angle:integer, x:integer, y:integer)
begin
    missile = newitem(missileList)
    if assigned(missile)
        missile.x = x
        missile.y = y
        missile.origX = x
        missile.origY = y
        
        missile.deltaX = cos(angle)*MISSILE_SPEED
        missile.deltaY = sin(angle)*MISSILE_SPEED 
   Else
        MessageBox("Could not add missile")
   EndIf
end

// draw missiles
procedure drawMissiles()
var
    randColor:integer
    
begin
    loop missile through missileList
        randColor = ToRGBA(Rand(30,225), Rand(30,225), Rand(30,225))
        Line(missile.origX, missile.origY, missile.x, missile.y, randColor)
        Ellipse(missile.x, missile.y, MISSILE_SIZE, MISSILE_SIZE, randColor, true)
    endloop
end

// update missiles
procedure updateMissiles()
begin
    loop missile through missileList
        missile.x = missile.x+missile.deltaX
        missile.y = missile.y+missile.deltaY
        
        if (missile.x < 0) or (missile.x > GRAPHICS_WIDTH) or (missile.y > LAND_HEIGHT)
            free(missile)
        else
            checkMissileBaseCollision(missile)
        endif
    endloop
end

// check missile base collision
procedure checkMissileBaseCollision(localMissile:^Missiles)
begin
    loop base through baseList
        if Abs(base.x-missile.x) < BASE_SIZE/2+MISSILE_SIZE/2
            if Abs(base.y-missile.y) < BASE_SIZE/2+MISSILE_SIZE/2
                free(base)
                free(missile)
                dec(playerLives)
            endif
        endif        
    endloop
end

// EXPLOSION
// new explosion
procedure newExplosion(x:integer, y:integer)
begin
    explosion = newitem(explosionList)
    if assigned(explosion)
        explosion.size = 1
        explosion.x = x
        explosion.y = y
    else
        messagebox("could not make new explosion")
    endif
end

// update explosions
procedure updateExplosions()
var
    x : integer
    y : integer
    
begin
    loop explosion through explosionList
        loop missile through missileList
            x = abs(missile.x-explosion.x)
            y = abs(missile.y-explosion.y)
    
            if sqrt(x*x + y*y) < explosion.size
                free(missile)
            endif
        endloop
        
        explosion.size = explosion.size+EXPLOSION_SIZE_INCRIMENT
        
        if explosion.size > EXPLOSION_MAXIMUM_SIZE
            free(explosion)
        endif
    endloop
end

// draw explosions
procedure drawExplosions()
begin
    loop explosion through explosionList
        ellipse(explosion.x, explosion.y, explosion.size, explosion.size, torgba(255,255,255))
    endloop
end

var
    playerLives : integer
    playerScore : integer
     
    baseList : list of Bases
    base : ^Bases

    playerMissileList : list of PlayerMissiles
    playerMissile : ^PlayerMissiles
    
    missileList : list of Missiles
    missile : ^Missiles
    
    explosionList : list of Explosions
    explosion : ^Explosions
    
    i : integer

Begin 
    OpenScreen(GRAPHICS_WIDTH, GRAPHICS_HEIGHT, 16, False)
    
    playerLives = 5
    
    for i = 1 to playerLives
        newBase(rand(50, GRAPHICS_WIDTH-50), LAND_HEIGHT)
    next   
    
    // main loop
    While (keydown(1)=0) and (playerLives > 0)
        if mousehits(0) > 0
            newPlayerMissile(0, LAND_HEIGHT, mousex(), mousey())
        endif
        if mousehits(1) > 0
            newPlayerMissile(GRAPHICS_WIDTH, LAND_HEIGHT, mousex(), mousey())
        endif
        
        // update everything
        updatePlayerMissiles
        updateExplosions
        generateNewMissile
        updateMissiles
           
        // draw everything
        Cls
        drawLand
        drawExplosions
        drawMissiles
        drawPlayerMissiles
        drawBases
        
        playerScore = playerScore+1
        pencolor(toRgba(255,255,255))
        Text(10, 52, "Score: "+playerScore)
        text(10, 64, "Lives: "+playerLives)
        Flip
    Wend
    
    messagebox("You Scored: " + playerScore)
    CloseScreen
End

One Button Missile Command

Created for Workshop #071 | Comments (0) | No Votes

Feel free to mess with the constants to see if you can make it work better or what.

Space to shoot. Space to detonate.

Show Sourcecode for this entry

Hide Sourcecode

Graphics 800,600,0,2
AppTitle "one-button missile command"
SetBuffer BackBuffer()

;general info
Const PointsAdd# = 0.1
Global points# = 100
Global score = 0
Global gameoverFlag = False

;player info
Const PlayerSize = 35
Const PlayerLength = 50
Const PlayerSpeedIncrease# = 0.001
Global playerSpeed# = 2.8
Global playerShotType = False
Global playerAngle# = 0

;missile info
Const MissileDelay = 800
Const MissileSpeed = 2
Const MissileSize = 7

Global missileTimer = 0
Global missileX# = GraphicsWidth()/2
Global missileY# = GraphicsHeight()/2
Global missileAngle = playerAngle

;enemy info
Const EnemySize = 5
Const EnemySpeed = 1
Const EnemyGenerateMinimumDelay = 1250

Global enemyGenerateDelay = 3000
Global enemyGenerateTimer = MilliSecs() + enemyGenerateDelay

Type Enemy
	Field x#
	Field y#
	Field angle
End Type

;explosion info
Const ExplosionSpeed# = 2.5
Const ExplosionMinimumSize = 0
Const ExplosionMaximumSize = 90

Type Explosion
	Field x#
	Field y#
	Field size#
End Type


;MAIN LOOP
While Not KeyDown(1)
Cls
	;enemies - check and generate them
	If enemyGenerateTimer < MilliSecs()
		enemy.Enemy = New Enemy
			enemy\angle = Rnd(0,360)
			enemy\x# = GraphicsWidth()/2 - 300*Cos(enemy\angle)
			enemy\y# = GraphicsHeight()/2 - 300*Sin(enemy\angle)
		
		If enemyGenerateDelay > EnemyGenerateMinimumDelay
			enemyGenerateDelay = enemyGenerateDelay - 100
		Else
			enemyGenerateDelay = EnemyGenerateMinimumDelay
		EndIf
		enemyGenerateTimer = MilliSecs() + enemyGenerateDelay
	EndIf
	
	;if space pressed
	If KeyHit(57)
		If playerShotType = False And missileTimer < MilliSecs()
				missileX# = GraphicsWidth()/2
				missileY# = GraphicsHeight()/2
				missileAngle = playerAngle
				missileTimer = MilliSecs() + MissileDelay
				
				playerShotType = True
		ElseIf playerShotType ;if missile
			explosion.Explosion = New Explosion
				explosion\x# = missileX#
				explosion\y# = missileY#
				explosion\size# = ExplosionMinimumSize
				
				playerShotType = False
		EndIf
	EndIf
	
	;missile - move it
	If playerShotType
		missileX# = missileX# - MissileSpeed*Cos(missileAngle)
		missileY# = missileY# - MissileSpeed*Sin(missileAngle)
	
		If missileX# < 0 Or missileY# < 0 Or missileX# > GraphicsWidth() Or missileY# > GraphicsHeight()
			playerShotType = False
		EndIf
	EndIf
	
	;explosion - increase size
	For explosion.Explosion = Each Explosion
		;check for explosion to enemy collision
		For enemy.Enemy = Each Enemy
			If ((enemy\x# - explosion\x#)*(enemy\x# - explosion\x#) + (enemy\y# - explosion\y#)*(enemy\y# - explosion\y#))^0.5 < explosion\size/2
				score = score + Points
				Delete enemy
			EndIf
		Next
		
		If explosion\size# < explosionMaximumSize
			explosion\size# = explosion\size# + explosionSpeed#
		Else
			Delete explosion
		EndIf
	Next
	
	;enemies - move them
	For enemy.Enemy = Each Enemy
		enemy\x# = enemy\x# + EnemySpeed*Cos(enemy\angle)
		enemy\y# = enemy\y# + EnemySpeed*Sin(enemy\angle)
		
		;check for enemy to player collision
		If ((enemy\x# - GraphicsWidth()/2)*(enemy\x# - GraphicsWidth()/2) + (enemy\y# - GraphicsHeight()/2)*(enemy\y# - GraphicsHeight()/2))^0.5 < playerSize/2
			gameoverFlag = True
		EndIf
	Next
	
	;draw explosion
	Color 130,30,30
		For explosion.Explosion = Each Explosion
			Oval explosion\x# - explosion\size/2, explosion\y# - explosion\size/2, explosion\size, explosion\size
		Next
	
	;draw player
	Color 244,244,244
		playerSpeed = playerSpeed + PlayerSpeedIncrease#
		playerAngle# = playerAngle# + playerSpeed#
		Oval GraphicsWidth()/2 - PlayerSize/2, GraphicsHeight()/2 - PlayerSize/2, PlayerSize, PlayerSize
		Line GraphicsWidth()/2, GraphicsHeight()/2, GraphicsWidth()/2 - PlayerLength*Cos(playerAngle#), GraphicsHeight()/2 - PlayerLength*Sin(playerAngle#)
	
	;draw missile
	Color 50,50,180
		If playerShotType
			Rect missileX# - MissileSize/2, missileY# - MissileSize/2, MissileSize, MissileSize
		EndIf
	
	;draw enemies
	Color 60,160,30
		For enemy.Enemy = Each Enemy
			Oval enemy\x# - EnemySize/2, enemy\y# - EnemySize/2, EnemySize, EnemySize
		Next
	
	;write score
	points# = points# + PointsAdd#
	Color 255,255,255
		Text 10,12,"Score: " + score
	
	;if gameover
	If gameoverFlag = True
		Text 10,32,"GAME OVER!"
		Flip
		FlushKeys
		WaitKey
		End
	EndIf
Flip
Wend
End

Space Snake

Created for Workshop #062 | Comments (0) | No Votes

Guide the snake to collect the objects

Q/A = Left W/S = Right

Click to Download this entry