This isn't complete but I was without internet access for a day and got bored. I was working on a Plants VS Zombies type game but this can also be altered into a map maker for any game. I only have the two left red tiles that are clickable and after you click on them, you can then click on the grid and "plant" different elements in each square. I plan to of course add graphics and clean up the code, but this is just so cool in my opinion I thought I'd share. I also plan to write out the grid into a file which would allow you to easily create game maps and save them, etc.
| Turing: |
% Plants vs Zombies
% by princepwn
type GRID : % Datatype making up each tile element
record
ID : int % Unique ID
STARTX : int % Starting X
STARTY : int % Starting Y
ENDX : int % Ending X
ENDY : int % Ending Y
PALLET : boolean % If tile is clickable
CONTENTS : string % Whats in the tile
COLOR : int % Color of tile
end record
const tileWidth : int := 10 % Number of spaces widthh-wise
const tileHeight : int := 7 % Number of spaces height-wise
var tile : array 0 .. tileWidth, 0 .. tileHeight of GRID % Storage for entire tile
var tileSize : int := 50 % Size of each tile
var tileID : int := 0 % Save the tile ID
var selectedX, selectedY : int := 0 % Report back clicked position
var selectedXY : string := "" % Report back current tile
var currentPlant : string := "EMPTY" % Selected plant
var warning : string := "(none)"
var solarPower : int := 50
var palletTile : array 0 .. tileWidth - 1 of int % Pallet size for selecting plants
tile (0, 0).STARTX := 1 % Start tile at left
tile (0, 0).STARTY := 1 % Start tile at bottom
% Save tile data
for y : 0 .. tileHeight % Go up and down through field
for x : 0 .. tileWidth % Go from left to right through field
tileID + = 1 % Increment counter
tile (x, y ).ID := tileID % Save tile ID
tile (x, y ).STARTX := x * tileSize % Tile's X location
tile (x, y ).STARTY := y * tileSize % Tile's Y location
tile (x, y ).ENDX := tile (x, y ).STARTX + tileSize % Ending X
tile (x, y ).ENDY := tile (x, y ).STARTY + tileSize % Ending Y
tile (x, y ).PALLET := false % Set all tiles to non-pallet
tile (x, y ).COLOR := white % Default color is white
tile (x, y ).CONTENTS := "EMPTY" % Each tile is empty
end for
end for
% Output debugging info
var debugWindow := Window.Open ("graphics:900,10;position:30,450;offscreenonly")
% Default screen size *alligns tiles*
var gameWindow := Window.Open ("graphics:" + intstr ((tileWidth * tileSize ) + 1) +
"," + intstr ((tileHeight * tileSize ) + 1) + ";position: 30,50;offscreenonly")
% Elements of creatures
type plant :
record
name : string
health : int
range : int
power : int
cost : int
coords : string
end record
% Assigning status to creatures
var peaShooter : plant
peaShooter.name := "Pea Shooter"
peaShooter.health := 10
peaShooter.range := tileWidth
peaShooter.power := 2
peaShooter.cost := 50
var peaShooter2 : plant
peaShooter2.name := "Pea Shooter 2"
peaShooter2.health := 15
peaShooter2.range := tileWidth
peaShooter2.power := 4
peaShooter2.cost := 100
var mouseX, mouseY, button, left, middle, right : int % Keep track of mouse
Mouse.ButtonChoose ("multibutton") % Allows middle and right click
var keys : array char of boolean % Key input
loop
Mouse.Where (mouseX, mouseY, button ) % Obtain mouse information
left := button mod 10 % left = 0 or 1
middle := (button - left ) mod 100 % middle = 0 or 10
right := button - middle - left % right = 0 or 100
Input.KeyDown (keys ) % Watches for keyboard input
% Tile drawing and manipulation
for y : 0 .. tileHeight % Columns
for x : 0 .. tileWidth % Rows
if (tile (x, y ).CONTENTS = "EMPTY") then % Is square empty
tile (x, y ).COLOR := white % Set color to white
elsif (tile (x, y ).CONTENTS = "Pea Shooter") then % Is square empty
tile (x, y ).COLOR := green
elsif (tile (x, y ).CONTENTS = "Pea Shooter 2") then % Is square empty
tile (x, y ).COLOR := brightgreen
end if
if (tile (x, y ).CONTENTS not= "EMPTY") then % Is square occupied (been clicked)
%tile (x, y).COLOR := black % Set color to black
end if
Draw.FillBox (tile (x, y ).STARTX, tile (x, y ).STARTY,
tile (x, y ).ENDX, tile (x, y ).ENDY, tile (x, y ).COLOR ) % Draw tile
% Clickable pallet
if (y = 0) then
tile (x, y ).PALLET := true
Draw.FillBox (tile (x, y ).STARTX, tile (x, y ).STARTY, tile (x, y ).ENDX, tile (x, y ).ENDY, brightred)
if (button = 1) then
%palletTile (y) := Pic.New (tile (x, y).STARTX, tile (x, y).STARTY, tile (x, y).ENDX, tile (x, y).ENDY)
end if
end if
% Highlighted square
if (mouseX > tile (x, y ).STARTX and mouseX < tile (x, y ).ENDX ) and
(mouseY > tile (x, y ).STARTY and mouseY < tile (x, y ).ENDY ) and
(mouseX < maxx and mouseY < maxy) then
selectedX := x
selectedY := y
selectedXY := intstr (x ) + "," + intstr (y )
if left = 1 then
warning := ""
% Selecting a plant
if (selectedY not= 0) then
tile (x, y ).CONTENTS := currentPlant
elsif (selectedXY = "0,0") then
currentPlant := "Pea Shooter"
elsif (selectedXY = "1,0") then
currentPlant := "Pea Shooter 2"
end if
% Warnings
if (selectedY not= 0 and tile (x, y ).CONTENTS = "EMPTY") then
warning := "Please select a plant first!"
elsif (selectedY not= 0 and tile (x, y ).CONTENTS not= "EMPTY") then %%%%%%%%%%FIXXXXX
%warning := "Spot already taken!"
end if
%solarPower -= tile(x,y).CONTENTS
% Cost of plants
if tile (x, y ).CONTENTS = "Pea Shooter" then
solarPower - = peaShooter.cost
elsif tile (x, y ).CONTENTS = "Pea Shooter 2" then
solarPower - = peaShooter2.cost
end if
%Draw.FillBox (tile (x, y).STARTX, tile (x, y).STARTY, tile (x, y).ENDX, tile (x, y).ENDY, brightred)
%Pic.Draw (palletTile (y), tile (x, y).STARTX, tile (x, y).STARTY, picCopy)
end if
if right = 100 then
tile (x, y ).CONTENTS := "EMPTY"
end if
if button = 0 then
%Draw.FillBox (tile (x, y).STARTX, tile (x, y).STARTY, tile (x, y).ENDX, tile (x, y).ENDY, brightblue)
end if
end if
if not (keys (' ')) then
% Debugging purposes
Window.Select (debugWindow )
cls
/*"Mouse X: " + intstr (mouseX) + " Mouse Y: " + intstr (mouseY) + */
Font.Draw (" Current Tile: " + selectedXY +
" Contents: " + tile (selectedX, selectedY ).CONTENTS +
" Selected: " + currentPlant + " Sun: " + intstr (solarPower ) +
" Warning: " + warning, 10, maxy - 20, defFontID, black)
Window.Update (debugWindow )
Window.Select (gameWindow )
end if
% Square outline
Draw.Box (tile (x, y ).STARTX, tile (x, y ).STARTY, tileSize, tileSize, black)
end for
end for
%Draw.FillBox (mouseX - tileSize div 10, mouseY - tileSize div 10, mouseX + tileSize div 10, mouseY + tileSize div 10, brightred) % Outlines box size of tile on cursor
View.Update
cls
end loop
|
|