ar game, AR, VR,REALITY,GAMES,GAME,ANDROID,APPLE,AKG,APP GAME KIT,TGC

Author

Message

Anthony Brian Cox

7

Years of Service

User Offline

Joined: 29th Dec 2016

Location:

Posted: 27th Apr 2019 09:24 Edited at: 27th Apr 2019 12:40

Link

UN FINISHED WORK WORK IN PROGRESS MITE BE OK IF YOU INTERESTED IN MAKING AN AR GAME FOR ANDROID,APPLE
MOD EDIT

// set window properties
SetWindowTitle( "AR kpac" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetScissor(0,0,0,0)
SetClearColor( 101,120,154 )
SetGenerateMipmaps( 1 )
UseNewDefaultFonts(1)
SetPrintSize(40)

permission$ = "WriteExternal"
if ( CheckPermission( permission$ ) <= 0 )
RequestPermission( permission$ )
while( CheckPermission( permission$ ) = 1 )
Sync()
endwhile
endif

permission$ = "Camera"

if ( CheckPermission( permission$ ) <= 0 )
RequestPermission( permission$ )
while( CheckPermission( permission$ ) = 1 )
Sync()
endwhile
endif

// camera range from 0.1 meters to 40 meters
SetCameraRange( 1, 0.1, 100 )
SetAmbientColor( 128,128,128 )
SetSunColor( 255,255,255 )

global test
dim bricks[1000]
dim x_pos[1000] as float
dim y_pos[1000] as float 
dim z_pos[1000] as float
dim drones[1000]
dim drone_time[1000]
dim drone_move[1000]
dim drone_turn[100,100]
dim drone_maker[100,100]
dim drone_test_under[1000]
dim rings[1000] 
dim drone_skin[1000]

global music
global me
global keep
global brick
global pivot
global test_front
global test_under
global jump
global Move
global move_time#
global arrow
global rings_amount
global drone_amount
global pick_up
move_time#=0
global ball
global dropping=0

for i = 101 to 150
CreateObjectPlane( i, 1,1 )
SetObjectCollisionMode(i,0)
SetObjectRotation( i, 90,0,0 )
FixObjectPivot( i )
SetObjectVisible( i, 0 )
SetObjectColor( i, 255,255,255,128 ) // 50% transparent
SetObjectTransparency( i, 1 )
next i

AddVirtualButton(90,100,300,200)
AddVirtualButton(91,300,300,200)
AddVirtualButton(92,100,500,200)
AddVirtualButton(93,300,500,200)
AddVirtualButton(94,100,100,200)
AddVirtualButton(95,300,100,200)
AddVirtualButton(96,100,700,200)
AddVirtualButton(97,300,700,200)
AddVirtualButton(98,1024-200,500,200)
AddVirtualButton(99,1024-200,700,200)
setVirtualButtontext(90,"rotate x+")
setVirtualButtontext(91,"rotate x-")
setVirtualButtontext(92,"rotate z+")
setVirtualButtontext(93,"rotate z-")
setVirtualButtontext(94,"rotate y+")
setVirtualButtontext(95,"rotate y-")
setVirtualButtontext(96,"turn left")
setVirtualButtontext(97,"turn right")
setVirtualButtontext(98,"jump")
setVirtualButtontext(99,"move")

SetCameraRotation(1,0,0,0)
setcameraposition(1,0,1,-4)

AddVirtualButton( 1, 100,465,200 )
AddVirtualButton( 2, 100,665,200 )
SetVirtualButtonText( 1, "level +" )
SetVirtualButtonText( 2, "level -" )
AddVirtualButton( 4, 924,665,200 )
SetVirtualButtonText( 4, "Hide" )
AddVirtualButton( 5, 305,465,200 )
AddVirtualButton( 6, 305,665,200 )
SetVirtualButtonText( 5, "Light +" )
SetVirtualButtonText( 6, "Light -" )
AddVirtualButton( 9, 300,70,200 )
SetVirtualButtonText( 9, "zoom -" )
AddVirtualButton( 10, 100,70,200 )
SetVirtualButtonText( 10, "zoom +" )
AddVirtualButton( 11, 1024/2,10,200 )
SetVirtualButtonText( 11, "menu" )

function ShowHUD( show as integer,show2 as integer )
SetVirtualButtonVisible( 1, show )
SetVirtualButtonVisible( 2, show )
SetVirtualButtonVisible( 4, show )
SetVirtualButtonVisible( 5, show )
SetVirtualButtonVisible( 6, show )
SetVirtualButtonVisible( 9, show )
SetVirtualButtonVisible( 10, show )
SetVirtualButtonVisible( 11, show2 )
SetVirtualButtonVisible( 90, show2 )
SetVirtualButtonVisible( 91, show2 )
SetVirtualButtonVisible( 92, show2 )
SetVirtualButtonVisible( 93, show2 )
SetVirtualButtonVisible( 94, show2 )
SetVirtualButtonVisible( 95, show2 )
SetVirtualButtonVisible( 96, show2 )
SetVirtualButtonVisible( 97, show2 )
SetVirtualButtonVisible( 98, show2 )
SetVirtualButtonVisible( 99, show2 )

SetVirtualButtonActive( 1, show )
SetVirtualButtonActive( 2, show )
SetVirtualButtonActive( 4, show )
SetVirtualButtonActive( 5, show )
SetVirtualButtonActive( 6, show )
SetVirtualButtonActive( 9, show )
SetVirtualButtonActive( 10, show )
SetVirtualButtonActive( 11, show2 )

SetVirtualButtonActive( 90, show2 )
SetVirtualButtonActive( 91, show2 )
SetVirtualButtonActive( 92, show2 )
SetVirtualButtonActive( 93, show2 )
SetVirtualButtonActive( 94, show2 )
SetVirtualButtonActive( 95, show2 )
SetVirtualButtonActive( 96, show2 )
SetVirtualButtonActive( 97, show2 )
SetVirtualButtonActive( 98, show2 )
SetVirtualButtonActive( 99, show2 )

endfunction

// initialize AR, if possible
ARSetup()
while( ARGetStatus() = 1 )
// wait while user is being prompted to install ARCore
Sync()
endwhile

AnchorID as integer = 0
ShowPlanes as integer = 1
ambientScale# = 1.0

ShowHUD( 1,0 )

SetCameraRotation(1,0,0,0)
setcameraposition(1,0,0.3,-2)
global lev=1
global play_game=0
level1()
global object_hit11

do
// get light estimation
ambient = ARGetLightEstimate() * 255 * ambientScale#
SetAmbientColor( ambient,ambient,ambient )
if ( GetPointerReleased() and ShowPlanes = 1 )

numHits = ARHitTest( GetPointerX(), GetPointerY() )
if ( numHits > 0 )
if ( AnchorID > 0 ) then ARDeleteAnchor( AnchorID )
AnchorID = ARCreateAnchorFromHitTest( 1 )

keep=AnchorID
ARFixObjectToAnchor( pivot, AnchorID)

else
// if the user didn't tap on any planes then hide the object

endif
// clean up some internal resources
ARHitTestFinish()
endif

// place the buttons at the edge of the screen
// needs to be done regularly in case orientation changes
SetVirtualButtonPosition( 1, GetScreenBoundsLeft()+105, GetScreenBoundsBottom()-310 )
SetVirtualButtonPosition( 2, GetScreenBoundsLeft()+105, GetScreenBoundsBottom()-105 )
SetVirtualButtonPosition( 4, GetScreenBoundsRight()-105, GetScreenBoundsBottom()-105 )
SetVirtualButtonPosition( 5, GetScreenBoundsLeft()+310, GetScreenBoundsBottom()-310 )
SetVirtualButtonPosition( 6, GetScreenBoundsLeft()+310, GetScreenBoundsBottom()-105 )

// detect button presses if they are visible
if ( ShowPlanes = 1 )
if ( GetVirtualButtonPressed(1) )
if lev<10 
for t=1 to 1000
if GetObjectExists(bricks[t]):deleteobject(bricks[t]) : endif
if GetObjectExists( rings[t] )=1:deleteobject( rings[t] ) : endif
if GetObjectExists( drones[t])=1:deleteobject( drones[t]) : endif

if GetObjectExists( drone_test_under[t])=1:deleteobject( drone_test_under[t]) : endif
x_pos[t] =0
y_pos[t] =0 
z_pos[t] =0
drone_time[t]=0
drone_move[t]=0

if GetObjectExists(me)=1:deleteobject(me):endif
if GetObjectExists( pivot)=1:deleteobject(pivot):endif
if GetObjectExists( test_front)=1:deleteobject(test_front):endif
if GetObjectExists( test_under)=1:deleteobject(test_under):endif
if GetObjectExists( ball)=1:deleteobject(ball):endif
if GetObjectExists( arrow)=1:deleteobject(arrow):endif

win=0
brick=0
jump=0
Move=0
move_time#=0
lev=lev+1
IF lev=11 then lev=1
select lev
case 1:level1():endcase
case 2:level2():endcase
case 3:level3():endcase
case 4:level4():endcase
case 5:level5():endcase
case 6:level6():endcase
case 7:level7():endcase 
case 8:level8():endcase
case 9:level9():endcase
case 10:level10():endcase 
endselect

ARFixObjectToAnchor( pivot, keep)
endif

endif

if ( GetVirtualButtonPressed(2) )
if lev>1
for t=1 to 1000
if GetObjectExists(bricks[t]):deleteobject(bricks[t]) : endif
if GetObjectExists( rings[t] )=1:deleteobject( rings[t] ) : endif
if GetObjectExists( drones[t])=1:deleteobject( drones[t]) : endif

if GetObjectExists( drone_test_under[t])=1:deleteobject( drone_test_under[t]) : endif
x_pos[t] =0
y_pos[t] =0 
z_pos[t] =0
drone_time[t]=0
drone_move[t]=0

next
next

if GetObjectExists(me)=1:deleteobject(me):endif
if GetObjectExists( pivot)=1:deleteobject(pivot):endif
if GetObjectExists( test_front)=1:deleteobject(test_front):endif
if GetObjectExists( test_under)=1:deleteobject(test_under):endif
if GetObjectExists( ball)=1:deleteobject(ball):endif
if GetObjectExists( arrow)=1:deleteobject(arrow):endif
brick=0
jump=0
Move=0
move_time#=0
lev=lev-1
win=0
select lev
case 1:level1():endcase
case 2:level2():endcase
case 3:level3():endcase
case 4:level4():endcase
case 5:level5():endcase
case 6:level6():endcase
case 7:level7():endcase 
case 8:level8():endcase
case 9:level9():endcase
case 10:level10():endcase 
endselect

ARFixObjectToAnchor( pivot, keep)

endif

endif
if ( GetVirtualButtonPressed(9) )
MoveObjectLocalZ(pivot,-0.08)
endif

if ( GetVirtualButtonPressed(10) )
MoveObjectLocalZ(pivot,0.08)
endif

if ( GetVirtualButtonReleased(4)=1 and play_game=0)
ShowPlanes = 1 - ShowPlanes
ShowHUD( 0,1 )
play_game=1
endif
if ( GetVirtualButtonPressed(5) )
inc ambientScale#, 0.1
endif
if ( GetVirtualButtonPressed(6) )
dec ambientScale#, 0.1
endif
else

if ( GetVirtualButtonReleased(11)=1 and play_game=1 )
ShowPlanes = 1 - ShowPlanes
ShowHUD( 1,0 )
play_game=0
endif
endif

for i = 101 to 150
SetObjectVisible( i, 0 )
next i

// show detected planes
if ( ShowPlanes )
numPlanes = ARGetPlanes(0)
// this demo stops at 50 planes, but there is no internal limit
if numPlanes > 50 then numPlanes = 50
for i = 1 to numPlanes
SetObjectPosition( i+100, ARGetPlaneX(i), ARGetPlaneY(i), ARGetPlaneZ(i) )
SetObjectRotation( i+100, ARGetPlaneAngleX(i), ARGetPlaneAngleY(i), ARGetPlaneAngleZ(i) )
SetObjectScale( i+100, ARGetPlaneSizeX(i), 1, ARGetPlaneSizeZ(i) )

SetObjectVisible( i+100, 1 )
next i
ARGetPlanesFinish()
endif

////*********************************************************************************************************************************************************
////*********************************************************************************************************************************************************
////*********************************************************************************************************************************************************
////*********************************************************************************************************************************************************
////*********************************************************************************************************************************************************
////*********************************************************************************************************************************************************
////*********************************************************************************************************************************************************
////*********************************************************************************************************************************************************
////*********************************************************************************************************************************************************

ARDrawBackground()

if play_game=1

game_on()
endif

Sync()
loop

function game_on()

if GetVirtualButtonState(98)=1 and move_time#=0 and move=0
move_time#=10
jump=1
endif

if jump=0

if move=0 and GetVirtualButtonState(99)=1 and move_time#=0
move=1
move_time#=10
endif

if move_time#>0 and move=1
move_time#=move_time#-1
MoveObjectLocalZ(me,0.008)
RotateObjectLocalX(ball,9)

if move_time#=0
move=0
endif
endif

if move=0 and GetVirtualButtonState(97)=1 and move_time#=0
move_time#=10
move=10
endif

if move=0 and GetVirtualButtonState(96)=1 and move_time#=0
move_time#=10
move=11
endif

if (move=10)
move_time#=move_time#-1
if move_time#=0:move=0:endif
RotateObjectLocalY(me,9)
endif

if (move=11)
move_time#=move_time#-1
if move_time#=0:move=0:endif
RotateObjectLocalY(me,-9)
endif

if (move=5)
move_time#=move_time#-1
if move_time#=0
move=6
move_time#=10
endif

RotateObjectLocalx(me,9)
endif

if (move=6)
move_time#=move_time#-1
if move_time#=0
move=0
endif
MoveObjectLocalZ(me,0.008)
endif

if move=0
x#=GetObjectWorldX(me)
y#=GetObjectWorldy(me)
z#=GetObjectWorldz(me)

x1#=GetObjectWorldX(test_under)
y1#=GetObjectWorldy(test_under)
z1#=GetObjectWorldz(test_under)

object_hit1=ObjectRayCast(0,x#,y#,z#,x1#,y1#,z1#)

hit_front=0
hit_under=0

for t=1 to brick
if object_hit1=bricks[t] then hit_under=t
next

if hit_front>0 and move_time#=0 and move=0
RotateobjectLocalX(me,-90)
endif

if hit_under=0 and move_time#=0 and move=0

move_time#=10
move=5
endif
endif

x2#=GetObjectWorldX(test_front)
y2#=GetObjectWorldy(test_front)
z2#=GetObjectWorldz(test_front)
object_hit2=ObjectRayCast(0,x#,y#,z#,x2#,y2#,z2#)

for t=1 to brick
if object_hit2=bricks[t] then hit_front=t
next

if hit_front>0 and move_time#=0 and move=0 
RotateobjectLocalX(me,-90)
endif

endif

for p=1 to rings_amount

if GetObjectExists(rings[p])=1

x#=GetObjectWorldX(me)
y#=GetObjectWorldy(me)
z#=GetObjectWorldz(me)

x1#=GetObjectWorldX(rings[p])
y1#=GetObjectWorldy(rings[p])
z1#=GetObjectWorldz(rings[p])

if x#>x1#-0.04 and x#<x1#+0.04
if y#>y1#-0.04 and y#<y1#+0.04
if z#>z1#-0.04 and z#<z1#+0.04

if GetObjectVisible(rings[p])=1

setObjectVisible(rings[p],0)
pick_up=pick_up+1
endif

endif
endif
endif

RotateObjectLocalY(rings[p],1)
endif

if GetVirtualButtonState(90)=1 :RotateObjectLocalx(pivot,1):endif
if GetVirtualButtonState(91)=1 :RotateObjectLocalx(pivot,-1):endif
if GetVirtualButtonState(92)=1 :RotateObjectLocalz(pivot,1):endif
if GetVirtualButtonState(93)=1 :RotateObjectLocalz(pivot,-1):endif
if GetVirtualButtonState(94)=1 :RotateObjectLocaly(pivot,1):endif
if GetVirtualButtonState(95)=1 :RotateObjectLocaly(pivot,-1):endif

if jump=1
Jump1()
endif
if jump=2
drop()
endif

print (hit_under)
print (hit_front)
print (brick)
print(pick_up)

if pick_up=rings_amount

if hit_under =101 and lev=1 :win=1: endif
if hit_under =77 and lev=2 :win=1: endif
if hit_under =97 and lev=3 :win=1: endif
if hit_under =149 and lev=4 :win=1: endif
if hit_under =101 and lev=5 :win=1: endif 
if hit_under =101 and lev=6 :win=1: endif 
if hit_under =95 and lev=7 :win=1: endif 
if hit_under =146 and lev=8 :win=1: endif
if hit_under =135 and lev=9 :win=1: endif
if hit_under =185 and lev=10 :win=1: endif 
endif

if win=1

if lev<10
for t=1 to 1000
if GetObjectExists(bricks[t]):deleteobject(bricks[t]) : endif
if GetObjectExists( rings[t] )=1:deleteobject( rings[t] ) : endif
if GetObjectExists( drones[t])=1:deleteobject( drones[t]) : endif

if GetObjectExists( drone_test_under[t])=1:deleteobject( drone_test_under[t]) : endif
x_pos[t] =0
y_pos[t] =0 
z_pos[t] =0
drone_time[t]=0
drone_move[t]=0

if GetObjectExists(me)=1:deleteobject(me):endif
if GetObjectExists( pivot)=1:deleteobject(pivot):endif
if GetObjectExists( test_front)=1:deleteobject(test_front):endif
if GetObjectExists( test_under)=1:deleteobject(test_under):endif
if GetObjectExists( ball)=1:deleteobject(ball):endif
if GetObjectExists( arrow)=1:deleteobject(arrow):endif

win=0
brick=0
jump=0
Move=0
move_time#=0
lev=lev+1
select lev
case 1:level1():endcase
case 2:level2():endcase
case 3:level3():endcase
case 4:level4():endcase
case 5:level5():endcase
case 6:level6():endcase
case 7:level7():endcase 
case 8:level8():endcase
case 9:level9():endcase
case 10:level10():endcase 
endselect

ARFixObjectToAnchor( pivot, keep)

endif

endfunction

function move_drones()
for q=1 to drone_amount

if GetObjectExists(drones[q])=1
MoveObjectLocalZ(drones[q],0.008)
RotateObjectLocalX(drone_skin[q],9)
x#=GetObjectWorldX(me)
y#=GetObjectWorldy(me)
z#=GetObjectWorldz(me)
x1#=GetObjectWorldX(drones[q])
y1#=GetObjectWorldy(drones[q])
z1#=GetObjectWorldz(drones[q])
if x#>x1#-0.04 and x#<x1#+0.04
if y#>y1#-0.04 and y#<y1#+0.04
if z#>z1#-0.04 and z#<z1#+0.04 
reset_me()
endif
endif
endif

drone_time[q]=drone_time[q]+1
if drone_time[q]=10
drone_time[q]=0

x#=GetObjectWorldX(drones[q])
y#=GetObjectWorldy(drones[q])
z#=GetObjectWorldz(drones[q])

x1#=GetObjectWorldX(drone_test_under[q])
y1#=GetObjectWorldy(drone_test_under[q])
z1#=GetObjectWorldz(drone_test_under[q])

object_hit11=ObjectRayCast(0,x#,y#,z#,x1#,y1#,z1#)

if object_hit11=bricks[drone_maker[q,drone_move[q]]]

select drone_turn[q,drone_move[q]]
case 1: RotateObjectLocalX(drones[q],-90): drone_move[q]=drone_move[q]+1 : endcase
case 2: RotateObjectLocalY(drones[q],-90): drone_move[q]=drone_move[q]+1 : endcase 
case 3: RotateObjectLocaly(drones[q],90) : drone_move[q]=drone_move[q]+1 : endcase 
case 4: RotateObjectLocalx(drones[Q],90) : drone_move[Q]=drone_move[Q]+1:endcase 
case 5: RotateObjectLocalY(drones[Q ],180) : drone_move[Q]=drone_move[Q]+1:endcase
endselect

if lev=1
if drone_move[1]=7 then drone_move[1]=1
if drone_move[2]=5 then drone_move[2]=1
if drone_move[3]=7 then drone_move[3]=1
endif
if lev=2
if drone_move[1]=5 then drone_move[1]=1
if drone_move[2]=5 then drone_move[2]=1
if drone_move[3]=5 then drone_move[3]=1
endif

if lev=3
if drone_move[1]=5 then drone_move[1]=1
if drone_move[2]=5 then drone_move[2]=1
if drone_move[3]=5 then drone_move[3]=1
if drone_move[4]=5 then drone_move[4]=1
endif
if lev=4
if drone_move[1]=5 then drone_move[1]=1
if drone_move[2]=5 then drone_move[2]=1
if drone_move[3]=5 then drone_move[3]=1
if drone_move[4]=5 then drone_move[4]=1
if drone_move[5]=5 then drone_move[5]=1
endif 
if lev=5
if drone_move[1]=5 then drone_move[1]=1
if drone_move[2]=5 then drone_move[2]=1
if drone_move[3]=5 then drone_move[3]=1
if drone_move[4]=5 then drone_move[4]=1

endif

if lev=6
if drone_move[1]=5 then drone_move[1]=1
if drone_move[2]=5 then drone_move[2]=1
if drone_move[3]=5 then drone_move[3]=1
if drone_move[4]=5 then drone_move[4]=1

endif

if lev=7
if drone_move[1]=7 then drone_move[1]=1
if drone_move[2]=7 then drone_move[2]=1
if drone_move[3]=5 then drone_move[3]=1
endif

if lev=8
if drone_move[1]=5 then drone_move[1]=1
if drone_move[2]=5 then drone_move[2]=1
if drone_move[3]=5 then drone_move[3]=1
if drone_move[4]=5 then drone_move[4]=1
if drone_move[5]=5 then drone_move[5]=1
if drone_move[6]=5 then drone_move[6]=1
endif

if lev=9
if drone_move[1]=5 then drone_move[1]=1
if drone_move[2]=7 then drone_move[2]=1
if drone_move[3]=7 then drone_move[3]=1
if drone_move[4]=5 then drone_move[4]=1

endif

if lev=10
if drone_move[1]=11 then drone_move[1]=1
if drone_move[2]=11 then drone_move[2]=1
if drone_move[3]=11 then drone_move[3]=1
if drone_move[4]=11 then drone_move[4]=1
if drone_move[5]=11 then drone_move[5]=1
if drone_move[6]=11 then drone_move[6]=1
if drone_move[7]=11 then drone_move[7]=1
if drone_move[8]=11 then drone_move[8]=1
endif 
endif

endif
endif
next

endfunction

function Jump1()

move_time#=move_time#-1
if move_time#>0
MoveObjectLocalz(me,0.02)
MoveObjectLocaly(me,0.05)
endif

x#=GetObjectWorldX(me)
y#=GetObjectWorldy(me)
z#=GetObjectWorldz(me)

x1#=GetObjectWorldX(test_front)
y1#=GetObjectWorldy(test_front)
z1#=GetObjectWorldz(test_front)

object_hit2=ObjectRayCast(0,x#,y#,z#,x1#,y1#,z1#)
if object_hit2<>0:MoveObjectLocalz(me,-0.02):endif

if move_time#=0 
jump=2
move_time#=10
endif
endfunction

function reset_me()
FixObjectToObject(me,0)
setobjectposition(me,0,0,0)
setobjectrotation(me,0,0,0)

select lev
case 1
FixObjectToObject(me,bricks[99])
MoveObjectLocalY(me,0.08)
endcase

case 2
FixObjectToObject(me,bricks[75])
MoveObjectLocalY(me,0.08)
endcase

case 3
FixObjectToObject(me,bricks[102])
MoveObjectLocalY(me,0.08)
endcase

case 4
FixObjectToObject(me,bricks[145])
MoveObjectLocalY(me,0.08)
endcase

case 5
FixObjectToObject(me,bricks[97])
MoveObjectLocalY(me,0.08)
endcase

case 6
FixObjectToObject(me,bricks[97])
MoveObjectLocalY(me,0.08)
endcase

case 7
FixObjectToObject(me,bricks[93])
MoveObjectLocalY(me,0.08)
RotateObjectLocalY(me,180)
endcase
case 8
FixObjectToObject(me,bricks[148])
MoveObjectLocalY(me,0.08)
RotateObjectLocalY(me,180)
endcase

endselect

dropping=0
jump=0
move_time#=0
move=0
endfunction

function drop()

MoveObjectLocaly(me,-0.04)
dropping=dropping+1
if dropping=100
reset_me()
endif

for t=1 to brick
if jump>0
x#=GetObjectWorldX(test_under)
y#=GetObjectWorldy(test_under)
z#=GetObjectWorldz(test_under)
x1#=GetObjectWorldX(bricks[t])
y1#=GetObjectWorldy(bricks[t])
z1#=GetObjectWorldz(bricks[t])

if x#>x1#-0.04 and x#<x1#+0.04
if y#>y1#-0.04 and y#<y1#+0.04
if z#>z1#-0.04 and z#<z1#+0.04 
FixObjectToObject(me,0)
setobjectposition(me,0,0,0)
FixObjectToObject(me,bricks[t])
MoveObjectLocalY(me,0.08)
jump=0
move_time#=0
move=0
dropping=0
endif
endif
endif
endif
next

endfunction

function level1()

if GetMusicExists(music)eleteMusic(music):endif
music=LoadMusic("\media\music\music1.mp3")

pick_up=0
texture_1=LoadImage("\media\textures\lev1.jpg") /// bricks
texture_2=LoadImage("\media\textures\tex2.png") /// my balll
texture_4=LoadImage("\media\textures\tex3.png") // bad guy

brick=0

opentoread(1,"\media\data\Level1.data")
repeat
brick=brick+1
get1=ReadInteger(1)
get2=ReadInteger(1)
get3=ReadInteger(1)

bricks[brick]=CreateObjectBox(0.08,0.08,0.08)
setobjectposition(bricks[brick],0.08*GET1/10,0.08*GET2/10,0.08*GET3/10)
setObjectImage(bricks[brick],texture_1,0)
x_pos[BRICK]=GET1
y_pos[BRICK]=GET2
z_pos[BRICK]=GET3

until FileEOF(1)
CloseFile(1)

pivot=createobjectsphere(0.001,32,32) 
SetObjectCollisionMode(pivot,0)
for t=1 to brick
FixObjectToObject(bricks[t],pivot)
MoveObjectLocalX(bricks[t],-0.08*3)
MoveObjectLocalz(bricks[t],-0.08*14)
MoveObjectLocaly(bricks[t],-0.08*4)
next

me=createobjectsphere(0.01,32,32)
FixObjectToObject(me,bricks[99])
MoveObjectLocalY(me,0.08)

test_front=createobjectbox(0.08,0.08,0.08)
test_under=createobjectbox(0.08,0.08,0.08)
FixObjectToObject(test_front,me)
FixObjectToObject(test_under,me)
MoveObjectLocalY(test_under,-0.08)
MoveObjectLocalz(test_front,0.08)
SetObjectCollisionMode(test_front,0)
SetObjectCollisionMode(test_under,0)
SetObjectCollisionMode(me,0)
SetObjectVisible(test_front,0)
SetObjectVisible(test_under,0)

loadimage(200,"\media\textures\ball.png")
loadimage(201,"\media\textures\Arrow.png")
arrow=CreateObjectplane(0.1,0.2)
RotateObjectGlobalX(arrow,90)
FixObjectToObject(arrow,me)
FixObjectPivot(arrow)
SetObjectCollisionMode(arrow,0)
setobjectimage(arrow,201,0)
MoveObjectLocalY(arrow,0.08)
SetObjectAlphaMask(arrow,1)

ball=CreateObjectSphere(0.1,32,32)
FixObjectToObject(ball,me)
SetObjectCollisionMode(ball,0)
setobjectimage(ball,200,0)

rings[1]=loadobject("\media\models\ring.obj")
setobjectscale(rings[1],0.04,0.04,0.04)
FixObjectToObject(rings[1],bricks[1])
MoveObjectLocalY(rings[1],0.08)
SetObjectCollisionMode(rings[1],0)

rings[2]=loadobject("\media\models\ring.obj")
setobjectscale(rings[2],0.04,0.04,0.04)
FixObjectToObject(rings[2],bricks[31])
MoveObjectLocalY(rings[2],0.08)
SetObjectCollisionMode(rings[2],0)

rings[3]=loadobject("\media\models\ring.obj")
setobjectscale(rings[3],0.04,0.04,0.04)
FixObjectToObject(rings[3],bricks[13])
MoveObjectLocalY(rings[3],0.08)
SetObjectCollisionMode(rings[3],0)

rings[4]=loadobject("\media\models\ring.obj")
setobjectscale(rings[4],0.04,0.04,0.04)
FixObjectToObject(rings[4],bricks[19])
MoveObjectLocalY(rings[4],0.08)
SetObjectCollisionMode(rings[4],0)

rings[5]=loadobject("\media\models\ring.obj")
setobjectscale(rings[5],0.04,0.04,0.04)
FixObjectToObject(rings[5],bricks[37])
MoveObjectLocalY(rings[5],0.08)
SetObjectCollisionMode(rings[5],0)

rings[6]=loadobject("\media\models\ring.obj")
setobjectscale(rings[6],0.04,0.04,0.04)
FixObjectToObject(rings[6],bricks[43])
MoveObjectLocalY(rings[6],0.08)
SetObjectCollisionMode(rings[6],0)

rings[7]=loadobject("\media\models\ring.obj")
setobjectscale(rings[7],0.04,0.04,0.04)
FixObjectToObject(rings[7],bricks[54])
MoveObjectLocalY(rings[7],0.08)
SetObjectCollisionMode(rings[7],0)

rings[8]=loadobject("\media\models\ring.obj")
setobjectscale(rings[8],0.04,0.04,0.04)
FixObjectToObject(rings[8],bricks[49])
MoveObjectLocalY(rings[8],0.08)
SetObjectCollisionMode(rings[8],0)

rings[9]=loadobject("\media\models\ring.obj")
setobjectscale(rings[9],0.04,0.04,0.04)
FixObjectToObject(rings[9],bricks[79])
MoveObjectLocalY(rings[9],0.08)
SetObjectCollisionMode(rings[9],0)

rings[10]=loadobject("\media\models\ring.obj")
setobjectscale(rings[10],0.04,0.04,0.04)
FixObjectToObject(rings[10],bricks[67])
MoveObjectLocalY(rings[10],0.08)
SetObjectCollisionMode(rings[10],0)

rings[11]=loadobject("\media\models\ring.obj")
setobjectscale(rings[11],0.04,0.04,0.04)
FixObjectToObject(rings[11],bricks[85])
MoveObjectLocalY(rings[11],0.08)
SetObjectCollisionMode(rings[11],0)

rings[12]=loadobject("\media\models\ring.obj")
setobjectscale(rings[12],0.04,0.04,0.04)
FixObjectToObject(rings[12],bricks[61])
MoveObjectLocalY(rings[12],0.08)
SetObjectCollisionMode(rings[12],0)
rings_amount=12

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
drones[1]=createobjectsphere(0.01,32,32)
FixObjectToObject(drones[1],bricks[31])
MoveObjectLocalY(drones[1],0.08)

drone_test_under[1]=createobjectbox(0.08,0.08,0.08)

FixObjectToObject(drone_test_under[1],drones[1])
MoveObjectLocalY(drone_test_under[1],-0.08)
SetObjectCollisionMode(drone_test_under[1],0)
SetObjectCollisionMode(drones[1],0)
SetObjectVisible(drone_test_under[1],0)

drone_time[1]=0

drone_move[1]=1
drone_turn[1,1]=1//rotatex -90
drone_turn[1,2]=2//rotatey -90
drone_turn[1,3]=2//rotatey -90
drone_turn[1,4]=1//rotatex -90
drone_turn[1,5]=2
drone_turn[1,6]=2

drone_maker[1,1]=26
drone_maker[1,2]=19 
drone_maker[1,3]=13
drone_maker[1,4]=8
drone_maker[1,5]=1
drone_maker[1,6]=31

drones[2]=createobjectsphere(0.01,32,32)
FixObjectToObject(drones[2],bricks[55])
MoveObjectLocalY(drones[2],0.08)

drone_test_under[2]=createobjectbox(0.08,0.08,0.08)

FixObjectToObject(drone_test_under[2],drones[2])
MoveObjectLocalY(drone_test_under[2],-0.08)

SetObjectCollisionMode(drone_test_under[2],0)
SetObjectCollisionMode(drones[2],0)
SetObjectVisible(drone_test_under[2],0)

drone_time[2]=0

drone_move[2]=1
//1//rotatex -90
//2//rotatey -90

drone_turn[2,1]=2
drone_turn[2,2]=2
drone_turn[2,3]=2
drone_turn[2,4]=2
drone_turn[2,5]=2

drone_maker[2,1]=49
drone_maker[2,2]=43 
drone_maker[2,3]=37
drone_maker[2,4]=55

drones[3]=createobjectsphere(0.01,32,32)
FixObjectToObject(drones[3],bricks[79])
RotateObjectLocaly(drones[3],180)
MoveObjectLocalY(drones[3],0.08)

drone_test_under[3]=createobjectbox(0.08,0.08,0.08)

FixObjectToObject(drone_test_under[3],drones[3])
MoveObjectLocalY(drone_test_under[3],-0.08)

SetObjectCollisionMode(drone_test_under[3],0)
SetObjectCollisionMode(drones[3],0)
SetObjectVisible(drone_test_under[3],0)

drone_time[3]=0

drone_move[3]=1
//1//rotatex -90
//2//rotatey -90

drone_turn[3,1]=1
drone_turn[3,2]=3
drone_turn[3,3]=3
drone_turn[3,4]=1
drone_turn[3,5]=3
drone_turn[3,6]=3

drone_maker[3,1]=74
drone_maker[3,2]=67 
drone_maker[3,3]=61
drone_maker[3,4]=92
drone_maker[3,5]=85
drone_maker[3,6]=79

drone_amount=3

for t=1 to 100
if GetObjectExists(drone_skin[t])=1:deleteobject(drone_skin[t]):endif
next
loadimage(202,"\media\textures\ball2.png")
for t=1 to 3
SetObjectVisible(drone_test_under[t],0)
drone_skin[t]=createobjectsphere(0.1,32,32)
FixObjectToObject(drone_skin[t],drones[t])
setobjectimage(drone_skin[t],202,0)
SetObjectCollisionMode(drone_skin[t],0)
next

PlayMusic(music,1)
SetObjectVisible(pivot,0)

endfunction

function level2()
if GetMusicExists(music)eleteMusic(music):endif
music=LoadMusic("\media\music\music2.mp3")
pick_up=0

texture_1=LoadImage("\media\textures\tex1.png") /// bricks
texture_2=LoadImage("\media\textures\tex2.png") /// my balll
texture_4=LoadImage("\media\textures\tex3.png") // bad guy

brick=0

opentoread(1,"\media\data\Level2.data")
repeat
brick=brick+1
get1=ReadInteger(1)
get2=ReadInteger(1)
get3=ReadInteger(1)
bricks[brick]=CreateObjectBox(0.08,0.08,0.08)
setobjectposition(bricks[brick],0.08*GET1/10,0.08*GET2/10,0.08*GET3/10)
setObjectImage(bricks[brick],texture_1,0)
x_pos[BRICK]=GET1
y_pos[BRICK]=GET2
z_pos[BRICK]=GET3

until FileEOF(1)
CloseFile(1)

pivot=createobjectsphere(0.001,32,32) 
SetObjectCollisionMode(pivot,0)
for t=1 to brick
FixObjectToObject(bricks[t],pivot)
MoveObjectLocalX(bricks[t],-0.08*3)
MoveObjectLocalz(bricks[t],-0.08*14)
MoveObjectLocaly(bricks[t],-0.08*4)
next

me=createobjectsphere(0.01,32,32)
FixObjectToObject(me,bricks[75])
MoveObjectLocalY(me,0.08)

test_front=createobjectbox(0.08,0.08,0.08)
test_under=createobjectbox(0.08,0.08,0.08)
FixObjectToObject(test_front,me)
FixObjectToObject(test_under,me)
MoveObjectLocalY(test_under,-0.08)

MoveObjectLocalz(test_front,0.08)
SetObjectCollisionMode(test_front,0)
SetObjectCollisionMode(test_under,0)
SetObjectCollisionMode(me,0)
SetObjectVisible(test_front,0)
SetObjectVisible(test_under,0)

loadimage(200,"\media\textures\ball.png")
loadimage(201,"\media\textures\Arrow.png")
arrow=CreateObjectplane(0.1,0.2)
RotateObjectGlobalX(arrow,90)
FixObjectToObject(arrow,me)
FixObjectPivot(arrow)
SetObjectCollisionMode(arrow,0)
setobjectimage(arrow,201,0)
MoveObjectLocalY(arrow,0.08)
SetObjectAlphaMask(arrow,1)

ball=CreateObjectSphere(0.1,32,32)
FixObjectToObject(ball,me)
SetObjectCollisionMode(ball,0)
setobjectimage(ball,200,0)

rings[1]=loadobject("\media\models\ring.obj")
setobjectscale(rings[1],0.04,0.04,0.04)
FixObjectToObject(rings[1],bricks[19])
MoveObjectLocalY(rings[1],0.08)
SetObjectCollisionMode(rings[1],0)

rings[2]=loadobject("\media\models\ring.obj")
setobjectscale(rings[2],0.04,0.04,0.04)
FixObjectToObject(rings[2],bricks[13])
MoveObjectLocalY(rings[2],0.08)
SetObjectCollisionMode(rings[2],0)

rings[3]=loadobject("\media\models\ring.obj")
setobjectscale(rings[3],0.04,0.04,0.04)
FixObjectToObject(rings[3],bricks[7])
MoveObjectLocalY(rings[3],0.08)
SetObjectCollisionMode(rings[3],0)

rings[4]=loadobject("\media\models\ring.obj")
setobjectscale(rings[4],0.04,0.04,0.04)
FixObjectToObject(rings[4],bricks[1])
MoveObjectLocalY(rings[4],0.08)
SetObjectCollisionMode(rings[4],0)

rings[5]=loadobject("\media\models\ring.obj")
setobjectscale(rings[5],0.04,0.04,0.04)
FixObjectToObject(rings[5],bricks[25])
MoveObjectLocalY(rings[5],0.08)
SetObjectCollisionMode(rings[5],0)

rings[6]=loadobject("\media\models\ring.obj")
setobjectscale(rings[6],0.04,0.04,0.04)
FixObjectToObject(rings[6],bricks[31])
MoveObjectLocalY(rings[6],0.08)
SetObjectCollisionMode(rings[6],0)

rings[7]=loadobject("\media\models\ring.obj")
setobjectscale(rings[7],0.04,0.04,0.04)
FixObjectToObject(rings[7],bricks[37])
MoveObjectLocalY(rings[7],0.08)
SetObjectCollisionMode(rings[7],0)

rings[8]=loadobject("\media\models\ring.obj")
setobjectscale(rings[8],0.04,0.04,0.04)
FixObjectToObject(rings[8],bricks[43])
MoveObjectLocalY(rings[8],0.08)
SetObjectCollisionMode(rings[8],0)

rings[9]=loadobject("\media\models\ring.obj")
setobjectscale(rings[9],0.04,0.04,0.04)
FixObjectToObject(rings[9],bricks[67])
MoveObjectLocalY(rings[9],0.08)
SetObjectCollisionMode(rings[9],0)

rings[10]=loadobject("\media\models\ring.obj")
setobjectscale(rings[10],0.04,0.04,0.04)
FixObjectToObject(rings[10],bricks[61])
MoveObjectLocalY(rings[10],0.08)
SetObjectCollisionMode(rings[10],0)

rings[11]=loadobject("\media\models\ring.obj")
setobjectscale(rings[11],0.04,0.04,0.04)
FixObjectToObject(rings[11],bricks[55])
MoveObjectLocalY(rings[11],0.08)
SetObjectCollisionMode(rings[11],0)

rings[12]=loadobject("\media\models\ring.obj")
setobjectscale(rings[12],0.04,0.04,0.04)
FixObjectToObject(rings[12],bricks[49])
MoveObjectLocalY(rings[12],0.08)
SetObjectCollisionMode(rings[12],0)
rings_amount=12
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
drones[1]=createobjectsphere(0.01,32,32)
FixObjectToObject(drones[1],bricks[19])
MoveObjectLocalY(drones[1],0.08)

drone_test_under[1]=createobjectbox(0.08,0.08,0.08)

FixObjectToObject(drone_test_under[1],drones[1])
MoveObjectLocalY(drone_test_under[1],-0.08)

SetObjectCollisionMode(drone_test_under[1],0)
SetObjectCollisionMode(drones[1],0)

drone_time[1]=0

drone_move[1]=1
drone_turn[1,1]=2//rotatex -90
drone_turn[1,2]=2//rotatey -90
drone_turn[1,3]=2//rotatey -90
drone_turn[1,4]=2//rotatex -90

drone_maker[1,1]=13
drone_maker[1,2]=7 
drone_maker[1,3]=1
drone_maker[1,4]=19

drones[2]=createobjectsphere(0.01,32,32)
FixObjectToObject(drones[2],bricks[25])
MoveObjectLocalY(drones[2],0.08)

drone_test_under[2]=createobjectbox(0.08,0.08,0.08)

FixObjectToObject(drone_test_under[2],drones[2])
MoveObjectLocalY(drone_test_under[2],-0.08)

SetObjectCollisionMode(drone_test_under[2],0)
SetObjectCollisionMode(drones[2],0)

drone_time[2]=0

drone_move[2]=1
//1//rotatex -90
//2//rotatey -90

drone_turn[2,1]=3
drone_turn[2,2]=3
drone_turn[2,3]=3
drone_turn[2,4]=3

drone_maker[2,1]=31
drone_maker[2,2]=37 
drone_maker[2,3]=43
drone_maker[2,4]=25

drones[3]=createobjectsphere(0.01,32,32)
FixObjectToObject(drones[3],bricks[67])

MoveObjectLocalY(drones[3],0.08)

drone_test_under[3]=createobjectbox(0.08,0.08,0.08)

FixObjectToObject(drone_test_under[3],drones[3])
MoveObjectLocalY(drone_test_under[3],-0.08)

SetObjectCollisionMode(drone_test_under[3],0)
SetObjectCollisionMode(drones[3],0)

drone_time[3]=0

drone_move[3]=1
//1//rotatex -90
//2//rotatey -90

drone_turn[3,1]=2
drone_turn[3,2]=2
drone_turn[3,3]=2
drone_turn[3,4]=2

drone_maker[3,1]=61
drone_maker[3,2]=55 
drone_maker[3,3]=49
drone_maker[3,4]=67

drone_amount=3

for t=1 to 100
if GetObjectExists(drone_skin[t])=1:deleteobject(drone_skin[t]):endif
next
loadimage(202,"\media\textures\ball2.png")
for t=1 to drone_amount
SetObjectVisible(drone_test_under[t],0)
drone_skin[t]=createobjectsphere(0.1,32,32)
FixObjectToObject(drone_skin[t],drones[t])
setobjectimage(drone_skin[t],202,0)
SetObjectCollisionMode(drone_skin[t],0)
next

PlayMusic(music,1)
SetObjectVisible(pivot,0)
endfunction

function level3()

if GetMusicExists(music)eleteMusic(music):endif
music=LoadMusic("\media\music\music3.mp3")

pick_up=0
texture_1=LoadImage("\media\textures\tex1.png") /// bricks
texture_2=LoadImage("\media\textures\tex2.png") /// my balll
texture_4=LoadImage("\media\textures\tex3.png") // bad guy
brick=0

opentoread(1,"\media\data\Level3.data")
repeat
brick=brick+1
get1=ReadInteger(1)
get2=ReadInteger(1)
get3=ReadInteger(1)
bricks[brick]=CreateObjectBox(0.08,0.08,0.08)
setobjectposition(bricks[brick],0.08*GET1/10,0.08*GET2/10,0.08*GET3/10)
setObjectImage(bricks[brick],texture_1,0)
x_pos[BRICK]=GET1
y_pos[BRICK]=GET2
z_pos[BRICK]=GET3

until FileEOF(1)
CloseFile(1)

pivot=createobjectsphere(0.1,32,32) 
SetObjectCollisionMode(pivot,0)
for t=1 to brick
FixObjectToObject(bricks[t],pivot)
MoveObjectLocalX(bricks[t],-0.08*3)
MoveObjectLocalz(bricks[t],-0.08*4)
MoveObjectLocaly(bricks[t],0.08*7)
next

me=createobjectsphere(0.01,32,32)
FixObjectToObject(me,bricks[102])
MoveObjectLocalY(me,0.08)