Sorry your browser is not supported!

resx#=640
resy#=480

PRINT ""
INPUT "What do you want the X resolution for your game launcher to be? ",resx#
INPUT "What do you want the Y resolution for your game launcher to be? ",resy#
PRINT ""
PRINT "The launcher window size set is now: ",resx#;
PRINT "x",resy#

write_variables:
IF FILE EXIST(filename$)
DELETE FILE filename$
ENDIF
OPEN TO WRITE 1,filename$
   WRITE STRING 1,STR$(resx#)
   WRITE STRING 1,STR$(resy#)
CLOSE FILE 1
RETURN

`create an array
dim screensize(1,2)

set cursor 1,10
INPUT "What do you want the X resolution for your game launcher to be? ",screensize(1,1)
INPUT "What do you want the Y resolution for your game launcher to be? ",screensize(1,2)
set cursor 1,60
PRINT "The launcher window size set is now: ",screensize(1,1);
PRINT "x",screensize(1,2)

`save the array as a external file
save array "a.arr",screensize()
`delete the array
undim screensize()
suspend for key

`recreate the array
dim screensize(1,2)
`load the saved aray into the one we just recreated
load array "a.arr",screensize()
print "x=",screensize(1,1)
print "y=",screensize(1,2)
suspend for key

`Delete the file once were done
delete file "a.arr"

RETURN

resx# as float
resy# as float
resx#=640
resy#=480

DIM mediapaths$(1,2)
PRINT ""
PRINT "Now enter the filename of the video that you want to show at the start of your game launcher: "
PRINT ""
INPUT "",mediapaths$(1,1)
PRINT ""
PRINT "The filename for the launcher video is at ",mediapaths$(1,1)
ask_questions3()
SAVE ARRAY "mediapaths.arr",mediapaths$(1)

DIM mediapaths$(1,2)
LOAD ARRAY "mediapaths.arr",mediapaths$(1)
vid$=mediapaths$(1,1)
pic$=mediapaths$(1,2)

LOAD ANIMATION vid$,1
PLAY ANIMATION 1

IF showmedia(1,1)=1
LOAD ANIMATION mediapath$(1,1),1
PLAY ANIMATION 1
CLS
GOSUB showbg
ENDIF

rem -------------------------------------------------------
rem TMP SETUP
rem -------------------------------------------------------
sync on : sync rate 60

rem -------------------------------------------------------
rem CREATE THE PLAYER DATA TYPE
rem -------------------------------------------------------
TYPE Player
   NUM AS INTEGER
   ANIME AS INTEGER
ENDTYPE
dim Player(1) as Player

rem -------------------------------------------------------
rem FILL PLAYER DATA TYPE
rem -------------------------------------------------------
Player(1).NUM = 1
Player(1).ANIME = 1

rem -------------------------------------------------------
rem LOAD OBJECT TO TEST
rem -------------------------------------------------------
load object "dwarf.x",Player(1).NUM

rem -------------------------------------------------------
rem MAIN LOOP
rem -------------------------------------------------------
disable escapekey : while escapekey()=0

   rem detect for the players input
   if mouseclick()=1
   Player(1).ANIME = 3
   endif

   if mouseclick()=2
   Player(1).ANIME = 2
   endif

   if mouseclick()=0
   Player(1).ANIME = 1
   endif

   rem use this as conditions to control it
   if Player(1).ANIME = 1 then stop object Player(1).NUM
   if Player(1).ANIME = 2 then loop object Player(1).NUM,1,20
   if Player(1).ANIME = 3 then loop object Player(1).NUM,20,40

sync : endwhile

delete object Player(1).NUM
undim Player(1)

end

REM FIRSTLY, READ IN ALL THE DATA FROM THE SAVED TEXT/BYTE FILES

DIM screensize(1,2)
LOAD ARRAY "a.arr",screensize()
X=screensize(1,1)
Y=screensize(1,2)
   DIM mapswanted(1,16)
   LOAD ARRAY "mapswanted.dat",mapswanted()
   DIM showmedia(1,2)
   LOAD ARRAY "showmedia.dat",showmedia()
   DIM showmedia2(1,2)
   LOAD ARRAY "showmedia2.dat",showmedia2()
   DIM mediapath$(1,2)
   LOAD ARRAY "mediapaths.dat",mediapath$()

REM SET THE WINDOW SIZE FROM THE ARRAY
SET WINDOW SIZE X,Y

REM IF THE USER WANTS A VIDEO TO BE PLAYED, LOAD IT AND THEN PLAY IT
IF showmedia(1,1)=1
LOAD ANIMATION mediapath$(1,1),1
PLAY ANIMATION 1
CLS
GOSUB showbg
REM MAKE IT WAIT THE LENGTH OF THE ANIMATION
ENDIF
REM SHOW THE BACKGROUND
showbg:
MakeABackground(X,Y)
GOSUB buttons
RETURN
REM DRAW THE APPROPRIATE AMOUNT OF BUTTONS FOR THE AMOUNT OF MAPS THE PLAYER WANTS TO LOAD
buttons:
   IF mapswanted(1,1)=1
   GOSUB maps1
   GOTO loopever
   ENDIF
   IF game_exe_number=2
   GOSUB maps2
   ENDIF
   IF game_exe_number=3
   GOSUB maps3
   ENDIF
   IF game_exe_number=4
   GOSUB maps4
   ENDIF
   IF game_exe_number=5
   GOSUB maps5
   ENDIF
   IF game_exe_number=6
   GOSUB maps6
   ENDIF
   IF game_exe_number=7
   GOSUB maps7
   ENDIF
   IF game_exe_number=8
   GOSUB maps8
   ENDIF
   IF game_exe_number=9
   GOSUB maps9
   ENDIF
   IF game_exe_number=10
   GOSUB maps10
   ENDIF
   IF game_exe_number=11
   GOSUB maps11
   ENDIF
   IF game_exe_number=12
   GOSUB maps12
   ENDIF
   IF game_exe_number=13
   GOSUB maps13
   ENDIF
   IF game_exe_number=14
   GOSUB maps14
   ENDIF
   IF game_exe_number=15
   GOSUB maps15
   ENDIF
   IF game_exe_number=16
   GOSUB maps16
   ENDIF
RETURN

maps1:
Sync On: Sync Rate 60

Set Text Opaque

Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  Gosub CheckRegion
  Sync
Loop
End

CheckRegion:
  Rem First Button
  If Mx > 245 and My > 186 And Mx < 566 And My < 242
    If Mc=1
      Rem Add here, whatever code you want to be executed when you click button 1
EXECUTE FILE game_exe_name1$,game_exe_name1$,game_exe_name1$
    Else
      UnfilledBox(245,186,566,242,RGB(255,0,0)): Rem Highlight Button
    Endif
  Endif
Return
Function UnfilledBox(X1,Y1,X2,Y2,Colour)
  Ink Colour,0
  Line X1-1,Y1-1,X2+1,Y1-1
  Line X2+1,Y1-1,X2+1,Y2+1
  Line X2+1,Y2+1,X1-1,Y2+1
  Line X1-1,Y2+1,X1-1,Y1-1
EndFunction
GOSUB main_menu_loop
RETURN

maps2:
RETURN

maps3:
RETURN

maps4:
RETURN

maps5:
RETURN

maps6:
RETURN

maps7:
RETURN

maps8:
RETURN

maps9:
RETURN

maps10:
RETURN

maps11:
RETURN

maps12:
RETURN

maps13:
RETURN

maps14:
RETURN

maps15:
RETURN

maps16:
RETURN

loopever:
DO
LOOP

main_menu_loop:
DO
LOOP
RETURN

FUNCTION MakeABackground(X,Y)
LOAD IMAGE mediapath$(1,2),1
PASTE IMAGE 1,0,0
ENDFUNCTION

REM -------------------------------------------
REM Play Movie Example
REM indi - david smith
REM DBP 6.3
REM Monday march 5th 2007
REM -------------------------------------------

REM INIT GAME WORLD
sync on : sync rate 60 : set display mode 800,600,32
set text font "verdana" : set text size 16 : ink rgb(255,255,0),1


REM MINI SPLASH SCREEN
center text screen width()/2,screen height()/2,"Play Movie Example - press a key to start"
sync : sync : suspend for key

REM START 3D BACKGROUND
backdrop on

REM CREATE TEMP 3D OBJECT
make object cube 1,25
position object 1,0,0,0
ghost object on 1
fade object 1,25

REM PRE MAIN
position camera 0,50,-50
point camera 0,0,0

REM MAIN GAME LOOP
disable escapekey : while escapekey()=0

   REM ROTATE TEMP 3D OBJECT
   r = wrapvalue(r)+1
   rotate object 1,r,r,r

   REM FAKE CONDITION AKIN TO PLAYER ENDING THE GAME
   Gameplay = Gameplay +1

   center text screen width()/2,screen height()/2,"game play progress :"+STR$(Gameplay)
   REM if Gamplay is greater then or equals 1000 then hit condition
   if Gameplay >= 300
      PlayEndMovie()
   endif

REM END MAIN GAME LOOP
fastsync : endwhile
REM TERMINATE PROGRAM
end

REM PLAY MOVIE FUNCTION
function PlayEndMovie()
   cls
   load animation "DT2_video2.avi",1
   play animation 1
      disable escapekey : while escapekey()=0
         center text screen width()/2,screen height()/2,"Playing End Movie"
         if animation playing(1) = 0
            delete animation 1
            end
         endif
      fastsync : endwhile

   end
endfunction

REM IF THE USER WANTS A VIDEO TO BE PLAYED, LOAD IT AND THEN PLAY IT
IF showmedia(1,1)=1
LOAD ANIMATION mediapath$(1,1),1

PLAY ANIMATION 1
if animation playing(1) = 0
   delete animation 1
   CLS
   GOSUB showbg
endif


REM MAKE IT WAIT THE LENGTH OF THE ANIMATION
ENDIF

REM FIRSTLY, READ IN ALL THE DATA FROM THE SAVED TEXT/BYTE FILES

DIM screensize(1,2)
LOAD ARRAY "a.arr",screensize()
X=screensize(1,1)
Y=screensize(1,2)
   DIM mapswanted(1,1)
   LOAD ARRAY "mapswanted.dat",mapswanted()
   DIM showmedia(1,2)
   LOAD ARRAY "showmedia.dat",showmedia()
   DIM showmedia2(1,2)
   LOAD ARRAY "showmedia2.dat",showmedia2()
   DIM mediapath$(1,2)
   LOAD ARRAY "mediapaths.dat",mediapath$()

REM SET THE WINDOW SIZE FROM THE ARRAY
SET WINDOW SIZE X,Y

REM IF THE USER WANTS A VIDEO TO BE PLAYED, LOAD IT AND THEN PLAY IT
IF showmedia(1,1)=1
LOAD ANIMATION mediapath$(1,1),1
PLAY ANIMATION 1
WAIT 1
IF ANIMATION PLAYING(1)=0
  DELETE ANIMATION 1
  CLS
GOSUB showbg
ENDIF
ENDIF
REM MAKE IT WAIT THE LENGTH OF THE ANIMATION
REM SHOW THE BACKGROUND
showbg:
REM DRAW THE BACKGROUND
IF showmedia2(1,2)=1
MakeABackground(640,480)
ELSE GOSUB buttons
ENDIF
RETURN
REM DRAW THE APPROPRIATE AMOUNT OF BUTTONS FOR THE AMOUNT OF MAPS THE PLAYER WANTS TO LOAD
buttons:
   IF mapswanted(1,1)=1
   GOSUB maps1
   GOSUB loopever
   ENDIF
   IF game_exe_number=2
   GOSUB maps2
   ENDIF
   IF game_exe_number=3
   GOSUB maps3
   ENDIF
   IF game_exe_number=4
   GOSUB maps4
   ENDIF
   IF game_exe_number=5
   GOSUB maps5
   ENDIF
   IF game_exe_number=6
   GOSUB maps6
   ENDIF
   IF game_exe_number=7
   GOSUB maps7
   ENDIF
   IF game_exe_number=8
   GOSUB maps8
   ENDIF
   IF game_exe_number=9
   GOSUB maps9
   ENDIF
   IF game_exe_number=10
   GOSUB maps10
   ENDIF
   IF game_exe_number=11
   GOSUB maps11
   ENDIF
   IF game_exe_number=12
   GOSUB maps12
   ENDIF
   IF game_exe_number=13
   GOSUB maps13
   ENDIF
   IF game_exe_number=14
   GOSUB maps14
   ENDIF
   IF game_exe_number=15
   GOSUB maps15
   ENDIF
   IF game_exe_number=16
   GOSUB maps16
   ENDIF
RETURN

maps1:
DO
  REM DRAW THE BUTTON IMAGE
  Mx=MOUSEX(): My=MOUSEY(): Mc=MOUSECLICK()
  GOSUB main_menu_loop
LOOP

CheckRegion:
  Rem First Button
  IF Mx > 245 AND My > 186 AND Mx < 566 AND My < 242
    IF Mc=1
      Rem Add here, whatever code you want to be executed when you click button 1
    ELSE
      UnfilledBox(245,186,566,242,RGB(255,0,0))
ENDIF
ENDIF
RETURN
FUNCTION UnfilledBox(X1,Y1,X2,Y2,Colour)
  INK Colour,0
  LINE X1-1,Y1-1,X2+1,Y1-1
  LINE X2+1,Y1-1,X2+1,Y2+1
  LINE X2+1,Y2+1,X1-1,Y2+1
  LINE X1-1,Y2+1,X1-1,Y1-1
ENDFUNCTION
GOSUB main_menu_loop
RETURN

maps2:
RETURN

maps3:
RETURN

maps4:
RETURN

maps5:
RETURN

maps6:
RETURN

maps7:
RETURN

maps8:
RETURN

maps9:
RETURN

maps10:
RETURN

maps11:
RETURN

maps12:
RETURN

maps13:
RETURN

maps14:
RETURN

maps15:
RETURN

maps16:
RETURN

loopever:
DO
LOOP

main_menu_loop:
DO
CLS
LOOP
RETURN

FUNCTION MakeABackground(X2,Y2)
LOAD IMAGE mediapath$(1,2),1
PASTE IMAGE 1,0,0
ENDFUNCTION