Sorry your browser is not supported!

Rem Project: gameout
Rem Created: 25/05/2008 00:25:31

Rem ***** Main Source File *****

sync on:sync rate 200
Set Display Mode 800,600,32

load animation "movie3.avi", 1
Play animation 1
sync
if upkey()=1 then goto menu
wait key

Menu:
cls
Stop animation 1
delete animation 1
Load Image "example image.jpg",1
Paste Image 1,0,0
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
      Goto New_Game
      Center Text 400,580,"You Clicked On Button 1!"
    Else
      UnfilledBox(245,186,566,242,RGB(255,0,0)): Rem Highlight Button
    Endif
  Endif
  Rem Second Button
  If Mx > 245 and My > 262 And Mx < 566 And My < 318
    If Mc=1
      Load animation "movie3.avi",2
      Play animation 2
      If upkey()=1 then stop animation 2:Delete animation 2
      Center Text 400,580,"You Clicked On Button 2!"
    Else
      UnfilledBox(245,262,566,318,RGB(255,0,0)): Rem Highlight Button
    Endif
  Endif
  Rem Third Button
  If Mx > 245 and My > 338 And Mx < 566 And My < 394
    If Mc=1
      Rem Add here, whatever code you want to be executed when you click button 3
      Center Text 400,580,"You Clicked On Button 3!"
    Else
      UnfilledBox(245,338,566,394,RGB(255,0,0)): Rem Highlight Button
    Endif
  Endif
  Rem Fourth Button
  If Mx > 245 and My > 414 And Mx < 566 And My < 470
    If Mc=1
      Rem Add here, whatever code you want to be executed when you click button 4
      Center Text 400,580,"You Clicked On Button 4!"
    Else
      UnfilledBox(245,414,566,470,RGB(255,0,0)): Rem Highlight Button
    Endif
  Endif
  Rem Fifth Button
  If Mx > 245 and My > 490 And Mx < 566 And My < 546
    If Mc=1
      Rem Add here, whatever code you want to be executed when you click button 5
      Center Text 400,580,"You Clicked On Button 5!"
      End
    Else
      UnfilledBox(245,490,566,546,RGB(255,0,0)): Rem Highlight Button
    Endif
  Endif
Return

Function UnfilledBox(X1,Y1,X2,Y2,Colour)
  Paste Image 1,0,0: Rem Restore Background Screen
  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
wait key

new_game:
cls
get image 1,0,0,20,20 : make matrix 1,4000,4000,30,30 : prepare matrix texture 1,1,2,2:randomize matrix 1,50:update matrix 1
load object "Playeregg1.x",1:SCALE OBJECT 1, 1000,1000,1000:load object "car1.x",2:SCALE OBJECT 2, 40000,40000,40000:load object "thebigmap.dbo",3:Load object "house1.x",4:Scale object 4,1000,1000,1000
d#=250.0 : s#=10.0
DO : if spacekey()=1 then move object 1,5
if controlkey()=1 then move object 1,4
if shiftkey()=1 then move object 1,3
if upkey()=1 then move object 1,2
if downkey()=1 then move object 1,-1
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-1) : walk=1
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+1)
x#=object position x(1):z#=object position z(1):a#=object angle y(1)
x = x# : z = z#:y# = get ground height(1,x,z) + object size y(1)/2:h# = y# + 20
position object 1,x#,y#,z# :set camera to follow x#,y#,z#,a#,d#,h#,s#,1:position object 4,x1,y1,z1
Text 10,10,"Usuall arrow keys to move, space ctrl and shift to speed up":sync:Text 10,25,"ty for bothering to download =D":sync:Text 10,50,"PS. sorry for the flickering writing i dont know how to stop it =(":sync
Text 10,75,"Leave your snowed in house and explore your surroundings ;)":sync:Text 10,100,"PS, if any1 can make my guy walk on the snow please say how =D":sync
sync:loop

sync on:sync rate 200
Set Display Mode 800,600,32

Do
     load animation "movie3.avi", 1
     Play animation 1
     sync
     if upkey()=1 then goto menu
Loop

Menu:
cls

if upkey()=1 then goto menu

Set Display Mode 800,600,32
sync on: sync rate 60
GOSUB menu

Rem Main Game Loop
Do
  Rem Call Game Gosubs Here
  If GameEnded = 1 then GOSUB Menu
  sync
Loop
End

Menu:
  load animation "movie3.avi", 1
  Play animation 1
  cls
  Rem Sit in following loop until game started
  Repeat
    Rem Do Stuff Here
  Until User Clicks On Start Game Button
Return

Set Display Mode 800,600,32
sync on: sync rate 60
GOSUB menu

Rem Main Game Loop
Do
  Rem Call Game Gosubs Here
  If GameEnded = 1 then GOSUB Menu
  sync
Loop
End

Menu:
  load animation "movie3.avi", 1
  Play animation 1
  cls
  Rem Sit in following loop until game started
  Repeat
    Rem Do Stuff Here
  Until User Clicks On Start Game Button
Return