Setting My 2D Character in a course

Author

Message

Zeus

18

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 24th Sep 2006 03:07

Link

I need my character (a dog) to move by himself, but with a course.
I dont want him to run off screen I want him to move up down, left or right just not off screen!!

Thanks For Your Help!

Back to top

Profile PM Email

H4ck1d

18

Years of Service

User Offline

Joined: 27th Dec 2005

Location: Yes

Posted: 24th Sep 2006 04:08

Link

Well you could do two things. First of all, to make it random you could randomly pick a point and then have him move toward it. Then when he gets there, pick a new one and repeat. Or, if you want him to follow a pre-determined path, use "waypoints".

-H4ck1d

Back to top

Profile PM Website

Zeus

18

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 24th Sep 2006 15:20

Link

May In have an example please?

Thanks

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 24th Sep 2006 18:50

Link

I'll whip one up Jordan.

Back to top

Profile PM Email Website

Zeus

18

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 24th Sep 2006 18:59

Link

Thanks!

I am sorry for spamming and posting ridiculous posts, I will not do it again.

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 24th Sep 2006 19:11

Link

Another (more complicated/pointless) way of doing it is:

Se5t a random angle and a random distance, and make him walk along that distance at that angle, when he gets to the end, randomize the angle, and randomize the distance. You could calculate the final positions that he would get to if he walked along that line, and if they are outside the screen, then randomize them again.

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 24th Sep 2006 19:25

Link

Well, I'm in a bit of a rush, so I made the dog ingame...

Hope you can figure most of this out, read through it carefully.

Sync On

`Make Dog
Create Bitmap 1,128,128
Box 32,5,96,40,rgb(139,69,19),rgb(139,69,19),rgb(139,69,19),rgb(139,69,19)
Box 4,40,124,120,rgb(160,82,45),rgb(160,82,45),rgb(160,82,45),rgb(160,82,45)
for spots=1 to 100
dot rnd(120)+4,rnd(80)+40,rgb(139,69,19)
next spots
Get Image 5,0,0,128,128
Delete Bitmap 1

`Make Sprite for Dog
Sprite 5,1,1,5

`Make Waypoints
Dim WayPoint(5,2)
WayPoint(1,1)=5 : WayPoint(1,2)=5
WayPoint(2,1)=500 : WayPoint(2,2)=190
WayPoint(3,1)=180 : WayPoint(3,2)=300
WayPoint(4,1)=440 : WayPoint(4,2)=375
WayPoint(5,1)=675 : WayPoint(5,2)=440

X#=WayPoint(1,1) : Y#=WayPoint(1,2)
CurrentWaypoint=1

Do
Sprite 5,X#,Y#,5
X#=Sprite X(5)
Y#=Sprite Y(5)

For Waypoints=1 to 5
If X#=WayPoint(Waypoints,1) and Y#=WayPoint(Waypoints,2) then CurrentWaypoint=rnd(4)+1
Next Waypoints

If Waypoint(CurrentWaypoint,1)<X# then rotate sprite 5,270 : dec X#,1
If Waypoint(CurrentWaypoint,1)>X# then rotate sprite 5,90  : inc X#,1
If Waypoint(CurrentWaypoint,2)<Y# then rotate sprite 5,0   : dec Y#,1
If Waypoint(CurrentWaypoint,2)>Y# then rotate sprite 5,180 : inc Y#,1

Sync
Loop

+ Code Snippet

Sync On

`Make Dog
Create Bitmap 1,128,128
Box 32,5,96,40,rgb(139,69,19),rgb(139,69,19),rgb(139,69,19),rgb(139,69,19)
Box 4,40,124,120,rgb(160,82,45),rgb(160,82,45),rgb(160,82,45),rgb(160,82,45)
for spots=1 to 100
dot rnd(120)+4,rnd(80)+40,rgb(139,69,19)
next spots
Get Image 5,0,0,128,128
Delete Bitmap 1

`Make Sprite for Dog
Sprite 5,1,1,5

`Make Waypoints
Dim WayPoint(5,2)
WayPoint(1,1)=5 : WayPoint(1,2)=5
WayPoint(2,1)=500 : WayPoint(2,2)=190
WayPoint(3,1)=180 : WayPoint(3,2)=300
WayPoint(4,1)=440 : WayPoint(4,2)=375
WayPoint(5,1)=675 : WayPoint(5,2)=440

X#=WayPoint(1,1) : Y#=WayPoint(1,2)
CurrentWaypoint=1

Do
Sprite 5,X#,Y#,5
X#=Sprite X(5)
Y#=Sprite Y(5)

For Waypoints=1 to 5
If X#=WayPoint(Waypoints,1) and Y#=WayPoint(Waypoints,2) then CurrentWaypoint=rnd(4)+1
Next Waypoints

If Waypoint(CurrentWaypoint,1)<X# then rotate sprite 5,270 : dec X#,1
If Waypoint(CurrentWaypoint,1)>X# then rotate sprite 5,90  : inc X#,1
If Waypoint(CurrentWaypoint,2)<Y# then rotate sprite 5,0   : dec Y#,1
If Waypoint(CurrentWaypoint,2)>Y# then rotate sprite 5,180 : inc Y#,1



Sync
Loop

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 24th Sep 2006 19:26

Link

Xeno,
That wont work for DBC, the box command doesn't have the color functionality.

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 24th Sep 2006 19:27

Link

Aww snap, i'm in a rush, someone please fix it?

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 24th Sep 2006 19:36 Edited at: 24th Sep 2006 19:37

Link

I'll do it!

[edit]
Ah crap, I gtg now, someone else can do it.

Back to top

Profile PM Email

Aaron Miller

18

Years of Service

User Offline

Joined: 25th Feb 2006

Playing: osu!

Posted: 25th Sep 2006 03:59

Link

@Jordan
Please attempt to do what it is your asking. Im seriously surprised people reacted positively to this. You've been here about 2 months, and have made (probably) over 50 posts asking for code snippets, giving WIPs that havnt actually been started, and have been banned. There is good reason to you have been banned, now, you are getting better. And it appears that you are trying to be better. But, (maybe i missed something) you need to try to do what you are asking, or have searched, or be completely clueless.

With that aside, waypoints is what you are looking for.

http://forum.thegamecreators.com/?m=forum_view&t=86045&b=8
http://z6.invisionfree.com/gamedev/index.php?act=idx

Back to top

Profile PM Email Website

H4ck1d

18

Years of Service

User Offline

Joined: 27th Dec 2005

Location: Yes

Posted: 25th Sep 2006 04:15

Link

Ah, give him a break. There is some truth there, however, it is definitely beneficial for you if you could try to figure some of the code out for yourself. Xenocythe's code looks pretty good, I would imagine you could integrate it into your current project without too much trouble. Good luck, and don't give up!

-H4ck1d

Back to top

Profile PM Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 25th Sep 2006 21:33

Link

DB User,

It turns out he has, check WIP

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 25th Sep 2006 22:19

Link

Here, this is how I would go about doing it. I'm not extremely fond of waypoints. This was written in DBC to make sure it would work. Never knew DBC didn't have a rotate sprite command :S

`setup
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse

`***Limits*** < Change this stuff
minx#=10 : miny#=10
maxx#=500 : maxy#=500

`create dog
create bitmap 1,32,32 : set current bitmap 1
	ink rgb(128,64,0),0 : box 0,0,31,31
	ink rgb(0,0,30),0 : center text 16,16-(text size()/2),"dog"
	get image 1,0,0,32,32
set current bitmap 0 : delete bitmap 1

`setup ai
ang#=rnd(360) : dist#=rnd(100)+100
x#=(minx#+maxx#)/2 : y#=(miny#+maxy#)/2
cx#=x# : cy#=y#
speed#=5

`main loop
do

`get average size of limits
avglimit#=((maxx#-minxx#)+(maxy#-miny#))/2

`calculate final positions
fx#=cx#+(sin(ang#)*dist#)
fy#=cy#+(cos(ang#)*dist#)

`move dog
x#=x#+sin(ang#)
y#=y#+cos(ang#)

`check if dog reaches final position...
if int(x#)=int(fx#) and int(y#)=int(fy#)
	`randomize angle and distance of travel
	ang#=rnd(360) : dist#=rnd(avglimit#/4)+(avglimit#/4)
	`get positions...
	cx#=x# : cy#=y#
endif

`check if final positions are outwith the limits...
if fx#<=minx# or fx#>=maxx# or fy#<=miny# or fy#>=maxy#
	`randomize angle and distance of travel
	ang#=rnd(360) : dist#=rnd(avglimit#/4)+(avglimit#/4)
	`get positions...
	cx#=x# : cy#=y#
endif

`draw dog
sprite 1,x#-16,y#-16,1

`show line of walking...
ink rgb(255,255,255),0
line cx#,cy#,fx#,fy#
`***Remove These Lines In Actual Game (Unless You Want To Show The Path)***

`show limits
line minx#,miny#,maxx#,miny#
line minx#,miny#,minx#,maxy#
line maxx#,miny#,maxx#,maxy#
line minx#,maxy#,maxx#,maxy#

`changing the limits :
if upkey() then dec maxy#,2
if downkey() then inc maxy#,2
if leftkey() then dec maxx#,2
if rightkey() then inc maxx#,2
text 10,screen height()-100,"Use Arrow Keys to Change Size of Room"
text 10,screen height()-50,"Size X: "+str$(maxx#)
text 10,screen height()-30,"Size Y: "+str$(maxy#)

sync
cls
loop

+ Code Snippet

`setup
sync on : sync rate 60
set display mode 1024,768,32 : hide mouse

`***Limits*** < Change this stuff
minx#=10 : miny#=10
maxx#=500 : maxy#=500

`create dog
create bitmap 1,32,32 : set current bitmap 1
	ink rgb(128,64,0),0 : box 0,0,31,31
	ink rgb(0,0,30),0 : center text 16,16-(text size()/2),"dog"
	get image 1,0,0,32,32
set current bitmap 0 : delete bitmap 1

`setup ai
ang#=rnd(360) : dist#=rnd(100)+100
x#=(minx#+maxx#)/2 : y#=(miny#+maxy#)/2
cx#=x# : cy#=y#
speed#=5

`main loop
do

`get average size of limits
avglimit#=((maxx#-minxx#)+(maxy#-miny#))/2

`calculate final positions
fx#=cx#+(sin(ang#)*dist#)
fy#=cy#+(cos(ang#)*dist#)

`move dog
x#=x#+sin(ang#)
y#=y#+cos(ang#)

`check if dog reaches final position...
if int(x#)=int(fx#) and int(y#)=int(fy#)
	`randomize angle and distance of travel
	ang#=rnd(360) : dist#=rnd(avglimit#/4)+(avglimit#/4)
	`get positions...
	cx#=x# : cy#=y#
endif


`check if final positions are outwith the limits...
if fx#<=minx# or fx#>=maxx# or fy#<=miny# or fy#>=maxy#
	`randomize angle and distance of travel
	ang#=rnd(360) : dist#=rnd(avglimit#/4)+(avglimit#/4)
	`get positions...
	cx#=x# : cy#=y#
endif


`draw dog
sprite 1,x#-16,y#-16,1

`show line of walking...
ink rgb(255,255,255),0
line cx#,cy#,fx#,fy#
`***Remove These Lines In Actual Game (Unless You Want To Show The Path)***

`show limits
line minx#,miny#,maxx#,miny#
line minx#,miny#,minx#,maxy#
line maxx#,miny#,maxx#,maxy#
line minx#,maxy#,maxx#,maxy#


`changing the limits :
if upkey() then dec maxy#,2
if downkey() then inc maxy#,2
if leftkey() then dec maxx#,2
if rightkey() then inc maxx#,2
text 10,screen height()-100,"Use Arrow Keys to Change Size of Room"
text 10,screen height()-50,"Size X: "+str$(maxx#)
text 10,screen height()-30,"Size Y: "+str$(maxy#)


sync
cls
loop

I expect that you would have to change it round a little for it to fit your code, so really, you have to know how it work. Before you ask, please, please please please, study it a bit and try to learn what it all means.

Back to top

Profile PM Email

Zeus

18

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 26th Sep 2006 00:54 Edited at: 26th Sep 2006 00:55

Link

My computer froze while I was playing it!

I am sorry for spamming and posting ridiculous posts, I will not do it again.

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 27th Sep 2006 02:42

Link

Hmmm... try changing the last parameter of 'Set Display Mode' (2nd line) to 16.

Back to top

Profile PM Email

Zeus

18

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 27th Sep 2006 03:19 Edited at: 27th Sep 2006 03:20

Link

The frst 1 right?

I am sorry for spamming and posting ridiculous posts, I will not do it again.

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 27th Sep 2006 23:00

Link

huh?

Back to top

Profile PM Email

Zeus

18

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 28th Sep 2006 00:37

Link

Do I change the first digit?

I am sorry for spamming and posting ridiculous posts, I will not do it again.

Back to top

Profile PM Email

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 28th Sep 2006 19:02

Link

Nope, the last parameter, so it looks like "Set Display Mode 1024,768,16"

Back to top

Profile PM Email

Zeus

18

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 28th Sep 2006 23:55

Link

Wait!! I got it!! I used this method.
(this doesn't use a sprite)

+ Code Snippet

x=x+5
if x=0 then x=x+5 : y=y-5

Crazy But wrks!!

Thnx Again!

I am sorry for spamming and posting ridiculous posts, I will not do it again.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Setting My 2D Character in a course