Sorry your browser is not supported!

REM *** START SYSTEM SETUP SECTION

autocam on
sync off
REM *** STOP SYSTEM SETUP SECTION
REM *****************************************
load image "E:\new edutainment project\images\arrow key.bmp",2
load image "E:\new edutainment project\images\edutainement loading screen.bmp",3
REM *****************************************
REM Title Screen
Load Bitmap "E:\new edutainment project\images\edutainement loading screen.bmp",3
REM *** START INTRO SECTION
REM *** INTRO SECTION HEADER
make object cube 65,10
texture object 65,2
position object 65,-210,100,300
make mesh from object 1,65
add limb 65,1,1
scale limb 65,1,100,1000,0
show limb 65,1
offset limb 65,1,0,20,0
make object from limb 1000,65,1,1
position object 1000,-210,100,300
remove limb 65,1
hide object 1000
for t=21 to 24
make object cube t,20
position object t,-310+(t-20)*100,-50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
for t=17 to 20
make object cube t,20
position object t,-310+(t-16)*100,50,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
for t=12 to 16
make object cube t,20
position object t,-360+(t-11)*100,-100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
for t=7 to 11
make object cube t,20
position object t,-360+(t-6)*100,0,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
for t=2 to 6
make object cube t,20
position object t,-360+(t-1)*100,100,300
make mesh from object 1,t
add limb t,1,1
scale limb t,1,100,100,100
next t
make object box 45,445,220,0
position object 45,-60,0,311
color object 45,rgb(0,200,0)
make object box 46,445,800,0
position object 46,-60,110,400
rotate object 46,90,0,0
color object 46,rgb(0,200,0)
make object box 47,445,220,0
position object 47,-60,0,-300
color object 47,rgb(0,200,0)
MainSection:

cls 0 : backdrop on

make object cube 1,30
position object 1,-60,-100,-100
color object 1,rgb(0,255,0)
do
   P1X# = object position X(1)
   P1Y# = object position Y(1)
   P1Z# = object position Z(1)
   A1X = object angle X(1)
   A1Y = object angle Y(1)
   A1Z = object angle Z(1)
   cpX# = camera position X()
   cpY# = camera position Y()
   cpZ# = camera position Z()
   caX# = camera angle X()
   caY# = camera angle Y()
   caZ# = camera angle Z()
   cpZ# = Newzvalue(P1Z#,A1Y-180,200)
   cpX# = Newxvalue(P1X#,A1Y-180,200)
   Position camera cpX#,P1Y#+65,cpZ#
   Point camera P1X#,P1Y#+35,P1Z#
   if Upkey()=1 then move object 1,10
   if downkey()=1 then move object 1,-10
   if Leftkey()=1 then A1Y = wrapvalue(A1Y-5)
   if Rightkey()=1 then A1Y = wrapvalue(A1Y+5)
   If SHiftkey()=1 then move object up 1,10
   If controlkey()=1 then move object up 1,-10
   if Inkey$()="q"
      delete object 1 : backdrop off : gosub EndSection
   endif
   A1Z65 = object angle Z(65)
   A1Z1000 = object angle Z(1000)
   set cursor 0,0
   print "abcdefghijklmnop: ",A1Z65
   if inkey$()="y"
   zrotate object 65,A1Z65+90
   zrotate object 1000,A1Z1000+90
   wait 100
   ENDIF
   yrotate object 1,A1Y
   for t= 2 to 24
   if object collision (1000,t)
   color object t,rgb(255,0,0)
   else
   color object t,rgb(255,255,255)
   endif
   next t

loop
EndSection:
cls 0
ink rgb(255,255,255),0 : set text font "times" : set text size 20 : set text to bold : set text transparent
center text 400,540,"PLAY AGAIN [y/n]?"
sync
do
   if Inkey$()="y" then gosub MainSection
   if Inkey$()="n"
      cls : end
   endif
   Sync
loop


REM *** STOP END SECTION
REM *******

hide mouse `Hide the mouse - this technique replaces it with a sprite, so it'd only get in the way...
`Load your images
load image "yourbuttonimage.png", 1
load image "cursorimage.png", 2
`Turn them into sprites
sprite 1, 200, 200, 1
sprite 2, 0, 0, 2
colour backdrop 0 `Colours the background black, otherwise it goes all blue

mainmenu() `Call the main menu function

do
print "This is one hell of a game :D"
loop
end

function mainmenu()
cls `Clear the screen
show sprite 1 `We need the button and cursor sprite visible for the menu!
show sprite 2
do
sprite 1, 200, 200, 1
sprite 2, mousex(), mousey(), 2 `Positions the cursor sprite where the mouse is
if sprite collision(1, 2) = 1 and mouseclick() = 1 `If the button sprite and the cursor sprite are touching and the user is clicking
while mouseclick() = 1 `Traps the program in a loop until the user lets to of the mouse button
endwhile
exit `Jumps the program out of the main menu loop
endif
loop
`This is where the program ends up after the user has clicked the button
`We don't need the button/cursor sprites anymore, so hide them
hide sprite 1
hide sprite 2
endfunction