from menu to game and back? moving object ingame? loading screen?

Author

Message

My games are free

15

Years of Service

User Offline

Joined: 28th Sep 2009

Location: Under your Bed

Posted: 29th Dec 2010 19:12 Edited at: 29th Dec 2010 19:45

Link

OK so i have a little problem. I know managed to get main menu and its buttons working BUT now i have few problems

1) Can i have a little code to get the game going from
mainmenu:
gosub loading
loading:
gosub game
game:
if escapekey()=1
gosub mainmenu

as simple "from menu to loading, from loading to game etc."
i have searched answer for over 3 hours and almost gave up :/
2) How to take control of object as an player object "cube? sphere? 3D char.?
3) oh yeah and TEXT code for Loading screen would be appreciated. thnx already

4) can i use the Script making thing which was ment for FPSC in DBPro?

Jp
Make perfect game without getting any error messages before its complete --> God Of Gamemaking

Back to top

Profile PM Email

Lucas Tiridath

AGK Developer

16

Years of Service

User Offline

Joined: 28th Sep 2008

Location: Kings Langley, UK

Posted: 29th Dec 2010 20:28

Link

Hi. Not sure I follow you exactly so do say if I've got the wrong end of the stick on anything but my answers would be...

1. Not quite sure what you're after here. I would code it something like this using functions but I'm not sure if that's what your after.

+ Code Snippet

do
   sOption$ = MainMenu()
   select sOption$
      case "1"
         Option1()
      endcase
      case "2"
         PlayGame()
      endcase
      case "3"
         Option3()
      endcase
   endselect
loop

function MainMenu()
   cls
   print "Select a menu option"
   print "1. Option One"
   print "2. Play Game"
   print "3. Option Three"
   repeat
      input "Please enter an option number : ",sInput$
   until val(sInput$) > 0 and val(sInput$) < 4
endfunction sInput$

function Option1()
   cls
   print "You selected option one."
   print "Press any key to return to the main menu."
   wait key
endfunction

function PlayGame()
   cls
   print "You selected the play game option."
   print "Press any key to return to the main menu."
   wait key
endfunction

function Option3()
   cls
   print "You selected option one."
   print "Press any key to return to the main menu."
   wait key
endfunction

2. If you want your player to be able to control an object, you're going to need to catch their inputs and make those inputs have an effect on the object in question. This example shows a user moving a 3D cube around with the arrow keys.

+ Code Snippet

nX# = 0.0
nY# = 0.0
nZ# = 0.0
make object cube 1,2
position object 1,nX#,nY#,nZ#
position camera 0,0,-5
point camera 0,0,0
do
   if upkey()
      nY# = nY# + 0.1
      position object 1,nX#,nY#,nZ#
      wait 10
   endif
   if downkey()
      nY# = nY# - 0.1
      position object 1,nX#,nY#,nZ#
      wait 10
   endif
   if leftkey()
      nX# = nX# - 0.1
      position object 1,nX#,nY#,nZ#
      wait 10
   endif
   if rightkey()
      nX# = nX# + 0.1
      position object 1,nX#,nY#,nZ#
      wait 10
   endif
loop

3. Would this do?

+ Code Snippet

center text screen width() / 2,(screen height() / 4) * 3,"Loading..."
wait key
end

4. I don't use FPSC so I don't know what it does. Does it produce DBP code?

Hope this helps. Please say if I've misunderstood.

Back to top

Profile PM Email Website

My games are free

15

Years of Service

User Offline

Joined: 28th Sep 2009

Location: Under your Bed

Posted: 29th Dec 2010 20:53

Link

1) well. i have the main menu already made, but it isn't "function type:/ but i'll try to do something with it

thnx for that still
2) sorry, i didn't say that right

im trying to get an box as player for an example in an 3D TPS game, so it should move in +Z Axel and -Z axel as it moves to right and left, not up and down, please

oh and how to make it jump with space or smthing similiar
3)No it didnt work

4)it makes .fpi files

thnx still

i was very unclear with writing that post

JokkeGames - Hello from finland

Make perfect game without getting any error messages before its complete --> God Of Gamemaking

Back to top

Profile PM Email

My games are free

15

Years of Service

User Offline

Joined: 28th Sep 2009

Location: Under your Bed

Posted: 29th Dec 2010 20:59

Link

oh and i really should ask this before i forget

5) is there any code how to know in what x,y,z position the object is by that second (in-game i mean) like theres text on screen which says "Object at this X, Y, Z,"

JokkeGames - Hello from finland

Make perfect game without getting any error messages before its complete --> God Of Gamemaking

Back to top

Profile PM Email

Lucas Tiridath

AGK Developer

16

Years of Service

User Offline

Joined: 28th Sep 2008

Location: Kings Langley, UK

Posted: 30th Dec 2010 09:46

Link

2. I'm with you now. My code only needs slight modification for that, replacing the y movement with the z movement. See the modified code below.

+ Code Snippet

nX# = 0.0
nY# = 0.0
nZ# = 0.0
make object cube 1,2
position object 1,nX#,nY#,nZ#
position camera 0,5,-5
point camera 0,0,0
do
   if upkey()
      nZ# = nZ# + 0.1
      position object 1,nX#,nY#,nZ#
      wait 10
   endif
   if downkey()
      nZ# = nZ# - 0.1
      position object 1,nX#,nY#,nZ#
      wait 10
   endif
   if leftkey()
      nX# = nX# - 0.1
      position object 1,nX#,nY#,nZ#
      wait 10
   endif
   if rightkey()
      nX# = nX# + 0.1
      position object 1,nX#,nY#,nZ#
      wait 10
   endif
loop

As for jumping, I imagine there would be a number of ways of achieving that. The code below modifies my existing code to show an example. If works by flipping a jump boolean when you hit the spacebar and then if that boolean (bJump) is set to true, the program handles some automatic movement on the y axis until the jump is complete.

+ Code Snippet

#constant MAXHEIGHT 1
bJump as boolean = 0
bUp as boolean = 1
nX# = 0.0
nY# = 0.0
nZ# = 0.0
make object cube 1,2
position object 1,nX#,nY#,nZ#
position camera 0,5,-5
point camera 0,0,0
do
   if upkey()
      nZ# = nZ# + 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if downkey()
      nZ# = nZ# - 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if leftkey()
      nX# = nX# - 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if rightkey()
      nX# = nX# + 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if spacekey()
      if bUp
         bJump = 1
      endif
   endif
   if bJump
      if bUp
         if nY# < MAXHEIGHT
            nY# = nY# + 0.1
         else
            bUp = 0
         endif
      else
         if nY# > 0
            nY# = nY# - 0.1
         else
            bJump = 0
            bUp = 1
         endif
      endif
      position object 1,nX#,nY#,nZ#
   endif
   wait 10
loop

3. If that doesn't work, there are a number of solutions. I tend to use this rather heavy weight text over sprite algorithm but you should only really use this for one of bits of text like printing loading to the screen. Otherwise it will slow you down a lot. Code below.

+ Code Snippet

TextOverSprite(1,screen width() / 2,(screen height() / 4) * 3,"Loading...")
wait key
end

function TextOverSprite(nSpriteNumber,nX,nY,sText$)
    create bitmap 1,screen width(),screen height()
    text 0,0,sText$
    get image nSpriteNumber,0,0,text width(sText$) + 1,text height(sText$) + 1,1
    delete bitmap 1
    sprite nSpriteNumber,nX,nY,nSpriteNumber
    offset sprite nSpriteNumber,sprite width(nSpriteNumber) / 2,sprite height(nSpriteNumber) / 2
    sprite nSpriteNumber,nX,nY,nSpriteNumber
    set sprite priority nSpriteNumber,5
    show sprite nSpriteNumber
endfunction

4. Still not really sure about this but I think that you probably can't use them unless they generate dbp code which you could copy into the ide or something..

5. Yes. The commands are object position x, object position y and object position z. This example shows how you could use these in the example above.

#constant MAXHEIGHT 1
bJump as boolean = 0
bUp as boolean = 1
nX# = 0.0
nY# = 0.0
nZ# = 0.0

sync on

make object cube 1,2
position object 1,nX#,nY#,nZ#
position camera 0,5,-5
point camera 0,0,0
do
   if upkey()
      nZ# = nZ# + 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if downkey()
      nZ# = nZ# - 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if leftkey()
      nX# = nX# - 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if rightkey()
      nX# = nX# + 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if spacekey()
      if bUp
         bJump = 1
      endif
   endif
   if bJump
      if bUp
         if nY# < MAXHEIGHT
            nY# = nY# + 0.1
         else
            bUp = 0
         endif
      else
         if nY# > 0
            nY# = nY# - 0.1
         else
            bJump = 0
            bUp = 1
         endif
      endif
      position object 1,nX#,nY#,nZ#
   endif
   text 0,0,str$(object position x(1)) + "," + str$(object position y(1)) + "," + str$(object position z(1))
   sync
   wait 10
loop

+ Code Snippet

#constant MAXHEIGHT 1
bJump as boolean = 0
bUp as boolean = 1
nX# = 0.0
nY# = 0.0
nZ# = 0.0

sync on

make object cube 1,2
position object 1,nX#,nY#,nZ#
position camera 0,5,-5
point camera 0,0,0
do
   if upkey()
      nZ# = nZ# + 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if downkey()
      nZ# = nZ# - 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if leftkey()
      nX# = nX# - 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if rightkey()
      nX# = nX# + 0.1
      position object 1,nX#,nY#,nZ#
   endif
   if spacekey()
      if bUp
         bJump = 1
      endif
   endif
   if bJump
      if bUp
         if nY# < MAXHEIGHT
            nY# = nY# + 0.1
         else
            bUp = 0
         endif
      else
         if nY# > 0
            nY# = nY# - 0.1
         else
            bJump = 0
            bUp = 1
         endif
      endif
      position object 1,nX#,nY#,nZ#
   endif
   text 0,0,str$(object position x(1)) + "," + str$(object position y(1)) + "," + str$(object position z(1))
   sync
   wait 10
loop

Note the line

+ Code Snippet

text 0,0,str$(object position x(1)) + "," + str$(object position y(1)) + "," + str$(object position z(1))

Hope this help. Keep posting if it is still unclear.

Back to top

Profile PM Email Website

My games are free

15

Years of Service

User Offline

Joined: 28th Sep 2009

Location: Under your Bed

Posted: 31st Dec 2010 18:43

Link

oh yeah, thank you

i have tested those codes, they work fine

i'll test them again once im getting level collidin ready

JokkeGames - Hello from finland

Make perfect game without getting any error messages before its complete --> God Of Gamemaking

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / from menu to game and back? moving object ingame? loading screen?