Can someone plz help me wit my 2d animation!!!!!!!

Author

Message

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 5th Nov 2004 10:47

Link

right now im just tryin to get megaman to switch to a shooting image and shoot a ball when i press the enter key. but when i do so i can only shoot the ball once and theres 2 sprites on the screen!
plz help. Im only 13 for cryin out loud!

+ Code Snippet

x1= 358
xshot= x1

do

sprite 1,x,y,1

if x> 600
x= 600
endif

if x< 0
x= 0
endif

if returnkey()= 1
sprite 2,x,y,2
sprite 3,xshot,250,3
for xshot= x to 640
next xshot
else
cls
sprite 1,x,y,1
endif

if rightkey()= 1
x= x+5
x1= x1+5
else
sprite 1,x,y,1
endif

if leftkey()= 1
x= x-5
x1= x1-5
else
sprite 1,x,y,1
endif
sync
loop
endfunction

Back to top

Profile PM

Ilya

20

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 5th Nov 2004 11:12

Link

Why'd you put endfunction in your code without declaring a function?

Quote: "I've seen the word programming and I'm not sure what it means. Anybody please explain?"

Quote: "We shouldn't sacrifice the truth to preserve "balance"."

Back to top

Profile PM Email Website

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 5th Nov 2004 11:48

Link

Im sorry dudes!!! I didnt copy all the code. Well heres all of it!!!

+ Code Snippet

sync on

x= 320
y= 240



shoot()

end

function shoot()

load image "megamanstill.bmp", 1

load image "megamanshootingwoball.bmp", 2

load image "megamanshot.bmp", 3

hide mouse

x= 320
y= 240
x1= 358
xshot= x1

do

sprite 1,x,y,1

if x> 600
x= 600
endif

if x< 0
x= 0
endif

if returnkey()= 1
sprite 2,x,y,2
sprite 3,xshot,250,3
for xshot= x to 640
next xshot
else
cls
sprite 1,x,y,1
endif

if rightkey()= 1
x= x+5
x1= x1+5
else
sprite 1,x,y,1
endif

if leftkey()= 1
x= x-5
x1= x1-5
else
sprite 1,x,y,1
endif
sync
loop
endfunction

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 5th Nov 2004 11:50

Link

Is that bettah?

Back to top

Profile PM

Tapewormz

21

Years of Service

User Offline

Joined: 15th Sep 2002

Location: Winnipeg, Mantoba, Canada

Posted: 7th Nov 2004 23:14 Edited at: 7th Nov 2004 23:25

Link

Why would age have anything to do with anything? When I was 10 I had my first program published in Computes Gazette magazine.

They cut me a cheque for 50$ US which is alot of money when you're a kid way back in 1981.

The problem with DarkBASIC Professional is that it lacks really good doccumentation. There was mention by TGC several months ago that a new manual was in the works.

I think that when a new manaul arrives on the scene, it may clear up alot of problems. The best manual I ever used was my commodore vic 20 manual.

Every command had an example of how it was to be used, even if it was only a 1-10 line example. Larger examples tend to confuse people.

As for your code:

These lines should be at the top of the code and not constantly called in your function.

load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3

Also, your leftkey and rightkey routines should be moved into your main loop, not your function. All you should put in your function is the shoot routine.

You should structure your program like so:

set screen mode
set sync
declare variables
load images
load sprites
load sounds

begin main loop
get player input
process player input
call functions
update graphics
sync screen
end main loop

move function
shoot function

Now, I'm not going to program this for you. You won't learn anything from that. Instead follow this structure, and re-arrange the code you already have to fit it. Then repost your source and I'll look at it.

MILKSHAPE3D VIDEO TUTORIALS
http://www.planetquake.com/polycount/cottages/blackboard/tutorials.htm

Back to top

Profile PM Website

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 9th Nov 2004 06:06

Link

k thanks

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 11th Nov 2004 01:31

Link

heres my new and improved code but i still need alot of help.

sync on
sync rate 60

`hide mouse
hide mouse

`define variables
x= 320
y= 240
x1= 358
xshot= x1+10
bulletlife= 0

`load images
load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3

`the main loop
do

`ensure sprite doesn't go off screen
if x>600 then x=600
if x<0 then x=0

`move left
if leftkey()= 1
   dec x,5
	dec x1,5
else
   sprite 1,x,y,1
endif

`move right
if rightkey()= 1
   inc x,5
	inc x1,5
else
   sprite 1,x,y,1
endif

`shoot
if returnkey()= 1
goto shoot
endif

`the shoot() function
shoot:

if returnkey()= 1 and BulletLife<= 0
hide sprite 1
if sprite exist(2)= 1 then show sprite 2
sprite 2,x,y,2
xshot=x1+10
BulletLife=60
else
if sprite exist(2)= 1 then hide sprite 2
if sprite exist(1)=1 then show sprite 1
sprite 1,x,y,1
endif

`draw bullet
if BulletLife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec BulletLife
endif

`end loop
sync
loop

+ Code Snippet


sync on
sync rate 60

`hide mouse
hide mouse

`define variables
x= 320
y= 240
x1= 358
xshot= x1+10
bulletlife= 0

`load images
load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3

`the main loop
do

`ensure sprite doesn't go off screen
if x>600 then x=600
if x<0 then x=0

`move left
if leftkey()= 1
   dec x,5
	dec x1,5
else
   sprite 1,x,y,1
endif

`move right
if rightkey()= 1
   inc x,5
	inc x1,5
else
   sprite 1,x,y,1
endif

`shoot
if returnkey()= 1
goto shoot
endif


`the shoot() function
shoot:

if returnkey()= 1 and BulletLife<= 0
hide sprite 1
if sprite exist(2)= 1 then show sprite 2
sprite 2,x,y,2
xshot=x1+10
BulletLife=60
else
if sprite exist(2)= 1 then hide sprite 2
if sprite exist(1)=1 then show sprite 1
sprite 1,x,y,1
endif

`draw bullet
if BulletLife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec BulletLife
endif

`end loop
sync
loop

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 11th Nov 2004 07:50

Link

first of all sprite 2 hardly show up at all. can some 1 plz help

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 12th Nov 2004 06:54

Link

k i got some animation goin wit the legs when u go right. but its not very good. heres the code:

sync on
sync rate 60

`hide mouse
hide mouse

`define variables
x= 320
y= 240
x1= 358
xshot= x1+10
bulletlife= 0

`load images
load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3
load image "megamanrun1.bmp", 4
load image "megamanrun2.bmp", 5
load image "megamanrun3.bmp", 6
load image "megamanrun4.bmp", 7

`the main loop
do

`ensure sprite doesn't go off screen
if x>600 then x=600
if x<0 then x=0

`move left
if leftkey()= 1
   dec x,5
	dec x1,5
else
   sprite 1,x,y,1
endif

`move right
if rightkey()= 1
   inc x,5
	inc x1,5
repeat
if rightkey()= 1
   inc x,5
	inc x1,5
endif
if sprite exist(1)= 1 then hide sprite 1
if sprite exist(4)= 1 then show sprite 4
if sprite exist(5)= 1 then hide sprite 5
if sprite exist(6)= 1 then hide sprite 6
if sprite exist(7)= 1 then hide sprite 7
sprite 4,x,y,4
wait 100
if sprite exist(4)= 1 then hide sprite 4
if sprite exist(5)= 1 then show sprite 5
if sprite exist(6)= 1 then hide sprite 6
if sprite exist(7)= 1 then hide sprite 7
sprite 5,x,y,5
wait 100
if sprite exist(4)= 1 then hide sprite 4
if sprite exist(5)= 1 then hide sprite 5
if sprite exist(6)= 1 then show sprite 6
if sprite exist(7)= 1 then hide sprite 7
sprite 6,x,y,6
wait 100
if sprite exist(4)= 1 then hide sprite 4
if sprite exist(5)= 1 then hide sprite 5
if sprite exist(6)= 1 then hide sprite 6
if sprite exist(7)= 1 then show sprite 7
sprite 7,x,y,7
wait 100
until rightkey()= 0
else
if sprite exist(1)= 1 then show sprite 1
if sprite exist(4)= 1 then hide sprite 4
if sprite exist(5)= 1 then hide sprite 5
if sprite exist(6)= 1 then hide sprite 6
if sprite exist(7)= 1 then hide sprite 7
   sprite 1,x,y,1
endif

`shoot
if returnkey()= 1
goto shoot
endif

`the shooting part
shoot:

if returnkey()= 1 and bulletlife<= 0
hide sprite 1
if sprite exist(2)= 1 then show sprite 2
sprite 2,x,y,2
xshot=x1+10
bulletlife=60
else
if sprite exist(2)= 1 then hide sprite 2
if sprite exist(1)=1 then show sprite 1
sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

`end loop
sync
loop

+ Code Snippet


sync on
sync rate 60

`hide mouse
hide mouse

`define variables
x= 320
y= 240
x1= 358
xshot= x1+10
bulletlife= 0

`load images
load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3
load image "megamanrun1.bmp", 4
load image "megamanrun2.bmp", 5
load image "megamanrun3.bmp", 6
load image "megamanrun4.bmp", 7

`the main loop
do

`ensure sprite doesn't go off screen
if x>600 then x=600
if x<0 then x=0

`move left
if leftkey()= 1
   dec x,5
	dec x1,5
else
   sprite 1,x,y,1
endif

`move right
if rightkey()= 1
   inc x,5
	inc x1,5
repeat
if rightkey()= 1
   inc x,5
	inc x1,5
endif
if sprite exist(1)= 1 then hide sprite 1
if sprite exist(4)= 1 then show sprite 4
if sprite exist(5)= 1 then hide sprite 5
if sprite exist(6)= 1 then hide sprite 6
if sprite exist(7)= 1 then hide sprite 7
sprite 4,x,y,4
wait 100
if sprite exist(4)= 1 then hide sprite 4
if sprite exist(5)= 1 then show sprite 5
if sprite exist(6)= 1 then hide sprite 6
if sprite exist(7)= 1 then hide sprite 7
sprite 5,x,y,5
wait 100
if sprite exist(4)= 1 then hide sprite 4
if sprite exist(5)= 1 then hide sprite 5
if sprite exist(6)= 1 then show sprite 6
if sprite exist(7)= 1 then hide sprite 7
sprite 6,x,y,6
wait 100
if sprite exist(4)= 1 then hide sprite 4
if sprite exist(5)= 1 then hide sprite 5
if sprite exist(6)= 1 then hide sprite 6
if sprite exist(7)= 1 then show sprite 7
sprite 7,x,y,7
wait 100
until rightkey()= 0
else
if sprite exist(1)= 1 then show sprite 1
if sprite exist(4)= 1 then hide sprite 4
if sprite exist(5)= 1 then hide sprite 5
if sprite exist(6)= 1 then hide sprite 6
if sprite exist(7)= 1 then hide sprite 7
   sprite 1,x,y,1
endif

`shoot
if returnkey()= 1
goto shoot
endif


`the shooting part
shoot:

if returnkey()= 1 and bulletlife<= 0
hide sprite 1
if sprite exist(2)= 1 then show sprite 2
sprite 2,x,y,2
xshot=x1+10
bulletlife=60
else
if sprite exist(2)= 1 then hide sprite 2
if sprite exist(1)=1 then show sprite 1
sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

`end loop
sync
loop

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 12th Nov 2004 21:31

Link

the animation is comin along slowly but surely. it looks good but the sprite doesnt move far enough to the right when he animates or sumtin like that. and i still cant figure out the problem of the shooting. but heres the new code:

sync on
sync rate 60

`hide mouse
hide mouse

`define variables
x= 320
y= 240
x1= 358
xshot= x1+10
bulletlife= 0

`load images
load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3
load image "megamanrun1.bmp", 4
load image "megamanrun2.bmp", 5
load image "megamanrun3.bmp", 6
load image "megamanrun4.bmp", 7

`the main loop
do

`ensure sprite doesn't go off screen
if x>600 then x=600
if x<0 then x=0

`move left
if leftkey()= 1
   dec x,5
	dec x1,5
else
   sprite 1,x,y,1
endif

`move right
if rightkey()= 1
   inc x,5
	inc x1,5
	if sprite exist(1)= 1 then hide sprite 1
	if sprite exist(4)= 1 then show sprite 4
	sprite 4,x,y,4
	wait 100
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then show sprite 5
	sprite 5,x,y,5
	wait 200

repeat
if rightkey()= 1
   inc x,5
	inc x1,5
endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then show sprite 6
	if sprite exist(7)= 1 then hide sprite 7
	sprite 6,x,y,6
	wait 200
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then show sprite 7
	sprite 7,x,y,7
	wait 200
until rightkey()= 0
else
	if sprite exist(1)= 1 then show sprite 1
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then hide sprite 7
   sprite 1,x,y,1
endif

`shoot
if returnkey()= 1
goto shoot
endif

`the shooting part
shoot:

if returnkey()= 1 and bulletlife<= 0
hide sprite 1
if sprite exist(2)= 1 then show sprite 2
sprite 2,x,y,2
xshot=x1+10
bulletlife=60
else
if sprite exist(2)= 1 then hide sprite 2
if sprite exist(1)=1 then show sprite 1
sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

`end loop
sync
loop

+ Code Snippet


sync on
sync rate 60

`hide mouse
hide mouse

`define variables
x= 320
y= 240
x1= 358
xshot= x1+10
bulletlife= 0

`load images
load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3
load image "megamanrun1.bmp", 4
load image "megamanrun2.bmp", 5
load image "megamanrun3.bmp", 6
load image "megamanrun4.bmp", 7

`the main loop
do

`ensure sprite doesn't go off screen
if x>600 then x=600
if x<0 then x=0

`move left
if leftkey()= 1
   dec x,5
	dec x1,5
else
   sprite 1,x,y,1
endif

`move right
if rightkey()= 1
   inc x,5
	inc x1,5
	if sprite exist(1)= 1 then hide sprite 1
	if sprite exist(4)= 1 then show sprite 4
	sprite 4,x,y,4
	wait 100
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then show sprite 5
	sprite 5,x,y,5
	wait 200

repeat
if rightkey()= 1
   inc x,5
	inc x1,5
endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then show sprite 6
	if sprite exist(7)= 1 then hide sprite 7
	sprite 6,x,y,6
	wait 200
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then show sprite 7
	sprite 7,x,y,7
	wait 200
until rightkey()= 0
else
	if sprite exist(1)= 1 then show sprite 1
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then hide sprite 7
   sprite 1,x,y,1
endif

`shoot
if returnkey()= 1
goto shoot
endif


`the shooting part
shoot:

if returnkey()= 1 and bulletlife<= 0
hide sprite 1
if sprite exist(2)= 1 then show sprite 2
sprite 2,x,y,2
xshot=x1+10
bulletlife=60
else
if sprite exist(2)= 1 then hide sprite 2
if sprite exist(1)=1 then show sprite 1
sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

`end loop
sync
loop

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 12th Nov 2004 21:32

Link

oh and heres the pics for the animation. pic 1.

Attachments

Login to view attachments

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 12th Nov 2004 21:33

Link

pic 2

Attachments

Login to view attachments

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 12th Nov 2004 21:33

Link

pic 3

Attachments

Login to view attachments

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 12th Nov 2004 21:34

Link

pic 4

Attachments

Login to view attachments

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 13th Nov 2004 05:37

Link

oh and u can download the other pics for the shooting and standing here: http://forum.thegamecreators.com/?m=forum_view&t=42224&b=7

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 15th Nov 2004 06:42

Link

hey heres some better code for anybody who wants to help me with it. I'll post the new images soon.

sync on
sync rate 60

`hide mouse
hide mouse

`define variables
x= 320
y= 240
x1= 358
xshot= x1+10
bulletlife= 0

`load images
load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3
load image "megamanrun1.bmp", 4
load image "megamanrun2.bmp", 5
load image "megamanrun3.bmp", 6
load image "megamanrun4.bmp", 7
load image "megamanrunshoot1.bmp", 8
load image "megamanrunshoot2.bmp", 9
load image "megamanrunshoot3.bmp", 10

`the main loop
do

`ensure sprite doesn't go off screen
if x>600 then x=600
if x<0 then x=0

`move left
if leftkey()= 1
   dec x,5
	dec x1,5
else
   sprite 1,x,y,1
endif

`move right
if rightkey()= 1
	
	if returnkey()= 1 and bulletlife<= 0
	goto runshoot
	endif
	if sprite exist(1)= 1 then hide sprite 1
	if sprite exist(4)= 1 then show sprite 4
	sprite 4,x,y,4
	wait 150
	
if returnkey()= 1 and bulletlife<= 0
goto runshoot
endif

repeat
   if x>600 
   x= 600
	endif
	if returnkey()= 1 and bulletlife<= 0
	goto runshoot
	endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then show sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then hide sprite 7
	sprite 5,x,y,5
	inc x,15
	inc x1,15
	wait 150
	if x>600 
   x= 600
	endif
	if returnkey()= 1 and bulletlife<= 0
	goto runshoot
	endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then show sprite 6
	if sprite exist(7)= 1 then hide sprite 7
	sprite 6,x,y,6
	inc x,15
	inc x1,15
	wait 150
	if x>600 
   x= 600
	endif
	if returnkey()= 1 and bulletlife<= 0
	goto runshoot
	endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then show sprite 7
	sprite 7,x,y,7
	inc x,15
	inc x1,15
	wait 150
until rightkey()= 0 
else
	if sprite exist(1)= 1 then hide sprite 1
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then hide sprite 7
   sprite 1,x,y,1
endif

`shoot
if returnkey()= 1
goto shoot
endif

if rightkey()= 1 and returnkey()= 1
goto runshoot
endif

`the shooting part
shoot:

if returnkey()= 1 and bulletlife<= 0
hide sprite 1
if sprite exist(2)= 1 then show sprite 2
sprite 2,x,y,2
xshot=x1+10
wait 200
bulletlife=60
else
if sprite exist(2)= 1 then hide sprite 2
if sprite exist(1)=1 then show sprite 1
sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

runshoot:

if rightkey()= 1 and returnkey()= 1 and bulletlife<=0
	if sprite exist(1)= 1 then hide sprite 1
	if sprite exist(4)= 1 then show sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then hide sprite 7
	sprite 4,x,y,4
	wait 150
repeat
	if x>600 
   x= 600
	endif
	xshot=x1+10
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(8)= 1 then show sprite 8
	if sprite exist(9)= 1 then hide sprite 9
	if sprite exist(10)= 1 then hide sprite 10
	sprite 8,x,y,8
	wait 200
	bulletlife=60
	inc x,15
	inc x1,15
	wait 150
	if x>600 
   x= 600
	endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(8)= 1 then hide sprite 8
	if sprite exist(9)= 1 then show sprite 9
	if sprite exist(10)= 1 then hide sprite 10
	sprite 9,x,y,9
	inc x,15
	inc x1,15
	wait 150
	if x>600 
   x= 600
	endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(8)= 1 then hide sprite 8
	if sprite exist(9)= 1 then hide sprite 9
	if sprite exist(10)= 1 then show sprite 10
	sprite 10,x,y,10
	inc x,15
	inc x1,15
	wait 150
until rightkey()= 0
else
	if sprite exist(1)= 1 then show sprite 1
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(8)= 1 then hide sprite 8
	if sprite exist(9)= 1 then hide sprite 9
	if sprite exist(10)= 1 then hide sprite 10
   sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

`end loop
sync
loop

+ Code Snippet


sync on
sync rate 60

`hide mouse
hide mouse

`define variables
x= 320
y= 240
x1= 358
xshot= x1+10
bulletlife= 0

`load images
load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3
load image "megamanrun1.bmp", 4
load image "megamanrun2.bmp", 5
load image "megamanrun3.bmp", 6
load image "megamanrun4.bmp", 7
load image "megamanrunshoot1.bmp", 8
load image "megamanrunshoot2.bmp", 9
load image "megamanrunshoot3.bmp", 10

`the main loop
do

`ensure sprite doesn't go off screen
if x>600 then x=600
if x<0 then x=0

`move left
if leftkey()= 1
   dec x,5
	dec x1,5
else
   sprite 1,x,y,1
endif

`move right
if rightkey()= 1
	
	if returnkey()= 1 and bulletlife<= 0
	goto runshoot
	endif
	if sprite exist(1)= 1 then hide sprite 1
	if sprite exist(4)= 1 then show sprite 4
	sprite 4,x,y,4
	wait 150
	
if returnkey()= 1 and bulletlife<= 0
goto runshoot
endif

repeat
   if x>600 
   x= 600
	endif
	if returnkey()= 1 and bulletlife<= 0
	goto runshoot
	endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then show sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then hide sprite 7
	sprite 5,x,y,5
	inc x,15
	inc x1,15
	wait 150
	if x>600 
   x= 600
	endif
	if returnkey()= 1 and bulletlife<= 0
	goto runshoot
	endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then show sprite 6
	if sprite exist(7)= 1 then hide sprite 7
	sprite 6,x,y,6
	inc x,15
	inc x1,15
	wait 150
	if x>600 
   x= 600
	endif
	if returnkey()= 1 and bulletlife<= 0
	goto runshoot
	endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then show sprite 7
	sprite 7,x,y,7
	inc x,15
	inc x1,15
	wait 150
until rightkey()= 0 
else
	if sprite exist(1)= 1 then hide sprite 1
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then hide sprite 7
   sprite 1,x,y,1
endif

`shoot
if returnkey()= 1
goto shoot
endif

if rightkey()= 1 and returnkey()= 1
goto runshoot
endif


`the shooting part
shoot:

if returnkey()= 1 and bulletlife<= 0
hide sprite 1
if sprite exist(2)= 1 then show sprite 2
sprite 2,x,y,2
xshot=x1+10
wait 200
bulletlife=60
else
if sprite exist(2)= 1 then hide sprite 2
if sprite exist(1)=1 then show sprite 1
sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

runshoot:

if rightkey()= 1 and returnkey()= 1 and bulletlife<=0
	if sprite exist(1)= 1 then hide sprite 1
	if sprite exist(4)= 1 then show sprite 4
	if sprite exist(5)= 1 then hide sprite 5
	if sprite exist(6)= 1 then hide sprite 6
	if sprite exist(7)= 1 then hide sprite 7
	sprite 4,x,y,4
	wait 150
repeat
	if x>600 
   x= 600
	endif
	xshot=x1+10
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(8)= 1 then show sprite 8
	if sprite exist(9)= 1 then hide sprite 9
	if sprite exist(10)= 1 then hide sprite 10
	sprite 8,x,y,8
	wait 200
	bulletlife=60
	inc x,15
	inc x1,15
	wait 150
	if x>600 
   x= 600
	endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(8)= 1 then hide sprite 8
	if sprite exist(9)= 1 then show sprite 9
	if sprite exist(10)= 1 then hide sprite 10
	sprite 9,x,y,9
	inc x,15
	inc x1,15
	wait 150
	if x>600 
   x= 600
	endif
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(8)= 1 then hide sprite 8
	if sprite exist(9)= 1 then hide sprite 9
	if sprite exist(10)= 1 then show sprite 10
	sprite 10,x,y,10
	inc x,15
	inc x1,15
	wait 150
until rightkey()= 0
else
	if sprite exist(1)= 1 then show sprite 1
	if sprite exist(4)= 1 then hide sprite 4
	if sprite exist(8)= 1 then hide sprite 8
	if sprite exist(9)= 1 then hide sprite 9
	if sprite exist(10)= 1 then hide sprite 10
   sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

`end loop
sync
loop

Back to top

Profile PM

Qwisats Haderach

19

Years of Service

User Offline

Joined: 23rd May 2004

Location: Dune

Posted: 17th Nov 2004 00:30

Link

k heres more code. and the hole sprite sheet.

sync on
sync rate 60

`hide mouse
hide mouse

`define variables
x= 320
y= 240
x1= 358
xshot= x1+10
bulletlife= 0

`load images
load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3
load image "megamanrun1.bmp", 4
load image "megamanrun2.bmp", 5
load image "megamanrun3.bmp", 6
load image "megamanrun4.bmp", 7
load image "megamanrunshoot1.bmp", 8
load image "megamanrunshoot2.bmp", 9
load image "megamanrunshoot3.bmp", 10

`the main loop
do

`ensure sprite doesn't go off screen
if x>600 then x=600
if x<0 then x=0

`move left
if leftkey()= 1
   dec x,5
   dec x1,5
else
   sprite 1,x,y,1
endif

`move right
if rightkey()= 1

if returnkey()= 1 and bulletlife<= 0
   goto runshoot
   endif
   if sprite exist(1)= 1 then hide sprite 1
   if sprite exist(4)= 1 then show sprite 4
   sprite 4,x,y,4
   wait 150

if returnkey()= 1 and bulletlife<= 0
goto runshoot
endif

repeat
   if returnkey()= 1 and bulletlife<= 0
   goto runshoot
   endif
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(5)= 1 then show sprite 5
   if sprite exist(6)= 1 then hide sprite 6
   if sprite exist(7)= 1 then hide sprite 7
   sprite 5,x,y,5
   inc x,15
   inc x1,15
   if x>600
   x= 600
   dec x1, 15
   endif
   wait 150
   if returnkey()= 1 and bulletlife<= 0
   goto runshoot
   endif
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(5)= 1 then hide sprite 5
   if sprite exist(6)= 1 then show sprite 6
   if sprite exist(7)= 1 then hide sprite 7
   sprite 6,x,y,6
   inc x,15
   inc x1,15
   if x>600
   x= 600
   dec x1, 15
   endif
   wait 150
   if returnkey()= 1 and bulletlife<= 0
   goto runshoot
   endif
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(5)= 1 then hide sprite 5
   if sprite exist(6)= 1 then hide sprite 6
   if sprite exist(7)= 1 then show sprite 7
   sprite 7,x,y,7
   inc x,15
   inc x1,15
   if x>600
   x= 600
   dec x1, 15
   endif
   wait 150
until rightkey()= 0
else
   if sprite exist(1)= 1 then hide sprite 1
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(5)= 1 then hide sprite 5
   if sprite exist(6)= 1 then hide sprite 6
   if sprite exist(7)= 1 then hide sprite 7
   sprite 1,x,y,1
endif

`shoot
if returnkey()= 1
goto shoot
endif

if rightkey()= 1 and returnkey()= 1
goto runshoot
endif

`the shooting part
shoot:

if returnkey()= 1 and bulletlife<= 0
hide sprite 1
if sprite exist(2)= 1 then show sprite 2
sprite 2,x,y,2
xshot=x1+10
wait 200
bulletlife=60
else
if sprite exist(2)= 1 then hide sprite 2
if sprite exist(1)=1 then show sprite 1
sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

runshoot:

if rightkey()= 1 and returnkey()= 1 and bulletlife<=0
   if sprite exist(1)= 1 then hide sprite 1
   if sprite exist(4)= 1 then show sprite 4
   if sprite exist(5)= 1 then hide sprite 5
   if sprite exist(6)= 1 then hide sprite 6
   if sprite exist(7)= 1 then hide sprite 7
   sprite 4,x,y,4
   wait 150
repeat
   if x>600
   x= 600
   endif
   xshot=x1+10
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(8)= 1 then show sprite 8
   if sprite exist(9)= 1 then hide sprite 9
   if sprite exist(10)= 1 then hide sprite 10
   sprite 8,x,y,8
   wait 200
   bulletlife=60
   inc x,15
   inc x1,15
   wait 150
   if x>600
   x= 600
   endif
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(8)= 1 then hide sprite 8
   if sprite exist(9)= 1 then show sprite 9
   if sprite exist(10)= 1 then hide sprite 10
   sprite 9,x,y,9
   inc x,15
   inc x1,15
   wait 150
   if x>600
   x= 600
   endif
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(8)= 1 then hide sprite 8
   if sprite exist(9)= 1 then hide sprite 9
   if sprite exist(10)= 1 then show sprite 10
   sprite 10,x,y,10
   inc x,15
   inc x1,15
   wait 150
until rightkey()= 0
else
   if sprite exist(1)= 1 then show sprite 1
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(8)= 1 then hide sprite 8
   if sprite exist(9)= 1 then hide sprite 9
   if sprite exist(10)= 1 then hide sprite 10
   sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

`end loop
sync
loop

+ Code Snippet


sync on
sync rate 60

`hide mouse
hide mouse

`define variables
x= 320
y= 240
x1= 358
xshot= x1+10
bulletlife= 0

`load images
load image "megamanstill.bmp", 1
load image "megamanshootingwoball.bmp", 2
load image "megamanshot.bmp", 3
load image "megamanrun1.bmp", 4
load image "megamanrun2.bmp", 5
load image "megamanrun3.bmp", 6
load image "megamanrun4.bmp", 7
load image "megamanrunshoot1.bmp", 8
load image "megamanrunshoot2.bmp", 9
load image "megamanrunshoot3.bmp", 10

`the main loop
do

`ensure sprite doesn't go off screen
if x>600 then x=600
if x<0 then x=0

`move left
if leftkey()= 1
   dec x,5
   dec x1,5
else
   sprite 1,x,y,1
endif

`move right
if rightkey()= 1

   if returnkey()= 1 and bulletlife<= 0
   goto runshoot
   endif
   if sprite exist(1)= 1 then hide sprite 1
   if sprite exist(4)= 1 then show sprite 4
   sprite 4,x,y,4
   wait 150

if returnkey()= 1 and bulletlife<= 0
goto runshoot
endif

repeat
   if returnkey()= 1 and bulletlife<= 0
   goto runshoot
   endif
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(5)= 1 then show sprite 5
   if sprite exist(6)= 1 then hide sprite 6
   if sprite exist(7)= 1 then hide sprite 7
   sprite 5,x,y,5
   inc x,15
   inc x1,15
   if x>600
   x= 600
   dec x1, 15
   endif
   wait 150
   if returnkey()= 1 and bulletlife<= 0
   goto runshoot
   endif
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(5)= 1 then hide sprite 5
   if sprite exist(6)= 1 then show sprite 6
   if sprite exist(7)= 1 then hide sprite 7
   sprite 6,x,y,6
   inc x,15
   inc x1,15
   if x>600
   x= 600
   dec x1, 15
   endif
   wait 150
   if returnkey()= 1 and bulletlife<= 0
   goto runshoot
   endif
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(5)= 1 then hide sprite 5
   if sprite exist(6)= 1 then hide sprite 6
   if sprite exist(7)= 1 then show sprite 7
   sprite 7,x,y,7
   inc x,15
   inc x1,15
   if x>600
   x= 600
   dec x1, 15
   endif
   wait 150
until rightkey()= 0
else
   if sprite exist(1)= 1 then hide sprite 1
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(5)= 1 then hide sprite 5
   if sprite exist(6)= 1 then hide sprite 6
   if sprite exist(7)= 1 then hide sprite 7
   sprite 1,x,y,1
endif

`shoot
if returnkey()= 1
goto shoot
endif

if rightkey()= 1 and returnkey()= 1
goto runshoot
endif


`the shooting part
shoot:

if returnkey()= 1 and bulletlife<= 0
hide sprite 1
if sprite exist(2)= 1 then show sprite 2
sprite 2,x,y,2
xshot=x1+10
wait 200
bulletlife=60
else
if sprite exist(2)= 1 then hide sprite 2
if sprite exist(1)=1 then show sprite 1
sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

runshoot:

if rightkey()= 1 and returnkey()= 1 and bulletlife<=0
   if sprite exist(1)= 1 then hide sprite 1
   if sprite exist(4)= 1 then show sprite 4
   if sprite exist(5)= 1 then hide sprite 5
   if sprite exist(6)= 1 then hide sprite 6
   if sprite exist(7)= 1 then hide sprite 7
   sprite 4,x,y,4
   wait 150
repeat
   if x>600
   x= 600
   endif
   xshot=x1+10
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(8)= 1 then show sprite 8
   if sprite exist(9)= 1 then hide sprite 9
   if sprite exist(10)= 1 then hide sprite 10
   sprite 8,x,y,8
   wait 200
   bulletlife=60
   inc x,15
   inc x1,15
   wait 150
   if x>600
   x= 600
   endif
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(8)= 1 then hide sprite 8
   if sprite exist(9)= 1 then show sprite 9
   if sprite exist(10)= 1 then hide sprite 10
   sprite 9,x,y,9
   inc x,15
   inc x1,15
   wait 150
   if x>600
   x= 600
   endif
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(8)= 1 then hide sprite 8
   if sprite exist(9)= 1 then hide sprite 9
   if sprite exist(10)= 1 then show sprite 10
   sprite 10,x,y,10
   inc x,15
   inc x1,15
   wait 150
until rightkey()= 0
else
   if sprite exist(1)= 1 then show sprite 1
   if sprite exist(4)= 1 then hide sprite 4
   if sprite exist(8)= 1 then hide sprite 8
   if sprite exist(9)= 1 then hide sprite 9
   if sprite exist(10)= 1 then hide sprite 10
   sprite 1,x,y,1
endif

`draw bullet
if bulletlife<=0
   if sprite exist(3)=1 then hide sprite 3
else
   if sprite exist(3)=1 then show sprite 3
   sprite 3,xshot,250,3
   inc xshot,5
   dec bulletlife
endif

`end loop
sync
loop

Attachments

Login to view attachments

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / Can someone plz help me wit my 2d animation!!!!!!!

Attachments

Attachments

Attachments

Attachments

Attachments