Newbie in need of help - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|644\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Newbie in need of help
Thu, 10 Apr 2008, 11:02
Baldwin	The blitz plus demo tutorial sucks and didn't help me at all with this. I'm trying to create a game for my senior project at school and I swear, they need to make the 'intro' to game programming longer than a single semester. Unfortunately Blitz seems to only give you one error report at a time, but the one I have right now seems to be spitting me in the face. Graphics 800,600 SeedRnd(MilliSecs()) SetBuffer BackBuffer() Const UPKEY = 200 ;Up Const DOWNKEY = 208 ;Down Const RIGHTKEY = 205 ;Right Const LEFTKEY = 203 ;Left Const PAUSEKEY = 25 ;P Const FIREKEY = 57 ;Space Bar Const MISSILEKEY = 50 ;M Const JETSPEED = 9 Const CARGOSPEED = 3 Const BOMBERSPEED = 6 Const PROJECTILESPEED = 15 Const MISSILESPEED = 20 Type player Field x,y,score End Type Type jet Field x,y End Type Type misc Field y End Type Type explosion Field x,y Field frame End Type Global PJet = LoadImage("P-Jet.bmp") Global EJet = LoadImage("E-Jet.bmp") Global Bomber = LoadImage("E-Bomber.bmp") Global Plane = LoadImage("E-Plane.bmp") Global PProjectile = LoadImage("P-Projectile.bmp") Global EProjectile = LoadImage("E-Projectile.bmp") Global PMissile = LoadImage("P-Missile.bmp") Global EMissile = LoadImage("E-Missile.bmp") Global explosion = LoadImage("explosion.bmp") Global EJet.jet = New EJet Global PJet.player = New PJet Global Plane.misc = New Plane Global Bomber.misc = New Bomber Text 400,300, "You are an elite pilot in the US Air Force." Delay 1000 Text 375,300, "On a deep strike mission, you lost your entire squad." Delay 500 Text 350,300, "Fight your way out of enemy territory." Delay 1500 Initializelevel() While Not KeyDown(1) Cls DrawImage(PJet,PJet\y,PJet\x) DrawImage(EJet,EJet\y,EJet\x) DrawImage(Plane,Plane\y,Plane\x) DrawImage(Bomber,Bomber\y,Bomber\x) JetControls() AirForceAI() Flip Delay 20 Wend Function InitializeLevel() PJet\x = 400 PJet\y = 575 EJet\x = Rand EJet\y = Rand Plane\x = Rand Plane\y = Rand Bomber\x = Rand Bomber\y = Rand End Function Function JetControls() If KeyHit(UPKEY) PJet\y = PJet\y - JETSPEED End If If KeyHit(DOWNKEY) PJet\y = PJet\y + JETSPEED End If If KeyHit(LEFTKEY) PJet\x = PJet\x - JETSPEED End If If KeyHit(RIGHTKEY) PJet\x = PJet\x + JETSPEED End If If KeyHit(PAUSEKEY) Cls Text 400,300, "Press P To continue." Flip While Not KeyHit(PAUSEKEY) Wend End If If KeyHit(FIREKEY) DrawImage(PProjectile,PJet\x,PJet\y) PProjectile\y = PProjectile\y - PROJECTILESPEED End If If KeyHit(MISSILEKEY) DrawImage(PMissile,PJet\x,PJet\y) PMissile\y = PMissile\y - 5 Delay 50 PMissile\y = PMissile\y - MISSILESPEED End If If PJet\y < 0 Then PJet\y = 10 End If If PJet\y > 600 Then PJet\y = 580 End If If PJet\x > 800 Then PJet\x = 790 End If If PJetk\x < 0 Then PJet\x = 10 End If End Function Function AirForceAI() If PJet\x > EJet\x EJet\x = EJet\x + JETSPEED End If If PJet\x < EJet\x EJet\x = EJet\x - JETSPEED End If If EJet\y > 590 DrawImage (explosion,EJet\x,EJet\y) End If If Bomber\y < 600 Bomber\y = Bomber\y + BOMBERSPEED End If If Bomber\y > 590 DrawImage(explosion,Bomber\x,Bomber\y) End If If Plane\y < 600 Plane\y = Plane\y + PLANESPEED End If If Plane\y > 590 DrawImage(explosion,Plane\x,Plane\y) End If If EJet\x = PJet\x DrawImage EMissle EMissIle\y = EMissIle\y + 5 Delay 50 EMissIle\y = EMissIle\y + MISSILESPEED End If If Bomber\x = PJet\y DrawImage (EProjectile, Bomber\x,Bomber\y) EProjectile\y = EProjectile\y + PROJECTILESPEED End If If ImagesOverlap(PJet\x,PJet\y,Bomber\x,Bomber\y) DrawImage(explosion,PJet\x,Pjet\y) DrawImage(explosion,Bomber\x,Bomber\y) End If If ImagesOverlap(PJet\x,PJet\y,Plane\x,Plane\y) DrawImage(explosion,PJet\x,Pjet\y) DrawImage(explosion,Plane\x,Plane\y) End If If ImagesOverlap(PJet\x,PJet\y,EJet\x,EJet\y) DrawImage(explosion,PJet\x,Pjet\y) DrawImage(explosion,EJet\x,EJet\y) End If If ImagesOverlap(PJet\x,PJet\y,EMissile\x,EMissile\y) DrawImage(explosion,PJet\x,PJet\y) End If If ImagesOverlap(PJet\x,PJet\y,EProjectile\x,EProjectile\y) DrawImage(explosion,PJet\x,PJet\y) End If If ImagesOverlap(PMissile\x,PMissile\y,Bomber\x,Bomber\y) DrawImage(explosion,Bomber\x,Bomber\y) End If If ImagesOverlap(PMissile\x,PMissile\y,EJet\x,EJet\y) DrawImage(explosion,EJet\x,EJet\y) End If If ImagesOverlap(PMissile\x,PMissile\y,Plane\x,Plane\y) DrawImage(explosion,Plane\x,Plane\y) End If If ImagesOverlap(PProjectile\x,PProjectile\y,Plane\x,Plane\y) DrawImage(explosion,Plane\x,Plane\y) End If If ImagesOverlap(PProjectile\x,PProjectile\y,Bomber\x,Bomber\y) DrawImage(explosion,Bomber\x,Bomber\y) End If If ImagesOverlap(PProjectile\x,PProjectile\y,EJet\x,EJet\y) DrawImage(explosion,EJet\x,EJet\y) End If End Function --v My teacher only taught us how to use types in thirty minutes. I used one of our other programs as the structure for this, and based on that structure, which works great, this should work. However I keep running into the error "Custom type name not found", or something along those lines. I'm trying to see if the program actually works so I can use it in my lesson plan so I can get this damned senior project done. I would have gone to the BB website, but of course, you need to buy the product just to register. Do you guys mind if you help me iron this out? Thanks, Baldwin Here's the images: s14.photobucket.com/albums/a325/coalition/?action=view¤t=P-Projectile.jpg s14.photobucket.com/albums/a325/coalition/?action=view¤t=P-Missile.jpg s14.photobucket.com/albums/a325/coalition/?action=view¤t=E-Projectile.jpg s14.photobucket.com/albums/a325/coalition/?action=view¤t=E-Missile.jpg s14.photobucket.com/albums/a325/coalition/?action=view¤t=E-Jet.jpg s14.photobucket.com/albums/a325/coalition/?action=view¤t=Plane.jpg s14.photobucket.com/albums/a325/coalition/?action=view¤t=Bomber.jpg s14.photobucket.com/albums/a325/coalition/?action=view¤t=explosion.jpg s14.photobucket.com/albums/a325/coalition/?action=view¤t=P-Jet.jpg
Thu, 10 Apr 2008, 11:21
JL235	Good languages will give you all the errors they find, good IDE's will tell you those errors before you hit compile. I dunno if you realise but when Blitz finds an error it'll move the cursor to the line where it finds it. This is a little confusing it's not highlighted or anything, but that is where the error is. In this case it moves to the line 'EJet.jet = new EJet', which is where the error lies. This is because EJet is the variable whilst jet is the type. 'EJet.jet' is saying that the variable 'EJet' will be used to hold a 'jet'. To then make a new Jet to be held by the variable it's then 'new jet' not 'new EJet'. The others lines below are also wrong as the same applies to them too. I hope that helps.
Thu, 10 Apr 2008, 15:11
Jayenkai	In addition to that, you're using the same variable name for two different things.. First you define EJet as a image-variable.. Global EJet = LoadImage("E-Jet.bmp") And then again as a type-variable Global EJet.jet = New EJet Same variable name. You'll be better off renaming the image variables, to either Image_EJet, or EJet_I, or something to that effect, so that there's a clear distinction between the two. Oh, and Blitz doesn't care about the cases of variable names, so having one be EJet, and the other eJet won't matter to it! (I say that because you've labelled one variable "EMissIle" with a capital I in the middle..) -=-=- ''Load, Next List!''
Thu, 10 Apr 2008, 16:58
Jayenkai	(couple of posts moved to alternate topic) -=-=- ''Load, Next List!''
Mon, 14 Apr 2008, 09:36
Baldwin	Graphics 800,600 SeedRnd(MilliSecs()) SetBuffer BackBuffer() Const UPKEY = 200 ;Up Const DOWNKEY = 208 ;Down Const RIGHTKEY = 205 ;Right Const LEFTKEY = 203 ;Left Const PAUSEKEY = 25 ;P Const FIREKEY = 57 ;Space Bar Const MISSILEKEY = 50 ;M Const JETSPEED = 9 Const CARGOSPEED = 3 Const BOMBERSPEED = 6 Const PROJECTILESPEED = 15 Const MISSILESPEED = 20 Type player Field x,y End Type Type jet Field x,y End Type Type misc Field y End Type Global P_Jet = LoadImage("P-Jet.bmp") Global E_Jet = LoadImage("E-Jet.bmp") Global Bomber_ = LoadImage("E-Bomber.bmp") Global Plane_ = LoadImage("E-Plane.bmp") Global PProjectile = LoadImage("P-Projectile.bmp") Global EProjectile = LoadImage("E-Projectile.bmp") Global PMissile = LoadImage("P-Missile.bmp") Global EMissile = LoadImage("E-Missile.bmp") Global explosion = LoadImage("explosion.bmp") Global EJet.jet = New jet Global PJet.player = New player Global Plane.misc = New misc Global Bomber.misc = New misc Text 400,300, "You are an elite pilot in the US Air Force." Delay 1000 Text 375,300, "On a deep strike mission, you lost your entire squad." Delay 500 Text 350,300, "Fight your way out of enemy territory." Delay 1500 Initializelevel() While Not KeyDown(1) Cls DrawImage (PJet.player,P_Jet\x,P_Jet\y) DrawImage (EJet.jet,E_Jet\x,E_Jet\y) DrawImage (Plane.misc,Plane_\x,Plane_\y) DrawImage (Bomber.misc,Bomber_\x,Bomber_\y) JetControls() AirForceAI() Flip Delay 20 Wend Function InitializeLevel() P_Jet\x = 400 P_Jet\y = 575 E_Jet\x = Rand E_Jet\y = Rand Plane_\x = Rand Plane_\y = Rand Bomber_\x = Rand Bomber_\y = Rand End Function Function JetControls() If KeyHit(UPKEY) P_Jet\y = P_Jet\y - JETSPEED End If If KeyHit(DOWNKEY) P_Jet\y = P_Jet\y + JETSPEED End If If KeyHit(LEFTKEY) P_Jet\x = P_Jet\x - JETSPEED End If If KeyHit(RIGHTKEY) P_Jet\x = P_Jet\x + JETSPEED End If If KeyHit(PAUSEKEY) Cls Text 400,300, "Press P To continue." Flip While Not KeyHit(PAUSEKEY) Wend End If If KeyHit(FIREKEY) DrawImage(PProjectile,P_Jet\x,P_Jet\y) PProjectile\y = PProjectile\y - PROJECTILESPEED End If If KeyHit(MISSILEKEY) DrawImage(PMissile,P_Jet\x,P_Jet\y) PMissile\y = PMissile\y - 5 Delay 50 PMissile\y = PMissile\y - MISSILESPEED End If If P_Jet\y < 0 Then P_Jet\y = 10 End If If P_Jet\y > 600 Then P_Jet\y = 580 End If If P_Jet\x > 800 Then P_Jet\x = 790 End If If P_Jetk\x < 0 Then P_Jet\x = 10 End If End Function Function AirForceAI() If P_Jet\x > E_Jet\x E_Jet\x = E_Jet\x + JETSPEED End If If P_Jet\x < E_Jet\x E_Jet\x = E_Jet\x - JETSPEED End If If E_Jet\y > 590 DrawImage (explosion,E_Jet\x,E_Jet\y) End If If Bomber_\y < 600 Bomber_\y = Bomber_\y + BOMBERSPEED End If If Bomber_\y > 590 DrawImage(explosion,Bomber_\x,Bomber_\y) End If If Plane_\y < 600 Plane_\y = Plane_\y + PLANESPEED End If If Plane_\y > 590 DrawImage(explosion,Plane_\x,Plane_\y) End If If E_Jet\x = P_Jet\x DrawImage EMissle EMissile\y = EMissile\y + 5 Delay 50 EMissile\y = EMissile\y + MISSILESPEED End If If Bomber_\x = PJet\y DrawImage (EProjectile, Bomber_\x,Bomber_\y) EProjectile\y = EProjectile\y + PROJECTILESPEED End If If ImagesOverlap(P_Jet\x,P_Jet\y,Bomber_\x,Bomber_\y) DrawImage(explosion,P_Jet\x,P_Jet\y) DrawImage(explosion,Bomber_\x,Bomber_\y) End If If ImagesOverlap(P_Jet\x,P_Jet\y,Plane_\x,Plane_\y) DrawImage(explosion,P_Jet\x,P_Jet\y) DrawImage(explosion,Plane_\x,Plane_\y) End If If ImagesOverlap(P_Jet\x,P_Jet\y,E_Jet\x,E_Jet\y) DrawImage(explosion,P_Jet\x,P_Jet\y) DrawImage(explosion,E_Jet\x,E_Jet\y) End If If ImagesOverlap(P_Jet\x,P_Jet\y,EMissile\x,EMissile\y) DrawImage(explosion,P_Jet\x,P_Jet\y) End If If ImagesOverlap(P_Jet\x,P_Jet\y,EProjectile\x,EProjectile\y) DrawImage(explosion,P_Jet\x,P_Jet\y) End If If ImagesOverlap(PMissile\x,PMissile\y,Bomber_\x,Bomber_\y) DrawImage(explosion,Bomber\x,Bomber\y) End If If ImagesOverlap(PMissile\x,PMissile\y,E_Jet\x,E_Jet\y) DrawImage(explosion,E_Jet\x,E_Jet\y) End If If ImagesOverlap(PMissile\x,PMissile\y,Plane_\x,Plane_\y) DrawImage(explosion,Plane_\x,Plane_\y) End If If ImagesOverlap(PProjectile\x,PProjectile\y,Plane_\x,Plane_\y) DrawImage(explosion,Plane_\x,Plane_\y) End If If ImagesOverlap(PProjectile\x,PProjectile\y,Bomber_\x,Bomber_\y) DrawImage(explosion,Bomber_\x,Bomber_\y) End If If ImagesOverlap(PProjectile\x,PProjectile\y,E_Jet\x,E_Jet\y) DrawImage(explosion,E_Jet\x,E_Jet\y) End If End Function --v Thanks, it fixed that one. Now when I'm trying to draw the images onto the page, it tells me that the variable must be a type. I've used it three different ways: DrawImage (PJet.player,P_Jet\x,P_Jet\y) DrawImage (EJet.jet,E_Jet\x,E_Jet\y) DrawImage (Plane.misc,Plane_\x,Plane_\y) DrawImage (Bomber.misc,Bomber_\x,Bomber_\y) DrawImage (PJet,P_Jet\x,P_Jet\y) DrawImage (EJet,E_Jet\x,E_Jet\y) DrawImage (Plane,Plane_\x,Plane_\y) DrawImage (Bomber,Bomber_\x,Bomber_\y) DrawImage (player,P_Jet\x,P_Jet\y) DrawImage (jet,E_Jet\x,E_Jet\y) DrawImage (misc,Plane_\x,Plane_\y) DrawImage (misc,Bomber_\x,Bomber_\y) All had the same results. Why does it have to be a type? I thought it was supposed to be DrawImage (-image-,-image x-,-image y-).
Mon, 14 Apr 2008, 09:39
Jayenkai	PJet.player isn't an image.. P_Jet is the variable you used for your image.. Blitz is getting even itself confused! So, where it's saying "Must be a type" it actually means "Really shouldn't be a type!!" It should just be the image's variable name. -=-=- ''Load, Next List!''
Mon, 14 Apr 2008, 10:48
Baldwin	Yeah, but when I do that it still gives me that error for the same line.
Mon, 14 Apr 2008, 12:34
codingmonkey	acording to your code, P_Jet is the handle for your image loaded in from the bitmap file "P-Jet.bmp" same applies to the enemy jet of E_Jet too. I suggest placing a handle inside your types. And perhaps a different name for both the player and enemy jets. Even only one unique generic type for the jet itself. Then when instantiating the type you have one player jet and as many enemy jets you want.
Wed, 16 Apr 2008, 09:48
Baldwin	Could you dumb that down for me please? Or at least show an example?
Wed, 16 Apr 2008, 09:58
Jayenkai	I think (?) that what he's suggesting is using _Type, _Image, and _Instance type things.. So you'd have Type Jet_Type end type Jet_Instance=Jet_Type Jet_Image=LoadImage("") and things like that.. You'd be able to keep track of what's what, and how it should be used, a little easier. -=-=- ''Load, Next List!''
Wed, 16 Apr 2008, 21:17
Orion Pax	Yeah. You have a lot of your variables from your types and your images mixed up. Even I noticed that. Not making fun of you but I am a bit of a newb. I havent produced anything GOOD YET but I am working on something now thats gonna change that. W00T! I am definitely considering a 2D game soon as well. So be looking for me posting about help there!
Tue, 22 Apr 2008, 12:16
Baldwin	-got it-
Sat, 26 Apr 2008, 11:24
Baldwin	Graphics 800,600 SeedRnd(MilliSecs()) SetBuffer BackBuffer() ;AutoMidHandle True Const UPKEY = 200 ;Up Const DOWNKEY = 208 ;Down Const RIGHTKEY = 205 ;Right Const LEFTKEY = 203 ;Left Const PAUSEKEY = 25 ;P Const FIREKEY = 57 ;Space Bar Const MISSILEKEY = 50 ;M Const JETSPEED = 7 Const PLANESPEED = 3 Const BOMBERSPEED = 4 Const PROJECTILESPEED = 15 Const MISSILESPEED = 20 Type player Field x,y End Type Type jet Field x,y End Type Type single Field y End Type Type boomer Field y End Type Global FighterJet = LoadImage("FighterPlayer.bmp") Global EnemyMig = LoadImage("EnemyJet.bmp") Global Bomber = LoadImage("EnemyBomber.bmp") Global Plane = LoadImage("EnemyPlane.bmp") Global PProjectile = LoadImage("P-Projectile.bmp") Global EProjectile = LoadImage("E-Projectile.bmp") Global PMissile = LoadImage("P-Missile.bmp") Global EnemyXAAM = LoadImage("EnemyRod.bmp") Global explosion = LoadImage("explosion.bmp") Global Mig.jet = New jet Global Fighter.player = New player Global Prop.single = New single Global Boom.boomer = New boomer Initializelevel() While Not KeyHit(1) Text 400,300, "You are an elite pilot in the US Air Force." Delay 1000 Text 375,300, "On a deep strike mission, you lost your entire squad." Delay 500 Text 350,300, "Fight your way out of enemy territory." Delay 1500 Cls DrawImage (FighterJet,FighterJetx,FighterJety) DrawImage (EnemyMig,EnemyMigx,EnemyMigy) DrawImage (Plane,Planex,Planey) DrawImage (Bomber,Bomberx,Bombery) JetControls() AirForceAI() Flip Delay 20 Wend Function InitializeLevel() FighterJetx = 400 FighterJety = 575 EnemyMigx = 400 EnemyMigy = 30 Planex = 300 Planey = 70 Bomberx = 600 Bombery = 60 End Function Function JetControls() If KeyHit(UPKEY) FighterJety = FighterJety - JETSPEED End If If KeyHit(DOWNKEY) FighterJety = FighterJety + JETSPEED End If If KeyHit(LEFTKEY) FighterJetx = FighterJetx - JETSPEED End If If KeyHit(RIGHTKEY) FighterJetx = FighterJetx + JETSPEED End If If KeyHit(PAUSEKEY) Cls Text 400,300, "Press P To continue." Flip While Not KeyHit(PAUSEKEY) Wend End If If KeyHit(FIREKEY) DrawImage(PProjectile,FighterJetx,FighterJety) PProjectiley = PProjectiley - PROJECTILESPEED End If If KeyHit(MISSILEKEY) DrawImage(PMissile,FighterJetx,FighterJety) PMissiley = PMissiley - 5 Delay 50 PMissiley = PMissiley - MISSILESPEED End If If FighterJety < 0 Then FighterJety = 10 End If If FighterJety > 600 Then FighterJety = 580 End If If FighterJetx > 800 Then FighterJetx = 790 End If If FighterJetx < 0 Then FighterJetx = 10 End If End Function Function AirForceAI() If FighterJetx > EnemyMigx EnemyMigx = EnemyMigx + JETSPEED End If If FighterJetx < EnemyMigx EnemyMigx = EnemyMigx - JETSPEED End If If EnemyMigy > 590 DrawImage (explosion,EnemyMigx,EnemyMigy) End If If Bombery < 600 Bombery = Bombery + BOMBERSPEED End If If Bombery > 590 DrawImage(explosion,Bomberx,Bombery) End If If Planey < 600 Planey = Planey + PLANESPEED End If If Planey > 590 DrawImage(explosion,Planex,Planey) End If If EnemyMigx = FighterJetx DrawImage (EnemyXAAM,EnemyMigx,EnemyMigy) EnemyXAAMy = EnemyXAAMy + 5 Delay 50 EnemyXAAMy = EnemyXAAMy + MISSILESPEED End If If Bomberx = FighterJety DrawImage (EProjectile,Bomberx,Bombery) EProjectiley = EProjectiley + PROJECTILESPEED End If ;If ImagesOverlap(FighterJetx,FighterJety,Bomberx,Bombery) ; DrawImage(explosion,FighterJetx,FighterJety) ; Text 300,400 "Game Over" ; Delay 2000 ; End If ;If ImagesOverlap(FighterJetx,FighterJety,Planex,Planey) ; DrawImage(explosion,FighterJetx,FighterJety) ; Text 300,400 "Game Over" ; Delay 2000 ; End If ;If ImagesOverlap(FighterJetx,FighterJety,EnemyMigx,EnemyMigy) ; DrawImage(explosion,FighterJetx,FighterJety) ; Text 300,400 "Game Over" ; Delay 2000 ; End If ;If ImagesOverlap(FighterJetx,FighterJety,EnemyXAAMx,EnemyXAAMy) ; DrawImage(explosion,FighterJetx,FighterJety) ; Text 300,400 "Game Over" ; Delay 2000 ; End If ;If ImagesOverlap(FighterJetx,FighterJety,EProjectilex,EProjectiley) ; DrawImage(explosion,FighterJetx,FighterJety) ; Text 300,400 "Game Over" ; Delay 2000 ; End If ;If ImagesOverlap(PMissilex,PMissiley,Bomberx,Bombery) ; DrawImage(explosion,Bomberx,Bombery) ; End If ;If ImagesOverlap(PMissilex,PMissiley,EnemyMigx,EnemyMigy) ; DrawImage(explosion,EnemyMigx,EnemyMigy) ; End If ;If ImagesOverlap(PMissilex,PMissiley,Planex,Planey) ; DrawImage(explosion,Planex,Planey) ; End If ;If ImagesOverlap(PProjectilex,PProjectiley,Planex,Planey) ; DrawImage(explosion,Planex,Planey) ; End If ;If ImagesOverlap(PProjectilex,PProjectiley,Bomberx,Bombery) ; DrawImage(explosion,Bomberx,Bombery) ; End If ;If ImagesOverlap(PProjectilex,PProjectiley,EnemyMigx,EnemyMigy) ; DrawImage(explosion,EnemyMigx,EnemyMigy) ; End If End Function --v I'm likely missing something very obvious, but, eh. Whenever I start it up, they all sit in the top left corner and do nothing. They seem to fire a missile and projectile, but they don't move either. I've set their x and y coordinates in the Initialize Level function, but alas, they sit on their asses. Also near the bottom of the code, in the If ImagesOverlap section, it says I don't have enough parameters. However I already have it set up to draw an explosion still image at the same coordinates of whatever is going to explode when they do overlap. What else would I need?
Sat, 26 Apr 2008, 13:28
Forklift_Fred	You aren't specifying which images to check. the full parameters should be: ImagesOverlap( image_1_handle, image_1_x, image_1_y, image_2_handle, image_2_x, image_2_y ) However, if you have transparencies in your amages and want to be more precise then you should be using ImagesCollide() which also requires a frame reference for each image (if it's not an animated image then it counts as frame 1: ImagesCollide( image_1_handle, image_1_x, image_1_y, image_2_frame, image_2_handle, image_2_x, image_2_y, image_2_frame ) I've not looked at the movement aspect. -=-=- Come rain or shine...
Sat, 26 Apr 2008, 14:37
Baldwin	Thanks much. I don't think the students I'm gonna teach with this know much about animation, so I'm gonna stick with overlap in this. Now just to figure out how to fix their positions.
Sun, 27 Apr 2008, 10:40
Baldwin	;Print "Hello." ;Delay 1000 ;Print "You are an elite pilot in the US Air Force." ;Delay 1500 ;Print "On a deep strike mission, you lost your entire squad." ;Delay 1500 ;Print "Fight your way out of enemy territory." ;Delay 1500 ;Print "The controls are simple. Use the directional keys to move your jet around. Pressing the space bar will fire a single round of your chain gun. Pressing the M key will fire a missile." ;Delay 10000 ;Print "The game is now loading." ;Goto game ;.game Graphics 800,600 SeedRnd(MilliSecs()) SetBuffer BackBuffer() AutoMidHandle True Const UPKEY = 200 ;Up Const DOWNKEY = 208 ;Down Const RIGHTKEY = 205 ;Right Const LEFTKEY = 203 ;Left Const FIREKEY = 57 ;Space Bar Const MISSILEKEY = 50 ;M Const JETSPEED = 7 Const PLANESPEED = 3 Const BOMBERSPEED = 4 Const PROJECTILESPEED = 12 Const MISSILESPEED = 15 Type player Field x,y End Type Type jet Field x,y End Type Type single Field y End Type Type boomer Field y End Type Global FighterJet = LoadImage("FighterPlayer.bmp") Global EnemyMig = LoadImage("EnemyJet.bmp") Global Bomber = LoadImage("EnemyBomber.bmp") Global Plane = LoadImage("EnemyPlane.bmp") Global PProjectile = LoadImage("P-Projectile.bmp") Global EProjectile = LoadImage("E-Projectile.bmp") Global PMissile = LoadImage("P-Missile.bmp") Global EnemyXAAM = LoadImage("EnemyRod.bmp") Global explosion = LoadImage("explosion.bmp") Global Mig.jet = New jet Global Fighter.player = New player Global Prop.single = New single Global Boom.boomer = New boomer While Not KeyHit(1) Initializelevel() JetControls() AirForceAI() Wend Function InitializeLevel() FighterJetx = 400 FighterJety = 575 EnemyMigx = 400 EnemyMigy = 30 Planex = 300 Planey = 70 Bomberx = 600 Bombery = 60 DrawImage (FighterJet,FighterJetx,FighterJety) DrawImage (EnemyMig,EnemyMigx,EnemyMigy) DrawImage (Plane,Planex,Planey) DrawImage (Bomber,Bomberx,Bombery) Flip End Function Function JetControls() If KeyHit(UPKEY) FighterJety = FighterJety - JETSPEED End If If KeyHit(DOWNKEY) FighterJety = FighterJety + JETSPEED End If If KeyHit(LEFTKEY) FighterJetx = FighterJetx - JETSPEED End If If KeyHit(RIGHTKEY) FighterJetx = FighterJetx + JETSPEED End If If KeyHit(FIREKEY) DrawImage(PProjectile,FighterJetx,FighterJety) PProjectiley = PProjectiley - PROJECTILESPEED End If If KeyHit(MISSILEKEY) DrawImage(PMissile,FighterJetx,FighterJety) PMissiley = PMissiley - 5 Delay 50 PMissiley = PMissiley - MISSILESPEED End If If FighterJety < 0 Then FighterJety = 10 End If If FighterJety > 600 Then FighterJety = 580 End If If FighterJetx > 800 Then FighterJetx = 790 End If If FighterJetx < 0 Then FighterJetx = 10 End If End Function Function AirForceAI() If FighterJetx > EnemyMigx EnemyMigx = EnemyMigx + JETSPEED End If If FighterJetx < EnemyMigx EnemyMigx = EnemyMigx - JETSPEED End If If EnemyMigy > 590 DrawImage (explosion,EnemyMigx,EnemyMigy) End If If Bombery < 600 Bombery = Bombery + BOMBERSPEED End If If Bombery > 590 DrawImage(explosion,Bomberx,Bombery) End If If Planey < 600 Planey = Planey + PLANESPEED End If If Planey > 590 DrawImage(explosion,Planex,Planey) End If If EnemyMigx = FighterJetx DrawImage (EnemyXAAM,EnemyMigx,EnemyMigy) EnemyXAAMy = EnemyXAAMy + 5 Delay 50 EnemyXAAMy = EnemyXAAMy + MISSILESPEED End If If Bomberx = FighterJety DrawImage (EProjectile,Bomberx,Bombery) EProjectiley = EProjectiley + PROJECTILESPEED End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,Bomber,Bomberx,Bombery) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Delay 100 End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,Plane,Planex,Planey) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Delay 100 End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,EnemyMig,EnemyMigx,EnemyMigy) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Delay 100 End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,EnemyXAAM,EnemyXAAMx,EnemyXAAMy) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Delay 100 End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,EProjectile,EProjectilex,EProjectiley) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Delay 100 End If If ImagesOverlap(PMissile,PMissilex,PMissiley,Bomber,Bomberx,Bombery) DrawImage(explosion,Bomberx,Bombery) End If If ImagesOverlap(PMissile,PMissilex,PMissiley,EnemyMig,EnemyMigx,EnemyMigy) DrawImage(explosion,EnemyMigx,EnemyMigy) End If If ImagesOverlap(PMissile,PMissilex,PMissiley,Plane,Planex,Planey) DrawImage(explosion,Planex,Planey) End If If ImagesOverlap(PProjectile,PProjectilex,PProjectiley,Plane,Planex,Planey) DrawImage(explosion,Planex,Planey) End If If ImagesOverlap(PProjectile,PProjectile,PProjectiley,Bomber,Bomberx,Bombery) DrawImage(explosion,Bomberx,Bombery) End If If ImagesOverlap(PProjectile,PProjectilex,PProjectiley,EnemyMig,EnemyMigx,EnemyMigy) DrawImage(explosion,EnemyMigx,EnemyMigy) End If End Function --v I've solved the position (except that the explosion ends up appearing at the top left), but I still have no movement, not even by my own character. I have AI activity, as I keep dying, but absolutely no movement.
Sun, 27 Apr 2008, 15:32
Jayenkai	Your defining the player as Global Fighter.player = New player So, whenever you access it's X and Y co-ords, you should actually be using Fighter\X and Fighter\Y because they're set up to be part of the .player type. However, you're using a seperate set of FighterJetX and FighterJetY variables. Because you haven't set those up, nor made them Global, they're just not being used at all. Go through your code, and make sure the variables you're using are those that you set up in the types, so they're linked to the actual objects. -=-=- ''Load, Next List!''
Sun, 27 Apr 2008, 16:00
Baldwin	I combed through it earlier and got the movement checked out. Been pouring through the snippets trying to find the correct code for transparency for the last twenty minutes, but I had too much fun with the fire program. Right now I don't think that types will be neccessary now, unless I want to add more than one of each, since I have it on simple x y variables. Only problem now seems to be not being able to move the weapons. They draw, but they won't seek properly. When I use: "If KeyHit(FIREKEY) DrawImage (PProjectile,FighterJetx,FighterJety) Flip PProjectiley = PProjectiley - PROJECTILESPEED End If" It just sits in the middle of the player image. Same goes for the enemies and both missiles. If I use: "If KeyHit(FIREKEY) DrawImage (PProjectile,FighterJet,FighterJetx,FighterJety) Flip PProjectiley = PProjectiley - PROJECTILESPEED End If" I get an error stating: Illegal Image Frame index:575. ;Print "Hello." ;Delay 1000 ;Print "You are an elite pilot in the US Air Force." ;Delay 1500 ;Print "On a deep strike mission, you lost your entire squad." ;Delay 1500 ;Print "Fight your way out of enemy territory." ;Delay 1500 ;Print "The controls are simple. Use the directional keys to move your jet around. Pressing the space bar will fire a single round of your chain gun. Pressing the M key will fire a missile." ;Delay 10000 ;Print "The game is now loading." ;Goto game ;.game Graphics 800,600 SetBuffer BackBuffer() AutoMidHandle True Const UPKEY = 200 ;Up Const DOWNKEY = 208 ;Down Const RIGHTKEY = 205 ;Right Const LEFTKEY = 203 ;Left Const FIREKEY = 57 ;Space Bar Const MISSILEKEY = 50 ;M Const JETSPEED = 4 Const MIGSPEED = 3 Const PLANESPEED = 1.7 Const BOMBERSPEED = 1 Const PROJECTILESPEED = 5 Const MISSILESPEED = 4 Global FighterJet = LoadImage("FighterPlayer.bmp") Global EnemyMig = LoadImage("EnemyJet.bmp") Global Bomber = LoadImage("EnemyBomber.bmp") Global Plane = LoadImage("EnemyPlane.bmp") Global PProjectile = LoadImage("P-Projectile.bmp") Global EProjectile = LoadImage("E-Projectile.bmp") Global PMissile = LoadImage("P-Missile.bmp") Global EnemyXAAM = LoadImage("EnemyRod.bmp") Global explosion = LoadImage("explosion.bmp") Global FighterJetx = 400 Global FighterJety = 575 Global EnemyMigx = 376 Global EnemyMigy = 40 Global Planex = 213 Global Planey = 10 Global Bomberx = 498 Global Bombery = 10 While Not KeyHit(1) Initializelevel() JetControls() AirForceAI() Crash() Wend Function InitializeLevel() DrawImage (FighterJet,FighterJetx,FighterJety) DrawImage (EnemyMig,EnemyMigx,EnemyMigy) DrawImage (Plane,Planex,Planey) DrawImage (Bomber,Bomberx,Bombery) Flip End Function Function JetControls() If KeyDown(UPKEY) Then FighterJety = FighterJety - JETSPEED If KeyDown(DOWNKEY) Then FighterJety = FighterJety + JETSPEED If KeyDown(LEFTKEY) Then FighterJetx = FighterJetx - JETSPEED If KeyDown(RIGHTKEY) Then FighterJetx = FighterJetx + JETSPEED If KeyDown(FIREKEY) DrawImage(PProjectile,FighterJet,FighterJetx,FighterJety) Flip PProjectiley = PProjectiley - PROJECTILESPEED End If If KeyHit(MISSILEKEY) DrawImage(PMissile,FighterJet,FighterJetx,FighterJety) Flip PMissiley = PMissiley - MISSILESPEED End If End Function Function AirForceAI() If FighterJetx > EnemyMigx EnemyMigx = EnemyMigx + MIGSPEED End If If FighterJetx < EnemyMigx EnemyMigx = EnemyMigx - MIGSPEED End If If EnemyMigy > 590 DrawImage (explosion,EnemyMigx,EnemyMigy) Flip End If If Bombery < 600 Bombery = Bombery + BOMBERSPEED End If If Bombery > 590 Bombery = 5 End If If Planey < 900 Planey = Planey + PLANESPEED End If If Planey > 590 Planey = 5 Planex = Planex + 47 End If If EnemyMigx = FighterJetx DrawImage (EnemyXAAM,EnemyMigx,EnemyMigy) Flip EnemyXAAMy = EnemyXAAMy + MISSILESPEED End If If Bomberx = FighterJety DrawImage (EProjectile,Bomberx,Bombery) Flip EProjectiley = EProjectiley + PROJECTILESPEED End If End Function Function Crash() If ImagesOverlap(FighterJet,FighterJetx,FighterJety,Bomber,Bomberx,Bombery) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Flip Delay 1500 End End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,Plane,Planex,Planey) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Flip Delay 1500 End End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,EnemyMig,EnemyMigx,EnemyMigy) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Flip Delay 1500 End End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,EnemyXAAM,EnemyXAAMx,EnemyXAAMy) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Flip Delay 1500 End End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,EProjectile,EProjectilex,EProjectiley) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Flip Delay 1500 End End If If ImagesOverlap(PMissile,PMissilex,PMissiley,Bomber,Bomberx,Bombery) DrawImage(explosion,Bomberx,Bombery) Flip End If If ImagesOverlap(PMissile,PMissilex,PMissiley,EnemyMig,EnemyMigx,EnemyMigy) DrawImage(explosion,EnemyMigx,EnemyMigy) Flip End If If ImagesOverlap(PMissile,PMissilex,PMissiley,Plane,Planex,Planey) DrawImage(explosion,Planex,Planey) Flip End If If ImagesOverlap(PProjectile,PProjectilex,PProjectiley,Plane,Planex,Planey) DrawImage(explosion,Planex,Planey) Flip End If If ImagesOverlap(PProjectile,PProjectile,PProjectiley,Bomber,Bomberx,Bombery) DrawImage(explosion,Bomberx,Bombery) Flip End If If ImagesOverlap(PProjectile,PProjectilex,PProjectiley,EnemyMig,EnemyMigx,EnemyMigy) DrawImage(explosion,EnemyMigx,EnemyMigy) Flip End If End Function --v
Sun, 27 Apr 2008, 18:18
Baldwin	Print "Hello." Delay 1000 Print "You are in the US Air Force." Delay 1500 Print "On a deep strike mission, you lost your entire squad." Delay 1500 Print "Fight your way out of enemy territory." Delay 1500 Print "The controls are simple. Use the directional keys to move your jet around. Pressing the space bar will fire a single round of your chain gun." Delay 10000 Print "The game is now loading." Goto game .game Graphics 800,600 SetBuffer BackBuffer() AutoMidHandle True Const UPKEY = 200 ;Up Const DOWNKEY = 208 ;Down Const RIGHTKEY = 205 ;Right Const LEFTKEY = 203 ;Left Const FIREKEY = 57 ;Space Bar Const MISSILEKEY = 50 ;M Const JETSPEED = 4 Const MIGSPEED = 3 Const PLANESPEED = 1.7 Const BOMBERSPEED = 1 Const PROJECTILESPEED = 2 Const MISSILESPEED = 2 Global FighterJet = LoadImage("FighterPlayer.bmp") Global EnemyMig = LoadImage("EnemyJet.bmp") Global Bomber = LoadImage("EnemyBomber.bmp") Global Plane = LoadImage("EnemyPlane.bmp") Global PProjectile = LoadImage("P-Projectile.bmp") Global EProjectile = LoadImage("E-Projectile.bmp") Global PMissile = LoadImage("P-Missile.bmp") Global EnemyXAAM = LoadImage("EnemyRod.bmp") Global explosion = LoadImage("explosion.bmp") Global FighterJetx = 400 Global FighterJety = 300 Global EnemyMigx = 376 Global EnemyMigy = 40 Global Planex = 213 Global Planey = 10 Global Bomberx = 498 Global Bombery = 10 Global PProjectilex = FighterJetx Global PProjectiley = FighterJety + 10 While Not KeyHit(1) Initializelevel() JetControls() AirForceAI() Crash() Wend Function InitializeLevel() MaskImage FighterJet,255,255,255 MaskImage EnemyMig,255,255,255 MaskImage Plane,255,255,255 MaskImage Bomber,255,255,255 MaskImage explosion,255,255,255 Cls DrawImage (FighterJet,FighterJetx,FighterJety) DrawImage (EnemyMig,EnemyMigx,EnemyMigy) DrawImage (Plane,Planex,Planey) DrawImage (Bomber,Bomberx,Bombery) Flip End Function Function JetControls() If KeyDown(UPKEY) Then FighterJety = FighterJety - JETSPEED If KeyDown(DOWNKEY) Then FighterJety = FighterJety + JETSPEED If KeyDown(LEFTKEY) Then FighterJetx = FighterJetx - JETSPEED If KeyDown(RIGHTKEY) Then FighterJetx = FighterJetx + JETSPEED If KeyDown(FIREKEY) DrawImage PProjectile,PProjectilex,PProjectiley Flip PProjectiley = PProjectiley - PROJECTILESPEED End If End Function Function AirForceAI() If FighterJetx > EnemyMigx EnemyMigx = EnemyMigx + MIGSPEED End If If FighterJetx < EnemyMigx EnemyMigx = EnemyMigx - MIGSPEED End If If EnemyMigy > 590 DrawImage (explosion,EnemyMigx,EnemyMigy) Flip End If If Bombery < 600 Bombery = Bombery + BOMBERSPEED End If If Bombery > 590 Bombery = 5 End If If Planey < 900 Planey = Planey + PLANESPEED End If If Planey > 590 Planey = 5 Planex = Planex + 47 End If If EnemyMigx = FighterJetx DrawImage (EnemyXAAM,EnemyMigx,EnemyMigy) Flip EnemyXAAMy = EnemyXAAMy + MISSILESPEED End If If Bomberx = FighterJety DrawImage (EProjectile,Bomberx,Bombery) Flip EProjectiley = EProjectiley + PROJECTILESPEED End If End Function Function Crash() If ImagesOverlap(FighterJet,FighterJetx,FighterJety,Bomber,Bomberx,Bombery) DrawImage(explosion,FighterJetx,FighterJety) DrawImage(explosion,Bomberx,Bombery) Text 300,400,"Game Over" Flip Delay 1500 End End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,Plane,Planex,Planey) DrawImage(explosion,FighterJetx,FighterJety) DrawImage(explosion,Planex,Planey) Text 300,400,"Game Over" Flip Delay 1500 End End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,EnemyMig,EnemyMigx,EnemyMigy) DrawImage(explosion,FighterJetx,FighterJety) DrawImage(explosion,EnemyMigx,EnemyMigy) Text 300,400,"Game Over" Flip Delay 1500 End End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,EnemyXAAM,EnemyXAAMx,EnemyXAAMy) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Flip Delay 1500 End End If If ImagesOverlap(FighterJet,FighterJetx,FighterJety,EProjectile,EProjectilex,EProjectiley) DrawImage(explosion,FighterJetx,FighterJety) Text 300,400,"Game Over" Flip Delay 1500 End End If If ImagesOverlap(PMissile,PMissilex,PMissiley,Bomber,Bomberx,Bombery) DrawImage(explosion,Bomberx,Bombery) Flip End If If ImagesOverlap(PMissile,PMissilex,PMissiley,EnemyMig,EnemyMigx,EnemyMigy) DrawImage(explosion,EnemyMigx,EnemyMigy) Flip End If If ImagesOverlap(PMissile,PMissilex,PMissiley,Plane,Planex,Planey) DrawImage(explosion,Planex,Planey) Flip End If If ImagesOverlap(PProjectile,PProjectilex,PProjectiley,Plane,Planex,Planey) DrawImage(explosion,Planex,Planey) Flip End If If ImagesOverlap(PProjectile,PProjectile,PProjectiley,Bomber,Bomberx,Bombery) DrawImage(explosion,Bomberx,Bombery) Flip End If If ImagesOverlap(PProjectile,PProjectilex,PProjectiley,EnemyMig,EnemyMigx,EnemyMigy) DrawImage(explosion,EnemyMigx,EnemyMigy) Flip End If End Function --v For the most part, it is now a..."game". I'll just make them look at other pre-existing games on their computer and offer extra credit to those who can manage to correct the weapons issue. =D
Mon, 28 Apr 2008, 04:54
mike_g	Ok, heres a bit of your code: If Bomberx = FighterJety DrawImage (EProjectile,Bomberx,Bombery) Flip EProjectiley = EProjectiley + PROJECTILESPEED End If --v It looks as if you are drawing your projectile at the bombers location. You then flip the backbuffer, which you dont need to be doing here; you should only need to call flip once at the end of your main loop. Once you have called flip you then move the projectile, but on the next loop you reset the projectiles position to the bomber location. You really need to have variables to track the missiles co-ords. I noticed that you are not using types at all. I suggest you learn how to use them; you will need them for a game like this. With types you can create instances of objects such as an enemy, or projectile which each have their own set of variables. You can then loop through each of these objects moving them, checking for collisions, etc.
Mon, 28 Apr 2008, 13:46
Forklift_Fred	Couple of key pointers there, worth highlighting I think. you should only need to call flip once at the end of your main loop. This caught me out several times early on. Exception to the rule (because there always are!) would be stand alone functions, maybe you have an introduction/menu function or level editor function... but even then there would be a single Flip command at the end of the loop. I noticed that you are not using types at all. I'll start with the exception this time... When you only have 1 or 2 characters/fighters/missiles then you may find it easier to stick to normal variables, especially if you are still getting to grips with the language. However, once you get into larger amounts of characters and especially missiles then Types are a god-send. Missiles and bullets especially because you can fire as many as you like and just keep adding more and more (and then delete them as they hit their target or reach their limit) In your case, if I've read your code correctly and there is just one player and one enemy, I'd suggest you stick to normal variables for the planes but venture into Types for the missiles. You can always step up to types for the enemies later if you want to add more. That's my thinking anyway, hanging onto something easier so at least part of it works while you always play with types. You may prefer to dive straight in and only use Types but since you pulled away from them already... Types can be quite easy at the basic level but it can be tricky to find an explanation that clicks with your way of thinking. There are people asking about Types and it doesn't matter how many times they get answered there are still people that need it explained to them personally. Give it a go but don't be afraid to ask -=-=- Come rain or shine...