Function add( a, b ) Return a + b End Function

;Creates variables to represent screenwidth and screenheight Global sh=480 Global sw=640 ;Sets Graphics Mode Graphics sw,sh,0,0 ;Sets the buffer that we are currently writing on to be the "BackBuffer" SetBuffer BackBuffer() ;Create Types Type obj Field x,y,i$,h,f,w,hi End Type Type bullet Field x,y,i$,h,f End Type Type enemy Field x,y,i$,h,w,hi End Type ;Create Player Global player.obj = New obj player\x=100 player\y=100 player\i$="}" player\h=0 player\w=10 player\hi=15 ; Function to draw everything Function draw() ; Draw player Text player\x,player\y,player\i$ ; Draw bullets For curBullet.bullet = Each bullet Text curBullet\x, curBullet\y, curBullet\i$ Next ; Draw enemies For curEnemy.enemy = Each enemy ; Put drawing stuff for enemy here Next End Function ; Borders for plane Function border() If player\x>= sw-player\w Then player\x=sw-player\w If player\x=<0 Then player\x=0 If player\y>=sh-player\hi Then player\y=sh-player\hi If player\y=<0 Then player\y=0 End Function ;Creates HUD Function HUD() Text 0,0,"X Position:"+player\x Text 0,10,"Y Position:"+player\y End Function Function CreateBullet() newBullet.bullet = New bullet newBullet\x = player\x newBullet\y = player\y newBullet\i$ = "." newBullet\h = 0 newBullet\f = 1 End Function Function MoveBullets() For curBullet.bullet = Each bullet curBullet\x = curBullet\x + 5 Text curBullet\x, curBullet\y, curBullet\i$ Next End Function Function CheckCollisions() For curBullet.bullet = Each bullet ; Delete bullet if it has passed screen If curBullet\x > sw Then Delete curBullet Else For curEnemy.enemy = Each enemy ; Check if enemy and bullet collide, if so delete both Next End If Next End Function ;Main Game Loop While KeyDown(1)=0 Cls ;Scan for input If KeyDown(200) Then player\y = player\y - 2 If KeyDown(208) Then player\y = player\y + 2 If KeyDown(203) Then player\x = player\x - 2 ;player\i$="{" If KeyDown(205) Then player\x = player\x + 2 ;player\i$="}" ;If Spacebar is pressed then fire a bullet If KeyHit(57) Then CreateBullet() ;Goes through each bullet and moves it forward by 5 pixels MoveBullets CheckCollisions HUD border draw ;Flips everything from the backbuffer to the front buffer Flip Wend

If liveRounds\x > enemy\x Then Delete enemy liveRounds\h=1 ; I changed this to add the flag H

If liveRounds\x > enemy\x Then Delete enemy liveRounds\h=1 End If

define types create player while not gameover create enemies and draw them move player draw player create bullets and move bullets wend

define the different types (you already did this) create objects of those types (a player, some enemies, no bullets until player fires) while not gameover move player (based on input) if player presses space, THEN (and only then) do you create a new bullet (you can make a function createbullet() for this) move enemies (make a function who's only purpose is to move all the enemies) move bullets (make a function who's only purpose is to move all the existing bullets) check collision etc. (make a function who's only purpose is to iterate through all the bullets and check if they collide with an enemy) draw everything (this can also be a function) wend

If bullet\x > block\x Then End

Function bullet() liveRounds.bullet = New bullet liveRounds\x = 0 liveRounds\y = shipy liveRounds\i$ = "." liveRounds\h = 0 liveRounds\s = 5 liveRounds\f = 0 If KeyHit(57) Then liveRounds\f = 1 For liveRounds.bullet = Each bullet If liveRounds\f = 1 Then liveRounds\x = liveRounds\x + liveRounds\s Text liveRounds\x, liveRounds\y, liveRounds\i$ For enemy.block = Each block If liveRounds\x > enemy\x Then End Next End If Next End Function

Graphics 640,480,0,0 Set graphics mode and denote resoultion SetBuffer BackBuffer() ;Set the backbuffer ;------------------------------------------------------------------------------------------------------------------------------------- Global ship$="}" ;The string that will be used to represnt the ship Global shipx=0 ;The ships x cord variable Global shipy=0 ;The ships y cord variable Global xspeed=2 ;The ships x speed variable Global yspeed=2 ;The ships y speed variable Global bspeed=10 ;The bullets speed variable ;------------------------------------------------------------------------------------------------------------------------------------- Type block ;Start The block type Field x ;The blocks x variable Field y ;The blocks y variable Field i$ ;The blocks image placeholder variable Field h ;The variable that represents weather the block hit an object End Type ;End type statement ;------------------------------------------------------------------------------------------------------------------------------------- Type bullet Field x Field y Field h Field i$ Field s Field f End Type ;------------------------------------------------------------------------------------------------------------------------------------- Function ship() ;Function that handles all ship actions If KeyDown(208) Then shipy=shipy + yspeed ;If the down arrow is pressed move ship down If KeyDown(200) Then shipy=shipy - yspeed ;If the up arrow is pressed move ship up If KeyDown(203) Then shipx=shipx - xspeed ;If the left arrow is pressed move ship left If KeyDown(205) Then shipx=shipx + xspeed ;If the right arrow is pressed move ship right End Function ;Close Function ;------------------------------------------------------------------------------------------------------------------------------------- Function draw() ;Function that draws everything to the screen Text shipx,shipy,ship$ ;Draws the player to screen End Function ;Close Function ;------------------------------------------------------------------------------------------------------------------------------------- Function createblock() ;Function that handles the creation of the blocks block.block= New block ;Create new block block\x=400 ;Set blocks x variable block\y= block\y+10 ;Set blocks y variable block\i$="[]" ;Set the blocks Image placeholder value block\h=0 For block.block = Each block ;Starts loop that goes through each block created block\y=block\y+15 ;Adds 15 to the block\y value Text block\x,block\y,block\i ;Draws the block at its new position t=t + 1 ;Temp value = temp value + 1 If block\y>300 Then ;If the blocks hit bottom screen restart at the top block\x=block\x-20 block\y=0 ;Move the starting x position over 20 End If ;Ends the current statement Next ;Ends the loop for the blocks End Function ;Close Function ;------------------------------------------------------------------------------------------------------------------------------------- Function bullet() ;Function that Handles all bullet aspects bullet.bullet= New bullet bullet\x=0 bullet\y=shipy bullet\i$="." bullet\h=0 bullet\s=5 bullet\f=0 If KeyHit(57) Then bullet\f=1 For bullet.bullet = Each bullet If bullet\f=1 Then bullet\x=bullet\x+ bullet\s Text bullet\x,bullet\y,bullet\i$ End If Next if bullet\x > block\x then end ****( the above is the line i am using just to see that both are recognized if the bullet passes the block, i have tried placing it in several places but with no luck, i think its because the variables are both local and not global but they are in functions so i can't make them global. is there a way i can get a collision test to work without getting rid of the functions and making everything global? End Function ;Close Function ;------------------------------------------------------------------------------------------------------------------------------------- Function collide() ;Function that handles all collisions End Function ;Close Function ;------------------------------------------------------------------------------------------------------------------------------------- While KeyDown(1)=0 ;Start the Main Game Loop(MGL) Cls ;Clears screen createblock ;Calls the Function to create blocks ship ;Calls the Function that controls all ship aspects draw ;Calls the Function to draw the game bullet ;Calls the Function that handles the bullet collide ;Calls the Function that handles game collisons Flip ;Flip everythingthe backbuffer to the front and draw to screen Wend ;End the MGL ;-------------------------------------------------------------------------------------------------------------------------------------