quick compass (no media required)

Author

Message

jwurmz

21

Years of Service

User Offline

Joined: 6th Oct 2003

Location: Arizona, USA

Posted: 6th Jul 2004 14:51 Edited at: 6th Jul 2004 16:23

Link

i whipped up some code that shows how to implement a compass into your game:

Rem Project: EZcompass
Rem Created: 7/5/2004 9:14:56 PM

Rem Initialize the program's behavior
set display mode 800, 600, 32
sync on
hide mouse
randomize timer()
ink rgb(255, 255, 255), rgb(0, 0, 0)

Rem Initialize variables - compass radius, initial angle, and (x,y)origin of compass
radius=75
anglex=rnd(360)
x=400
y=300

Rem Main loop
do
Rem Find "direction" (8-way) by angle
if anglex>=337.5 or anglex=<22.5 then dir$="SO"
if anglex>=292.5 and anglex=<337.5 then dir$="SW"
if anglex>=247.5 and anglex=<292.5 then dir$="WE"
if anglex>=202.5 and anglex=<247.5 then dir$="NW"
if anglex>=157.5 and anglex=<202.5 then dir$="NO"
if anglex>=112.5 and anglex=<157.5 then dir$="NE"
if anglex>=67.5 and anglex=<112.5 then dir$="EA"
if anglex>=22.5 and anglex=<67.5 then dir$="SE"
Rem Is the mouse moving left or right?
mx=mousemovex()
Rem Calculate the (x,y) position of the needle tip and "direction"
if mouseclick()=1 and radius>1 then radius=radius-1
if mouseclick()=2 and radius<250 then radius=radius+1
lx=int(sin(anglex)*(radius-(radius/10)*2))
ly=int(cos(anglex)*(radius-(radius/10)*2))
cx=int(sin(anglex)*(radius-(radius/10)))
cy=int(cos(anglex)*(radius-(radius/10)))
tx=int(sin(anglex)*(radius+(radius/10)*2))
ty=int(cos(anglex)*(radius+(radius/10)*2))
Rem Draw compass
circle x, y, radius
circle cx+x, cy+y, (radius/10)
line x, y, lx+x, ly+y
center text tx+x, ty+y, dir$
text 1, 1, "Use mouse to rotate needle, and left/right click to scale compass"
sync
Rem Apply mousemove() to direction and wrap the new angle (1-360)
if mx<>0 then anglex=anglex-mx
if anglex<1 then anglex=anglex+360
if anglex>360 then anglex=anglex-360
cls
loop

+ Code Snippet

Rem Project: EZcompass
Rem Created: 7/5/2004 9:14:56 PM

Rem Initialize the program's behavior
set display mode 800, 600, 32
sync on
hide mouse
randomize timer()
ink rgb(255, 255, 255), rgb(0, 0, 0)

Rem Initialize variables - compass radius, initial angle, and (x,y)origin of compass
radius=75
anglex=rnd(360)
x=400
y=300

Rem Main loop
do
Rem Find "direction" (8-way) by angle
if anglex>=337.5 or anglex=<22.5 then dir$="SO"
if anglex>=292.5 and anglex=<337.5 then dir$="SW"
if anglex>=247.5 and anglex=<292.5 then dir$="WE"
if anglex>=202.5 and anglex=<247.5 then dir$="NW"
if anglex>=157.5 and anglex=<202.5 then dir$="NO"
if anglex>=112.5 and anglex=<157.5 then dir$="NE"
if anglex>=67.5 and anglex=<112.5 then dir$="EA"
if anglex>=22.5 and anglex=<67.5 then dir$="SE"
Rem Is the mouse moving left or right?
mx=mousemovex()
Rem Calculate the (x,y) position of the needle tip and "direction"
if mouseclick()=1 and radius>1 then radius=radius-1
if mouseclick()=2 and radius<250 then radius=radius+1
lx=int(sin(anglex)*(radius-(radius/10)*2))
ly=int(cos(anglex)*(radius-(radius/10)*2))
cx=int(sin(anglex)*(radius-(radius/10)))
cy=int(cos(anglex)*(radius-(radius/10)))
tx=int(sin(anglex)*(radius+(radius/10)*2))
ty=int(cos(anglex)*(radius+(radius/10)*2))
Rem Draw compass
circle x, y, radius
circle cx+x, cy+y, (radius/10)
line x, y, lx+x, ly+y
center text tx+x, ty+y, dir$
text 1, 1, "Use mouse to rotate needle, and left/right click to scale compass"
sync
Rem Apply mousemove() to direction and wrap the new angle (1-360)
if mx<>0 then anglex=anglex-mx
if anglex<1 then anglex=anglex+360
if anglex>360 then anglex=anglex-360
cls
loop

free to use, hope it helps someone.

"Creativity is knowing how to hide your sources" - Einstein

Back to top

Profile PM Website

jwurmz

21

Years of Service

User Offline

Joined: 6th Oct 2003

Location: Arizona, USA

Posted: 6th Jul 2004 14:55

Link

sorry, works now

"Creativity is knowing how to hide your sources" - Einstein

Back to top

Profile PM Website

MikeS

Retired Moderator

21

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: United States

Posted: 7th Jul 2004 04:07

Link

Very nice and simple.

A book? I hate book. Book is stupid.
(Formerly known as Yellow)

Back to top

Profile PM Email

jwurmz

21

Years of Service

User Offline

Joined: 6th Oct 2003

Location: Arizona, USA

Posted: 7th Jul 2004 05:43

Link

exactly, this was just meant as an example of how to put a compass in. i'll leave the bells and whistles for someone else to work on...

"Creativity is knowing how to hide your sources" - Einstein

Back to top

Profile PM Website

Ilya

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 23rd Jul 2004 12:06 Edited at: 23rd Jul 2004 12:08

Link

Note:

+ Code Snippet

This Is A Copy Of A Post I Posted For The Same App On Codebase.

Good.

I've Added The Angle After The NE/NW/SE/SW/N/E/W/S Text:

set display mode 800, 600, 32:sync on:hide mouse:randomize timer():ink rgb(255, 255, 255), rgb(0, 0, 0):radius=75:anglex=rnd(360):x=400:y=300
do:mx=mousemovex():cls
if anglex>=337.5 or anglex=<22.5 then dir$="SO"
if anglex>=292.5 and anglex=<337.5 then dir$="SW"
if anglex>=247.5 and anglex=<292.5 then dir$="WE"
if anglex>=202.5 and anglex=<247.5 then dir$="NW"
if anglex>=157.5 and anglex=<202.5 then dir$="NO"
if anglex>=112.5 and anglex=<157.5 then dir$="NE"
if anglex>=67.5 and anglex=<112.5 then dir$="EA"
if anglex>=22.5 and anglex=<67.5 then dir$="SE"
if mouseclick()=1 and radius>1 then radius=radius-1
if mouseclick()=2 and radius<250 then radius=radius+1
lx=int(sin(anglex)*(radius-(radius/10)*2)):ly=int(cos(anglex)*(radius-(radius/10)*2))
cx=int(sin(anglex)*(radius-(radius/10))):cy=int(cos(anglex)*(radius-(radius/10)))
tx=int(sin(anglex)*(radius+(radius/10)*2)):ty=int(cos(anglex)*(radius+(radius/10)*2))
circle x, y, radius:circle cx+x, cy+y, (radius/10):line x, y, lx+x, ly+y:SET CURSOR tx+x, ty+y:PRINT dir$;" ";anglex:text 1, 1, "Use mouse to rotate needle, and left/right click to scale compass":sync
if mx<>0 then anglex=anglex-mx
if anglex<1 then anglex=anglex+360
if anglex>360 then anglex=anglex-360
loop

+ Code Snippet

set display mode 800, 600, 32:sync on:hide mouse:randomize timer():ink rgb(255, 255, 255), rgb(0, 0, 0):radius=75:anglex=rnd(360):x=400:y=300
do:mx=mousemovex():cls
if anglex>=337.5 or anglex=<22.5 then dir$="SO"
if anglex>=292.5 and anglex=<337.5 then dir$="SW"
if anglex>=247.5 and anglex=<292.5 then dir$="WE"
if anglex>=202.5 and anglex=<247.5 then dir$="NW"
if anglex>=157.5 and anglex=<202.5 then dir$="NO"
if anglex>=112.5 and anglex=<157.5 then dir$="NE"
if anglex>=67.5 and anglex=<112.5 then dir$="EA"
if anglex>=22.5 and anglex=<67.5 then dir$="SE"
if mouseclick()=1 and radius>1 then radius=radius-1
if mouseclick()=2 and radius<250 then radius=radius+1
lx=int(sin(anglex)*(radius-(radius/10)*2)):ly=int(cos(anglex)*(radius-(radius/10)*2))
cx=int(sin(anglex)*(radius-(radius/10))):cy=int(cos(anglex)*(radius-(radius/10)))
tx=int(sin(anglex)*(radius+(radius/10)*2)):ty=int(cos(anglex)*(radius+(radius/10)*2))
circle x, y, radius:circle cx+x, cy+y, (radius/10):line x, y, lx+x, ly+y:SET CURSOR tx+x, ty+y:PRINT dir$;" ";anglex:text 1, 1, "Use mouse to rotate needle, and left/right click to scale compass":sync
if mx<>0 then anglex=anglex-mx
if anglex<1 then anglex=anglex+360
if anglex>360 then anglex=anglex-360
loop

I Had To Use The Print Command And At A Certain Angle, The Text Is Inside The Circle.

Testing Something

+ Code Snippet

[code][code][code][code]COOL.

[/code][/code][/code][/code]

-Ilya

+ Code Snippet

[code][code][code]COOL.[/code]

+ Code Snippet

[code][code]COOL.[/code][/code]

+ Code Snippet

[code]COOL.[/code][/code][/code]

+ Code Snippet

COOL.[/code][/code][/code][/code]

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Code Snippets / quick compass (no media required)