Newb question! - GameCreators Forum

Author

Message

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 11th Apr 2003 16:01

Link

Ok, I am new to DarkBasic and ive got PRO trial ( well havent installed it yet until im ready cause i dont want to waste my 30 days

), k.

Well ive had alot of experience from Macromedia Flash and i'm not sure if in dark basic if you can go:

bullet.x=5 .....and etc.

basicly ill be wanting to move lots of bullets so i got:

for Count=1 to BulletCount step 1
Count.x=Count.x+2
Count.y=Count.y+2
sprite Count, Count.x , Count.y , 1
next Count

OK, now ive really confused myself... basicly i'll be having lots of objects and rather than 100 bullets each using a different variable eg. Bullet1x, bullet2x, bullet3x etc. and making it all messy. They all have their nice and tidy '.x' and '.y' inside them.

And lastly is there a way to give sprites 'Instances' like 'Bullet1' rather than confusing numbers.

phew! I'm really confused.. Flash is so easy cause everything is visible, with this you have to sort everything out in your mind!

thanx in advance!
drum

Back to top

Profile PM

Kentaree

21

Years of Service

User Offline

Joined: 5th Oct 2002

Location: Clonmel, Ireland

Posted: 11th Apr 2003 16:09

Link

Uhm, if I understand this right, then yeah.
Use arrays:

+ Code Snippet

dim BulletNo(999,2)

for Count=0 to BulletCount-1
BulletNo(Count,0)=BulletNo(Count,0)+2
BulletNo(Count,1)=BulletNo(Count,1)+2
sprite Count, BulletNo(Count,0) , BulletNo(Count,1),1
next Count

This will make a 2d array that can contain 999x2 Values, 999 being each of the bullets, and 2 being the x and y coordinates.

Whatever I did I didn't do it!

Back to top

Profile PM Email Website

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 11th Apr 2003 16:21

Link

Hmmm thanx for the reply!

1) And when i write :
Sprite 1,x,y,1
Does this put the picture on the screen at x and y, saying ive loaded a bmp and called it 1? or do i have to paste!!!??

Thanx for your patience with me

Drum

p.s Can i write Sprite bullet1,x,y,1 ???? would this work?

Back to top

Profile PM

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 12th Apr 2003 08:03

Link

??

Back to top

Profile PM

Megaman Zero

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: United States

Posted: 12th Apr 2003 08:34

Link

Drum, if you install it, you can go to Help>Index & look for the command you are looking for, & it gives you an example too. Basic is almost completely different than any version of flash. I used to use Flash 5, its similar, but not the same.

Basicaly, you would want to read a tutorial on this. Load your sprite with code & the media bar. Then you can do all sorts of things with the different names & stuff. Ill get the example that comes with the Demo of Dark Basic Pro for Sprites...

+ Code Snippet

Return Integer=SPRITE IMAGE(Sprite Number)

And thats just one of the many sprite commands in Dark Basic Pro. Most programming languages are different than most internet programming languages. Flash 5 is the closest that I have found to a real programming language, so it shouldnt be to hard for you to learn.

Go to http://www.darkbasic.com, & click on the Create tab & look for the tutorials. The more specific section is the Online 3D Tutorials section, in the create tab.

Try to install it, & learn the different areas of the help file (first selection on the top.) You could do a lot more & learn a lot more, if you would install it. It bunches a lot of code into different colors & it can be set up to auto indent, so you can learn a lot more, if you install the demo, rather than not installing it. Sure its only 30 day, but most people can play around with it enough to see if they like it, then they either buy it, or not buy it, based on their decision.

I hope this helps,

The Shadow Guyver
http://heero_yuy1983.tripod.com/nrtp/
http://groups.msn.com/EmpireofMan

Back to top

Profile PM Website

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 13th Apr 2003 04:08

Link

Thanx ,
I plan on installing it very soon

DRUm

Back to top

Profile PM

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 14th Apr 2003 03:46

Link

hey?
if i have

COUNT=1000
for COUNT to 1000
BLAH
BLAH
next COUNT

would this do all the BLAH BLAH once? or totally skip it?

cheers
DRUM

Back to top

Profile PM

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 14th Apr 2003 03:49

Link

whoops i sorta screwed that one up

for COUNT=1000 to 1000
BLAH
BLAH
next COUNT

Back to top

Profile PM

Whisper Wind

21

Years of Service

User Offline

Joined: 5th Apr 2003

Location:

Posted: 14th Apr 2003 04:26

Link

It would do all the BLAH BLAH once. First it sees that COUNT is 1000 and goes and does BLAH BLAH. Then, on "next COUNT", it tries to set COUNT one higher, but notices that COUNT has already reached the maximum value and stops. Hope that helps.

Back to top

Profile PM Email

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 14th Apr 2003 06:42

Link

thanx mate!

DRUM

Back to top

Profile PM

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 14th Apr 2003 07:27 Edited at: 14th Apr 2003 07:28

Link

hey guys, thanx for all your help!

I've been working on some code (my first code ever in dark Basic) and its pretty basic, can you run it (lol, this is sad, cause i don't have dark at the moment) and tell me what you see. Thats if it workx!
OK, i know im asking alot of you guys, so
(whoops didnt work, ill try agian)

+ Code Snippet

Sync on
Sync Rate 90

Function Bullet(x,y)
Sprite BulletCount,x,y,2
Xdiff# = mousex-x
Ydiff# = mousey-y
radAngle# = atan(Ydiff, Xdiff)
FinalAngle# = radAngle*360/6.2831
BulletNo(BulletCount-1000,2)=FinalAngle
endFunction

Box 0,0,50,50
Get Image 1,0,0,50,50
Cls
Box 0,0,5,5
Get Image 2,0,0,5,5
Cls
 
y=SCREEN HEIGHT()/2
x=SCREEN WIDTH()/2
sprite 1,x,y,1
BulletCount=1000
dim BulletNo(999,3)

DO
if LEFTKEY()=1 THEN x=x-2
if RIGHTKEY()=1 THEN x=x+2
if SPACEKEY()=1 THEN Bullet(x,y):BulletCount=BulletCount+1
Sprite 1,x,y,1

for Count=1000 to BulletCount-1
BulletNo(Count-1000,1)=BulletNo(Count-1000,1)+((-2)*cos(0.0174532925199433*BulletNo(Count-1000,2)))
BulletNo(Count-1000,0)=BulletNo(Count-1000,0)+((2)*sin(0.0174532925199433*BulletNo(Count-1000,2)))
sprite Count, BulletNo(Count,0) , BulletNo(Count,1),1
next Count

SYNC
Loop

THANX
Drum

Back to top

Profile PM

just a ji

21

Years of Service

User Offline

Joined: 13th Apr 2003

Location:

Posted: 14th Apr 2003 10:48

Link

SYNTAX
Return Float=ATAN(Value)

you're getting an error because this atan() function only takes one value..

there are 10 kinds of people.. those who understand binary logic, and those who don't.

Back to top

Profile PM

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 14th Apr 2003 11:54 Edited at: 14th Apr 2003 11:56

Link

O damn....
does anyone know how to fix this???

In my flash file which i based this code from, they have

MATH.Atan2( , )

Is there anything similar in dark basic or PRO or is there a way to do this using two atan's????

arrrghhh.... i was so excited!

thanx
DRUM

Back to top

Profile PM

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 14th Apr 2003 12:05 Edited at: 14th Apr 2003 12:06

Link

Ok i Think i got it now:
I had to change Atan to Atanfull

cmon cmon cmon, plz work

(edit, forgot to put the code in)

+ Code Snippet

Sync on
Sync Rate 90

Function Bullet(x,y)
Sprite BulletCount,x,y,2
Xdiff# = mousex-x
Ydiff# = mousey-y
radAngle# = atanfull(Ydiff, Xdiff)
FinalAngle# = radAngle*360/6.2831
BulletNo(BulletCount-1000,2)=FinalAngle
endFunction

Box 0,0,50,50
Get Image 1,0,0,50,50
Cls
Box 0,0,5,5
Get Image 2,0,0,5,5
Cls
 
y=SCREEN HEIGHT()/2
x=SCREEN WIDTH()/2
sprite 1,x,y,1
BulletCount=1000
dim BulletNo(999,3)

DO
if LEFTKEY()=1 THEN x=x-2
if RIGHTKEY()=1 THEN x=x+2
if SPACEKEY()=1 THEN Bullet(x,y):BulletCount=BulletCount+1
Sprite 1,x,y,1

for Count=1000 to BulletCount-1
BulletNo(Count-1000,1)=BulletNo(Count-1000,1)+((-2)*cos(0.0174532925199433*BulletNo(Count-1000,2)))
BulletNo(Count-1000,0)=BulletNo(Count-1000,0)+((2)*sin(0.0174532925199433*BulletNo(Count-1000,2)))
sprite Count, BulletNo(Count,0) , BulletNo(Count,1),1
next Count

SYNC
Loop

thanx people
DRUM

Back to top

Profile PM

just a ji

21

Years of Service

User Offline

Joined: 13th Apr 2003

Location:

Posted: 14th Apr 2003 13:00

Link

not sure what your desired effect was, so i'm not sure if it worked or not.. at first, the code runs down to the function and exits(???)... then i moved the func to the end of the code and it drew the box... then moved it left or right, then on space another box (top-left) appeared and went away on release... hope this helps..

there are 10 kinds of people.. those who understand binary logic, and those who don't.

Back to top

Profile PM

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 14th Apr 2003 14:33

Link

mmmm... thats obviously screwed up, but thanx anywayz.

are the functions meant to be at the end?

Back to top

Profile PM

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 14th Apr 2003 16:55

Link

OK OK!

im almost absolutely sure this will work, i just picked up a few bugs... if this one dont work ill stop asking you guys (unless you willing to help me) K im an idiot

here i go:

+ Code Snippet

Function Bullet()
Sprite BulletCount,x,y,2
Xdiff# = mousex()-x
Ydiff# = mousey()-y
radAngle# = atanfull(Ydiff, Xdiff)
FinalAngle# = radAngle*360/6.2831
BulletNo(BulletCount,2)=FinalAngle
endFunction

Sync on
Sync Rate 90

Box 0,0,50,50
Get Image 1,0,0,50,50
Cls
Box 0,0,5,5
Get Image 2,0,0,5,5
Cls
 
y=SCREEN HEIGHT()/2
x=SCREEN WIDTH()/2
sprite 1,x,y,1
BulletCount=1000
dim BulletNo(2000,3)

DO
if LEFTKEY()=1 THEN x=x-2
if RIGHTKEY()=1 THEN x=x+2
if SPACEKEY()=1 THEN Bullet():BulletCount=BulletCount+1
Sprite 1,x,y,1

for Count=1000 to BulletCount-1
BulletNo(Count,1)=BulletNo(Count,1)+((-2)*cos(0.0174532925199433*BulletNo(Count,2)))
BulletNo(Count,0)=BulletNo(Count,0)+((2)*sin(0.0174532925199433*BulletNo(Count,2)))
sprite Count, BulletNo(Count,0) , BulletNo(Count,1),2
next Count

SYNC
Loop

This baby should show a large box. Move him left and right. Now move ya mouse up at a certain angle. Hit space. it should shoot a 5 pixel box up at the angle of the mouse

That is all!!!!!

Back to top

Profile PM

just a ji

21

Years of Service

User Offline

Joined: 13th Apr 2003

Location:

Posted: 14th Apr 2003 20:55

Link

it looks like you function does need to be at the end, and after i move it there, it's compiling and running fine. so your syntax is good, but on 'space', i'm getting an error from your do:loop saying "Sprite number must be greater than zero"

there are 10 kinds of people.. those who understand binary logic, and those who don't.

Back to top

Profile PM

matt rochon

21

Years of Service

User Offline

Joined: 15th Mar 2003

Location: Canada

Posted: 14th Apr 2003 21:26

Link

i had the same thing, send BulletCount as a parameter to the function
and it works

Back to top

Profile PM

Drum

21

Years of Service

User Offline

Joined: 10th Apr 2003

Location:

Posted: 15th Apr 2003 03:17

Link

Thanx everyone!!!
DRUM

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Newb question!