Problem creating level - GameCreators Forum

Author

Message

Homey

17

Years of Service

User Offline

Joined: 18th Feb 2008

Location:

Posted: 19th Feb 2008 04:52 Edited at: 19th Feb 2008 23:06

Link

hi im new here, and im taking a computer science class. I was given a prototype and was given the task to add levels, texture, design, etc. right now im really frustrated and im unable to make more levels to this game. im pretty confused, can someone help me plz?

the file .dba is attached. Take a look at it and help me the best you can.
Thank u

re-EDITED: haha i don't know how to reply... since i couldn't find a reply button also but my main task right now is to add levels to it. If you could show me how, it would be greatly appreciated.

http://img114.imageshack.us/img114/5254/homie1fj7.jpg

Attachments

Login to view attachments

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 19th Feb 2008 20:14

Link

+ Code Snippet

do
               `SCREEN DISPLAY
               `CONTROL INPUT
                  if keystate( scancode() ) = 1 then goto OptionsSection
               `REFRESH SCREEN
                  sync
            loop

Your tutor wrote that?!

For some reason it needs to load an object that is intriguingly called "box"

, I replaced this with DBs own objects so no media is required

`*****************************************
`*****************************************
`***
`***   TITLE - Flyer Prototype Template
`***   VERSION - 1.0.0b LAST UPDATED - 1.1.2005
`***   DEVELOPER - Jason Holm
`***   COPYRIGHT - Ingenious Student Labs
`***   DATE CREATED - 1.1.2005
`***
`  ***
`  ***   START SYSTEM SETUP SECTION
`  ***
         sync on
         sync rate 30
         autocam on
         hide mouse
         randomize timer()
`  ***
`  ***   STOP SYSTEM SETUP SECTION
`  ***
`  ***************************************
`  ***
`  ***   START INTRO SECTION
`  ***
`     ***
`     ***   INTRO SECTION HEADER
`     ***
            `DECLARE VARIABLES
            `SCREEN DISPLAY
               cls 0
               ink rgb(255,255,255),0
               center text 320,220,"FLYER PROTOTYPE TEMPLATE"
               center text 320,260,"HIT ANY KEY TO BEGIN"
            `LOAD SOUNDS
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   INTRO SECTION LOOP
`     ***
            do
               `SCREEN DISPLAY
               `CONTROL INPUT
                  if keystate( scancode() ) = 1 then goto OptionsSection
               `REFRESH SCREEN
                  sync
            loop
`  ***
`  ***   END INTRO SECTION
`  ***
`  *****************************************
`  ***
`  ***   START OPTIONS SECTION
`  ***
`     ***
`     ***   OPTIONS SECTION HEADER
`     ***
            OptionsSection:
            `DECLARE VARIABLES
               `Levels
                  TotalLevels = 1 : `Total number of levels
                  LevelNumber = 1 : `Start on Level 1
            `SCREEN DISPLAY
               cls 0
               ink rgb(255,255,255),0
               center text 320,220, "PRESS SPACE BAR TO FIRE"
               center text 320,260, "USE ARROW KEYS TO MOVE"
               center text 320,280, "PRESS 'Q' TO QUIT"
               center text 320,350, "PRESS ANY KEY TO CONTINUE"
            `LOAD SOUNDS
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   OPTIONS SECTION LOOP
`     ***
            do
               if scancode() = 0 then exit
            loop
            do
               `SCREEN DISPLAY
               `CONTROL INPUT
                  if Keystate(scancode())=1 then goto LevelIntroSection
               `REFRESH SCREEN
                  sync
            loop
`  ***
`  ***   END OPTIONS SECTION
`  ***
`  *****************************************
`  ***
`  ***   START LEVEL INTRO SECTION
`  ***
`     ***
`     ***   OPTIONS SECTION HEADER
`     ***
            LevelIntroSection:
            `DECLARE VARIABLES
            `SCREEN DISPLAY
               cls 0
               ink rgb(255,255,255),0
               center text 320,220, "LEVEL"
               set cursor 320,240
               print LevelNumber
               center text 320,260, "HIT ANY KEY TO BEGIN"
            `LOAD SOUNDS
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   OPTIONS SECTION LOOP
`     ***
            do
               if scancode() = 0 then exit
            loop
            do
               `SCREEN DISPLAY
               `CONTROL INPUT
                  if keystate( scancode() ) = 1 then goto MainSection
               `REFRESH SCREEN
                  sync
            loop
`  ***
`  ***   END LEVEL INTRO SECTION
`  ***
`  *****************************************
`  ***
`  ***   START MAIN SECTION
`  ***
`     ***
`     ***   MAIN SECTION HEADER
`     ***
            MainSection:
            `DECLARE VARIABLES
               `Player Character
               `Projectiles
                  dim projectileReleased(23)
                     `LoadPlayerCharacter will create projectile objects 21-23 (0-20 are blank)
                     `projectileReleased(n) = 0 : Projectile waiting to be released
                     `projectileReleased(n) = 1 : Projectile traveling through the air
                     `projectileReleased(n) = 2 : Projectile currently exploding
                  dim projectileExplode(23)
                  SpacekeyHold = 0 : `Key release
               `Enemies
                  dim LevelEnemies(0) = 0
                  dim LevelEnemiesDestroyed(0) = 0
                  thisLevelEnemies = 0
               `Other
                  GameOver$ = ""
            `LOAD IMAGES
            `SCREEN DISPLAY
               cls 0
               backdrop on
               `TEXT
               `HEADS-UP DISPLAY (HUD)
            `OBJECT CREATION
               `World Map
                  LoadLevelMap()
               `Player Character
                  LoadPlayerCharacter()
               `Enemies
                  LoadLevelEnemies()
                  thisLevelEnemies = LevelEnemies(0)
                  `Declare New Variables
                     dim pXenemy#(thisLevelEnemies)
                     dim pYenemy#(thisLevelEnemies)
                     dim pZenemy#(thisLevelEnemies)
                     dim newpXenemy#(thisLevelEnemies)
                     dim newpYenemy#(thisLevelEnemies)
                     dim newpZenemy#(thisLevelEnemies)
               `Pick-Ups
            `LOAD MODELS
            `SET LIGHTS
            `SET CAMERA
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   MAIN SECTION LOOP
`     ***
            do
               if scancode() = 0 then exit
            loop
            do
               `SPECIAL EFFECTS
               `OBJECT ORIENTATIONS
                  `Player Character
                     1pX# = object position X(1)
                     1pY# = object position Y(1)
                     1pZ# = object position Z(1)
                     1aX = object angle X(1)
                     1aY = object angle Y(1)
                     1aZ = object angle Z(1)
                  `Enemies
                     for n = 301 to (300 + LevelEnemies(0))
                        if object exist(n) = 1
                           pXenemy#(n-300) = object position X(n)
                           pYenemy#(n-300) = object position Y(n)
                           pZenemy#(n-300) = object position Z(n)
                        endif
                     next n
               `LIVE SCREEN DISPLAY
                  `TEXT
                  `HUD
               `CONTROL INPUT
                  `Acceleration and Pitch
                     if Upkey()=1 then move object 1,10
                     if Downkey()=1 then move object 1,-10
                  `Turning and Banking
                     if Leftkey()=1 then 1aY = wrapvalue(1aY-5)
                     if Rightkey()=1 then 1aY = wrapvalue(1aY+5)
                  `Releasing Projectiles
                     if Spacekey()=1
                        if SpacekeyHold = 0
                           for n = 21 to 23 : `search for a projectile which is ready to be released
                              if projectileReleased(n) = 0
                                 projectileReleased(n) = 1
                                 show object n
                                 exit
                              endif
                           next n
                        endif
                        SpacekeyHold = 1 : `key pressed
                     else
                        SpacekeyHold = 0 : `key released
                     endif
                  `Quit Game
                     if Inkey$() = "q"
                        GameOver$ = "quit"
                        ClearWorld()
                        goto EndSection
                     endif
               `TRANSFORM OBJECTS
               `MOVE OBJECTS - PRE-COLLISION
                  `Player Character
                     Yrotate object 1,1aY : `rotate object accordingly
                     new1pX# = object position X(1)
                     new1pY# = object position Y(1)
                     new1pZ# = object position Z(1)
                  `Projectiles
                     for n = 21 to 23
                        if projectileReleased(n) = 1 then move object n,20 : `move the projectile if it's been released
                     next n
                  `Enemies
                     MoveLevelEnemies()
               `CHECK COLLISION
                  `Check Player Character
                     `Wall Collision
                        s# = 12.0
                        if get static collision hit(1pX#-s#,1pY#-s#,1pZ#-s#, 1pX#+s#,1pY#+s#,1pZ#+s#, new1pX#-s#,new1pY#-s#,new1pZ#-s#, new1pX#+s#,new1pY#+s#,new1pZ#+s#) = 1
                           dec new1pX#, get static collision x()
                           dec new1pY#, get static collision y()
                           dec new1pZ#, get static collision z()
                           position object 1,new1pX#,new1pY#,new1pZ# : rem adjust my position according to collision
                        endif
                     `Pick-Ups
                  `Check Projectile
                     for p = 21 to 23 : `Check all projectiles
                     if projectileReleased(p) > 0
                     `If this projectile has been released or is exploding
                        `Wall Collision
                           for n = 101 to 200 : `Check all walls
                              if object exist(n) = 1 : `If wall exists
                                 if object collision(p,n) > 0 : `If projectile hits this wall
                                    projectileReleased(p) = 2 : `Start projectile explosion
                                 endif
                              endif
                           next n : `Check next wall
                        `Enemy Collision
                           for n = 301 to (300 + LevelEnemies(0)) : `Check all enemy objects on this level
                              if object exist(n) = 1 : `If enemy is still alive
                                 if object collision(p,n) > 0 : `If projectile hits this enemy
                                    projectileReleased(p) = 2 : `Start projectile explosion
                                    delete object n : `Remove enemy object
                                    LevelEnemiesDestroyed(0) = LevelEnemiesDestroyed(0) + 1 : `Mark up one more destroyed enemy
                                    if LevelEnemiesDestroyed(0) = LevelEnemies(0) : `If all the enemies on this level are destroyed
                                       GameOver$ = "win"
                                       ClearWorld() : `Clear game world
                                       goto EndSection : `Go to end screen
                                    endif
                                 endif
                              endif
                           next n
                        endif
                        if projectileReleased(p) = 2 then projectileCollide(p) : `If projectile is exploding, continue explosion
                     next p
                  `Check Enemy
                     s# = 25.0
                     for n = 1 to LevelEnemies(0)
                        if object exist(n+300) = 1
                           x1=pXenemy#(n) : `Abbreviated variable name to save space on lines below
                           y1=pYenemy#(n)
                           z1=pZenemy#(n)
                           x2=newpXenemy#(n)
                           y2=newpYenemy#(n)
                           z2=newpZenemy#(n)
                           if get static collision hit(x1-s#,y1-s#,z1-s#,x1+s#,y1+s#,z1+s#,x2-s#,y2-s#,z2-s#,x2+s#,y2+s#,z2+s#)=1
                              newpXenemy#(n) = newpXenemy#(n) - get static collision x()
                              newpYenemy#(n) = newpYenemy#(n) - get static collision y()
                              newpZenemy#(n) = newpZenemy#(n) - get static collision z()
                              position object n+300,newpXenemy#(n),newpYenemy#(n),newpZenemy#(n) : rem adjust my position according to collision
                           endif
                        endif
                     next n
                  `Set Post-Collision Object Orientation Values
                     `Player Character
                        1pX# = object position X(1)
                        1pY# = object position Y(1)
                        1pZ# = object position Z(1)
                        1aX = object angle X(1)
                        1aY = object angle Y(1)
                        1aZ = object angle Z(1)
                     `Projectile
                        for n = 21 to 23
                           if projectileReleased(n) = 0
                              position object n, 1pX#,1pY#,1pZ#
                              rotate object n, 1aX,1aY,1aZ
                           endif
                        next n
                  `Check Player Expiration
               `MOVE CAMERA
                  set camera to follow 1pX#,1pY#,1pZ#, 1aY,50,70, 1,1
               `MOVE LIGHT
               `REFRESH SCREEN
                  sync
            loop
`  ***
`  ***   STOP MAIN SECTION
`  ***
`  *****************************************
`  ***
`  ***   START END SECTION
`  ***
`     ***
`     ***   END SECTION HEADER
`     ***
            EndSection:
            `DECLARE VARIABLES
            `SCREEN DISPLAY
               cls 0
               ink rgb(255,255,255),0
               if GameOver$ = "quit" then center text 320,220, "GAME OVER"
               if GameOver$ = "win" then center text 320,220, "YOU WIN!"
               center text 320,260, "PLAY AGAIN [Y/N]?"
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   END SECTION LOOP
`     ***
            do
               if scancode() = 0 then exit
            loop
            do
            `CONTROL INPUT
               if Inkey$() = "y" then goto OptionsSection
               if Inkey$() = "n"
                  cls 0
                  end
               endif
            `REFRESH SCREEN
               sync
            loop
            end
`  ***
`  *** STOP END SECTION
`  ***
`  *****************************************
`  *****************************************
`  ***
`  ***   START FUNCTIONS
`  ***
`     ***
`     ***   LOAD LEVEL MAP - LoadLevelMap
`     ***   Generates the 3D level
`     ***
            function LoadLevelMap()
               `Walls
                  LoadObstacle(101, 600,300,100, 800,0,1550, "wall") : `North Wall
                  LoadObstacle(102, 600,300,100, 800,0,50, "wall") : `South Wall
                  LoadObstacle(103, 100,300,600, 50,0,800, "wall") : `West Wall
                  LoadObstacle(104, 100,300,600, 1550,0,800, "wall") : `East Wall
               `Corners
                  LoadObstacle(105, 500,300,500, 250,0,1350, "corner") : `Northwest Corner
                  LoadObstacle(106, 500,300,500, 1350,0,1350, "corner") : `Northeast Corner
                  LoadObstacle(107, 500,300,500, 250,0,250, "corner") : `Southwest Corner
                  LoadObstacle(108, 500,300,500, 1350,0,250, "corner") : `Southeast Corner
               `Pillars
                  LoadObstacle(109, 200,300,200, 800,0,1200, "pillar") : `North Pillar
                  LoadObstacle(110, 200,300,200, 800,0,400, "pillar") : `South Pillar
                  LoadObstacle(111, 200,300,200, 400,0,800, "pillar") : `West Pillar
                  LoadObstacle(112, 200,300,200, 1200,0,800, "pillar") : `East Pillar
                  LoadObstacle(113, 200,300,200, 800,0,800, "pillar") : `Center Pillar
               `Floor
                  LoadObstacle(100, 1600,1,1600, 800,0,800, "floor") : `Floor
            endfunction
`     ***
`     ***   LOAD OBSTACLES - LoadObstacle
`     ***   Generates the solid static wall/pillar elements of the 3D level
`     ***
            function LoadObstacle(myObject, myXScale,myYScale,myZScale, myXPosition,myYPosition,myZPosition, myType$)
               make object cube myObject,10
               color object myobject,rgb(255,0,0)

scale object myObject, myXScale,myYScale,myZScale
               make object collision box myObject, 0-(myXScale/2),0,0-(myZScale/2), (myXScale/2),myYScale,(myZScale/2), 0
               position object myObject, myXPosition,myYPosition,myZPosition
               make static collision box myXPosition-(myXScale/2),myYPosition,myZPosition-(myZScale/2),myXPosition+(myXScale/2),myYPosition+myYScale,myZPosition+(myZScale/2)
            endfunction
`     ***
`     ***   LOAD PLAYER CHARACTER - LoadPlayerCharacter
`     ***   Generates the player character ship and weapons
`     ***
            function LoadPlayerCharacter()
               `Construction
                  `Ship
                     `Central Control Object
                        make object sphere 1,1 : `create the central control object
                     `Hull
                        make object cone 2,24 : `make a cone
                        scale object 2, 100,100,50 : `squash the cone front to back
                        xrotate object 2,90 : `turn cone on it's front
                        make mesh from object 2,2 : `make a mesh object from the cone
                        delete object 2 : `delete object 2 (cone); mesh 2 (cone) still exists
                     `Assembly
                        add limb 1,1,2 : `add a limb to object 1 (controller), call it limb 1, and use mesh 2 (cone) for the limb
                        color object 1,rgb(255,0,0)
                        make object collision box 1, -12,-12,-12, 12,12,12, 1 : `the collision box extends past the controller
                     `Projectiles
                       for n = 21 to 23 : `3 projectiles
                          make object sphere n,4
                          set object n, 1,1,1,2,0,1,0
                          color object n, rgb(0,255,0)
                          make object collision box n, -2,-2,-2, 2,2,2, 0
                          hide object n
                       next n
               `Positioning
                  `Ship
                     position object 1, 1000,50,600 : `move player to selected starting spot in maze
                     yrotate object 1, 270 : `rotate player to face west
                  `Projectiles
                     for n = 21 to 23 : `3 projectiles
                        position object n, object position X(1),object position y(1),object position z(1)
                        set object to object orientation n,1
                        projectileReleased(n) = 0
                     next n
                  `Camera
                     position camera 1100,70,600
                     point camera object position X(1),object position Y(1),object position Z(1) : rem point camera at player character
            endfunction
`     ***
`     ***   PROJECTILE COLLIDE - projectileCollide
`     ***   Projectile collision explosion animation
`     ***
            function projectileCollide(p)
               if projectileExplode(p-20) = 0
                  color object p,rgb(255,255,255)
                  ghost object on p
               endif
               projectileExplode(p-20) = projectileExplode(p-20) + 1
               if projectileExplode(p-20) <= 3
                  scale object p, 100 + (projectileExplode(p-20) * 200),100 + (projectileExplode(p-20) * 200),100 + (projectileExplode(p-20) * 200)
               endif
               if projectileExplode(p-20) > 3
                  scale object p, 700 - ((projectileExplode(p-20)-2) * 200),700 - ((projectileExplode(p-20)-2) * 200),700 - ((projectileExplode(p-20)-2) * 200)
               endif
               if projectileExplode(p-20) = 6
                  scale object p, 100,100,100
                  color object p,rgb(0,255,0)
                  ghost object off p
                  hide object p
                  projectileReleased(p) = 0
                  projectileExplode(p-20) = 0
               endif
            endfunction
`     ***
`     ***   LOAD LEVEL ENEMIES - LoadLevelEnemies
`     ***   Generates the enemies
`     ***
            function LoadLevelEnemies()
                  LoadSpinner(301, 1000,50,1400) : `(ObjNum, XPos,YPos,ZPos)
                  LoadSpinner(302, 600,50,1000) : `(ObjNum, XPos,YPos,ZPos)
               for x = 301 to 400
                  if object exist(x) = 1 then LevelEnemies(0) = LevelEnemies(0) + 1
                  `count how many enemies are on this level
               next x
            endfunction
`     ***
`     ***   LOAD SPINNER - LoadSpinner
`     ***   Generates a simple spinning enemy
`     ***
            function LoadSpinner(ObjNum, XPos,YPos,ZPos)
                  make object cube ObjNum,50
                  color object ObjNum,rgb(255,255,0)
                  make object collision box ObjNum, -25,-25,-25, 25,25,25, 0
                  rotate object ObjNum, 45,0,45
                  fix object pivot ObjNum
                  position object ObjNum,XPos,YPos,ZPos
            endfunction
`     ***
`     ***   MOVE LEVEL ENEMIES - MoveLevelEnemies
`     ***   Moves the enemies
`     ***
            function MoveLevelEnemies()
                  for n = 301 to 400
                     if object exist(n) = 1
                        Yrotate object n, wrapvalue(object angle Y(n)+20)
                        n2 = rnd(1)
                        if n2 = 1 then move object n,10
                     endif
                  next n
               for n = 301 to (300 + LevelEnemies(0))
                  if object exist(n) = 1
                     newpXenemy#(n-300) = object position X(n)
                     newpYenemy#(n-300) = object position Y(n)
                     newpZenemy#(n-300) = object position Z(n)
                  endif
               next n
            endfunction
`     ***
`     ***   CLEAR WORLD - ClearWorld
`     ***   Remove all existing 3D elements from world
`     ***
            function ClearWorld
               for x = 1 to 1000
                  if object exist(x) = 1 then delete object x
                  if matrix exist(x) = 1 then delete matrix x
                  if mesh exist(x) = 1 then delete mesh x
                  if light exist(x) = 1 then delete light x
                  if x <= 32
                     if animation exist(x) = 1 then delete animation x
                  endif
               next x
               `Static Objects
                  make object cube 1,5
                  make static object 1
                  delete object 1
                  delete static objects
               fog off
               backdrop off
               cls 0
            endfunction
`  ***
`  ***   STOP FUNCTIONS
`  ***
`***
`***  END PROGRAM
`***
`*****************************************
`*****************************************

+ Code Snippet

`*****************************************
`*****************************************
`***
`***   TITLE - Flyer Prototype Template
`***   VERSION - 1.0.0b LAST UPDATED - 1.1.2005
`***   DEVELOPER - Jason Holm
`***   COPYRIGHT - Ingenious Student Labs
`***   DATE CREATED - 1.1.2005
`***
`  ***
`  ***   START SYSTEM SETUP SECTION
`  ***
         sync on
         sync rate 30
         autocam on
         hide mouse
         randomize timer()
`  ***
`  ***   STOP SYSTEM SETUP SECTION
`  ***
`  ***************************************
`  ***
`  ***   START INTRO SECTION
`  ***
`     ***
`     ***   INTRO SECTION HEADER
`     ***
            `DECLARE VARIABLES
            `SCREEN DISPLAY
               cls 0
               ink rgb(255,255,255),0
               center text 320,220,"FLYER PROTOTYPE TEMPLATE"
               center text 320,260,"HIT ANY KEY TO BEGIN"
            `LOAD SOUNDS
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   INTRO SECTION LOOP
`     ***
            do
               `SCREEN DISPLAY
               `CONTROL INPUT
                  if keystate( scancode() ) = 1 then goto OptionsSection
               `REFRESH SCREEN
                  sync
            loop
`  ***
`  ***   END INTRO SECTION
`  ***
`  *****************************************
`  ***
`  ***   START OPTIONS SECTION
`  ***
`     ***
`     ***   OPTIONS SECTION HEADER
`     ***
            OptionsSection:
            `DECLARE VARIABLES
               `Levels
                  TotalLevels = 1 : `Total number of levels
                  LevelNumber = 1 : `Start on Level 1
            `SCREEN DISPLAY
               cls 0
               ink rgb(255,255,255),0
               center text 320,220, "PRESS SPACE BAR TO FIRE"
               center text 320,260, "USE ARROW KEYS TO MOVE"
               center text 320,280, "PRESS 'Q' TO QUIT"
               center text 320,350, "PRESS ANY KEY TO CONTINUE"
            `LOAD SOUNDS
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   OPTIONS SECTION LOOP
`     ***
            do
               if scancode() = 0 then exit
            loop
            do
               `SCREEN DISPLAY
               `CONTROL INPUT
                  if Keystate(scancode())=1 then goto LevelIntroSection
               `REFRESH SCREEN
                  sync
            loop
`  ***
`  ***   END OPTIONS SECTION
`  ***
`  *****************************************
`  ***
`  ***   START LEVEL INTRO SECTION
`  ***
`     ***
`     ***   OPTIONS SECTION HEADER
`     ***
            LevelIntroSection:
            `DECLARE VARIABLES
            `SCREEN DISPLAY
               cls 0
               ink rgb(255,255,255),0
               center text 320,220, "LEVEL"
               set cursor 320,240
               print LevelNumber
               center text 320,260, "HIT ANY KEY TO BEGIN"
            `LOAD SOUNDS
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   OPTIONS SECTION LOOP
`     ***
            do
               if scancode() = 0 then exit
            loop
            do
               `SCREEN DISPLAY
               `CONTROL INPUT
                  if keystate( scancode() ) = 1 then goto MainSection
               `REFRESH SCREEN
                  sync
            loop
`  ***
`  ***   END LEVEL INTRO SECTION
`  ***
`  *****************************************
`  ***
`  ***   START MAIN SECTION
`  ***
`     ***
`     ***   MAIN SECTION HEADER
`     ***
            MainSection:
            `DECLARE VARIABLES
               `Player Character
               `Projectiles
                  dim projectileReleased(23)
                     `LoadPlayerCharacter will create projectile objects 21-23 (0-20 are blank)
                     `projectileReleased(n) = 0 : Projectile waiting to be released
                     `projectileReleased(n) = 1 : Projectile traveling through the air
                     `projectileReleased(n) = 2 : Projectile currently exploding
                  dim projectileExplode(23)
                  SpacekeyHold = 0 : `Key release
               `Enemies
                  dim LevelEnemies(0) = 0
                  dim LevelEnemiesDestroyed(0) = 0
                  thisLevelEnemies = 0
               `Other
                  GameOver$ = ""
            `LOAD IMAGES
            `SCREEN DISPLAY
               cls 0
               backdrop on
               `TEXT
               `HEADS-UP DISPLAY (HUD)
            `OBJECT CREATION
               `World Map
                  LoadLevelMap()
               `Player Character
                  LoadPlayerCharacter()
               `Enemies
                  LoadLevelEnemies()
                  thisLevelEnemies = LevelEnemies(0)
                  `Declare New Variables
                     dim pXenemy#(thisLevelEnemies)
                     dim pYenemy#(thisLevelEnemies)
                     dim pZenemy#(thisLevelEnemies)
                     dim newpXenemy#(thisLevelEnemies)
                     dim newpYenemy#(thisLevelEnemies)
                     dim newpZenemy#(thisLevelEnemies)
               `Pick-Ups
            `LOAD MODELS
            `SET LIGHTS
            `SET CAMERA
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   MAIN SECTION LOOP
`     ***
            do
               if scancode() = 0 then exit
            loop
            do
               `SPECIAL EFFECTS
               `OBJECT ORIENTATIONS
                  `Player Character
                     1pX# = object position X(1)
                     1pY# = object position Y(1)
                     1pZ# = object position Z(1)
                     1aX = object angle X(1)
                     1aY = object angle Y(1)
                     1aZ = object angle Z(1)
                  `Enemies
                     for n = 301 to (300 + LevelEnemies(0))
                        if object exist(n) = 1
                           pXenemy#(n-300) = object position X(n)
                           pYenemy#(n-300) = object position Y(n)
                           pZenemy#(n-300) = object position Z(n)
                        endif
                     next n
               `LIVE SCREEN DISPLAY
                  `TEXT
                  `HUD
               `CONTROL INPUT
                  `Acceleration and Pitch
                     if Upkey()=1 then move object 1,10
                     if Downkey()=1 then move object 1,-10
                  `Turning and Banking
                     if Leftkey()=1 then 1aY = wrapvalue(1aY-5)
                     if Rightkey()=1 then 1aY = wrapvalue(1aY+5)
                  `Releasing Projectiles
                     if Spacekey()=1
                        if SpacekeyHold = 0
                           for n = 21 to 23 : `search for a projectile which is ready to be released
                              if projectileReleased(n) = 0
                                 projectileReleased(n) = 1
                                 show object n
                                 exit
                              endif
                           next n
                        endif
                        SpacekeyHold = 1 : `key pressed
                     else
                        SpacekeyHold = 0 : `key released
                     endif
                  `Quit Game
                     if Inkey$() = "q"
                        GameOver$ = "quit"
                        ClearWorld()
                        goto EndSection
                     endif
               `TRANSFORM OBJECTS
               `MOVE OBJECTS - PRE-COLLISION
                  `Player Character
                     Yrotate object 1,1aY : `rotate object accordingly
                     new1pX# = object position X(1)
                     new1pY# = object position Y(1)
                     new1pZ# = object position Z(1)
                  `Projectiles
                     for n = 21 to 23
                        if projectileReleased(n) = 1 then move object n,20 : `move the projectile if it's been released
                     next n
                  `Enemies
                     MoveLevelEnemies()
               `CHECK COLLISION
                  `Check Player Character
                     `Wall Collision
                        s# = 12.0
                        if get static collision hit(1pX#-s#,1pY#-s#,1pZ#-s#, 1pX#+s#,1pY#+s#,1pZ#+s#, new1pX#-s#,new1pY#-s#,new1pZ#-s#, new1pX#+s#,new1pY#+s#,new1pZ#+s#) = 1
                           dec new1pX#, get static collision x()
                           dec new1pY#, get static collision y()
                           dec new1pZ#, get static collision z()
                           position object 1,new1pX#,new1pY#,new1pZ# : rem adjust my position according to collision
                        endif
                     `Pick-Ups
                  `Check Projectile
                     for p = 21 to 23 : `Check all projectiles
                     if projectileReleased(p) > 0
                     `If this projectile has been released or is exploding
                        `Wall Collision
                           for n = 101 to 200 : `Check all walls
                              if object exist(n) = 1 : `If wall exists
                                 if object collision(p,n) > 0 : `If projectile hits this wall
                                    projectileReleased(p) = 2 : `Start projectile explosion
                                 endif
                              endif
                           next n : `Check next wall
                        `Enemy Collision
                           for n = 301 to (300 + LevelEnemies(0)) : `Check all enemy objects on this level
                              if object exist(n) = 1 : `If enemy is still alive
                                 if object collision(p,n) > 0 : `If projectile hits this enemy
                                    projectileReleased(p) = 2 : `Start projectile explosion
                                    delete object n : `Remove enemy object
                                    LevelEnemiesDestroyed(0) = LevelEnemiesDestroyed(0) + 1 : `Mark up one more destroyed enemy
                                    if LevelEnemiesDestroyed(0) = LevelEnemies(0) : `If all the enemies on this level are destroyed
                                       GameOver$ = "win"
                                       ClearWorld() : `Clear game world
                                       goto EndSection : `Go to end screen
                                    endif
                                 endif
                              endif
                           next n
                        endif
                        if projectileReleased(p) = 2 then projectileCollide(p) : `If projectile is exploding, continue explosion
                     next p
                  `Check Enemy
                     s# = 25.0
                     for n = 1 to LevelEnemies(0)
                        if object exist(n+300) = 1
                           x1=pXenemy#(n) : `Abbreviated variable name to save space on lines below
                           y1=pYenemy#(n)
                           z1=pZenemy#(n)
                           x2=newpXenemy#(n)
                           y2=newpYenemy#(n)
                           z2=newpZenemy#(n)
                           if get static collision hit(x1-s#,y1-s#,z1-s#,x1+s#,y1+s#,z1+s#,x2-s#,y2-s#,z2-s#,x2+s#,y2+s#,z2+s#)=1
                              newpXenemy#(n) = newpXenemy#(n) - get static collision x()
                              newpYenemy#(n) = newpYenemy#(n) - get static collision y()
                              newpZenemy#(n) = newpZenemy#(n) - get static collision z()
                              position object n+300,newpXenemy#(n),newpYenemy#(n),newpZenemy#(n) : rem adjust my position according to collision
                           endif
                        endif
                     next n
                  `Set Post-Collision Object Orientation Values
                     `Player Character
                        1pX# = object position X(1)
                        1pY# = object position Y(1)
                        1pZ# = object position Z(1)
                        1aX = object angle X(1)
                        1aY = object angle Y(1)
                        1aZ = object angle Z(1)
                     `Projectile
                        for n = 21 to 23
                           if projectileReleased(n) = 0
                              position object n, 1pX#,1pY#,1pZ#
                              rotate object n, 1aX,1aY,1aZ
                           endif
                        next n
                  `Check Player Expiration
               `MOVE CAMERA
                  set camera to follow 1pX#,1pY#,1pZ#, 1aY,50,70, 1,1
               `MOVE LIGHT
               `REFRESH SCREEN
                  sync
            loop
`  ***
`  ***   STOP MAIN SECTION
`  ***
`  *****************************************
`  ***
`  ***   START END SECTION
`  ***
`     ***
`     ***   END SECTION HEADER
`     ***
            EndSection:
            `DECLARE VARIABLES
            `SCREEN DISPLAY
               cls 0
               ink rgb(255,255,255),0
               if GameOver$ = "quit" then center text 320,220, "GAME OVER"
               if GameOver$ = "win" then center text 320,220, "YOU WIN!"
               center text 320,260, "PLAY AGAIN [Y/N]?"
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   END SECTION LOOP
`     ***
            do
               if scancode() = 0 then exit
            loop
            do
            `CONTROL INPUT
               if Inkey$() = "y" then goto OptionsSection
               if Inkey$() = "n"
                  cls 0
                  end
               endif
            `REFRESH SCREEN
               sync
            loop
            end
`  ***
`  *** STOP END SECTION
`  ***
`  *****************************************
`  *****************************************
`  ***
`  ***   START FUNCTIONS
`  ***
`     ***
`     ***   LOAD LEVEL MAP - LoadLevelMap
`     ***   Generates the 3D level
`     ***
            function LoadLevelMap()
               `Walls
                  LoadObstacle(101, 600,300,100, 800,0,1550, "wall") : `North Wall
                  LoadObstacle(102, 600,300,100, 800,0,50, "wall") : `South Wall
                  LoadObstacle(103, 100,300,600, 50,0,800, "wall") : `West Wall
                  LoadObstacle(104, 100,300,600, 1550,0,800, "wall") : `East Wall
               `Corners
                  LoadObstacle(105, 500,300,500, 250,0,1350, "corner") : `Northwest Corner
                  LoadObstacle(106, 500,300,500, 1350,0,1350, "corner") : `Northeast Corner
                  LoadObstacle(107, 500,300,500, 250,0,250, "corner") : `Southwest Corner
                  LoadObstacle(108, 500,300,500, 1350,0,250, "corner") : `Southeast Corner
               `Pillars
                  LoadObstacle(109, 200,300,200, 800,0,1200, "pillar") : `North Pillar
                  LoadObstacle(110, 200,300,200, 800,0,400, "pillar") : `South Pillar
                  LoadObstacle(111, 200,300,200, 400,0,800, "pillar") : `West Pillar
                  LoadObstacle(112, 200,300,200, 1200,0,800, "pillar") : `East Pillar
                  LoadObstacle(113, 200,300,200, 800,0,800, "pillar") : `Center Pillar
               `Floor
                  LoadObstacle(100, 1600,1,1600, 800,0,800, "floor") : `Floor
            endfunction
`     ***
`     ***   LOAD OBSTACLES - LoadObstacle
`     ***   Generates the solid static wall/pillar elements of the 3D level
`     ***
            function LoadObstacle(myObject, myXScale,myYScale,myZScale, myXPosition,myYPosition,myZPosition, myType$)
               make object cube myObject,10
               color object myobject,rgb(255,0,0)

               scale object myObject, myXScale,myYScale,myZScale
               make object collision box myObject, 0-(myXScale/2),0,0-(myZScale/2), (myXScale/2),myYScale,(myZScale/2), 0
               position object myObject, myXPosition,myYPosition,myZPosition
               make static collision box myXPosition-(myXScale/2),myYPosition,myZPosition-(myZScale/2),myXPosition+(myXScale/2),myYPosition+myYScale,myZPosition+(myZScale/2)
            endfunction
`     ***
`     ***   LOAD PLAYER CHARACTER - LoadPlayerCharacter
`     ***   Generates the player character ship and weapons
`     ***
            function LoadPlayerCharacter()
               `Construction
                  `Ship
                     `Central Control Object
                        make object sphere 1,1 : `create the central control object
                     `Hull
                        make object cone 2,24 : `make a cone
                        scale object 2, 100,100,50 : `squash the cone front to back
                        xrotate object 2,90 : `turn cone on it's front
                        make mesh from object 2,2 : `make a mesh object from the cone
                        delete object 2 : `delete object 2 (cone); mesh 2 (cone) still exists
                     `Assembly
                        add limb 1,1,2 : `add a limb to object 1 (controller), call it limb 1, and use mesh 2 (cone) for the limb
                        color object 1,rgb(255,0,0)
                        make object collision box 1, -12,-12,-12, 12,12,12, 1 : `the collision box extends past the controller
                     `Projectiles
                       for n = 21 to 23 : `3 projectiles
                          make object sphere n,4
                          set object n, 1,1,1,2,0,1,0
                          color object n, rgb(0,255,0)
                          make object collision box n, -2,-2,-2, 2,2,2, 0
                          hide object n
                       next n
               `Positioning
                  `Ship
                     position object 1, 1000,50,600 : `move player to selected starting spot in maze
                     yrotate object 1, 270 : `rotate player to face west
                  `Projectiles
                     for n = 21 to 23 : `3 projectiles
                        position object n, object position X(1),object position y(1),object position z(1)
                        set object to object orientation n,1
                        projectileReleased(n) = 0
                     next n
                  `Camera
                     position camera 1100,70,600
                     point camera object position X(1),object position Y(1),object position Z(1) : rem point camera at player character
            endfunction
`     ***
`     ***   PROJECTILE COLLIDE - projectileCollide
`     ***   Projectile collision explosion animation
`     ***
            function projectileCollide(p)
               if projectileExplode(p-20) = 0
                  color object p,rgb(255,255,255)
                  ghost object on p
               endif
               projectileExplode(p-20) = projectileExplode(p-20) + 1
               if projectileExplode(p-20) <= 3
                  scale object p, 100 + (projectileExplode(p-20) * 200),100 + (projectileExplode(p-20) * 200),100 + (projectileExplode(p-20) * 200)
               endif
               if projectileExplode(p-20) > 3
                  scale object p, 700 - ((projectileExplode(p-20)-2) * 200),700 - ((projectileExplode(p-20)-2) * 200),700 - ((projectileExplode(p-20)-2) * 200)
               endif
               if projectileExplode(p-20) = 6
                  scale object p, 100,100,100
                  color object p,rgb(0,255,0)
                  ghost object off p
                  hide object p
                  projectileReleased(p) = 0
                  projectileExplode(p-20) = 0
               endif
            endfunction
`     ***
`     ***   LOAD LEVEL ENEMIES - LoadLevelEnemies
`     ***   Generates the enemies
`     ***
            function LoadLevelEnemies()
                  LoadSpinner(301, 1000,50,1400) : `(ObjNum, XPos,YPos,ZPos)
                  LoadSpinner(302, 600,50,1000) : `(ObjNum, XPos,YPos,ZPos)
               for x = 301 to 400
                  if object exist(x) = 1 then LevelEnemies(0) = LevelEnemies(0) + 1
                  `count how many enemies are on this level
               next x
            endfunction
`     ***
`     ***   LOAD SPINNER - LoadSpinner
`     ***   Generates a simple spinning enemy
`     ***
            function LoadSpinner(ObjNum, XPos,YPos,ZPos)
                  make object cube ObjNum,50
                  color object ObjNum,rgb(255,255,0)
                  make object collision box ObjNum, -25,-25,-25, 25,25,25, 0
                  rotate object ObjNum, 45,0,45
                  fix object pivot ObjNum
                  position object ObjNum,XPos,YPos,ZPos
            endfunction
`     ***
`     ***   MOVE LEVEL ENEMIES - MoveLevelEnemies
`     ***   Moves the enemies
`     ***
            function MoveLevelEnemies()
                  for n = 301 to 400
                     if object exist(n) = 1
                        Yrotate object n, wrapvalue(object angle Y(n)+20)
                        n2 = rnd(1)
                        if n2 = 1 then move object n,10
                     endif
                  next n
               for n = 301 to (300 + LevelEnemies(0))
                  if object exist(n) = 1
                     newpXenemy#(n-300) = object position X(n)
                     newpYenemy#(n-300) = object position Y(n)
                     newpZenemy#(n-300) = object position Z(n)
                  endif
               next n
            endfunction
`     ***
`     ***   CLEAR WORLD - ClearWorld
`     ***   Remove all existing 3D elements from world
`     ***
            function ClearWorld
               for x = 1 to 1000
                  if object exist(x) = 1 then delete object x
                  if matrix exist(x) = 1 then delete matrix x
                  if mesh exist(x) = 1 then delete mesh x
                  if light exist(x) = 1 then delete light x
                  if x <= 32
                     if animation exist(x) = 1 then delete animation x
                  endif
               next x
               `Static Objects
                  make object cube 1,5
                  make static object 1
                  delete object 1
                  delete static objects
               fog off
               backdrop off
               cls 0
            endfunction
`  ***
`  ***   STOP FUNCTIONS
`  ***
`***
`***  END PROGRAM
`***
`*****************************************
`*****************************************

Your teacher seems like a pretty experienced programmer, but he seems to be a complete noob to DB, there's a lot of bad code in there and it's putting me off helping you.
I'm going out for a bit but when I come back I'll have a proper look at the code

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 19th Feb 2008 22:00 Edited at: 19th Feb 2008 22:17

Link

Quote: "Your teacher seems like a pretty experienced programmer,"

What???

Quote: "if keystate( scancode() ) = 1 then goto OptionsSection"

I would be dismayed if a teacher on a course I was taking part in told me that I should use Goto while using a procedural programming language. It's basically inciting you to write spaghetti code!

It's OK to use Goto in very rare circumstances, but it is wholly avoidable 100% of the time. I have NEVER used it, but using it safely does require that you know exactly what you are doing. It should be avoided completely if you are a newcomer to programming.

So teaching a class using Goto is ridiculous - or the teacher doesn't really know what he/she is doing.

Likewise, setting the screen display inside the main loop (60 times a second) is also a real no-no.

Finally, what use is if keystate(scancode()) = 1? That will jump to the options section whatever key you press. Surely it should be tied to some specific key like the F1 key:

+ Code Snippet

`SCREEN DISPLAY
Do
  `CONTROL INPUT
  If Keystate(59) = 1 then GOSUB OptionsSection
  `REFRESH SCREEN
  Sync
Loop

[Edit] Didn't spot the main program code - thought the Do..Loop snippet was all there was!

After looking at the main program, I agree with Obese - whoever wrote it doesn't know what he's doing with DB and the program was possibly converted from another dialect of BASIC.

Do..Loop is the slowest of the loops - and the most inappropriate for what they are being used many times for in this program.

Repeat..Until would be better better than Do..Loop, but a loop isn't even required. In DB rather than use:

+ Code Snippet

do
  `SCREEN DISPLAY
  `CONTROL INPUT
  if keystate( scancode() ) = 1 then goto OptionsSection
  REFRESH SCREEN
  sync
loop

you would use:

Wait Key

There are numerous loops better than Do..Loop - none of which have been used.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Yodaman Jer

User Banned

Posted: 20th Feb 2008 16:42

Link

Quote: "It's OK to use Goto in very rare circumstances, but it is wholly avoidable 100% of the time. I have NEVER used it, but using it safely does require that you know exactly what you are doing. It should be avoided completely if you are a newcomer to programming."

Could that possibly explain problems that I've had?

Quote: "Likewise, setting the screen display inside the main loop (60 times a second) is also a real no-no. "

Agreed. I think If I tried something like that it would crash my system. Reboot time!

Quote: "There are numerous loops better than Do..Loop - none of which have been used.
"

Agreed, although I am a noob. But I have studied and have found do..loop to be, for some reason, the only one I can remember to use!
Apparently I'm not the only one...
Great points TDK, I really had trouble translating the code myself. Probably because I haven't learned that much about functions yet, as I'm still working on pretty basic stuff...yrotate object 2,wrapvalue(object angle y)...that kind of stuff.

Thanks to BigAdd for the incredibly awesome sig!

Back to top

Profile

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 20th Feb 2008 17:35

Link

There are too many "rem`s" in the code. It makes me dizzy and I almost fell off my chair whilst studying your code.

This code

+ Code Snippet

`  ***************************************
`  ***
`  ***   START INTRO SECTION
`  ***
`     ***
`     ***   INTRO SECTION HEADER
`     ***
            `DECLARE VARIABLES
            `SCREEN DISPLAY
               cls 0
               ink rgb(255,255,255),0
               center text 320,220,"FLYER PROTOTYPE TEMPLATE"
               center text 320,260,"HIT ANY KEY TO BEGIN"
            `LOAD SOUNDS
            `SOUND EFFECTS
            `SPECIAL EFFECTS
            `REFRESH SCREEN
               sync
`     ***
`     ***   INTRO SECTION LOOP
`     ***
            do
               `SCREEN DISPLAY
               `CONTROL INPUT
                  if keystate( scancode() ) = 1 then goto OptionsSection
               `REFRESH SCREEN
                  sync
            loop
`  ***
`  ***   END INTRO SECTION
`  ***
`  *****************************************

You could shorten to this:

+ Code Snippet

`INTRO SECTION

               `start of game
               cls 0
               ink rgb(255,255,255),0
               center text 320,220,"FLYER PROTOTYPE TEMPLATE"
               center text 320,260,"HIT ANY KEY TO BEGIN"
            `REFRESH SCREEN
               sync
            `intro section loop
            do
               `CONTROL INPUT
                  if keystate( scancode() ) = 1 then goto OptionsSection
               `REFRESH SCREEN
                  sync
            loop

Oooooops!!! I accidentally formated drive c.

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 20th Feb 2008 21:49

Link

Quote: "Could that possibly explain problems that I've had?"

Using Goto can cause anyone problems if not used correctly because it's a jump with no automatic return. If you don't keep a very close eye on the 'Program Counter', your program can get very tangled.

To demonstrate exactly what the Program Counter is, take the biggest program you have written and load it into the DB editor. Now run it in your mind - just as if you had pressed F5.

Starting with the first line, imagine what the DB code will do. Then go to the next line and do the same. Repeat for each line.

When you reach a Goto, Gosub or Function, jump to the correct line in your program and continue. The line you are currently on in is held by the Program Counter.

At the end of a procedure, you will see a Return and at the end of a Function there's an EndFunction. When you hit these, you jump back to the line in your program that you called the procedure or function and carry on with the line immediately following the call.

The Program Counter knows exactly where to jump back to in the program because when it reaches a Gosub or function call it places the current Program Counter value on the stack.

When it reaches a Return or EndFunction, it retrieves the value off the stack and uses it to set the Program Counter back to where it came from.

But you'll notice that with Goto there's no 'Return'. You are responsible for using another Goto to jump to a different block of code.

The problem is that you may forget to add one - or end up with lots of Gotos everywhere, leaping about all over the place. This is spaghetti code and is very hard to follow.

If you stick to procedures and functions this is just one less thing to worry about. You can have a basic empty skeleton .dba file which can be used to start every single DB project you ever write.

There's one here:

http://www.computechtenerife.com/layout.htm

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 21st Feb 2008 23:14

Link

I've used GOTO once! (since gaining a bit of experience anyway)
and that was because I had coded myself into a corner and there really wasn't a better way to jump out. All that shows is that I hadn't planned the code out well enough.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Problem creating level

Attachments