DarkBASIC_Pro. Problem!! - GameCreators Forum

Author

Message

Knights

15

Years of Service

User Offline

Joined: 18th Mar 2011

Location:

Posted: 18th Mar 2011 16:29

Link

Hi, Im programming a game with a few friends and I cant seem to figure out how to take center text off the screen.For my game I would like to ask the player questions that way the game meets the criteria for my teacher. This is part of my code:

Center text 120,380, "1.5 is the _____of 25."
Center text 120,400, "a.Integer"
Center text 120,420, "b.Equation"
Center text 120,440, "c.Square root"
Center text 120,460, "d.Algebra"
If inkey$()="a"=1 then dec totalFuel,2000
If inkey$()="b"=1 then dec totalFuel,2000
If inkey$()="c"=1 then inc totalFuel,2000
If inkey$()="d"=1 then dec totalFuel,2000
If inkey$()="a"=1 then center text 520,390, "Sorry that is incorrect."
If inkey$()="b"=1 then center text 520,410, "Thats wrong.."
If inkey$()="c"=1 then center text 520,430, "Great job!! Keep it up."
If inkey$()="d"=1 then center text 520,450, "Try again later."

I would like to delete the center text so that I can post more text for the 2nd question in my game. I just cant figure it out please help!!

Back to top

Profile PM

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 18th Mar 2011 17:34

Link

For one thing, your crazy!

Don't write your game like that, you'll loose track, it'll be a nightmare to debug, it'll be very tedious to work with.

I suggest you make an array to hold all the questions and answers, maybe with a type...

So at the start of your program, make the type and array to hold the questions and answers:

Type questiontype
Q$ A$ B$ C$ D$
A B C D
Endtype
Dim Questions(100) as questiontype

That will make the type and array, to make handling your questions very easy. The Q$ part is the question itself, the A$ B$ etc are the answer text, and A B C etc are the values - so in your example C would be 2000, whilst A B and D would be -2000.

Make a function to organise the questions even more....

Function Add_Question(num,q$,a$,b$,c$,d$,a,b,c,d)
Questions(num).Q$=q$
Questions(num).A$=a$
Questions(num).B$=b$
Questions(num).C$=c$
Questions(num).D$=d$
Questions(num).A=a
Questions(num).B=b
Questions(num).C=c
Questions(num).D=d
Endfunction

So you can call that with a single line to add it to the array:

Add_Question(0,"1.5 is the ____ of 25?","Integer","Square Root","Mother","Algebra",-2000,-2000,2000,-2000)

Then to ask a question...

function Ask_Question(num)

CLS
Center text 120,380, Questions(num).Q$
Center text 120,400, "a."+Questions(num).A$
Center text 120,420, "b."+Questions(num).B$
Center text 120,440, "c."+Questions(num).C$
Center text 120,460, "d."+Questions(num).D$
Sync

Do
i$=upper$(inkey$())
If i$="A" then exitfunction Questions(num).A
If i$="B" then exitfunction Questions(num).B
If i$="C" then exitfunction Questions(num).C
If i$="D" then exitfunction Questions(num).D
Loop

endfunction

So that Ask_Question function will return the value you've stored in .A .B .C or .D, you could even have more than one right answer, or different values for answers... anyway let me know if you want an actual example, rather than my usual code rambling.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 18th Mar 2011 19:33

Link

I would do as Van B suggested but just to let you know you can do multiple things within an IF statement if you drop the THEN and add an ENDIF to close the IF statement.

+ Code Snippet

do

 If inkey$()="a"
  dec totalFuel,2000
  center text 520,390, "Sorry that is incorrect."
 endif

 If inkey$()="b"
  dec totalFuel,2000
  center text 520,410, "Thats wrong.."
 endif

 If inkey$()="c"
  inc totalFuel,2000
  center text 520,430, "Great job!! Keep it up."
 endif

 If inkey$()="d"
  dec totalFuel,2000
  center text 520,450, "Try again later."
 endif

loop

Back to top

Profile PM Email

Knights

15

Years of Service

User Offline

Joined: 18th Mar 2011

Location:

Posted: 21st Mar 2011 16:26

Link

OMG.. Thank you so much Van B... I knew there was an easier way to code this stuff. The school only teaches so much Well thanks alot ill keep in touch incase I need anymore help. Your the bestest!!!

Back to top

Profile PM

Knights

15

Years of Service

User Offline

Joined: 18th Mar 2011

Location:

Posted: 22nd Mar 2011 16:12

Link

Hey. Van B I tried what you said and its not working... Can you gimme the example so I can see what I did wrong???

Back to top

Profile PM

Knights

15

Years of Service

User Offline

Joined: 18th Mar 2011

Location:

Posted: 22nd Mar 2011 16:23 Edited at: 22nd Mar 2011 20:16

Link

This is my code can anyone tell me what I did wrong????

Rem Questions
Type questiontype
Q$ A$ B$ C$ D$
A B C D
Endtype
Dim Questions(100) as questiontype

Add_Question(0,"1.5 is the ____ of 25?","Integer","Mother","Square Root","Algebra",-2000,-2000,2000,-2000)

`TRANSFORM OBJECTS
               `MOVE OBJECTS - PRE-COLLISION
                  `Player Character
                     Yrotate object 1,A1Y
                     move object 1,mySpeed#
                     `Ground Level Adjustment
                        moveP1X# = object position X(1)
                        moveP1Y# = get ground height(1,object position X(1),object position Z(1))
                        moveP1Z# = object position Z(1)
                        position object 1, moveP1X#,moveP1Y#,moveP1Z#
                        newP1X# = object position X(1)
                        newP1Y# = object position Y(1)
                        newP1Z# = object position Z(1)
            `COLLISION
               `Check Player Character
                  `Wall Collision
                     s# = 10
                     if get static collision hit(P1X#-s#,P1Y#-s#,P1Z#-s#, P1X#+s#,P1Y#+s#,P1Z#+s#, newP1X#-s#,newP1Y#-s#,newP1Z#-s#, newP1X#+s#,newP1Y#+s#,newP1Z#+s#) = 1
                        dec newP1X#, get static collision x()
                        dec newP1Y#, get static collision y()
                        dec newP1Z#, get static collision z()
                        position object 1,newP1X#,newP1Y#,newP1Z#
                     endif
                  `Pick-Ups
                     for n = 401 to 500
                        if object exist(n) = 1 and soundHit(n-401,1) = 0
                           if object collision(1,n) > 0
                              `Pickup Object
                                 `Sounder
                                    play sound n
                                    soundHit(n-401,1) = 1
                           endif
                        endif
                     next n
               `Set Post-Collision Object Orientation Values
                  `Player Character
                     P1X# = object position X(1)
                     P1Y# = object position Y(1)
                     P1Z# = object position Z(1)
                     A1X = object angle X(1)
                     A1Y = object angle Y(1)
                     A1Z = object angle Z(1)
                  `Terrain Tilt
                     ta#=wrapvalue(A1Y-45)
                     frontleftx#=newxvalue(P1X#,ta#,25) : frontleftz#=newzvalue(P1Z#,ta#,35)
                     ta#=wrapvalue(A1Y+45)
                     frontrightx#=newxvalue(P1X#,ta#,25) : frontrightz#=newzvalue(P1Z#,ta#,35)
                     ta#=wrapvalue(A1Y+225)
                     backleftx#=newxvalue(P1X#,ta#,25) : backleftz#=newzvalue(P1Z#,ta#,35)
                     ta#=wrapvalue(A1Y+135)
                     backrightx#=newxvalue(P1X#,ta#,25) : backrightz#=newzvalue(P1Z#,ta#,35)
                     frontlefth#=get ground height(1,frontleftx#,frontleftz#)
                     frontrighth#=get ground height(1,frontrightx#,frontrightz#)
                     backlefth#=get ground height(1,backleftx#,backleftz#)
                     backrighth#=get ground height(1,backrightx#,backrightz#)
                     across#=((frontrighth#-frontlefth#)+(backrighth#-backlefth#))/2.0
                     length#=((backlefth#-frontlefth#)+(backrighth#-frontrighth#))/2.0
                     P1Y# = get ground height(1,object position X(1),object position Z(1))
                     trackh# = (frontlefth#+frontrighth#+backlefth#+backrighth#)/4.0
                     if trackh#>P1Y# then P1Y#=trackh#
                     position object 1, P1X#,P1Y#,P1Z#
                     rotate limb 1,1,wrapvalue(length#/4.0),0,wrapvalue(across#/4.0)
                  `Sound Timer
                     for n = 0 to 99
                        if soundHit(n,1) = 1
                           soundHit(n,3) = soundHit(n,3) + 1
                           if soundHit(n,3) = soundHit(n,2)
                              soundHit(n,1) = 0
                              soundHit(n,3) = 0
                              delete object n + 401 : `Option to delete object after sound plays
                           endif
                        endif
                     next n
         `MOVE CAMERA
            set camera to follow P1X#,P1Y#+20,P1Z#, A1Y,100,50, 20,1
            `Sky Cylinder
               position object 199,camera position x(),325,camera position z()
         `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
               center text 320,200, "GAME OVER"
               center text 320,240, "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
                  end
               endif
            `REFRESH SCREEN
               sync
            loop
            end
`  ******
`  ***
`  *** STOP END SECTION
`  ***
`  *****************************************
`  *****************************************
`  ***
`  ***   START FUNCTIONS
`  ***
`  ******
`     ***   LOAD LEVEL MAP - LoadLevelMap
`     ***   Generates the 3D level
`     ***
            function LoadLevelMap()
                  `Obstacles
                     load image "images/Brick.bmp",1
                     load image "images/rock.bmp",2
                     load image "images/grass.bmp",3
                     load image "images/sky.bmp",6
                     load image "images/tree.bmp",7
                     `Floor Matrix
                        make matrix 1,6400,6400,32,32
                        randomize matrix 1,20
                        prepare matrix texture 1,1,32,32
                        for tileX = 0 to 31
                           for tileZ = 0 to 31
                              set matrix tile 1,tileX,31 - tileZ,(tileX+1)+(32*tileZ)
                           next tileZ
                        next tileX
                        update matrix 1
                     `Sky Cylinder
                        make object cylinder 199,3000
                        scale object 199, 100,50,100
                        position object 199, 800,325,800
                        set object 199, 1,1,2,0,0
                        texture object 199,6
                     `Mountains
                      `  LoadObstacle(101, 600,300,100, 800,150,1550)
                       ` LoadObstacle(102, 600,300,100, 800,150,50)
                       ` LoadObstacle(103, 100,300,600, 50,150,800)
                      `  LoadObstacle(104, 100,300,600, 1550,150,800)
                      `  LoadObstacle(105, 500,300,500, 250,150,1350)
                      `  LoadObstacle(106, 500,300,500, 1350,150,1350)
                      `  LoadObstacle(107, 500,300,500, 250,150,250)
                       ` LoadObstacle(108, 500,300,500, 1350,150,250)
                       ` LoadObstacle(109, 200,300,200, 800,150,1200)
                       ` LoadObstacle(110, 200,300,200, 800,150,400)
                       ` LoadObstacle(111, 200,300,200, 400,150,800)
                       ` LoadObstacle(112, 200,300,200, 1200,150,800)
                       ` LoadObstacle(113, 200,300,200, 800,150,800)
                       ` LoadObstacle(114, 100,200,200, 450,100,600)
                       ` LoadObstacle(115, 150,150,150, 125,75,850)
                     `Trees & Shrubs
                      `  LoadScenery(116, 100,150,100, 100,50,1150, "tree")
                       ` LoadScenery(117, 100,150,100, 100,50,450, "tree")
                       ` LoadScenery(118, 100,150,100, 450,50,1500, "tree")
                       ` LoadScenery(119, 100,150,100, 450,50,100, "tree")
                      `  LoadScenery(120, 100,150,100, 1150,50,1500, "tree")
                      `  LoadScenery(121, 100,150,100, 1150,50,100, "tree")
                       ` LoadScenery(122, 100,150,100, 1500,50,1150, "tree")
                       ` LoadScenery(123, 100,150,100, 1500,50,450, "tree")
                      `  LoadScenery(124, 150,300,150, 0,50,1100, "tree")
                      `  LoadScenery(125, 150,300,150, 0,50,500, "tree")
                      `  LoadScenery(126, 150,300,150, 1600,50,1100, "tree")
                       ` LoadScenery(127, 150,300,150, 1600,50,500, "tree")
                      ` LoadScenery(128, 150,300,150, 500,50,1600, "tree")
                      `  LoadScenery(129, 150,300,150, 1100,50,1600, "tree")
                       ` LoadScenery(130, 150,300,150, 500,50,0, "tree")
                      `  LoadScenery(131, 150,300,150, 1100,50,0, "tree")
                      `  LoadScenery(132, 150,200,150, 375,20,500, "tree")
                      `  LoadScenery(133, 80,100,80, 450,50,700, "tree")
                       ` LoadScenery(134, 50,100,50, 325,50,875, "tree")
                     `Rocks
                        `LoadScenery(135, 100,50,100, 450,10,1150, "rock")
                        `LoadScenery(136, 100,50,100, 450,10,450, "rock")
                        `LoadScenery(137, 100,50,100, 1150,10,1150, "rock")
                        `LoadScenery(138, 100,50,100, 1150,10,450, "rock")
                        `LoadScenery(139, 50,25,50, 375,10,1125, "rock")
                        `LoadScenery(140, 50,150,50, 425,0,900, "rock")
                        `LoadScenery(141, 40,25,40, 480,10,725, "rock")
                     `Hills
                       ` LoadScenery(142, 300,250,300, 0,50,1250, "hill")
                       ` LoadScenery(143, 300,250,300, 0,50,350, "hill")
                       ` LoadScenery(144, 300,250,300, 1600,50,1250, "hill")
                       ` LoadScenery(145, 300,250,300, 1600,50,350, "hill")
                       ` LoadScenery(146, 300,250,300, 350,50,1600, "hill")
                       ` LoadScenery(147, 300,250,300, 1250,50,1600, "hill")
                       ` LoadScenery(148, 300,250,300, 350,50,0, "hill")
                       ` LoadScenery(149, 300,250,300, 1250,50,0, "hill")
                     `Billboards
                        `(ObjNum, myXScale,myYScale,myZScale, myXPosition,myYPosition,myZPosition, myTexture$)
                       ` LoadSign(150, 200,100,2, 800,100,1100, "images/isl_sign.bmp") : `First Billboard
                       ` LoadSign(151, 10,160,10, 720,80,1106, "NONE")
                       ` LoadSign(152, 10,160,10, 880,80,1106, "NONE")
                       ` LoadSign(153, 200,100,2, 800,100,500, "images/carbonade_sign.bmp") : `First Billboard
                       ` LoadSign(154, 10,160,10, 720,80,494, "NONE")
                       ` LoadSign(155, 10,160,10, 880,80,494, "NONE")
                     `Grass
                      `  LoadGrass(156, 100,50, 400,25,1050, 95)
                      `  LoadGrass(157, 100,50, 400,25,950, 95)
                      `  LoadGrass(158, 100,50, 380,25,1050, 275)
                      `  LoadGrass(159, 100,50, 380,25,950, 275)
                        `LoadGrass(160, 100,50, 750,25,1100, 5)
                      `  LoadGrass(161, 100,50, 850,25,1100, 5)
                        `LoadGrass(162, 100,50, 750,25,500, 185)
                       ` LoadGrass(163, 100,50, 850,25,500, 185)
                  `Pick-Ups
                     `(ObjNum, XPos,YPos,ZPos, mySound$, myTexture$, soundTimer)
                   `  LoadLevelPickups(401, 200,20,600, "sounds/BONK.WAV", "images/cube_a.bmp", 10)
                  `-   LoadLevelPickups(402, 550,20,600, "sounds/BEEP.WAV", "images/cube_b.bmp", 10)
                  `Environment
                     `Lights
                     `Fog
            endfunction
`     ***
`     ***   LOAD OBSTACLES - LoadObstacle
`     ***   Generates the solid static mountain elements of the 3D level
`     ***
            function LoadObstacle(ObjNum, myXScale,myYScale,myZScale, myXPosition,myYPosition,myZPosition)
               make object cone ObjNum,100
               scale object ObjNum, myXScale,myYScale,myZScale
               color object ObjNum,rgb(255,0,0)
               texture object ObjNum,2
               scale object texture ObjNum,10,10
               position object ObjNum, myXPosition,myYPosition,myZPosition
               make static collision box myXPosition-(myXScale/2),myYPosition-(myYScale/2),myZPosition-(myZScale/2),myXPosition+(myXScale/2),myYPosition+(myYScale/2),myZPosition+(myZScale/2)
            endfunction
`     ***
`     ***   LOAD SCENERY - LoadScenery
`     ***   Generates hills, trees, rocks and other non-bounding objects
`     ***
            function LoadScenery(ObjNum, myXScale,myYScale,myZScale, myXPosition,myYPosition,myZPosition, myType$)
               `Shape
                  if myType$ = "tree" or myType$ = "rock" then make object sphere ObjNum,100
                  if myType$ = "hill" then make object cone ObjNum,100
               `Scale
                  scale object ObjNum, myXScale,myYScale,myZScale
               `Texture
                  if myType$ = "tree"
                     texture object ObjNum,7
                     scale object texture ObjNum, 2,2
                  endif
                  if myType$ = "rock" or myType$ = "hill" then texture object ObjNum,2
               `Position
                  position object ObjNum, myXPosition,myYPosition,myZPosition
            endfunction
`     ***
`     ***   LOAD SIGN - LoadSign
`     ***   Generates textured sign elements
`     ***
            function LoadSign(ObjNum, myXScale,myYScale,myZScale, myXPosition,myYPosition,myZPosition, myTexture$)
               make object cube ObjNum,100
               scale object ObjNum, myXScale,myYScale,myZScale
               if myTexture$ = "NONE"
                  color object ObjNum, rgb(255,255,255)
               else
                  load image myTexture$,ObjNum : `load sign texture
                  texture object ObjNum,ObjNum : `apply texture to sign
                  zrotate object ObjNum,180
               endif
               position object ObjNum, myXPosition,myYPosition,myZPosition
            endfunction
`     ***
`     ***   LOAD GRASS - LoadGrass
`     ***   Generates transparent grass objects
`     ***
            function LoadGrass(ObjNum, myXScale,myZScale, myXPosition,myYPosition,myZPosition, myYRotate)
               make object plain ObjNum,myXScale,myZScale
               position object ObjNum, myXPosition,myYPosition,myZPosition
               Yrotate object ObjNum, myYRotate
               set object ObjNum, 1,0,2
               texture object ObjNum,3
            endfunction
`     ***
`     ***   LOAD PLAYER CHARACTER - LoadPlayerCharacter
`     ***   Generates the player vehicle
`     ***
            function LoadPlayerCharacter()
               `Construction
                  `Vehicle
                     `Central Control Object
                        make object sphere 1,1
                        hide limb 1,0
                     `Tilting Object
                        make object sphere 2,1
                        make mesh from object 2,2
                        delete object 2
                     `Model Shell
                        load object "models/MILVEH14.X", 3
                        Yrotate object 3, 180
                        fix object pivot 3
                        scale object 3, 1100,1100,1100
                     `Light
                     `Assembly
                        add limb 1,1,2
                        hide limb 1,1
                        glue object to limb 3,1,1
                        make object collision box 1, -16,0,-33.5, 16,25,35.5, 1
               `Positioning
                  `Vehicle
                     position object 1, 1000,20,600
                     yrotate object 1, 270
                  `Lights
                  `Camera
                     position camera 1100,70,600
                     point camera object position X(1),object position Y(1)+20,object position Z(1)
            endfunction
`     ***
`     ***   LOAD LEVEL PICK-UPS - LoadLevelPickups
`     ***   Generates the objects that can be collected or interacted with
`     ***
            function LoadLevelPickups(ObjNum, XPos,YPos,ZPos, mySound$, myTexture$, soundTimer)
               make object cube ObjNum,30
               zrotate object ObjNum,180
               load image myTexture$,ObjNum
               texture object ObjNum,ObjNum
               make object collision box ObjNum, -25,-25,-25, 25,25,25, 0
               position object ObjNum,XPos,YPos + get ground height(1,object position X(ObjNum),object position Z(ObjNum)),ZPos
               load sound mySound$, ObjNum
               soundHit(ObjNum-401,2) = soundTimer
            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
                  delete static objects
               next x
               fog off
               backdrop off
            endfunction

Function Add_Question(num,q$,a$,b$,c$,d$,a,b,c,d)
               Questions(num).Q$=q$
               Questions(num).A$=a$
               Questions(num).B$=b$
               Questions(num).C$=c$
               Questions(num).D$=d$
               Questions(num).A=a
               Questions(num).B=b
               Questions(num).C=c
               Questions(num).D=d
            Endfunction

function Ask_Question(num)

CLS
            Center text 120,380, Questions(num).Q$
            Center text 120,400, "a."+Questions(num).A$
            Center text 120,420, "b."+Questions(num).B$
            Center text 120,440, "c."+Questions(num).C$
            Center text 120,460, "d."+Questions(num).D$
            Sync

Do
            i$=upper$(inkey$())
            If i$="A" then exitfunction Questions(num).A
            If i$="B" then exitfunction Questions(num).B
            If i$="C" then exitfunction Questions(num).C
            If i$="D" then exitfunction Questions(num).D
            Loop

Endfunction

+ Code Snippet

Rem Questions
Type questiontype
Q$ A$ B$ C$ D$
A B C D
Endtype
Dim Questions(100) as questiontype

Add_Question(0,"1.5 is the ____ of 25?","Integer","Mother","Square Root","Algebra",-2000,-2000,2000,-2000)

                  `TRANSFORM OBJECTS
               `MOVE OBJECTS - PRE-COLLISION
                  `Player Character
                     Yrotate object 1,A1Y
                     move object 1,mySpeed#
                     `Ground Level Adjustment
                        moveP1X# = object position X(1)
                        moveP1Y# = get ground height(1,object position X(1),object position Z(1))
                        moveP1Z# = object position Z(1)
                        position object 1, moveP1X#,moveP1Y#,moveP1Z#
                        newP1X# = object position X(1)
                        newP1Y# = object position Y(1)
                        newP1Z# = object position Z(1)
            `COLLISION
               `Check Player Character
                  `Wall Collision
                     s# = 10
                     if get static collision hit(P1X#-s#,P1Y#-s#,P1Z#-s#, P1X#+s#,P1Y#+s#,P1Z#+s#, newP1X#-s#,newP1Y#-s#,newP1Z#-s#, newP1X#+s#,newP1Y#+s#,newP1Z#+s#) = 1
                        dec newP1X#, get static collision x()
                        dec newP1Y#, get static collision y()
                        dec newP1Z#, get static collision z()
                        position object 1,newP1X#,newP1Y#,newP1Z#
                     endif
                  `Pick-Ups
                     for n = 401 to 500
                        if object exist(n) = 1 and soundHit(n-401,1) = 0
                           if object collision(1,n) > 0
                              `Pickup Object
                                 `Sounder
                                    play sound n
                                    soundHit(n-401,1) = 1
                           endif
                        endif
                     next n
               `Set Post-Collision Object Orientation Values
                  `Player Character
                     P1X# = object position X(1)
                     P1Y# = object position Y(1)
                     P1Z# = object position Z(1)
                     A1X = object angle X(1)
                     A1Y = object angle Y(1)
                     A1Z = object angle Z(1)
                  `Terrain Tilt
                     ta#=wrapvalue(A1Y-45)
                     frontleftx#=newxvalue(P1X#,ta#,25) : frontleftz#=newzvalue(P1Z#,ta#,35)
                     ta#=wrapvalue(A1Y+45)
                     frontrightx#=newxvalue(P1X#,ta#,25) : frontrightz#=newzvalue(P1Z#,ta#,35)
                     ta#=wrapvalue(A1Y+225)
                     backleftx#=newxvalue(P1X#,ta#,25) : backleftz#=newzvalue(P1Z#,ta#,35)
                     ta#=wrapvalue(A1Y+135)
                     backrightx#=newxvalue(P1X#,ta#,25) : backrightz#=newzvalue(P1Z#,ta#,35)
                     frontlefth#=get ground height(1,frontleftx#,frontleftz#)
                     frontrighth#=get ground height(1,frontrightx#,frontrightz#)
                     backlefth#=get ground height(1,backleftx#,backleftz#)
                     backrighth#=get ground height(1,backrightx#,backrightz#)
                     across#=((frontrighth#-frontlefth#)+(backrighth#-backlefth#))/2.0
                     length#=((backlefth#-frontlefth#)+(backrighth#-frontrighth#))/2.0
                     P1Y# = get ground height(1,object position X(1),object position Z(1))
                     trackh# = (frontlefth#+frontrighth#+backlefth#+backrighth#)/4.0
                     if trackh#>P1Y# then P1Y#=trackh#
                     position object 1, P1X#,P1Y#,P1Z#
                     rotate limb 1,1,wrapvalue(length#/4.0),0,wrapvalue(across#/4.0)
                  `Sound Timer
                     for n = 0 to 99
                        if soundHit(n,1) = 1
                           soundHit(n,3) = soundHit(n,3) + 1
                           if soundHit(n,3) = soundHit(n,2)
                              soundHit(n,1) = 0
                              soundHit(n,3) = 0
                              delete object n + 401 : `Option to delete object after sound plays
                           endif
                        endif
                     next n
         `MOVE CAMERA
            set camera to follow P1X#,P1Y#+20,P1Z#, A1Y,100,50, 20,1
            `Sky Cylinder
               position object 199,camera position x(),325,camera position z()
         `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
               center text 320,200, "GAME OVER"
               center text 320,240, "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
                  end
               endif
            `REFRESH SCREEN
               sync
            loop
            end
`  ******
`  ***
`  *** STOP END SECTION
`  ***
`  *****************************************
`  *****************************************
`  ***
`  ***   START FUNCTIONS
`  ***
`  ******
`     ***   LOAD LEVEL MAP - LoadLevelMap
`     ***   Generates the 3D level
`     ***
            function LoadLevelMap()
                  `Obstacles
                     load image "images/Brick.bmp",1
                     load image "images/rock.bmp",2
                     load image "images/grass.bmp",3
                     load image "images/sky.bmp",6
                     load image "images/tree.bmp",7
                     `Floor Matrix
                        make matrix 1,6400,6400,32,32
                        randomize matrix 1,20
                        prepare matrix texture 1,1,32,32
                        for tileX = 0 to 31
                           for tileZ = 0 to 31
                              set matrix tile 1,tileX,31 - tileZ,(tileX+1)+(32*tileZ)
                           next tileZ
                        next tileX
                        update matrix 1
                     `Sky Cylinder
                        make object cylinder 199,3000
                        scale object 199, 100,50,100
                        position object 199, 800,325,800
                        set object 199, 1,1,2,0,0
                        texture object 199,6
                     `Mountains
                      `  LoadObstacle(101, 600,300,100, 800,150,1550)
                       ` LoadObstacle(102, 600,300,100, 800,150,50)
                       ` LoadObstacle(103, 100,300,600, 50,150,800)
                      `  LoadObstacle(104, 100,300,600, 1550,150,800)
                      `  LoadObstacle(105, 500,300,500, 250,150,1350)
                      `  LoadObstacle(106, 500,300,500, 1350,150,1350)
                      `  LoadObstacle(107, 500,300,500, 250,150,250)
                       ` LoadObstacle(108, 500,300,500, 1350,150,250)
                       ` LoadObstacle(109, 200,300,200, 800,150,1200)
                       ` LoadObstacle(110, 200,300,200, 800,150,400)
                       ` LoadObstacle(111, 200,300,200, 400,150,800)
                       ` LoadObstacle(112, 200,300,200, 1200,150,800)
                       ` LoadObstacle(113, 200,300,200, 800,150,800)
                       ` LoadObstacle(114, 100,200,200, 450,100,600)
                       ` LoadObstacle(115, 150,150,150, 125,75,850)
                     `Trees & Shrubs
                      `  LoadScenery(116, 100,150,100, 100,50,1150, "tree")
                       ` LoadScenery(117, 100,150,100, 100,50,450, "tree")
                       ` LoadScenery(118, 100,150,100, 450,50,1500, "tree")
                       ` LoadScenery(119, 100,150,100, 450,50,100, "tree")
                      `  LoadScenery(120, 100,150,100, 1150,50,1500, "tree")
                      `  LoadScenery(121, 100,150,100, 1150,50,100, "tree")
                       ` LoadScenery(122, 100,150,100, 1500,50,1150, "tree")
                       ` LoadScenery(123, 100,150,100, 1500,50,450, "tree")
                      `  LoadScenery(124, 150,300,150, 0,50,1100, "tree")
                      `  LoadScenery(125, 150,300,150, 0,50,500, "tree")
                      `  LoadScenery(126, 150,300,150, 1600,50,1100, "tree")
                       ` LoadScenery(127, 150,300,150, 1600,50,500, "tree")
                      ` LoadScenery(128, 150,300,150, 500,50,1600, "tree")
                      `  LoadScenery(129, 150,300,150, 1100,50,1600, "tree")
                       ` LoadScenery(130, 150,300,150, 500,50,0, "tree")
                      `  LoadScenery(131, 150,300,150, 1100,50,0, "tree")
                      `  LoadScenery(132, 150,200,150, 375,20,500, "tree")
                      `  LoadScenery(133, 80,100,80, 450,50,700, "tree")
                       ` LoadScenery(134, 50,100,50, 325,50,875, "tree")
                     `Rocks
                        `LoadScenery(135, 100,50,100, 450,10,1150, "rock")
                        `LoadScenery(136, 100,50,100, 450,10,450, "rock")
                        `LoadScenery(137, 100,50,100, 1150,10,1150, "rock")
                        `LoadScenery(138, 100,50,100, 1150,10,450, "rock")
                        `LoadScenery(139, 50,25,50, 375,10,1125, "rock")
                        `LoadScenery(140, 50,150,50, 425,0,900, "rock")
                        `LoadScenery(141, 40,25,40, 480,10,725, "rock")
                     `Hills
                       ` LoadScenery(142, 300,250,300, 0,50,1250, "hill")
                       ` LoadScenery(143, 300,250,300, 0,50,350, "hill")
                       ` LoadScenery(144, 300,250,300, 1600,50,1250, "hill")
                       ` LoadScenery(145, 300,250,300, 1600,50,350, "hill")
                       ` LoadScenery(146, 300,250,300, 350,50,1600, "hill")
                       ` LoadScenery(147, 300,250,300, 1250,50,1600, "hill")
                       ` LoadScenery(148, 300,250,300, 350,50,0, "hill")
                       ` LoadScenery(149, 300,250,300, 1250,50,0, "hill")
                     `Billboards
                        `(ObjNum, myXScale,myYScale,myZScale, myXPosition,myYPosition,myZPosition, myTexture$)
                       ` LoadSign(150, 200,100,2, 800,100,1100, "images/isl_sign.bmp") : `First Billboard
                       ` LoadSign(151, 10,160,10, 720,80,1106, "NONE")
                       ` LoadSign(152, 10,160,10, 880,80,1106, "NONE")
                       ` LoadSign(153, 200,100,2, 800,100,500, "images/carbonade_sign.bmp") : `First Billboard
                       ` LoadSign(154, 10,160,10, 720,80,494, "NONE")
                       ` LoadSign(155, 10,160,10, 880,80,494, "NONE")
                     `Grass
                      `  LoadGrass(156, 100,50, 400,25,1050, 95)
                      `  LoadGrass(157, 100,50, 400,25,950, 95)
                      `  LoadGrass(158, 100,50, 380,25,1050, 275)
                      `  LoadGrass(159, 100,50, 380,25,950, 275)
                        `LoadGrass(160, 100,50, 750,25,1100, 5)
                      `  LoadGrass(161, 100,50, 850,25,1100, 5)
                        `LoadGrass(162, 100,50, 750,25,500, 185)
                       ` LoadGrass(163, 100,50, 850,25,500, 185)
                  `Pick-Ups
                     `(ObjNum, XPos,YPos,ZPos, mySound$, myTexture$, soundTimer)
                   `  LoadLevelPickups(401, 200,20,600, "sounds/BONK.WAV", "images/cube_a.bmp", 10)
                  `-   LoadLevelPickups(402, 550,20,600, "sounds/BEEP.WAV", "images/cube_b.bmp", 10)
                  `Environment
                     `Lights
                     `Fog
            endfunction
`     ***
`     ***   LOAD OBSTACLES - LoadObstacle
`     ***   Generates the solid static mountain elements of the 3D level
`     ***
            function LoadObstacle(ObjNum, myXScale,myYScale,myZScale, myXPosition,myYPosition,myZPosition)
               make object cone ObjNum,100
               scale object ObjNum, myXScale,myYScale,myZScale
               color object ObjNum,rgb(255,0,0)
               texture object ObjNum,2
               scale object texture ObjNum,10,10
               position object ObjNum, myXPosition,myYPosition,myZPosition
               make static collision box myXPosition-(myXScale/2),myYPosition-(myYScale/2),myZPosition-(myZScale/2),myXPosition+(myXScale/2),myYPosition+(myYScale/2),myZPosition+(myZScale/2)
            endfunction
`     ***
`     ***   LOAD SCENERY - LoadScenery
`     ***   Generates hills, trees, rocks and other non-bounding objects
`     ***
            function LoadScenery(ObjNum, myXScale,myYScale,myZScale, myXPosition,myYPosition,myZPosition, myType$)
               `Shape
                  if myType$ = "tree" or myType$ = "rock" then make object sphere ObjNum,100
                  if myType$ = "hill" then make object cone ObjNum,100
               `Scale
                  scale object ObjNum, myXScale,myYScale,myZScale
               `Texture
                  if myType$ = "tree"
                     texture object ObjNum,7
                     scale object texture ObjNum, 2,2
                  endif
                  if myType$ = "rock" or myType$ = "hill" then texture object ObjNum,2
               `Position
                  position object ObjNum, myXPosition,myYPosition,myZPosition
            endfunction
`     ***
`     ***   LOAD SIGN - LoadSign
`     ***   Generates textured sign elements
`     ***
            function LoadSign(ObjNum, myXScale,myYScale,myZScale, myXPosition,myYPosition,myZPosition, myTexture$)
               make object cube ObjNum,100
               scale object ObjNum, myXScale,myYScale,myZScale
               if myTexture$ = "NONE"
                  color object ObjNum, rgb(255,255,255)
               else
                  load image myTexture$,ObjNum : `load sign texture
                  texture object ObjNum,ObjNum : `apply texture to sign
                  zrotate object ObjNum,180
               endif
               position object ObjNum, myXPosition,myYPosition,myZPosition
            endfunction
`     ***
`     ***   LOAD GRASS - LoadGrass
`     ***   Generates transparent grass objects
`     ***
            function LoadGrass(ObjNum, myXScale,myZScale, myXPosition,myYPosition,myZPosition, myYRotate)
               make object plain ObjNum,myXScale,myZScale
               position object ObjNum, myXPosition,myYPosition,myZPosition
               Yrotate object ObjNum, myYRotate
               set object ObjNum, 1,0,2
               texture object ObjNum,3
            endfunction
`     ***
`     ***   LOAD PLAYER CHARACTER - LoadPlayerCharacter
`     ***   Generates the player vehicle
`     ***
            function LoadPlayerCharacter()
               `Construction
                  `Vehicle
                     `Central Control Object
                        make object sphere 1,1
                        hide limb 1,0
                     `Tilting Object
                        make object sphere 2,1
                        make mesh from object 2,2
                        delete object 2
                     `Model Shell
                        load object "models/MILVEH14.X", 3
                        Yrotate object 3, 180
                        fix object pivot 3
                        scale object 3, 1100,1100,1100
                     `Light
                     `Assembly
                        add limb 1,1,2
                        hide limb 1,1
                        glue object to limb 3,1,1
                        make object collision box 1, -16,0,-33.5, 16,25,35.5, 1
               `Positioning
                  `Vehicle
                     position object 1, 1000,20,600
                     yrotate object 1, 270
                  `Lights
                  `Camera
                     position camera 1100,70,600
                     point camera object position X(1),object position Y(1)+20,object position Z(1)
            endfunction
`     ***
`     ***   LOAD LEVEL PICK-UPS - LoadLevelPickups
`     ***   Generates the objects that can be collected or interacted with
`     ***
            function LoadLevelPickups(ObjNum, XPos,YPos,ZPos, mySound$, myTexture$, soundTimer)
               make object cube ObjNum,30
               zrotate object ObjNum,180
               load image myTexture$,ObjNum
               texture object ObjNum,ObjNum
               make object collision box ObjNum, -25,-25,-25, 25,25,25, 0
               position object ObjNum,XPos,YPos + get ground height(1,object position X(ObjNum),object position Z(ObjNum)),ZPos
               load sound mySound$, ObjNum
               soundHit(ObjNum-401,2) = soundTimer
            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
                  delete static objects
               next x
               fog off
               backdrop off
            endfunction

            Function Add_Question(num,q$,a$,b$,c$,d$,a,b,c,d)
               Questions(num).Q$=q$
               Questions(num).A$=a$
               Questions(num).B$=b$
               Questions(num).C$=c$
               Questions(num).D$=d$
               Questions(num).A=a
               Questions(num).B=b
               Questions(num).C=c
               Questions(num).D=d
            Endfunction

            function Ask_Question(num)

            CLS
            Center text 120,380, Questions(num).Q$
            Center text 120,400, "a."+Questions(num).A$
            Center text 120,420, "b."+Questions(num).B$
            Center text 120,440, "c."+Questions(num).C$
            Center text 120,460, "d."+Questions(num).D$
            Sync

            Do
            i$=upper$(inkey$())
            If i$="A" then exitfunction Questions(num).A
            If i$="B" then exitfunction Questions(num).B
            If i$="C" then exitfunction Questions(num).C
            If i$="D" then exitfunction Questions(num).D
            Loop

            Endfunction

Its not all my code just the part I changed.. I cant seem to figure out why its not working.

Back to top

Profile PM

Non Sequitur M

17

Years of Service

User Offline

Joined: 28th Oct 2008

Location: Where am I!? Where are YOU?

Posted: 22nd Mar 2011 20:30 Edited at: 22nd Mar 2011 20:32

Link

First, it's good that you're not using gotos. But, breaking from loops is not a great thing either. You should look into the repeat and while commands.

Secondly, I only skimmed. Don't post such large sections of code in the open like that! Use the code tags. Also, you have to give us a description of what's going on. Not just, 'Here look at this (huge) segment of code! What's going wrong?' There could be a million things that are going wrong. Just tell us what it's not doing right, or what errors the DBP debugger is giving you, and we would be happy to provide an answer.

Third, in your first post, you do realize that 5 is the square root of 25, right?

1.5 is the square root of 2.25. Haha.

[EDIT] Wait! I see... That's question 1. 5 is the _____ of 25. My bad. Haha. I thought it said 1.5.

If life were like a box of chocolates, I'd know what I would get... The one that got dropped on the floor and put back in the box.

Iye nehvur yoose spehl chehk, ahn mie tippyng izz fiyne.

Back to top

Profile PM Email

Knights

15

Years of Service

User Offline

Joined: 18th Mar 2011

Location:

Posted: 23rd Mar 2011 16:18 Edited at: 23rd Mar 2011 23:06

Link

Lol yeah I know 5 is the squar root of 25.. and the reason I didnt specify on the specific problem is because its the same problem as before

I dont know how to fix it..

. The object of my game is for the player to anwser algebraic terminology quetions I can print one question on the screen but once I put it there I dont know how to take it off the screen. It really sucks to because my dealines coming up and ive been slacking off the whole semester using my mistakes as my excuse

. However, I wanna make a really good game. Van B told me to use arrays but I have no clue what that is sooo I copied and pasted his examples into my code and REMed my old code (just incase I ever have to use it again). When I try to run the executable I get a pop up that says "ENDFUNCTION only accepts a single value or local variables on line 679".

+ Code Snippet

            function Ask_Question(num)

            CLS
            Center text 120,380, Questions(num).Q$
            Center text 120,400, "a."+Questions(num).A$
            Center text 120,420, "b."+Questions(num).B$
            Center text 120,440, "c."+Questions(num).C$
            Center text 120,460, "d."+Questions(num).D$
            Sync

            Do
            i$=upper$(inkey$())
            If i$="A" then exitfunction Questions(num).A
            If i$="B" then exitfunction Questions(num).B
            If i$="C" then exitfunction Questions(num).C
            If i$="D" then exitfunction Questions(num).D
            Loop

            Endfunction

This is the section of code it highlights in the red color

... Well im completly lost and all the help I can get would be greattt. Please fix my dilema.

Back to top

Profile PM

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 23rd Mar 2011 20:28

Link

Here's a little example...

sync on : sync rate 0

Type questiontype
Q$ A$ B$ C$ D$
A B C D
Endtype

Dim Questions(100) as questiontype

q=0
Add_Question(q,"1.5 is the ____ of 25?","Integer","Square Root","Mother","Algebra",-2000,-2000,2000,-2000) : inc q,1
Add_Question(q,"523 is the ____ of 235?","Integer","Square Root","Mother","Algebra",-2000,-2000,2000,-2000) : inc q,1
Add_Question(q,"634 is the ____ of 2344?","Integer","Square Root","Mother","Algebra",-2000,-2000,2000,-2000) : inc q,1
q_count=q-1
q=0

cls
sync
cls
sync

do

score=Ask_Question(q)
   tt=timer()+3000
   while timer()<tt
      Show_Question(q,score)
   endwhile
   while scancode()<>0 : endwhile
   inc totalscore,score
   inc q,1
   if q>q_count then q=0

loop

Function Add_Question(num,q$,a$,b$,c$,d$,a,b,c,d)
   Questions(num).Q$=q$
   Questions(num).A$=a$
   Questions(num).B$=b$
   Questions(num).C$=c$
   Questions(num).D$=d$
   Questions(num).A=a
   Questions(num).B=b
   Questions(num).C=c
   Questions(num).D=d
Endfunction

function Ask_Question(num)

CLS
   ink rgb(255,255,255),0
   Center text 120,380, Questions(num).Q$
   Center text 120,400, "a."+Questions(num).A$
   Center text 120,420, "b."+Questions(num).B$
   Center text 120,440, "c."+Questions(num).C$
   Center text 120,460, "d."+Questions(num).D$
   Sync

s=-100000
   while s=-100000
      i$=upper$(inkey$())
      If i$="A" then s=Questions(num).A
      If i$="B" then s=Questions(num).B
      If i$="C" then s=Questions(num).C
      If i$="D" then s=Questions(num).D
   endwhile

endfunction s

function Show_Question(num,score)

CLS
   ink rgb(255,255,255),0
   Center text 120,380, Questions(num).Q$
   if Questions(num).A>0 then ink rgb(0,255,0),0 else ink rgb(255,255,255),0
   Center text 120,400, "a."+Questions(num).A$
   if Questions(num).B>0 then ink rgb(0,255,0),0 else ink rgb(255,255,255),0
   Center text 120,420, "b."+Questions(num).B$
   if Questions(num).C>0 then ink rgb(0,255,0),0 else ink rgb(255,255,255),0
   Center text 120,440, "c."+Questions(num).C$
   if Questions(num).D>0 then ink rgb(0,255,0),0 else ink rgb(255,255,255),0
   Center text 120,460, "d."+Questions(num).D$
   ink rgb(255,255,255),0

t$="Wrong!"

if score>0 then t$="Correct!"
   Center text 120,350, t$
   Sync

endfunction

+ Code Snippet

sync on : sync rate 0

Type questiontype
Q$ A$ B$ C$ D$
A B C D
Endtype

Dim Questions(100) as questiontype

q=0
Add_Question(q,"1.5 is the ____ of 25?","Integer","Square Root","Mother","Algebra",-2000,-2000,2000,-2000) : inc q,1
Add_Question(q,"523 is the ____ of 235?","Integer","Square Root","Mother","Algebra",-2000,-2000,2000,-2000) : inc q,1
Add_Question(q,"634 is the ____ of 2344?","Integer","Square Root","Mother","Algebra",-2000,-2000,2000,-2000) : inc q,1
q_count=q-1
q=0

cls
sync
cls
sync

do

   score=Ask_Question(q)
   tt=timer()+3000
   while timer()<tt
      Show_Question(q,score)
   endwhile
   while scancode()<>0 : endwhile
   inc totalscore,score
   inc q,1
   if q>q_count then q=0

loop

Function Add_Question(num,q$,a$,b$,c$,d$,a,b,c,d)
   Questions(num).Q$=q$
   Questions(num).A$=a$
   Questions(num).B$=b$
   Questions(num).C$=c$
   Questions(num).D$=d$
   Questions(num).A=a
   Questions(num).B=b
   Questions(num).C=c
   Questions(num).D=d
Endfunction

function Ask_Question(num)

   CLS
   ink rgb(255,255,255),0
   Center text 120,380, Questions(num).Q$
   Center text 120,400, "a."+Questions(num).A$
   Center text 120,420, "b."+Questions(num).B$
   Center text 120,440, "c."+Questions(num).C$
   Center text 120,460, "d."+Questions(num).D$
   Sync

   s=-100000
   while s=-100000
      i$=upper$(inkey$())
      If i$="A" then s=Questions(num).A
      If i$="B" then s=Questions(num).B
      If i$="C" then s=Questions(num).C
      If i$="D" then s=Questions(num).D
   endwhile

endfunction s

function Show_Question(num,score)

   CLS
   ink rgb(255,255,255),0
   Center text 120,380, Questions(num).Q$
   if Questions(num).A>0 then ink rgb(0,255,0),0 else ink rgb(255,255,255),0
   Center text 120,400, "a."+Questions(num).A$
   if Questions(num).B>0 then ink rgb(0,255,0),0 else ink rgb(255,255,255),0
   Center text 120,420, "b."+Questions(num).B$
   if Questions(num).C>0 then ink rgb(0,255,0),0 else ink rgb(255,255,255),0
   Center text 120,440, "c."+Questions(num).C$
   if Questions(num).D>0 then ink rgb(0,255,0),0 else ink rgb(255,255,255),0
   Center text 120,460, "d."+Questions(num).D$
   ink rgb(255,255,255),0

   t$="Wrong!"

   if score>0 then t$="Correct!"
   Center text 120,350, t$
   Sync

endfunction

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 23rd Mar 2011 23:07

Link

@Knights,
Please use code tags - it takes only a few extra seconds. Plus I'm not going to fix yours any more - we'll just let everyone else throw complaints at you about it

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / DarkBASIC_Pro. Problem!!