having a problem with multiple pathed objects movement

Author

Message

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 12th Feb 2018 06:30 Edited at: 12th Feb 2018 06:34

Link

I have used my path editor from https://forum.thegamecreators.com/thread/221096

To create the following path file

+ Code Snippet

4
1
-64.000000
-1.000000
-65.000000
255.000000
-1.000000
255.000000
-1.000000
-2.000000
-512.000000
-384.000000

I am using it with an array of up to 50 moveable sprites
firstly I position them like

function load_level(level)
	enemyNum=1
	f$=""
	f$="level"
	f$=f$+str(level)
	f$=f$+".lev"
	if GetFileExists(f$)
		clear_level()
	myfile=opentoread(f$)
	for n=1 to objectlimit
		objnum = readinteger(myfile)
		xpos=readinteger(myfile)
		ypos=readinteger(myfile)
		gr=readinteger(myfile)
		im=readinteger(myfile)

if objnum>0
			if gr<1
			createsprite(objnum,im)
			setspritesize(objnum,GetImageWidth(im),GetImageHeight(im))
			setspriteposition(objnum,xpos,ypos)
			SetSpriteDepth(objnum,10)
			SetSpriteGroup(objnum,gr)
			object[n].id=objnum
			object[n].x=xpos
			object[n].y=ypos
			object[n].image=im
			object[n].group=gr
			inc objectcount
			endif

if gr=1
			createsprite(objnum,im)
			setspritesize(objnum,GetImageWidth(im),GetImageHeight(im))
			setspriteposition(objnum,xpos,ypos)
			SetSpriteDepth(objnum,10)
			SetSpriteGroup(objnum,gr)
			enemySprite[enemyNum,0].id=objnum
			enemySprite[enemyNum,0].x=xpos
			enemySprite[enemyNum,0].y=ypos
			enemySprite[enemyNum,0].image=im
			enemySprite[enemyNum,0].group=gr
			enemySprite[enemyNum,0].count=1
			inc objectcount:inc enemyNum
			endif
		endif
	next n
	closefile(myfile)
	else
		e$="Error... File does not exist!"
		createtext(10,e$)
		settextsize(10,20)
		settextposition(10,50,50)
		sync()
		sleep(2000)
		deletetext(10)
		
	endif
	
endfunction

+ Code Snippet

function load_level(level)
	enemyNum=1
	f$=""
	f$="level"
	f$=f$+str(level)
	f$=f$+".lev"
	if GetFileExists(f$)
		clear_level()
	myfile=opentoread(f$)
	for n=1 to objectlimit
		objnum = readinteger(myfile)
		xpos=readinteger(myfile)
		ypos=readinteger(myfile)
		gr=readinteger(myfile)
		im=readinteger(myfile)

		if objnum>0
			if gr<1
			createsprite(objnum,im)
			setspritesize(objnum,GetImageWidth(im),GetImageHeight(im))
			setspriteposition(objnum,xpos,ypos)
			SetSpriteDepth(objnum,10)
			SetSpriteGroup(objnum,gr)
			object[n].id=objnum
			object[n].x=xpos
			object[n].y=ypos
			object[n].image=im
			object[n].group=gr
			inc objectcount
			endif

			if gr=1
			createsprite(objnum,im)
			setspritesize(objnum,GetImageWidth(im),GetImageHeight(im))
			setspriteposition(objnum,xpos,ypos)
			SetSpriteDepth(objnum,10)
			SetSpriteGroup(objnum,gr)
			enemySprite[enemyNum,0].id=objnum
			enemySprite[enemyNum,0].x=xpos
			enemySprite[enemyNum,0].y=ypos
			enemySprite[enemyNum,0].image=im
			enemySprite[enemyNum,0].group=gr
			enemySprite[enemyNum,0].count=1
			inc objectcount:inc enemyNum
			endif
		endif
	next n
	closefile(myfile)
	else
		e$="Error... File does not exist!"
		createtext(10,e$)
		settextsize(10,20)
		settextposition(10,50,50)
		sync()
		sleep(2000)
		deletetext(10)
		
	endif
	
endfunction

they were created using my tested tile editor available here
https://forum.thegamecreators.com/thread/219932

then i load my path for each enemy in the arrray

+ Code Snippet

function loadArrayPath()
for num = 1 to 50	
Path$="arrayPath"+str(1)+".txt"	
If GetFileExists(Path$)
	read = OpenToRead(Path$)
	String1$ = ReadLine(read)
	length=val(String1$)
	String2$ = ReadLine(read)
	enemySprite[num,0].length=length
	enemySprite[num,0].count=1
	enemySprite[num,0].closed=val(String2$)
		
	//dim path[length] as object
	for n =1 to length
		//enemySprite[num,n].id=2001
		enemySprite[num,n].length=length
		enemySprite[num,n].closed=val(String2$)
		StringX$ = ReadLine(read)
		StringY$ = ReadLine(read)
		enemySprite[num,n].x=val(StringX$) //+enemySprite[num,0].x
		enemySprite[num,n].y=val(StringY$) //+enemySprite[num,0].y	
		enemySprite[num,n].count=length
	next n
	Closefile(read)
endif
next num
endfunction

here is where i beleive i have the problem
when movepath is called they move very jittery
enemySprite[num,0].x holds the original x location of the sprite
enemySprite[num,0].y holds the original y location

function movePath(speed#)
for num=1 to 50	
count=enemySprite[num,0].count
if GetSpriteExists(enemySprite[num,0].id)	
x=enemySprite[num,0].x
y=enemySprite[num,0].y
xx=(enemySprite[num,count].x)+x
yy=(enemySprite[num,count].y)+y
if enemySprite[num,0].count<enemySprite[num,0].length
	if getDistance(x,y,xx,yy)>=5 then inc enemySprite[num,0].count
	angle#=getAngle(x,y,xx,yy)
	enemySprite[num,0].x=x-sin(angle#)*speed#
	enemySprite[num,0].y=y+cos(angle#)*speed#
	SetSpritePositionByOffset(enemySprite[num,0].id,enemySprite[num,0].x,enemySprite[num,0].y)	
else
	if getDistance(enemySprite[num,0].x,enemySprite[num,0].y,xx,yy)<5 then enemySprite[num,0].count=1	
	angle#=getAngle(x,y,xx,yy)
	enemySprite[num,0].x=x-sin(angle#)*speed#
	enemySprite[num,0].y=y+cos(angle#)*speed#
	SetSpritePositionByOffset(enemySprite[num,0].id,enemySprite[num,0].x,enemySprite[num,0].y)	
endif
endif
next num

endfunction

function getAngle(x1#, y1#, x2#, y2#)
    result# = ATanFull(x1# - x2#, y1# - y2#)
endfunction result#

function getDistance (x1#,y1#,x2#,y2#) 
	dx#=x1#-x2#
	dy#=y1#-y2#
	distance#=sqrt((dx#*dx#)+(dy#*dy#)):rem distance object to path point
endfunction distance#

+ Code Snippet

function movePath(speed#)
for num=1 to 50	
count=enemySprite[num,0].count
if GetSpriteExists(enemySprite[num,0].id)	
x=enemySprite[num,0].x
y=enemySprite[num,0].y
xx=(enemySprite[num,count].x)+x
yy=(enemySprite[num,count].y)+y
if enemySprite[num,0].count<enemySprite[num,0].length
	if getDistance(x,y,xx,yy)>=5 then inc enemySprite[num,0].count
	angle#=getAngle(x,y,xx,yy)
	enemySprite[num,0].x=x-sin(angle#)*speed#
	enemySprite[num,0].y=y+cos(angle#)*speed#
	SetSpritePositionByOffset(enemySprite[num,0].id,enemySprite[num,0].x,enemySprite[num,0].y)	
else
	if getDistance(enemySprite[num,0].x,enemySprite[num,0].y,xx,yy)<5 then enemySprite[num,0].count=1	
	angle#=getAngle(x,y,xx,yy)
	enemySprite[num,0].x=x-sin(angle#)*speed#
	enemySprite[num,0].y=y+cos(angle#)*speed#
	SetSpritePositionByOffset(enemySprite[num,0].id,enemySprite[num,0].x,enemySprite[num,0].y)	
endif
endif
next num

endfunction

function getAngle(x1#, y1#, x2#, y2#)
    result# = ATanFull(x1# - x2#, y1# - y2#)
endfunction result#

function getDistance (x1#,y1#,x2#,y2#) 
	dx#=x1#-x2#
	dy#=y1#-y2#
	distance#=sqrt((dx#*dx#)+(dy#*dy#)):rem distance object to path point
endfunction distance#

I'm sure there is something crazy ive done and there is some simple logic problem but they dont even seem to follow the path
as it steps through the array ive stopped the background movement to debug it as that changes the original location but still is very
Jittery. I haven't sent the whole code as it really needs the graphics to get it to work as they were positioned in each location by the tile
editor and because of copyrights but I can place the full code if that helps without the sprites if that helps

and the count should hold the value of which path item should be applied

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 7th Mar 2018 05:33

Link

I fixed the problem by changing move path to move enemy now instead of a two dimensional array
I have 2 one dimensional arrays one for the enemy and one for the paths adventually in the enemy are
it will just point to where the path

+ Code Snippet

function moveEnemy(speed#)
//enemy.x=path[0].x:enemy.y=path[0].y
for num = 1 to 50
count=enemySprite[num].count
if GetSpriteExists(enemySprite[num].id)
if getDistance(enemySprite[num].x,enemySprite[num].y,path[count].x,path[count].y)>5
	angle#=getAngle(enemySprite[num].x,enemySprite[num].y,path[count].x,path[count].y)
	enemySprite[num].x=enemySprite[num].x-sin(angle#)*speed#:enemySprite[num].y=enemySprite[num].y+cos(angle#)*speed#
	SetSpritePositionByOffset(enemySprite[num].id,enemySprite[num].x+enemySprite[num].offsetX,enemySprite[num].y+enemySprite[num].offsetY)
	//SetSpriteAngle(enemy.id,getAngle(GetSpriteXByOffset(enemy.id),GetSpriteYByOffset(enemy.id),xMax/2,yMax/2)):rem point to middle of screen
	//SetSpriteAngle(testspr,angle#):rem point to way point
else
	enemySprite[num].count=enemySprite[num].count+1`
	if path[count].x=0 or path[count].y=0 then enemySprite[num].count=1
endif
endif
next num
endfunction

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 7th Mar 2018 05:48 Edited at: 7th Mar 2018 06:12

Link

For the time being all tank objects are set to use the same path
Im not sure wether it is just better to have them follow a road

For those interested the following code is how its done

// Project: Space Odyssey 
// Created: 2017-11-27

// show all errors
SetErrorMode(2)
#constant spr=2001
#constant xMaxView=1024 //maximum x viewing window
#constant yMaxView=600  //maximum y viewing window
#constant xMax=1024		//maximum width of level
#constant yMax=3904		//maximum height of level
#constant objectlimit = 1144 : //Limit how many objects we can create so as to not go over the arrays size,which would

type Ttrail
    x as float
    y as float
endtype

type object
	x as float
	y as float
endtype

type mySpr 
	id as integer
	length as integer
	offsetX as float
	offsetY as float
	group as integer
	image as integer
	x as float
	y as float
	count as integer
	closed as integer
endtype

// define a type for the tiled objects
type objecttype
	id as integer
	length as integer
	x as integer
	y as integer
	offsetX as float
	offsetY as float
	group as integer
	image as integer
	count as integer
	closed as integer
endtype
dim object[objectlimit] as objecttype

global dim enemySprite[50] as mySpr
global dim path[50] as object
global objectcount=0
global imagelimit = 62
// set window properties
SetWindowTitle( "Space Odyssey" )
SetWindowSize( xMaxView, yMaxView, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMaxView, yMaxView ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
loadimage (2001,"08.png")
loadimage (2002,"missileLaunch.png")
//loadimage (3,"missileTrail.png")

createSprite(2001,2001)
SetSpriteDepth(2001,1)
//SetSpriteSize(1,100,100)

createSprite(2002,2002):SetSpriteSize(2002,60,60)
SetSpriteVisible(2002,0):SetSpriteDepth(2002,2)     	
//createSprite(101,3):SetSpriteVisible(101,0):SetSpriteDepth(101,11)

createsprite(500,0) 	
SetSpriteDepth(500,1)
SetSpriteSize(500,150,150)
SetSpriteColor(500,255,255,255,255)

//loadArrayPath():enemySprite[0].x=enemySprite[1].x+500:enemySprite[0].y=enemySprite[1].y+300	
load_images()
load_EnemyPath()
load_level(1)

//loadArrayPath()
//loadArrayBezier()

local trail as Ttrail[10]
i=0
local   x as float
local   y as float
local   time as float
time =0

do
    //ClearScreen()
    Render()
	//x#=500:y#=300
    x#=GetPointerX():y#=GetPointerY()
    SetSpritePositionByOffset(spr,x#,y#)	
	
	//moveBezier(count,x#,y#)
	//movePath(5)
	moveEnemy(6)
	move_background(-5)
	
	//for n = 1 to 10
	//	print(str(enemySprite[n,0].y))
	//next		
	//trail bullets
	if getpointerpressed()=1
		x=GetSpriteXByOffset(spr)
		y=GetSpriteYByOffset(spr)-50
		SetSpritePositionByOffset(2002,x,y)
		SetSpriteVisible(2002,1)   	
    endif
    
	time = time +GetFrameTime()
    y=y-15
	if time>.05
        time = 0
        i1=i1+1
        if i1>10 then i1=0    
        trail[i1].x = x
        trail[i1].y = y
    endif  
    for i=0 to 10         
		SetSpritePositionByOffset(2002,trail[i].x,trail[i].y)
		DrawSprite(2002)
    next
    Swap()
    Update(0)
    //Sync()
loop

function load_EnemyPath()
Path$="arrayPath"+str(1)+".txt"	
If GetFileExists(Path$)
	read = OpenToRead(Path$)
	String1$ = ReadLine(read)
	length=val(String1$)
	String2$ = ReadLine(read)
	for n =1 to length	
		StringX$ = ReadLine(read)
		StringY$ = ReadLine(read)
		path[n].x=val(StringX$)
		path[n].y=val(StringY$)	
	next n
	Closefile(read)	
endif

endfunction

/*
function loadArrayBezier()
If GetFileExists("arrayBezier.txt")
	read = OpenToRead("arrayBezier.txt")
	String1$ = ReadLine(read)
	length=val(String1$)
	String2$ = ReadLine(read)
	//dim path[length] as object
	for num =1 to length
		enemySprite[num].id=2001
		enemySprite[num].length=length
		enemySprite[num].closed=val(String2$)
		StringX$ = ReadLine(read)
		StringY$ = ReadLine(read)
		enemySprite[num].x=val(StringX$)
		enemySprite[num].y=val(StringY$)	
	next num
	Closefile(read)
	count=length
endif
endfunction count
*/

function moveEnemy(speed#)
//enemy.x=path[0].x:enemy.y=path[0].y
for num = 1 to 50
count=enemySprite[num].count
if GetSpriteExists(enemySprite[num].id)
if getDistance(enemySprite[num].x,enemySprite[num].y,path[count].x,path[count].y)>5
	angle#=getAngle(enemySprite[num].x,enemySprite[num].y,path[count].x,path[count].y)
	enemySprite[num].x=enemySprite[num].x-sin(angle#)*speed#:enemySprite[num].y=enemySprite[num].y+cos(angle#)*speed#
	SetSpritePositionByOffset(enemySprite[num].id,enemySprite[num].x+enemySprite[num].offsetX,enemySprite[num].y+enemySprite[num].offsetY)
	//SetSpriteAngle(enemy.id,getAngle(GetSpriteXByOffset(enemy.id),GetSpriteYByOffset(enemy.id),xMax/2,yMax/2)):rem point to middle of screen
	//SetSpriteAngle(testspr,angle#):rem point to way point
else
	enemySprite[num].count=enemySprite[num].count+1`
	if path[count].x=0 or path[count].y=0 then enemySprite[num].count=1
endif
endif
next num
endfunction

/*function moveBezier(num,x#,y#)
SetSpritePositionByOffset(enemySprite[num].id,enemySprite[num].x+x#,enemySprite[num].y+y#)
inc count:if count>enemySprite[1].length then count=1
endfunction
*/
function getAngle(x1#, y1#, x2#, y2#)
    result# = ATanFull(x1# - x2#, y1# - y2#)
endfunction result#

function getDistance (x1#,y1#,x2#,y2#) 
	dx#=x1#-x2#
	dy#=y1#-y2#
	distance#=sqrt((dx#*dx#)+(dy#*dy#)):rem distance object to path point
endfunction distance#

function load_images()
	// because I have saved the images numerically,in other words they are named
	// 1.png, 2.png. etc... I can make a simple loop to check if any exists using a simple 
	// value to string conversion, if it does we load it!
	for n=1 to imageLimit
		f$=str(n) + ".png"
		if getfileexists(f$)
			loadimage (n,f$)
		endif
	next
endfunction

function load_level(level)
	enemyNum=1
	f$=""
	f$="level"
	f$=f$+str(level)
	f$=f$+".lev"
	if GetFileExists(f$)
		clear_level()
	myfile=opentoread(f$)
	for n=1 to objectlimit
		objnum = readinteger(myfile)
		xpos=readinteger(myfile)
		ypos=readinteger(myfile)
		gr=readinteger(myfile)
		im=readinteger(myfile)

if objnum>0
			if gr<1
			createsprite(objnum,im)
			setspritesize(objnum,GetImageWidth(im),GetImageHeight(im))
			setspriteposition(objnum,xpos,ypos)
			SetSpriteDepth(objnum,10)
			SetSpriteGroup(objnum,gr)
			object[n].id=objnum
			object[n].x=xpos
			object[n].y=ypos
			object[n].image=im
			object[n].group=gr
			inc objectcount
			endif

if gr=1
			createsprite(objnum,im)
			setspritesize(objnum,GetImageWidth(im),GetImageHeight(im))
			setspriteposition(objnum,xpos,ypos)
			SetSpriteDepth(objnum,10)
			SetSpriteGroup(objnum,gr)
			enemySprite[enemyNum].id=objnum
			enemySprite[enemyNum].x=xpos
			enemySprite[enemyNum].y=ypos
			enemySprite[enemyNum].offsetX=xpos
			enemySprite[enemyNum].offsetY=ypos
			enemySprite[enemyNum].image=im
			enemySprite[enemyNum].group=gr
			enemySprite[enemyNum].count=1
			inc objectcount:inc enemyNum
			endif
		endif
	next n
	closefile(myfile)
	else
		e$="Error... File does not exist!"
		createtext(10,e$)
		settextsize(10,20)
		settextposition(10,50,50)
		sync()
		sleep(2000)
		deletetext(10)
		
	endif
	
endfunction

function clear_level()
	for n=1 to objectlimit
		object[n].id = 0
		object[n].x=0
		object[n].y=0
		object[n].image=0
		object[n].group=0
		if getspriteexists(n) = 1
			deletesprite(n)
		endif
	next n
	objectnumber=1
	objectcount=0
endfunction

function move_background(ymov as float)
	for n=1 to objectlimit
		if GetSpriteExists(n) 
			SetSpritePosition(n,GetSpriteX(n),GetSpriteY(n)-ymov)
			if GetSpriteY(n)>(yMax) then SetSpritePosition(n,GetSpriteX(n),GetSpriteY(n)-(yMax+64))
		endif
	next n
	//move the tanks
	for n = 1 to 50
		if GetSpriteExists(enemySprite[n].id)
			//enemySprite[n].y=enemySprite[n].y-ymov
			enemySprite[n].offsetY=enemySprite[n].offsetY-ymov
			
			
			//SetSpritePosition(enemySprite[n].id,GetSpriteX(enemySprite[n].id),GetSpriteY(enemySprite[n].id)-ymov)
			if enemySprite[n].offsetY>yMax then enemySprite[n].offsetY=enemySprite[n].offsetY-(yMax+64)
		endif
	next n
endfunction

+ Code Snippet

// Project: Space Odyssey 
// Created: 2017-11-27

// show all errors
SetErrorMode(2)
#constant spr=2001
#constant xMaxView=1024 //maximum x viewing window
#constant yMaxView=600  //maximum y viewing window
#constant xMax=1024		//maximum width of level
#constant yMax=3904		//maximum height of level
#constant objectlimit = 1144 : //Limit how many objects we can create so as to not go over the arrays size,which would

type Ttrail
    x as float
    y as float
endtype

type object
	x as float
	y as float
endtype

type mySpr 
	id as integer
	length as integer
	offsetX as float
	offsetY as float
	group as integer
	image as integer
	x as float
	y as float
	count as integer
	closed as integer
endtype

// define a type for the tiled objects
type objecttype
	id as integer
	length as integer
	x as integer
	y as integer
	offsetX as float
	offsetY as float
	group as integer
	image as integer
	count as integer
	closed as integer
endtype
dim object[objectlimit] as objecttype

global dim enemySprite[50] as mySpr
global dim path[50] as object
global objectcount=0
global imagelimit = 62
// set window properties
SetWindowTitle( "Space Odyssey" )
SetWindowSize( xMaxView, yMaxView, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMaxView, yMaxView ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
loadimage (2001,"08.png")
loadimage (2002,"missileLaunch.png")
//loadimage (3,"missileTrail.png")

createSprite(2001,2001)
SetSpriteDepth(2001,1)
//SetSpriteSize(1,100,100)

createSprite(2002,2002):SetSpriteSize(2002,60,60)
SetSpriteVisible(2002,0):SetSpriteDepth(2002,2)     	
//createSprite(101,3):SetSpriteVisible(101,0):SetSpriteDepth(101,11)  

createsprite(500,0) 	
SetSpriteDepth(500,1)
SetSpriteSize(500,150,150)
SetSpriteColor(500,255,255,255,255)

//loadArrayPath():enemySprite[0].x=enemySprite[1].x+500:enemySprite[0].y=enemySprite[1].y+300	
load_images()
load_EnemyPath()
load_level(1)

//loadArrayPath()
//loadArrayBezier()

local trail as Ttrail[10]
i=0
local   x as float
local   y as float
local   time as float
time =0


do
    //ClearScreen()
    Render()
	//x#=500:y#=300
    x#=GetPointerX():y#=GetPointerY()
    SetSpritePositionByOffset(spr,x#,y#)	
	
	//moveBezier(count,x#,y#)
	//movePath(5)
	moveEnemy(6)
	move_background(-5)
	
	//for n = 1 to 10
	//	print(str(enemySprite[n,0].y))
	//next		
	//trail bullets
	if getpointerpressed()=1
		x=GetSpriteXByOffset(spr)
		y=GetSpriteYByOffset(spr)-50
		SetSpritePositionByOffset(2002,x,y)
		SetSpriteVisible(2002,1)   	
    endif
    
	time = time +GetFrameTime()
    y=y-15
	if time>.05
        time = 0
        i1=i1+1
        if i1>10 then i1=0    
        trail[i1].x = x
        trail[i1].y = y
    endif  
    for i=0 to 10         
		SetSpritePositionByOffset(2002,trail[i].x,trail[i].y)
		DrawSprite(2002)
    next
    Swap()
    Update(0)
    //Sync()
loop

function load_EnemyPath()
Path$="arrayPath"+str(1)+".txt"	
If GetFileExists(Path$)
	read = OpenToRead(Path$)
	String1$ = ReadLine(read)
	length=val(String1$)
	String2$ = ReadLine(read)
	for n =1 to length	
		StringX$ = ReadLine(read)
		StringY$ = ReadLine(read)
		path[n].x=val(StringX$)
		path[n].y=val(StringY$)	
	next n
	Closefile(read)	
endif

endfunction

/*
function loadArrayBezier()
If GetFileExists("arrayBezier.txt")
	read = OpenToRead("arrayBezier.txt")
	String1$ = ReadLine(read)
	length=val(String1$)
	String2$ = ReadLine(read)
	//dim path[length] as object
	for num =1 to length
		enemySprite[num].id=2001
		enemySprite[num].length=length
		enemySprite[num].closed=val(String2$)
		StringX$ = ReadLine(read)
		StringY$ = ReadLine(read)
		enemySprite[num].x=val(StringX$)
		enemySprite[num].y=val(StringY$)	
	next num
	Closefile(read)
	count=length
endif
endfunction count
*/


function moveEnemy(speed#)
//enemy.x=path[0].x:enemy.y=path[0].y
for num = 1 to 50
count=enemySprite[num].count
if GetSpriteExists(enemySprite[num].id)
if getDistance(enemySprite[num].x,enemySprite[num].y,path[count].x,path[count].y)>5
	angle#=getAngle(enemySprite[num].x,enemySprite[num].y,path[count].x,path[count].y)
	enemySprite[num].x=enemySprite[num].x-sin(angle#)*speed#:enemySprite[num].y=enemySprite[num].y+cos(angle#)*speed#
	SetSpritePositionByOffset(enemySprite[num].id,enemySprite[num].x+enemySprite[num].offsetX,enemySprite[num].y+enemySprite[num].offsetY)
	//SetSpriteAngle(enemy.id,getAngle(GetSpriteXByOffset(enemy.id),GetSpriteYByOffset(enemy.id),xMax/2,yMax/2)):rem point to middle of screen
	//SetSpriteAngle(testspr,angle#):rem point to way point
else
	enemySprite[num].count=enemySprite[num].count+1`
	if path[count].x=0 or path[count].y=0 then enemySprite[num].count=1
endif
endif
next num
endfunction	


/*function moveBezier(num,x#,y#)
SetSpritePositionByOffset(enemySprite[num].id,enemySprite[num].x+x#,enemySprite[num].y+y#)
inc count:if count>enemySprite[1].length then count=1
endfunction
*/
function getAngle(x1#, y1#, x2#, y2#)
    result# = ATanFull(x1# - x2#, y1# - y2#)
endfunction result#

function getDistance (x1#,y1#,x2#,y2#) 
	dx#=x1#-x2#
	dy#=y1#-y2#
	distance#=sqrt((dx#*dx#)+(dy#*dy#)):rem distance object to path point
endfunction distance#

function load_images()
	// because I have saved the images numerically,in other words they are named
	// 1.png, 2.png. etc... I can make a simple loop to check if any exists using a simple 
	// value to string conversion, if it does we load it!
	for n=1 to imageLimit
		f$=str(n) + ".png"
		if getfileexists(f$)
			loadimage (n,f$)
		endif
	next
endfunction

function load_level(level)
	enemyNum=1
	f$=""
	f$="level"
	f$=f$+str(level)
	f$=f$+".lev"
	if GetFileExists(f$)
		clear_level()
	myfile=opentoread(f$)
	for n=1 to objectlimit
		objnum = readinteger(myfile)
		xpos=readinteger(myfile)
		ypos=readinteger(myfile)
		gr=readinteger(myfile)
		im=readinteger(myfile)

		if objnum>0
			if gr<1
			createsprite(objnum,im)
			setspritesize(objnum,GetImageWidth(im),GetImageHeight(im))
			setspriteposition(objnum,xpos,ypos)
			SetSpriteDepth(objnum,10)
			SetSpriteGroup(objnum,gr)
			object[n].id=objnum
			object[n].x=xpos
			object[n].y=ypos
			object[n].image=im
			object[n].group=gr
			inc objectcount
			endif

			if gr=1
			createsprite(objnum,im)
			setspritesize(objnum,GetImageWidth(im),GetImageHeight(im))
			setspriteposition(objnum,xpos,ypos)
			SetSpriteDepth(objnum,10)
			SetSpriteGroup(objnum,gr)
			enemySprite[enemyNum].id=objnum
			enemySprite[enemyNum].x=xpos
			enemySprite[enemyNum].y=ypos
			enemySprite[enemyNum].offsetX=xpos
			enemySprite[enemyNum].offsetY=ypos
			enemySprite[enemyNum].image=im
			enemySprite[enemyNum].group=gr
			enemySprite[enemyNum].count=1
			inc objectcount:inc enemyNum
			endif
		endif
	next n
	closefile(myfile)
	else
		e$="Error... File does not exist!"
		createtext(10,e$)
		settextsize(10,20)
		settextposition(10,50,50)
		sync()
		sleep(2000)
		deletetext(10)
		
	endif
	
endfunction

function clear_level()
	for n=1 to objectlimit
		object[n].id = 0
		object[n].x=0
		object[n].y=0
		object[n].image=0
		object[n].group=0
		if getspriteexists(n) = 1
			deletesprite(n)
		endif
	next n
	objectnumber=1
	objectcount=0
endfunction

function move_background(ymov as float)
	for n=1 to objectlimit
		if GetSpriteExists(n) 
			SetSpritePosition(n,GetSpriteX(n),GetSpriteY(n)-ymov)
			if GetSpriteY(n)>(yMax) then SetSpritePosition(n,GetSpriteX(n),GetSpriteY(n)-(yMax+64))
		endif
	next n
	//move the tanks
	for n = 1 to 50
		if GetSpriteExists(enemySprite[n].id)
			//enemySprite[n].y=enemySprite[n].y-ymov
			enemySprite[n].offsetY=enemySprite[n].offsetY-ymov
			
			
			//SetSpritePosition(enemySprite[n].id,GetSpriteX(enemySprite[n].id),GetSpriteY(enemySprite[n].id)-ymov)
			if enemySprite[n].offsetY>yMax then enemySprite[n].offsetY=enemySprite[n].offsetY-(yMax+64)
		endif
	next n
endfunction

and the arraypath1.file like

+ Code Snippet

4
1
-2.000000
-6.000000
-1.000000
255.000000
63.000000
253.000000
63.000000
-5.000000
-512.000000
-384.000000

no point sharing the level1.txt as that uses my tiles

The map is also a continuous looping map that I may keep looping until a set number of kills etc

I will adventually need to probably combine the tile editor with the path editor so you can lay out
paths when creating a map

fubar

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / having a problem with multiple pathed objects movement