Include Files Question - GameCreators Forum

Author

Message

Kyle Katarn

17

Years of Service

User Offline

Joined: 7th Jun 2007

Location: Central Coast, Australia

Posted: 28th Jul 2007 12:42 Edited at: 28th Jul 2007 15:51

Link

Hey, sorry if it seems like I'm pestering you guys.

A quick question on the Include Files on the IDE, how do I run files after another in a sequence and not all at once?

Do I run functions one after the other in the main source file? i.e.

+ Code Snippet

DO
Function1()
Function2()
SYNC
LOOP

Or do I run the first included file then the next file in the sequence, within the first included file? i.e.

+ Code Snippet

FUNCTION Function1()
*Function stuff here
ENDFUNCTION
Function2()

Or is there another way? I havent tried this out yet (as I have not got enough source files to include), but it's good to know now instead of in a time when it could be a problem.

Thanks in advance.
~Kyle_Katarn

Back to top

Profile PM

Kyle Katarn

17

Years of Service

User Offline

Joined: 7th Jun 2007

Location: Central Coast, Australia

Posted: 28th Jul 2007 12:43

Link

... Sorry for the non code snippets. I did include them, but they didnt work for some reason.

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 28th Jul 2007 15:54

Link

Fixed your code snippets for you - the word 'code' needs to be in lowercase.

Whenever you include an extra file, either using the IDE or the #INCLUDE command, that code is simply appended to the main code before being passed to the compiler.

When the code is run, it starts at the top of the main code and runs from there.

For free Plug-ins and source code
http://www.matrix1.demon.co.uk
New Utility plugins collection

Back to top

Profile PM Email Website

Kyle Katarn

17

Years of Service

User Offline

Joined: 7th Jun 2007

Location: Central Coast, Australia

Posted: 28th Jul 2007 20:45

Link

Yes but how would I run them one after the other?
Say for example, I have a Source file for the Opening Credits and one for the Main Title Menu. How would I arrange it in a sequence which will display the opening title credits and then the opening menu?

Back to top

Profile PM

Commander in Chief

18

Years of Service

User Offline

Joined: 15th Apr 2006

Location: Carbondale, PA, USA

Posted: 28th Jul 2007 20:54

Link

I would put the Credits and Menu in a function, then just load the functions after each other.

Best.

---PlasmaArts---
www.plasmaarts.co.nr - www.plasmaarts-games.co.nr

Back to top

Profile PM Email Website

Kyle Katarn

17

Years of Service

User Offline

Joined: 7th Jun 2007

Location: Central Coast, Australia

Posted: 28th Jul 2007 21:04 Edited at: 28th Jul 2007 21:05

Link

Thats what I've been trying to do, I've got them as two seperate functions, but it skips the Opening Credits and Goes straight to the menu.

This might Help. (Its a bit long, but easy to read)

Main Source File

+ Code Snippet

REM Created: 11/07/2007 3:38:14 PM
REM
REM ***** Main Source File *****

REM Setting Sync Options
SYNC ON
SYNC RATE 0
SET WINDOW ON
SET WINDOW SIZE 320, 240

DO
OpeningTitles() 'Function
MainMenu() 'Function
SYNC
LOOP

Opening Credits Source File

FUNCTION OpeningTitles()
'Loading the Image Files
LOAD IMAGE "Picture/[Intro][01].png", 1
LOAD IMAGE "Picture/[Intro][02].png", 2
LOAD IMAGE "Picture/[Intro][03].png", 3
LOAD IMAGE "Picture/[Intro][04].png", 4
LOAD IMAGE "Picture/[Intro][05].png", 5
LOAD IMAGE "Picture/[Intro][06].png", 6
'======================================

'Define Variables
ImageNo# = 1
'======================================

DO
   'First Sequence
   IF ImageNo# = 1
      SPRITE 1, 0, 0, 1
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 1, Alpha
      NEXT Alpha
      FOR Pause = 1 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 1, AlphaOut
      NEXT AlphaOut
      ImageNo# = 2
   ENDIF

'Second Sequence
   IF ImageNo# = 2
      SPRITE 1, 0, 0, 2
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 2, Alpha
      NEXT Alpha
      FOR Pause = 0 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 2, AlphaOut
      NEXT AlphaOut
      ImageNo# = 3
   ENDIF

'Third Sequence
   IF ImageNo# = 3
      SPRITE 1, 0, 0, 3
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 3, Alpha
      NEXT Alpha
      FOR Pause = 1 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 3, AlphaOut
      NEXT AlphaOut
      ImageNo# = 4
   ENDIF

'Fourth Sequence
   IF ImageNo# = 4
      SPRITE 1, 0, 0, 4
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 4, Alpha
      NEXT Alpha
      FOR Pause = 1 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 4, AlphaOut
      NEXT AlphaOut
      ImageNo# = 5
   ENDIF

'Fifth Sequence
   IF ImageNo# = 5
      SPRITE 1, 0, 0, 5
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 5, Alpha
      NEXT Alpha
      FOR Pause = 1 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 5, AlphaOut
      NEXT AlphaOut
      ImageNo# = 6
   ENDIF

'Sixth Sequence
   IF ImageNo# = 6
      SPRITE 1, 0, 0, 6
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 6, Alpha
      NEXT Alpha
      FOR Pause = 1 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 6, AlphaOut
      NEXT AlphaOut
   ENDIF

FOR Del = 1 TO 6
   DELETE IMAGE Del
NEXT Del
SYNC
LOOP
ENDFUNCTION

+ Code Snippet

FUNCTION OpeningTitles()
'Loading the Image Files
LOAD IMAGE "Picture/[Intro][01].png", 1
LOAD IMAGE "Picture/[Intro][02].png", 2
LOAD IMAGE "Picture/[Intro][03].png", 3
LOAD IMAGE "Picture/[Intro][04].png", 4
LOAD IMAGE "Picture/[Intro][05].png", 5
LOAD IMAGE "Picture/[Intro][06].png", 6
'======================================

'Define Variables
ImageNo# = 1
'======================================

DO
   'First Sequence
   IF ImageNo# = 1
      SPRITE 1, 0, 0, 1
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 1, Alpha
      NEXT Alpha
      FOR Pause = 1 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 1, AlphaOut
      NEXT AlphaOut
      ImageNo# = 2
   ENDIF

   'Second Sequence
   IF ImageNo# = 2
      SPRITE 1, 0, 0, 2
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 2, Alpha
      NEXT Alpha
      FOR Pause = 0 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 2, AlphaOut
      NEXT AlphaOut
      ImageNo# = 3
   ENDIF

   'Third Sequence
   IF ImageNo# = 3
      SPRITE 1, 0, 0, 3
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 3, Alpha
      NEXT Alpha
      FOR Pause = 1 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 3, AlphaOut
      NEXT AlphaOut
      ImageNo# = 4
   ENDIF

   'Fourth Sequence
   IF ImageNo# = 4
      SPRITE 1, 0, 0, 4
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 4, Alpha
      NEXT Alpha
      FOR Pause = 1 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 4, AlphaOut
      NEXT AlphaOut
      ImageNo# = 5
   ENDIF

   'Fifth Sequence
   IF ImageNo# = 5
      SPRITE 1, 0, 0, 5
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 5, Alpha
      NEXT Alpha
      FOR Pause = 1 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 5, AlphaOut
      NEXT AlphaOut
      ImageNo# = 6
   ENDIF

   'Sixth Sequence
   IF ImageNo# = 6
      SPRITE 1, 0, 0, 6
      FOR Alpha = 0 TO 255 STEP 0.005
         SET SPRITE ALPHA 6, Alpha
      NEXT Alpha
      FOR Pause = 1 TO 1000 STEP 0.05
      NEXT Pause
      FOR AlphaOut = 255 TO 0 STEP 0.005
         SET SPRITE ALPHA 6, AlphaOut
      NEXT AlphaOut
   ENDIF

FOR Del = 1 TO 6
   DELETE IMAGE Del
NEXT Del
SYNC
LOOP
ENDFUNCTION

Source Code for Menu

FUNCTION MainMenu()
'Loading Images
SET IMAGE COLORKEY 000, 132, 132
LOAD IMAGE "Title/Title.png",         1
LOAD IMAGE "Title/Title Text Box.png",        2
LOAD IMAGE "Picture/[Title][Start][N].bmp",   3, 1
LOAD IMAGE "Picture/[Title][Start][H].bmp",   4, 1
LOAD IMAGE "Picture/[Title][Options][N].bmp", 5, 1
LOAD IMAGE "Picture/[Title][Options][H].bmp", 6, 1
LOAD IMAGE "Picture/[Title][Single][N].bmp",  7, 1
LOAD IMAGE "Picture/[Title][Single][H].bmp",  8, 1
LOAD IMAGE "Picture/[Title][Online][N].bmp",  9, 1
LOAD IMAGE "Picture/[Title][Online][H].bmp", 10, 1
CREATE ANIMATED SPRITE 5, "Sprite/[Arrow].bmp", 2, 1, 11
'===================================

'Defining Variables
CursorPosX# = 129 : CursorPosY# = 192 : CursorPos# = 1
Menu# = 1
'===================================

'Creating sprites
SPRITE 1, 000, 000,  1
SPRITE 2, 120, 184,  2 : SET SPRITE ALPHA 2, 128
SPRITE 5, CursorPosX#, CursorPosY#, 11 : SET SPRITE PRIORITY 5, 1
'===================================

DO
PLAY SPRITE 5, 1, 2, 200
'Setting Menu
IF Menu# = 1
   IF CursorPos# = 1 THEN SPRITE 3, 144, 193, 4 : SPRITE 4, 140, 207, 5
   'Cursor Controls
   Arrowkey = SCANCODE()
   IF Arrowkey = 208
      CursorPosX# = 125 : CursorPosY# = 206
      'Play SFX
      SPRITE 3, 144, 193, 3
      SPRITE 4, 140, 207, 6
      SPRITE 5, CursorPosX#, CursorPosY#, 11
      CursorPos# = 2
   ENDIF
   IF Arrowkey = 200
      CursorPosX# = 129 : CursorPosY# = 192
      'Play SFX
      SPRITE 3, 144, 193, 4
      SPRITE 4, 140, 207, 5
      SPRITE 5, CursorPosX#, CursorPosY#, 11
      CursorPos# = 1
   ENDIF
   IF SCANCODE() = 44 OR SCANCODE() = 28
   'Play SFX
      IF CursorPos# = 1
         Menu# = 2
         CursorPosX# = 114 : CursorPosY# = 192
         SPRITE 5, CursorPosX#, CursorPosY#, 11
      ENDIF
      IF CursorPos# = 2
      ENDIF
   ENDIF
   '===================================
ENDIF

IF Menu# = 2
   IF CursorPos# = 1 THEN SPRITE 3, 129, 193, 8 : SPRITE 4, 145, 207, 9
   'Cursor Controls
   Arrowkey = SCANCODE()
   IF Arrowkey = 208
      CursorPosX# = 130 : CursorPosY# = 206
      'Play SFX
      SPRITE 3, 129, 193, 7
      SPRITE 4, 145, 207, 10
      SPRITE 5, CursorPosX#, CursorPosY#, 11
      CursorPos# = 2
   ENDIF
   IF Arrowkey = 200
      CursorPosX# = 114 : CursorPosY# = 192
      'Play SFX
      SPRITE 3, 129, 193, 8
      SPRITE 4, 145, 207, 9
      SPRITE 5, CursorPosX#, CursorPosY#, 11
      CursorPos# = 1
   ENDIF
   IF SCANCODE() = 44 OR SCANCODE() = 28
   'Play SFX
      IF CursorPos# = 1
      ENDIF
      IF CursorPos# = 2
      ENDIF
   ENDIF
   IF SCANCODE() = 45
      Menu# = 1
      CursorPosX# = 129 : CursorPosY# = 192
      SPRITE 5, CursorPosX#, CursorPosY#, 11
   ENDIF
   '===================================
ENDIF
'===================================
SYNC
LOOP
ENDFUNCTION

+ Code Snippet

FUNCTION MainMenu()
'Loading Images
SET IMAGE COLORKEY 000, 132, 132
LOAD IMAGE "Title/Title.png",         1
LOAD IMAGE "Title/Title Text Box.png",        2
LOAD IMAGE "Picture/[Title][Start][N].bmp",   3, 1
LOAD IMAGE "Picture/[Title][Start][H].bmp",   4, 1
LOAD IMAGE "Picture/[Title][Options][N].bmp", 5, 1
LOAD IMAGE "Picture/[Title][Options][H].bmp", 6, 1
LOAD IMAGE "Picture/[Title][Single][N].bmp",  7, 1
LOAD IMAGE "Picture/[Title][Single][H].bmp",  8, 1
LOAD IMAGE "Picture/[Title][Online][N].bmp",  9, 1
LOAD IMAGE "Picture/[Title][Online][H].bmp", 10, 1
CREATE ANIMATED SPRITE 5, "Sprite/[Arrow].bmp", 2, 1, 11
'===================================

'Defining Variables
CursorPosX# = 129 : CursorPosY# = 192 : CursorPos# = 1
Menu# = 1
'===================================

'Creating sprites
SPRITE 1, 000, 000,  1
SPRITE 2, 120, 184,  2 : SET SPRITE ALPHA 2, 128
SPRITE 5, CursorPosX#, CursorPosY#, 11 : SET SPRITE PRIORITY 5, 1
'===================================

DO
PLAY SPRITE 5, 1, 2, 200
'Setting Menu
IF Menu# = 1
   IF CursorPos# = 1 THEN SPRITE 3, 144, 193, 4 : SPRITE 4, 140, 207, 5
   'Cursor Controls
   Arrowkey = SCANCODE()
   IF Arrowkey = 208
      CursorPosX# = 125 : CursorPosY# = 206
      'Play SFX
      SPRITE 3, 144, 193, 3
      SPRITE 4, 140, 207, 6
      SPRITE 5, CursorPosX#, CursorPosY#, 11
      CursorPos# = 2
   ENDIF
   IF Arrowkey = 200
      CursorPosX# = 129 : CursorPosY# = 192
      'Play SFX
      SPRITE 3, 144, 193, 4
      SPRITE 4, 140, 207, 5
      SPRITE 5, CursorPosX#, CursorPosY#, 11
      CursorPos# = 1
   ENDIF
   IF SCANCODE() = 44 OR SCANCODE() = 28
   'Play SFX
      IF CursorPos# = 1
         Menu# = 2
         CursorPosX# = 114 : CursorPosY# = 192
         SPRITE 5, CursorPosX#, CursorPosY#, 11
      ENDIF
      IF CursorPos# = 2
      ENDIF
   ENDIF
   '===================================
ENDIF

IF Menu# = 2
   IF CursorPos# = 1 THEN SPRITE 3, 129, 193, 8 : SPRITE 4, 145, 207, 9
   'Cursor Controls
   Arrowkey = SCANCODE()
   IF Arrowkey = 208
      CursorPosX# = 130 : CursorPosY# = 206
      'Play SFX
      SPRITE 3, 129, 193, 7
      SPRITE 4, 145, 207, 10
      SPRITE 5, CursorPosX#, CursorPosY#, 11
      CursorPos# = 2
   ENDIF
   IF Arrowkey = 200
      CursorPosX# = 114 : CursorPosY# = 192
      'Play SFX
      SPRITE 3, 129, 193, 8
      SPRITE 4, 145, 207, 9
      SPRITE 5, CursorPosX#, CursorPosY#, 11
      CursorPos# = 1
   ENDIF
   IF SCANCODE() = 44 OR SCANCODE() = 28
   'Play SFX
      IF CursorPos# = 1
      ENDIF
      IF CursorPos# = 2
      ENDIF
   ENDIF
   IF SCANCODE() = 45
      Menu# = 1
      CursorPosX# = 129 : CursorPosY# = 192
      SPRITE 5, CursorPosX#, CursorPosY#, 11
   ENDIF
   '===================================
ENDIF
'===================================
SYNC
LOOP
ENDFUNCTION

Thanks in advance.
~Kyle Katarn

Back to top

Profile PM

qwe

21

Years of Service

User Offline

Joined: 3rd Sep 2003

Location: place

Posted: 29th Jul 2007 10:59

Link

^off topic, but you are using a float to refer to an image or at least point to an image (an integer's job). you should use integers for this because floats are only accurate to 7 digits, so that means 10 could become 9.99999, which when turned into an integer becomes 9

when you want to open a title then menu, do this:

REM Ini
sync on
`et cetera

REM Title
do_title()

REM Main Menu
do_menu()

then, in your title include file, have the do_title() function, and likewise for the menu include

have your do-sync-loop inside the do_title() function and inside the do_menu() function

another note, in your program, you aren't syncing after displaying each image in your image sequence

Back to top

Profile PM Email

Kyle Katarn

17

Years of Service

User Offline

Joined: 7th Jun 2007

Location: Central Coast, Australia

Posted: 29th Jul 2007 12:05

Link

Hey, I'm really sorry, but where have I used floats instead of integers? I've scanned the code and the only thing that comes close is when I'm defining the STEP value of my Alpha and AlphaOut Variables. Unless they are what you mean.

I'm sorry if I'm being annoying and probably a touch ignorant, but I'm trying, I really am. I appreciate the help you've all given me so far... I'm just having a dumb day I guess :p

Now, onto another problem. I've taken out the MainMenu() function to try and get the OpeningTitle() to work. When I try to run the program, the game crashes... well not so much crashes as freezes up.

Back to top

Profile PM

Kyle Katarn

17

Years of Service

User Offline

Joined: 7th Jun 2007

Location: Central Coast, Australia

Posted: 30th Jul 2007 11:51

Link

Holy crap! It worked! Thanks heaps guys. The OpeningTitle funtion works perfectly. But I have run into another problem.

Breaking out of loop. How do I do it? I've tried setting up a DO UNTIL value, but it appears that I cant work Booleans yet lol. I've tried setting a value within the loop to trigger an event uotside, but it doesnt register (because I guess it cant do anything outside the loop boundaries). I've even tried searching for a BREAK FROM LOOP type command but to no avail.

Thanks heaps in advance, and thanks heaps again to all those who've helped me as far.

Back to top

Profile PM

vorconan

17

Years of Service

User Offline

Joined: 4th Nov 2006

Location: Wales

Posted: 30th Jul 2007 12:38

Link

Thats easy, it's just EXIT to break from a do loop.

Back to top

Profile PM Email

Kyle Katarn

17

Years of Service

User Offline

Joined: 7th Jun 2007

Location: Central Coast, Australia

Posted: 30th Jul 2007 14:13

Link

Thanks heaps mate.

It all works perfectly now. I've no further enquiries... except this one. Can I execute an Include file within another one?

Say I include a file with the intro to the game, can I execute the intro file function within the MainMenu() function? Or would I have to set a global variable to on which'll execute the function within the main source file?

Again, thanks a crapload.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Include Files Question