Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|627|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Missile Command

by JL235 for Workshop #081
Shoot the missiles from out of the sky.
Mouse
// 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