Sorry your browser is not supported!

gosub setup_variables
root$ = "F:\The !£$%^& Game\MyGame\"
sync on
rem sync rate 60
rem set window on
set display mode 1024,768,32
rem backdrop on
Rem Load any required media
gosub _load_game
Rem Setup all objects for game
gosub _setup_game

rem Front End
do
	gosub _timer_events
   	gosub _rotate_emblem
   	rem gosub drawline1
   	rem gosub drawline2
	rem gosub _display_text
	rem displaylinetext(0,1,"MyGame The Game","arial black",50,255,0,0,255,0,0,1)
	displaylinetext(0,20,"Start Game","arial black",fontsizemax,255,255,255,255,255,255,1)
	rem displaylinetext(0,21,"Options","arial black",fontsizemax,255,255,255,255,255,255,1)
	rem displaylinetext(0,22,"Quit","arial black",fontsizemax,255,255,255,255,255,255,1)
	fps$ = str$(screen fps())
	displaylinetext(0,23,"FPS:"+fps$,"arial black",fontsizemax,255,255,255,255,255,255,1)
	sync
loop

Rem Game Loop
do
   Rem Control game elements
	gosub _control_player
	gosub _control_surrounding
	gosub _control_enemies
   Rem update screen
loop

Rem End program
stop music MyGame_tune
show mouse
end

_setup_game:
	hide mouse
	color backdrop rgb(0,0,0)
	make light MyGame_emblem_light
	color light MyGame_emblem_light,255,255,255
	set light to object position MyGame_emblem_light, MyGame_emblem
	randomize timer()
	move camera cam_pos
	play music MyGame_tune
return

_load_game:
	load object root$+"MyGame Emblem\MyGame Emblem.x", MyGame_emblem
	load music root$+"MyGame Theme Tune\MyGame - Theme Song.mp3", MyGame_tune
return

_timer_events:
	timer_a = timer_a + 1
	if timer_a > 2000
		timer_a = 0 : timer_b = timer_b + 1 : time_taken = start_time-timer()
	endif
	if timer_b > 2000
		timer_b = 0 : timer_c = timer_c + 1
	endif
	if timer_c > 2000
		timer_c = 0 : timer_d = timer_d + 1
	endif
return

_display_text:
	ink rgb(255,255,255),rgb(255,255,255)
	set text font "arial"
	set text size 14
	text 10,10,str$(timer_a)
	text 10,20,str$(timer_b)
	text 10,30,str$(timer_c)
	text 10,40,str$(timer_d)
	if time_taken <> 0
		text 10,50,(str$(time_taken/1000))
	endif
return

_rotate_emblem:
   Rem rotate the Y axis of the triangle
   zROTATE OBJECT MyGame_emblem, OBJECT ANGLE z(MyGame_emblem) + 0.6
   yROTATE OBJECT MyGame_emblem, OBJECT ANGLE y(MyGame_emblem) + 1.6
   xROTATE OBJECT MyGame_emblem, OBJECT ANGLE x(MyGame_emblem) + 0.2
   move camera cam_pos
   cam_pos = cam_pos + 0.1
   if cam_pos <= -10
		cam_pos = -10
   endif
   
return

drawline1:
rem ********************************
rem *line fade above MyGame emblem*
rem ********************************
	if timer_a =>400 or timer_b =>1
      ink rgb(line_1_fade_red,line_1_fade_green,line_1_fade_blue),rgb (0,0,0)
      for lines = 0 to 5
			line 0,220+lines,screen width(),220+lines
      next lines
      line_1_fade_red = line_1_fade_red + 1
      if line_1_fade_red >= 255
         line_1_fade_red = 255 : lr1 = 1
      endif
      line_1_fade_green = line_1_fade_green + 1
      if line_1_fade_green >= 103
         line_1_fade_green = 103 : lg1 = 1
      endif
      line_1_fade_blue = line_1_fade_blue + 1
      if line_1_fade_blue >= 11
         line_1_fade_blue = 11 :lb1 = 1
      endif
   endif
return

drawline2:
rem ********************************
rem *line fade below MyGame emblem*
rem ********************************
	if timer_a =>500 or timer_b =>1
      ink rgb(line_2_fade_red,line_2_fade_green,line_2_fade_blue),rgb (0,0,0)
      for lines = 0 to 5
			line 0,520+lines,screen width(),520+lines
      next lines
      line_2_fade_red = line_2_fade_red + 1
      if line_2_fade_red >= 255
         line_2_fade_red = 255 : lr2 = 1
      endif
      line_2_fade_green = line_2_fade_green + 1
      if line_2_fade_green >= 103
         line_2_fade_green = 103 : lg2 = 1
      endif
      line_2_fade_blue = line_2_fade_blue + 1
      if line_2_fade_blue >= 11
         line_2_fade_blue = 11 : lb2 = 1
      endif
   endif
return

rem **************************
rem * not use below here yet *
rem **************************
_control_player:
return
_control_surrounding:
return
_control_enemies:
return


Function displaylinetext(x,y,string$,font$,fontsize,RF,GF,BF,RB,GB,BB,center)
	SET TEXT FONT font$
	SET TEXT SIZE fontsize
	xscreen = screen width()
	yscreen = screen height()
	len_of_string = (text width (string$)/2)
	ink rgb(RF,GF,BF),rgb(RB,GB,BB)
	text_pos_x = x * fontsize
	text_pos_y = y * fontsize
	center_x_text = (xscreen / 2)
	if center = 1 
		text center_x_text-len_of_string,text_pos_y,string$
	else
		text text_pos_x,text_pos_y,string$
	endif
endfunction

setup_variables:
	global font$ as string
	global fontsize as integer
	global xscreen as integer
	global yscreen as integer
	global len_of_string as integer
	global RF as integer
	global GF as integer
	global BF as integer
	global RB as integer
	global GB  as integer
	global BB as integer
	global text_pos_x as integer
	global text_pos_y as integer
	global center_x_text  as integer
	global center as integer

	global root$ as string
	
	MyGame_emblem = 1
	MyGame_tune = 1
	MyGame_emblem_light = 1
	start_time = timer()
	time_taken = 0
	cam_pos = -100
	timer_a = 0 
	timer_b = 0 
	timer_c = 0 
	timer_d = 0
	line_1_fade_red = 0 
	line_1_fade_green = 0 
	line_1_fade_blue = 0
	line_2_fade_red = 0 
	line_2_fade_green = 0 
	line_2_fade_blue = 0
	
	if screen width() = 800 then fontsizemax = 20
	if screen width() = 1024 then fontsizemax = 30
	if screen width() = 1280 then fontsizemax = 40
return

// put the following somewhere at the start of your program as this needs to be done (only once) before you call any a2text commands
Dim Verdana(48) As Integer // Font For use with Advanced2D, i.e. Verdana(32)=verdana 32pt font
for i=2 to array count(verdana(0)) step 2
	Verdana(i)=a2CreateFont("verdana",i,a2Size_Char(),a2Style_Bold())
Next i
// this is simply defining an integer array, these store numbers which correspond to a font's size, style and type when calling a2text. Create 1 array per font type/stype you want to use, and the array size is the font size you want to go up to

A2text Verdana(12),0,220,"Test text in white",rgb(255,255,255)
A2boxtext Verdana(26),0,0,screen width(),screen height(),"centered text between 4 corners in red",1,1,0,RGB(255,0,0)

// a2text is in a similiar syntax to the 'text' command
// a2boxtext is like 'center text' except that it also centers between vertical points
// both commands allow you specify font size, type, style and text colour all on the 1 line individually. Far greater flexibility, cleans up a ton of code and is a hell of a lot faster

SET DISPLAY MODE 800, 600, 32
myvar = 5
BOX 50, 50, 100, 100
GET IMAGE 1, 50, 50, 100, 100, 1
CLS
PRINT "myvar = " + STR$(myvar)
PRINT "Press a key to paste the image..."
WAIT KEY
PASTE IMAGE 1, 600, 50
PRINT " "
PRINT "Press a key to go to a different resolution..."
WAIT KEY
SET DISPLAY MODE 1024, 768, 32
PRINT "1024x768... Welcome..."
PRINT "myvar = " + STR$(myvar)
PRINT "Press a key to try to paste that image (and crash)..."
WAIT KEY
PASTE IMAGE 1, 600, 50
PRINT " "
PRINT ".....Error yah?"
PRINT "Press any key... (Not that it will reach this point)"
WAIT KEY
END