Function Problem!!! - GameCreators Forum

Author

Message

demons breath

20

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 2nd Jan 2005 21:34 Edited at: 2nd Jan 2005 21:39

Link

I am making a First Person Shooter and I wrote a basic code for the thugs using Pythagoras' theorem to detect if you are within a certain distance from them:

rem -----------------------------thug1 AI---------------------------
if object exist(31)=1
	if SQRT(((ABS(ThugPos#(1,1)-X#))^2)+((ABS(ThugPos#(1,3)-Z#))^2))<=(guardlimit(1)+Susp#(1))
		Susp#(1)=10
		position object 33,ThugPos#(1,1),ThugPos#(1,2),ThugPos#(1,3)
		show object 33
		hide object 31
		point object 33,X#,Y#,Z#
		yrotate object 33,wrapvalue(object angle y(33)+180)
		if object playing(33)=0
			play object 33
		endif
		if object frame(33)>=10.8 and object frame(33)<=11.2
			if ThugBulletLife#(1)=0
				Position object 34,ThugPos#(1,1),ThugPos#(1,2)+9,ThugPos#(1,3)
				Set object to object orientation 34,33
				yrotate object 34,wrapvalue(object angle y(34)+180)
				ThugBulletLife#(1) =35
				Show object 34
				play sound 5
			endif
		endif
	endif
	if SQRT(((ABS(ThugPos#(1,1)-X#))^2)+((ABS(ThugPos#(1,3)-Z#))^2))>(guardlimit(1)+Susp#(1))
		if object visible(33)=1
			hide object 33
			show object 31
			if object playing(31)=0	 then play object 31
			stop object 33
		endif
		If Susp#(1)>0 then Susp#(1)=Susp#(1)-0.01
		If Susp#(1)<0 then Susp#(1)=0
	endif
endif

rem -----------------------------thug2 AI---------------------------
if object exist(36)=1
	if object playing(36)=0 then play object 36
	if SQRT(((ABS(169-X#))^2)+((ABS(209-Z#))^2))<=(guardlimit(2)+Susp#(2))
		Susp#(2)=10
		show object 38
		hide object 36
		point object 38,X#,Y#,Z#
		yrotate object 38,wrapvalue(object angle y(38)+180)
		if object playing(38)=0
			play object 38
		endif
		if object frame(38)>=10.8 and object frame(38)<=11.2
			if ThugBulletLife#(2)=0
				Position object 39,169,9,209
				Set object to object orientation 39,38
				yrotate object 39,wrapvalue(object angle y(39)+180)
				ThugBulletLife#(2) =35
				Show object 39
				play sound 5
			endif
		endif
	endif
	if SQRT(((ABS(169-X#))^2)+((ABS(209-Z#))^2))>(guardlimit(2)+Susp#(2))
		if object visible(38)=1
			hide object 38
			show object 36
			stop object 38
		endif
		If Susp#(2)>0 then Susp#(2)=Susp#(2)-0.01
		If Susp#(2)<0 then Susp#(2)=0
	endif
endif

rem -----------------------------thug3 AI---------------------------
if object exist(41)=1
	if SQRT(((ABS(ThugPos#(3,1)-X#))^2)+((ABS(ThugPos#(3,3)-Z#))^2))<=(guardlimit(3)+Susp#(3))
		Susp#(3)=10
		position object 43,ThugPos#(3,1),ThugPos#(3,2),ThugPos#(3,3)
		show object 43
		hide object 41
		point object 43,X#,Y#,Z#
		yrotate object 43,wrapvalue(object angle y(43)+180)
		if object playing(43)=0
			play object 43
		endif
		if object frame(43)>=10.8 and object frame(43)<=11.2
			if ThugBulletLife#(3)=0
				Position object 44,ThugPos#(3,1),ThugPos#(3,2)+9,ThugPos#(3,3)
				Set object to object orientation 44,43
				yrotate object 44,wrapvalue(object angle y(44)+180)
				ThugBulletLife#(3) =35
				Show object 44
				play sound 5
			endif
		endif
	endif
	if SQRT(((ABS(ThugPos#(3,1)-X#))^2)+((ABS(ThugPos#(3,3)-Z#))^2))>(guardlimit(3)+Susp#(3))
		if object visible(43)=1
			hide object 43
			show object 41
			if object playing(41)=0	 then play object 41
			stop object 43
		endif
		If Susp#(3)>0 then Susp#(3)=Susp#(3)-0.01
		If Susp#(3)<0 then Susp#(3)=0
	endif
endif

+ Code Snippet

rem -----------------------------thug1 AI---------------------------
if object exist(31)=1
	if SQRT(((ABS(ThugPos#(1,1)-X#))^2)+((ABS(ThugPos#(1,3)-Z#))^2))<=(guardlimit(1)+Susp#(1))
		Susp#(1)=10
		position object 33,ThugPos#(1,1),ThugPos#(1,2),ThugPos#(1,3)
		show object 33
		hide object 31
		point object 33,X#,Y#,Z#
		yrotate object 33,wrapvalue(object angle y(33)+180)
		if object playing(33)=0
			play object 33
		endif
		if object frame(33)>=10.8 and object frame(33)<=11.2
			if ThugBulletLife#(1)=0
				Position object 34,ThugPos#(1,1),ThugPos#(1,2)+9,ThugPos#(1,3)
				Set object to object orientation 34,33
				yrotate object 34,wrapvalue(object angle y(34)+180)
				ThugBulletLife#(1) =35
				Show object 34
				play sound 5
			endif
		endif
	endif
	if SQRT(((ABS(ThugPos#(1,1)-X#))^2)+((ABS(ThugPos#(1,3)-Z#))^2))>(guardlimit(1)+Susp#(1))
		if object visible(33)=1
			hide object 33
			show object 31
			if object playing(31)=0	 then play object 31
			stop object 33
		endif
		If Susp#(1)>0 then Susp#(1)=Susp#(1)-0.01
		If Susp#(1)<0 then Susp#(1)=0
	endif
endif



rem -----------------------------thug2 AI---------------------------
if object exist(36)=1
	if object playing(36)=0 then play object 36
	if SQRT(((ABS(169-X#))^2)+((ABS(209-Z#))^2))<=(guardlimit(2)+Susp#(2))
		Susp#(2)=10
		show object 38
		hide object 36
		point object 38,X#,Y#,Z#
		yrotate object 38,wrapvalue(object angle y(38)+180)
		if object playing(38)=0
			play object 38
		endif
		if object frame(38)>=10.8 and object frame(38)<=11.2
			if ThugBulletLife#(2)=0
				Position object 39,169,9,209
				Set object to object orientation 39,38
				yrotate object 39,wrapvalue(object angle y(39)+180)
				ThugBulletLife#(2) =35
				Show object 39
				play sound 5
			endif
		endif
	endif
	if SQRT(((ABS(169-X#))^2)+((ABS(209-Z#))^2))>(guardlimit(2)+Susp#(2))
		if object visible(38)=1
			hide object 38
			show object 36
			stop object 38
		endif
		If Susp#(2)>0 then Susp#(2)=Susp#(2)-0.01
		If Susp#(2)<0 then Susp#(2)=0
	endif
endif

rem -----------------------------thug3 AI---------------------------
if object exist(41)=1
	if SQRT(((ABS(ThugPos#(3,1)-X#))^2)+((ABS(ThugPos#(3,3)-Z#))^2))<=(guardlimit(3)+Susp#(3))
		Susp#(3)=10
		position object 43,ThugPos#(3,1),ThugPos#(3,2),ThugPos#(3,3)
		show object 43
		hide object 41
		point object 43,X#,Y#,Z#
		yrotate object 43,wrapvalue(object angle y(43)+180)
		if object playing(43)=0
			play object 43
		endif
		if object frame(43)>=10.8 and object frame(43)<=11.2
			if ThugBulletLife#(3)=0
				Position object 44,ThugPos#(3,1),ThugPos#(3,2)+9,ThugPos#(3,3)
				Set object to object orientation 44,43
				yrotate object 44,wrapvalue(object angle y(44)+180)
				ThugBulletLife#(3) =35
				Show object 44
				play sound 5
			endif
		endif
	endif
	if SQRT(((ABS(ThugPos#(3,1)-X#))^2)+((ABS(ThugPos#(3,3)-Z#))^2))>(guardlimit(3)+Susp#(3))
		if object visible(43)=1
			hide object 43
			show object 41
			if object playing(41)=0	 then play object 41
			stop object 43
		endif
		If Susp#(3)>0 then Susp#(3)=Susp#(3)-0.01
		If Susp#(3)<0 then Susp#(3)=0
	endif
endif

When I try and create a function for this, however, it doesn't do anything. This is my function:

function thugai(t)
rem -----------------------------thug AI---------------------------
if object exist((t*5)+26)=1
	if SQRT(((ABS(ThugPos#(t,1)-X#))^2)+((ABS(ThugPos#(t,3)-Z#))^2))<=(guardlimit(t)+Susp#(t))
		Susp#(t)=10
		position object (t*5)+28,ThugPos#(t,1),ThugPos#(t,2),ThugPos#(t,3)
		show object (t*5)+28
		hide object (t*5)+26
		point object (t*5)+28,X#,Y#,Z#
		yrotate object 33,wrapvalue(object angle y((t*5)+28)+180)
		if object playing((t*5)+28)=0
			play object (t*5)+28
		endif
		if object frame((t*5)+28)>=10.8 and object frame((t*5)+28)<=11.2
			if ThugBulletLife#(t)=0
				Position object (t*5)+29,ThugPos#(t,1),ThugPos#(t,2)+9,ThugPos#(t,3)
				Set object to object orientation (t*5)+29,(t*5)+28
				yrotate object (t*5)+29,wrapvalue(object angle y((t*5)+29)+180)
				ThugBulletLife#(t) =35
				Show object (t*5)+29
				play sound 5
			endif
		endif
	endif
	if SQRT(((ABS(ThugPos#(t,1)-X#))^2)+((ABS(ThugPos#(t,3)-Z#))^2))>(guardlimit(t)+Susp#(t))
		if object visible((t*5)+28)=1
			hide object (t*5)+28
			show object (t*5)+26
			if object playing((t*5)+26)=0 then play object (t*5)+26
			stop object (t*5)+28
		endif
		If Susp#(t)>0 then Susp#(t)=Susp#(1)-0.01
		If Susp#(t)<0 then Susp#(t)=0
	endif
endif
endfunction

+ Code Snippet

function thugai(t)
rem -----------------------------thug AI---------------------------
if object exist((t*5)+26)=1
	if SQRT(((ABS(ThugPos#(t,1)-X#))^2)+((ABS(ThugPos#(t,3)-Z#))^2))<=(guardlimit(t)+Susp#(t))
		Susp#(t)=10
		position object (t*5)+28,ThugPos#(t,1),ThugPos#(t,2),ThugPos#(t,3)
		show object (t*5)+28
		hide object (t*5)+26
		point object (t*5)+28,X#,Y#,Z#
		yrotate object 33,wrapvalue(object angle y((t*5)+28)+180)
		if object playing((t*5)+28)=0
			play object (t*5)+28
		endif
		if object frame((t*5)+28)>=10.8 and object frame((t*5)+28)<=11.2
			if ThugBulletLife#(t)=0
				Position object (t*5)+29,ThugPos#(t,1),ThugPos#(t,2)+9,ThugPos#(t,3)
				Set object to object orientation (t*5)+29,(t*5)+28
				yrotate object (t*5)+29,wrapvalue(object angle y((t*5)+29)+180)
				ThugBulletLife#(t) =35
				Show object (t*5)+29
				play sound 5
			endif
		endif
	endif
	if SQRT(((ABS(ThugPos#(t,1)-X#))^2)+((ABS(ThugPos#(t,3)-Z#))^2))>(guardlimit(t)+Susp#(t))
		if object visible((t*5)+28)=1
			hide object (t*5)+28
			show object (t*5)+26
			if object playing((t*5)+26)=0 then play object (t*5)+26
			stop object (t*5)+28
		endif
		If Susp#(t)>0 then Susp#(t)=Susp#(1)-0.01
		If Susp#(t)<0 then Susp#(t)=0
	endif
endif
endfunction

I am calling this function using:

+ Code Snippet

for t=1 to thugno
	thugai(t)
next t

object no's are all between 36-45
thugno = 3
Thugpos#(t,1),Thugpos#(t,2) and Thugpos#(t,3) store the x, y and z positions of the object (t*5)+26 respectively
guardlimit(t) is the natural alertness of thug t
susp#(t) is the suspicion of thug t (If he notices you this will go up, but then it will decrease again gradually as he doesnt see you

The models are being rotated by 180 degrees because I need to do that for all the guard models I'm using (DM1 - thug)

Am I the only one here who's really confused?
http://db1games.topcities.com
(used to be demonsbreath)

Back to top

Profile PM Website

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 3rd Jan 2005 00:34

Link

+ Code Snippet

thugno = 3
for t = 1 to thugno
   thugai(t,t*5+26,t*5+28)
next t
wait key
function thugai(index,t,G)
   print index;" ";t;" ";G `testing only
endfunction

this might be an easier way

Back to top

Profile PM

demons breath

20

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 3rd Jan 2005 01:14

Link

Thanks wmf - my function is now

function thugai(index,main,firing,bullet)
	rem -----------------------------thug AI---------------------------
	if object exist(main)=1
		if SQRT(((ABS(ThugPos#(index,1)-X#))^2)+((ABS(ThugPos#(index,3)-Z#))^2))<=(guardlimit(index)+Susp#(index))
			Susp#(index)=10
			position object firing,ThugPos#(index,1),ThugPos#(index,2),ThugPos#(index,3)
			show object firing
			hide object main
			point object firing,X#,Y#,Z#
			yrotate object firing,wrapvalue(object angle y(firing)+180)
			if object playing(firing)=0
				play object firing
			endif
			if object frame(firing)>=10.8 and object frame(firing)<=11.2
				if ThugBulletLife#(index)=0
					Position object bullet,ThugPos#(index,1),ThugPos#(index,2)+9,ThugPos#(index,3)
					Set object to object orientation bullet,firing
					yrotate object bullet,wrapvalue(object angle y(bullet)+180)
					ThugBulletLife#(index) =35
					Show object bullet
					play sound 5
				endif
			endif
		endif
		if SQRT(((ABS(ThugPos#(index,1)-X#))^2)+((ABS(ThugPos#(index,3)-Z#))^2))>(guardlimit(index)+Susp#(index))
			if object visible(firing)=1
				hide object firing
				show object main
				if object playing(main)=0 then play object main
				stop object firing
			endif
			If Susp#(index)>0 then Susp#(index)=Susp#(index)-0.01
			If Susp#(index)<0 then Susp#(index)=0
		endif
	endif
endfunction

+ Code Snippet

function thugai(index,main,firing,bullet)
	rem -----------------------------thug AI---------------------------
	if object exist(main)=1
		if SQRT(((ABS(ThugPos#(index,1)-X#))^2)+((ABS(ThugPos#(index,3)-Z#))^2))<=(guardlimit(index)+Susp#(index))
			Susp#(index)=10
			position object firing,ThugPos#(index,1),ThugPos#(index,2),ThugPos#(index,3)
			show object firing
			hide object main
			point object firing,X#,Y#,Z#
			yrotate object firing,wrapvalue(object angle y(firing)+180)
			if object playing(firing)=0
				play object firing
			endif
			if object frame(firing)>=10.8 and object frame(firing)<=11.2
				if ThugBulletLife#(index)=0
					Position object bullet,ThugPos#(index,1),ThugPos#(index,2)+9,ThugPos#(index,3)
					Set object to object orientation bullet,firing
					yrotate object bullet,wrapvalue(object angle y(bullet)+180)
					ThugBulletLife#(index) =35
					Show object bullet
					play sound 5
				endif
			endif
		endif
		if SQRT(((ABS(ThugPos#(index,1)-X#))^2)+((ABS(ThugPos#(index,3)-Z#))^2))>(guardlimit(index)+Susp#(index))
			if object visible(firing)=1
				hide object firing
				show object main
				if object playing(main)=0 then play object main
				stop object firing
			endif
			If Susp#(index)>0 then Susp#(index)=Susp#(index)-0.01
			If Susp#(index)<0 then Susp#(index)=0
		endif
	endif
endfunction

, and I'm calling it with

+ Code Snippet

for t = 1 to thugno
   thugai(t,t*5+26,t*5+28,t*5+29)
next t

but it still doesn't work [img]

[/img]

Am I the only one here who's really confused?
http://db1games.topcities.com
(used to be demonsbreath)

Back to top

Profile PM Website

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 3rd Jan 2005 02:46

Link

is x#,y#,z$ and any other variables in the function declared global.
I can't run the code so I can't help very much.

Back to top

Profile PM

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 3rd Jan 2005 02:49

Link

oops, correction z#

Back to top

Profile PM

blanky

20

Years of Service

User Offline

Joined: 3rd Aug 2004

Location: ./

Posted: 3rd Jan 2005 19:01

Link

Yeah - for example, the following code WOULD NOT WORK:

(DBC & DBPro-compatible)

z#=3.1
DoStuff()
wait key
end
function DoStuff()
print z#
endfunction

You'd get a big '0' on your screen.

This is because variables that are inside a function, and variables that are outside a function are kept seperate, and as soon as a function finishes all that function's variables disappear.

Therefore, I think it'd be better to actually do the moving and animating code of the thugs inside the ThugAI() function.

2005. 2005. 2005. No way. 2005. 2005. You've got to be kidding me. 2005 already!?

Back to top

Profile PM Email Website

demons breath

20

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 3rd Jan 2005 19:02 Edited at: 3rd Jan 2005 19:10

Link

oops...

I'll jus change those to camera position z() etc...

[edit]
:-( DBC doesn't support global variables... guess I'll have to do everything the hard way - how do you return values from a function? because I'll need to do that for all of the Susp# values etc...
[/edit]

Am I the only one here who's really confused?
http://db1games.topcities.com
(used to be demonsbreath)

Back to top

Profile PM Website

demons breath

20

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 4th Jan 2005 02:26

Link

Thanks a lot for all the help - I decided just to use a gosub instead of a function in the end.

Am I the only one here who's really confused?
http://db1games.topcities.com
(used to be demonsbreath)

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Function Problem!!!