TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Games

Version: 1.0

Information

Uploaded: 26th Apr 2019 20:25

Modified: 17th Aug 2019 12:04

Author: Anthony Brian Cox

Summary

AR TEST THIS IS UNFINSIED

Full Description

I COOL IT KPAC AR MAZE GAME PLEASE ENJOY SOON I WILL POST IN GOOGLE THIS IS UNFINISHED WORK BUT HOPE YOU CAN LEARN SOMETHING FROM IT MAYBE

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

// 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

// 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

for t=1 to 100

for q=1 to 100

drone_turn[t,q]=0

drone_maker[t,q]=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

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

for t=1 to 100

for q=1 to 100

drone_turn[t,q]=0

drone_maker[t,q]=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

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

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

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

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

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

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

if hit_front>0 and move_time#=0 and move=0

RotateobjectLocalX(me,-90)

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

RotateObjectLocalY(rings[p],1)

endif

move_drones()

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

for t=1 to 100

for q=1 to 100

drone_turn[t,q]=0

drone_maker[t,q]=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

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

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

endfunction

function level1()

if GetMusicExists(music):DeleteMusic(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)

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

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)

PlayMusic(music,1)

SetObjectVisible(pivot,0)

endfunction

function level2()

if GetMusicExists(music):DeleteMusic(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)

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

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)

PlayMusic(music,1)

SetObjectVisible(pivot,0)

endfunction

function level3()

if GetMusicExists(music):DeleteMusic(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)

me=createobjectsphere(0.01,32,32)

FixObjectToObject(me,bricks[102])

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[13]=loadobject("\media\models\ring.obj")

setobjectscale(rings[13],0.04,0.04,0.04)

FixObjectToObject(rings[13],bricks[73])

MoveObjectLocalY(rings[13],0.08)

SetObjectCollisionMode(rings[13],0)

rings[14]=loadobject("\media\models\ring.obj")

setobjectscale(rings[14],0.04,0.04,0.04)

FixObjectToObject(rings[14],bricks[91])

MoveObjectLocalY(rings[14],0.08)

SetObjectCollisionMode(rings[14],0)

rings[15]=loadobject("\media\models\ring.obj")

setobjectscale(rings[15],0.04,0.04,0.04)

FixObjectToObject(rings[15],bricks[85])

MoveObjectLocalY(rings[15],0.08)

SetObjectCollisionMode(rings[15],0)

rings[16]=loadobject("\media\models\ring.obj")

setobjectscale(rings[16],0.04,0.04,0.04)

FixObjectToObject(rings[16],bricks[79])

MoveObjectLocalY(rings[16],0.08)

SetObjectCollisionMode(rings[16],0)

rings_amount=16

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

drones[1]=createobjectsphere(0.01,32,32)

FixObjectToObject(drones[1],bricks[73])

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]=3//rotatex -90

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

drone_turn[1,3]=3//rotatey -90

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

drone_maker[1,1]=91

drone_maker[1,2]=85

drone_maker[1,3]=79

drone_maker[1,4]=73

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)

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_maker[2,1]=61

drone_maker[2,2]=67

drone_maker[2,3]=49

drone_maker[2,4]=55

drones[3]=createobjectsphere(0.01,32,32)

FixObjectToObject(drones[3],bricks[25])

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]=3

drone_turn[3,2]=3

drone_turn[3,3]=3

drone_turn[3,4]=3

drone_maker[3,1]=43

drone_maker[3,2]=37

drone_maker[3,3]=31

drone_maker[3,4]=25

drones[4]=createobjectsphere(0.01,32,32)

FixObjectToObject(drones[4],bricks[7])

MoveObjectLocalY(drones[4],0.08)

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

FixObjectToObject(drone_test_under[4],drones[4])

MoveObjectLocalY(drone_test_under[4],-0.08)

SetObjectCollisionMode(drone_test_under[4],0)

SetObjectCollisionMode(drones[4],0)

drone_time[4]=0

drone_move[4]=1

//1//rotatex -90

//2//rotatey -90

drone_turn[4,1]=2

drone_turn[4,2]=2

drone_turn[4,3]=2

drone_turn[4,4]=2

drone_maker[4,1]=13

drone_maker[4,2]=19

drone_maker[4,3]=1

drone_maker[4,4]=7

drone_amount=4

for t=1 to 100

if GetObjectExists(drone_skin[t])=1:deleteobject(drone_skin[t]):endif

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)

PlayMusic(music,1)

SetObjectVisible(pivot,0)

endfunction

function level4()

if GetMusicExists(music):DeleteMusic(music):endif

music=LoadMusic("\media\music\music4.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\Level4.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*3)

me=createobjectsphere(0.01,32,32)

FixObjectToObject(me,bricks[145])

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[109])

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[103])

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[97])

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[115])

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[13]=loadobject("\media\models\ring.obj")

setobjectscale(rings[13],0.04,0.04,0.04)

FixObjectToObject(rings[13],bricks[73])

MoveObjectLocalY(rings[13],0.08)

SetObjectCollisionMode(rings[13],0)

rings[14]=loadobject("\media\models\ring.obj")

setobjectscale(rings[14],0.04,0.04,0.04)

FixObjectToObject(rings[14],bricks[91])

MoveObjectLocalY(rings[14],0.08)

SetObjectCollisionMode(rings[14],0)

rings[15]=loadobject("\media\models\ring.obj")

setobjectscale(rings[15],0.04,0.04,0.04)

FixObjectToObject(rings[15],bricks[85])

MoveObjectLocalY(rings[15],0.08)

SetObjectCollisionMode(rings[15],0)

rings[16]=loadobject("\media\models\ring.obj")

setobjectscale(rings[16],0.04,0.04,0.04)

FixObjectToObject(rings[16],bricks[79])

MoveObjectLocalY(rings[16],0.08)

SetObjectCollisionMode(rings[16],0)

rings[17]=loadobject("\media\models\ring.obj")

setobjectscale(rings[17],0.04,0.04,0.04)

FixObjectToObject(rings[17],bricks[139])

MoveObjectLocalY(rings[17],0.08)

SetObjectCollisionMode(rings[17],0)

rings[18]=loadobject("\media\models\ring.obj")

setobjectscale(rings[18],0.04,0.04,0.04)

FixObjectToObject(rings[18],bricks[121])

MoveObjectLocalY(rings[18],0.08)

SetObjectCollisionMode(rings[18],0)

rings[19]=loadobject("\media\models\ring.obj")

setobjectscale(rings[19],0.04,0.04,0.04)

FixObjectToObject(rings[19],bricks[127])

MoveObjectLocalY(rings[19],0.08)

SetObjectCollisionMode(rings[19],0)

rings[20]=loadobject("\media\models\ring.obj")

setobjectscale(rings[20],0.04,0.04,0.04)

FixObjectToObject(rings[20],bricks[133])

MoveObjectLocalY(rings[20],0.08)

SetObjectCollisionMode(rings[20],0)

rings_amount=20

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

drones[1]=createobjectsphere(0.01,32,32)

FixObjectToObject(drones[1],bricks[73])

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]=3//rotatex -90

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

drone_turn[1,3]=3//rotatey -90

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

drone_maker[1,1]=91

drone_maker[1,2]=85

drone_maker[1,3]=79

drone_maker[1,4]=73

drones[2]=createobjectsphere(0.01,32,32)

FixObjectToObject(drones[2],bricks[7])

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[4],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_maker[2,1]=13

drone_maker[2,2]=19

drone_maker[2,3]=1

drone_maker[2,4]=7

drones[3]=createobjectsphere(0.01,32,32)

FixObjectToObject(drones[3],bricks[109])

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]=103

drone_maker[3,2]=97

drone_maker[3,3]=115

drone_maker[3,4]=109

drones[4]=createobjectsphere(0.01,32,32)

FixObjectToObject(drones[4],bricks[49])

MoveObjectLocalY(drones[4],0.08)

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

FixObjectToObject(drone_test_under[4],drones[4])

MoveObjectLocalY(drone_test_under[4],-0.08)

SetObjectCollisionMode(drone_test_under[4],0)

SetObjectCollisionMode(drones[4],0)

drone_time[4]=0

drone_move[4]=1

//1//rotatex -90

//2//rotatey -90

drone_turn[4,1]=2

drone_turn[4,2]=2

drone_turn[4,3]=2

drone_turn[4,4]=2

drone_maker[4,1]=55

drone_maker[4,2]=61

drone_maker[4,3]=67

drone_maker[4,4]=49

drones[5]=createobjectsphere(0.01,32,32)

FixObjectToObject(drones[5],bricks[139])

MoveObjectLocalY(drones[5],0.08)

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

FixObjectToObject(drone_test_under[5],drones[5])

MoveObjectLocalY(drone_test_under[5],-0.08)

SetObjectCollisionMode(drone_test_under[5],0)

SetObjectCollisionMode(drones[5],0)

drone_time[5]=0

drone_move[5]=1

//1//rotatex -90

//2//rotatey -90

drone_turn[5,1]=2

drone_turn[5,2]=2

drone_turn[5,3]=2

drone_turn[5,4]=2

drone_maker[5,1]=121

drone_maker[5,2]=127

drone_maker[5,3]=133

drone_maker[5,4]=139

drone_amount=5

for t=1 to 100

if GetObjectExists(drone_skin[t])=1:deleteobject(drone_skin[t]):endif

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)

PlayMusic(music,1)

SetObjectVisible(pivot,0)

endfunction

function level5()

if GetMusicExists(music):DeleteMusic(music):endif

music=LoadMusic("\media\music\music5.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\Level5.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*1)

MoveObjectLocalz(bricks[t],0.08*2)

MoveObjectLocaly(bricks[t],0.08*3)

me=createobjectsphere(0.01,32,32)

FixObjectToObject(me,bricks[97])

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[49])

MoveObjectLocalz(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[55])

MoveObjectLocalz(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[61])

MoveObjectLocalz(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[67])

MoveObjectLocalz(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[73])

MoveObjectLocalz(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[79])

MoveObjectLocalz(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[85])

MoveObjectLocalz(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[91])

MoveObjectLocalz(rings[8],-0.08)

SetObjectCollisionMode(rings[8],0)

Download

Please login to download

Comments

No comments yet.

CodeBase - AR MAZE GAME

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anthony Brian Cox
CodeBase Entries:	1