Cloning Sprites help - GameCreators Forum

Author

Message

Destrugter 1

18

Years of Service

User Offline

Joined: 26th Oct 2006

Location:

Posted: 9th Mar 2008 20:40

Link

Ok, I have searched, and cant find a solution. I am wanting to clone my sprites, and not "paste" them so I can detect collision, but I don't want to use up too many slots with cloned sprites...for example lets say I need 10 grass sprites...I dont want it to be like this:

Quote: "
create sprite 1,1
create sprite 2,2
create sprite 12,12
"

Or is that the only way to do it?

do you love video games a lot ¿¿¿ then comeon down too game zone252 @ http://www.freewebs.com/gamezone252/

Back to top

Profile PM Email Website

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 9th Mar 2008 23:15

Link

You mention you are concerned with using up too many slots? What slots are you talking about?

Also, your quote shows create sprite 1,1 etc., which I assume is simply a typo and you meant clone sprite. However, if you meant clone sprite, then why are the source and destination numbers the same?

If what you are really after is to minimize the amount of code needed to clone multiple sprites, why can't you just use a for-next loop? Perhaps you are after something else.

LB

Back to top

Profile PM Email

Destrugter 1

18

Years of Service

User Offline

Joined: 26th Oct 2006

Location:

Posted: 13th Mar 2008 00:37

Link

ok, what I was meaning by "slots" is using too many sprites...ive cloned my sprites from 30 to 5600 about...and now my computer wont load them fast enough (10 minutes and nothing shows up)

do you love video games a lot ¿¿¿ then comeon down too game zone252 @ http://www.freewebs.com/gamezone252/

Back to top

Profile PM Email Website

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 13th Mar 2008 00:52

Link

Wow!

5600 sprites, I'm not surprised you're having a speed issue. What exactly are you doing with all of these sprites? I think the most I have ever used in a game is around 150 and these were very small pieces.

LB

Back to top

Profile PM Email

Destrugter 1

18

Years of Service

User Offline

Joined: 26th Oct 2006

Location:

Posted: 13th Mar 2008 01:21

Link

I'm using 32x32 sprites...i cloned them enough to make for if I have to cover the whole screen with them(emergency case) I am making an rpg...so I kinda need quite a few. Also would it speed it up if I put all of my sprites (like house accessories) in one big file instead of a seperate 32x32 bmp for each one?

do you love video games a lot ¿¿¿ then comeon down too game zone252 @ http://www.freewebs.com/gamezone252/

Back to top

Profile PM Email Website

Dabbler

17

Years of Service

User Offline

Joined: 3rd Mar 2007

Location: Minnesota

Posted: 13th Mar 2008 01:44

Link

Code sample?

Whatever...

Back to top

Profile PM

Destrugter 1

18

Years of Service

User Offline

Joined: 26th Oct 2006

Location:

Posted: 13th Mar 2008 01:48 Edited at: 13th Mar 2008 01:49

Link

It's 600 lines (please don't badger me about using such big notes...it really helps me to see where im going even though I could make them 1 line...this is just easier for me.)

`###############################################################
`###############################################################
`###############################################################
`#########################MAIN MENU SECTION START###############
`###############################################################
`###############################################################
`###############################################################
sync on
cls
hide mouse
set window size 640,480

load image "Mediacursor.bmp",1
load image "MediaNew_Game_Unpressed.bmp",2
load image "MediaLoad_Game_Unpressed.bmp",3
load image "MediaNew_Game_Pressed.bmp",4
load image "MediaLoad_Game_Pressed.bmp",5
load image "Mediabeginning story.bmp",6
load image "MediaStart_Menu_Background.bmp",7
load music "MediaFairytale_Waltz.wav",1

sprite 2,217,205,2
   sprite 3,217,255,3
   sprite 4,217,205,4
   sprite 5,217,255,5
      set sprite priority 4,1
      set sprite priority 5,1
   sprite 7,0,0,7

while 1<2
   mx=MOUSEX()
   my=MOUSEY()
   SPRITE 1,mx,my,1
      set sprite priority 1,10

if mx=>217 and mx=<320 and my=>205 and my=<240
      sprite 4,217,205,4
         set sprite priority 4,10
      sync
   else
      set sprite priority 4,1
      set sprite priority 2,10
   sprite 2,217,205,2
   sync
   endif

if mx=>217 and mx=<320 and my=>255 and my=<290
      sprite 5,217,255,5
         set sprite priority 5,10
      sync
   else
      set sprite priority 5,1
      set sprite priority 3,10
   sprite 3,217,255,3
   sync
   endif

if mouseclick()=1
   if mx=>217 and mx=<320 and my=>205 and my=<240
   cls
      gosub New_Game
      sync
   endif

if mx=>100 and mx=<120 and my=>200 and my=<257

sync
   endif
endif

sync
endwhile

New_Game:
cls
hide sprite 1
hide sprite 2
hide sprite 3
hide sprite 4
hide sprite 5

sprite 6,0,480,6
   sync

WHILE spacekey()<=0
play music 1
   for beginningstory=0 to 480
   move sprite 6,0.001
   next beginningstory
wait 100
sync
ENDWHILE

Start_New_Game:
for x=1 to 7
delete sprite x
next x
delete music 1
cls
   input "What is your character's name? ",b$
`###############################################################
`###############################################################
`###############################################################
`#########################MAIN MENU SECTION END#################
`###############################################################
`###############################################################
`###############################################################

`###############################################################
`###############################################################
`###############################################################
`#########################DECLARE VARIABLES SECTION START#######
`###############################################################
`###############################################################
`###############################################################
cls
hide mouse
sync on
backdrop on:color backdrop RGB(0,0,0)

type Character
   Name as string
   Current_Health as integer
   Total_Health as integer
   Current_Attack_Level as integer
   Total_Attack_Level as integer
   Current_Defense_Level as integer
   Total_Defense_Level as integer
   Current_X_Position as integer
   Current_Y_Position as integer
endtype

type Enemy
   Name as string
   Current_Health as integer
   Total_Health as integer
   Current_Attack_Level as integer
   Total_Attack_Level as integer
   Current_Defense_Level as integer
   Total_Defense_Level as integer
endtype

type Map
   Name as string
   Max_X_Position as integer
   Max_Y_Position as integer
endtype

CX#=10
CY#=10
MapX#=616
MapY#=480
a=0
`###############################################################
`###############################################################
`###############################################################
`#########################DECLARE VARIABLES SECTION END#########
`###############################################################
`###############################################################
`###############################################################

`###############################################################
`###############################################################
`###############################################################
`#########################CREATE SPRITE SECTION START###########
`###############################################################
`###############################################################
`###############################################################
create animated sprite 1,"Media/test.bmp",3,5,1
Image_Count=Image_Count+1
create animated sprite 2,"Media/grass.bmp",1,1,2
Image_Count=Image_Count+1
create animated sprite 3,"Media/patch.bmp",1,1,3
Image_Count=Image_Count+1
create animated sprite 4,"Media/toolbar.bmp",1,1,4
Image_Count=Image_Count+1
create animated sprite 5,"Media/attack.bmp",1,1,5
Image_Count=Image_Count+1
create animated sprite 6,"Media/stats.bmp",1,1,6
Image_Count=Image_Count+1
create animated sprite 7,"Media/bar1.bmp",1,1,7
Image_Count=Image_Count+1
create animated sprite 8,"Media/bar2.bmp",1,1,8
Image_Count=Image_Count+1
create animated sprite 9,"Media/bar3.bmp",1,1,9
Image_Count=Image_Count+1
create animated sprite 10,"Media/bar4.bmp",1,1,10
Image_Count=Image_Count+1
create animated sprite 11,"Media/cursor.bmp",1,1,11
Image_Count=Image_Count+1
create animated sprite 12,"Media/stats.bmp",1,1,12
Image_Count=Image_Count+1
create animated sprite 13,"Media/bar1.bmp",1,1,13
Image_Count=Image_Count+1
create animated sprite 14,"Media/bar2.bmp",1,1,14
Image_Count=Image_Count+1
create animated sprite 15,"Media/bar3.bmp",1,1,15
Image_Count=Image_Count+1
create animated sprite 16,"Media/bar4.bmp",1,1,16
Image_Count=Image_Count+1
create animated sprite 17,"Media/Plain_L_Wall(1).bmp",1,1,17
Image_Count=Image_Count+1
create animated sprite 18,"Media/Plain_L_Wall(2).bmp",1,1,18
Image_Count=Image_Count+1
create animated sprite 19,"Media/Plain_L_Wall(3).bmp",1,1,19
Image_Count=Image_Count+1
create animated sprite 20,"Media/Plain_L_Wall(4).bmp",1,1,20
Image_Count=Image_Count+1
create animated sprite 21,"Media/Plain_Horizontal_Wall(1).bmp",1,1,21
Image_Count=Image_Count+1
create animated sprite 22,"Media/Plain_Horizontal_Wall(2).bmp",1,1,22
Image_Count=Image_Count+1
create animated sprite 23,"Media/Plain_Verticle_Wall(1).bmp",1,1,23
Image_Count=Image_Count+1
create animated sprite 24,"Media/Plain_Verticle_Wall(2).bmp",1,1,24
Image_Count=Image_Count+1
create animated sprite 25,"Media/Blank_Space.bmp",1,1,25
Image_Count=Image_Count+1
create animated sprite 26,"Media/Fence_Beginning_End.bmp",1,1,26
Image_Count=Image_Count+1
create animated sprite 27,"Media/Fence_Middle.bmp",1,1,27
Image_Count=Image_Count+1
create animated sprite 28,"Media/Fence_End.bmp",1,1,28
Image_Count=Image_Count+1
create animated sprite 29,"Media/Wooden_Chair.bmp",1,1,29
Image_Count=Image_Count+1
create animated sprite 30,"Media/Kings_Throne.bmp",1,1,30
Image_Count=Image_Count+1
`Sprites 31-2439 Used As Wall Sprites
`Sprites 2440-2740 Used As Blank Spaces
`Sprites 2741-3943 Used As Fence Sprites

sprite 1,35,35,1
   set sprite priority 1,10

sprite 2,300,300,2
   set sprite priority 2,1

Sprite_Value=31
while Sprite_Value<=331
   clone sprite 17,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=332
while Sprite_Value<=632
   clone sprite 18,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=633`933
while Sprite_Value<=933
   clone sprite 19,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=934`1234
while Sprite_Value<=1234
   clone sprite 20,Sprite_Value
   Image_Count=Image_Count+1
inc Sprite_Value,1
endwhile

Sprite_Value=1235`1535
while Sprite_Value<=1535
   clone sprite 21,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=1536`1836
while Sprite_Value<=1836
   clone sprite 22,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=1837`2137
while Sprite_Value<=2137
   clone sprite 23,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=2138`2439
while Sprite_Value<=2439
   clone sprite 24,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=2440`2740
while Sprite_Value<=2740
   clone sprite 25,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=2741`3041
while Sprite_Value<=3041
   clone sprite 26,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value
endwhile

Sprite_Value=3342`3642
while Sprite_Value<=3642
   clone sprite 27,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=3643`3943
while Sprite_Value<=3943
   clone sprite 28,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

`Sprites 31-2439 Used As Wall Sprites
`Sprites 2440-2740 Used As Blank Spaces
`Sprites 2741-3943 Used As Fence Sprites
create animated sprite 3944,"Media/Regular_Wooden_Floors.bmp",1,1,3944
Image_Count=Image_Count+1

Sprite_Value=3945`4245
while Sprite_Value<=4245
   clone sprite 3944,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

`Sprites 3945-4245 Used As Regular Wooden Floors
create animated sprite 4246,"Media/Chair_With_Red_Seating_Material.bmp",1,1,4246
Image_Count=Image_Count+1
`Sprites 4247-4547 Used As Chair With Red Seating Material

Sprite_Value=4247`4547
while Sprite_Value<=4547
   clone sprite 4246,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

`Sprites 4247-4547 Used As Chair With Red Seating Material
`Sprites 4548-4848 Used As Grass
`Sprites 4849-5149 Used As Grass Patch

Sprite_Value=4548`4848
while Sprite_Value<=4848
   clone sprite 2,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=4849`5149
while Sprite_Value<=5149
   clone sprite 3,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

`###############################################################
`###############################################################
`###############################################################
`#########################CREATE SPRITE SECTION END#############
`###############################################################
`###############################################################
`###############################################################
while 1<2
`###############################################################
`###############################################################
`###############################################################
`#########################CONTROL SECTION START#################
`###############################################################
`###############################################################
`###############################################################
if upkey()=1
   move sprite 1,2
   play sprite 1,1,3,50
   dec CY#,2
   sync
endif

if downkey()=1
   move sprite 1,-2
   play sprite 1,7,9,50
   inc CY#,2
   sync
endif

if rightkey()=1
   rotate sprite 1,90
   move sprite 1,2
   rotate sprite 1,0
   play sprite 1,4,6,50
   inc CX#,2
   sync
endif

if leftkey()=1
   rotate sprite 1,270
   move sprite 1,2
   rotate sprite 1,0
   play sprite 1,10,12,50
   dec CX#,2
   sync
endif
`###############################################################
`###############################################################
`###############################################################
`#########################CONTROL SECTION END###################
`###############################################################
`###############################################################
`###############################################################

`###############################################################
`###############################################################
`###############################################################
`#########################COLLISION SECTION START###############
`###############################################################
`###############################################################
`###############################################################

if sprite collision(1,2)=1
Battle=Battle+1
endif

if Battle=1
sprite 1,200,200,1
sprite 2,300,200,2

if rightkey()=1
repeat
sprite 1,200,200,1
until rightkey()=0
endif

if leftkey()=1
repeat
sprite 1,200,200,1
until leftkey()=0
endif

if upkey()=1
repeat
sprite 1,200,200,1
until upkey()=0
endif

if downkey()=1
repeat
sprite 1,200,200,1
until downkey()=0
endif

if ucm=1
if mx>=540 and mx<=640 and my>=0 and my<=20
Attack_Click=1
wait 100
endif

if mx>=540 and mx<=640 and my>=20 and my<=40
Stats_Click=1
   if Stats_Click=1
      Stats_Click=0
   endif
endif
endif

if Attack_Click>0
while a<=100
rotate sprite 1,90
move sprite 1,1
rotate sprite 1,0
play sprite 1,4,6,50
sync
inc a,1
endwhile

Attack_Click=0
endif
sync
endif

`###############################################################
`###############################################################
`###############################################################
`#########################COLLISION SECTION END#################
`###############################################################
`###############################################################
`###############################################################

`###############################################################
`###############################################################
`###############################################################
`######################### MAKE SURE STATS DONT ################
`#########################GO OVER MAX LEVEL SECTION START#######
`###############################################################
`###############################################################

`###############################################################
`###############################################################
`###############################################################
`######################### MAKE SURE STATS DONT ################
`#########################GO OVER MAX LEVEL SECTION END#########
`###############################################################
`###############################################################

remstart
if keystate(23)=1
Toolbar#=Toolbar#+1
wait 100
if Toolbar#=2
Toolbar#=Toolbar#-2
wait 100
endif
endif

if Toolbar#=1
sprite 647,540,0,647
   set sprite priority 647,3

sprite 648,540,0,648
   set sprite priority 648,4

sprite 649,540,20,649
   set sprite priority 649,5

endif

if Toolbar#=0
for toolbar=10 to 12
   rotate sprite toolbar,270
   move sprite toolbar,640
   rotate sprite toolbar,0
next toolbar
endif

##############IGNORE THIS SECTION FOR NOW!remend

mx=MOUSEX()
my=MOUSEY()
SPRITE 11,mx,my,11
   set sprite priority 11,10
ucm=MOUSECLICK()

sync
endwhile

+ Code Snippet

`###############################################################
`###############################################################
`###############################################################
`#########################MAIN MENU SECTION START###############
`###############################################################
`###############################################################
`###############################################################
sync on
cls
hide mouse
set window size 640,480

load image "Mediacursor.bmp",1
load image "MediaNew_Game_Unpressed.bmp",2
load image "MediaLoad_Game_Unpressed.bmp",3
load image "MediaNew_Game_Pressed.bmp",4
load image "MediaLoad_Game_Pressed.bmp",5
load image "Mediabeginning story.bmp",6
load image "MediaStart_Menu_Background.bmp",7
load music "MediaFairytale_Waltz.wav",1

   sprite 2,217,205,2
   sprite 3,217,255,3
   sprite 4,217,205,4
   sprite 5,217,255,5
      set sprite priority 4,1
      set sprite priority 5,1
   sprite 7,0,0,7

while 1<2
   mx=MOUSEX()
   my=MOUSEY()
   SPRITE 1,mx,my,1
      set sprite priority 1,10

   if mx=>217 and mx=<320 and my=>205 and my=<240
      sprite 4,217,205,4
         set sprite priority 4,10
      sync
   else
      set sprite priority 4,1
      set sprite priority 2,10
   sprite 2,217,205,2
   sync
   endif

   if mx=>217 and mx=<320 and my=>255 and my=<290
      sprite 5,217,255,5
         set sprite priority 5,10
      sync
   else
      set sprite priority 5,1
      set sprite priority 3,10
   sprite 3,217,255,3
   sync
   endif

if mouseclick()=1
   if mx=>217 and mx=<320 and my=>205 and my=<240
   cls
      gosub New_Game
      sync
   endif

   if mx=>100 and mx=<120 and my=>200 and my=<257

      sync
   endif
endif

sync
endwhile

New_Game:
cls
hide sprite 1
hide sprite 2
hide sprite 3
hide sprite 4
hide sprite 5

   sprite 6,0,480,6
   sync


WHILE spacekey()<=0
play music 1
   for beginningstory=0 to 480
   move sprite 6,0.001
   next beginningstory
wait 100
sync
ENDWHILE



Start_New_Game:
for x=1 to 7
delete sprite x
next x
delete music 1
cls
   input "What is your character's name? ",b$
`###############################################################
`###############################################################
`###############################################################
`#########################MAIN MENU SECTION END#################
`###############################################################
`###############################################################
`###############################################################

`###############################################################
`###############################################################
`###############################################################
`#########################DECLARE VARIABLES SECTION START#######
`###############################################################
`###############################################################
`###############################################################
cls
hide mouse
sync on
backdrop on:color backdrop RGB(0,0,0)

type Character
   Name as string
   Current_Health as integer
   Total_Health as integer
   Current_Attack_Level as integer
   Total_Attack_Level as integer
   Current_Defense_Level as integer
   Total_Defense_Level as integer
   Current_X_Position as integer
   Current_Y_Position as integer
endtype

type Enemy
   Name as string
   Current_Health as integer
   Total_Health as integer
   Current_Attack_Level as integer
   Total_Attack_Level as integer
   Current_Defense_Level as integer
   Total_Defense_Level as integer
endtype

type Map
   Name as string
   Max_X_Position as integer
   Max_Y_Position as integer
endtype

CX#=10
CY#=10
MapX#=616
MapY#=480
a=0
`###############################################################
`###############################################################
`###############################################################
`#########################DECLARE VARIABLES SECTION END#########
`###############################################################
`###############################################################
`###############################################################

`###############################################################
`###############################################################
`###############################################################
`#########################CREATE SPRITE SECTION START###########
`###############################################################
`###############################################################
`###############################################################
create animated sprite 1,"Media/test.bmp",3,5,1
Image_Count=Image_Count+1
create animated sprite 2,"Media/grass.bmp",1,1,2
Image_Count=Image_Count+1
create animated sprite 3,"Media/patch.bmp",1,1,3
Image_Count=Image_Count+1
create animated sprite 4,"Media/toolbar.bmp",1,1,4
Image_Count=Image_Count+1
create animated sprite 5,"Media/attack.bmp",1,1,5
Image_Count=Image_Count+1
create animated sprite 6,"Media/stats.bmp",1,1,6
Image_Count=Image_Count+1
create animated sprite 7,"Media/bar1.bmp",1,1,7
Image_Count=Image_Count+1
create animated sprite 8,"Media/bar2.bmp",1,1,8
Image_Count=Image_Count+1
create animated sprite 9,"Media/bar3.bmp",1,1,9
Image_Count=Image_Count+1
create animated sprite 10,"Media/bar4.bmp",1,1,10
Image_Count=Image_Count+1
create animated sprite 11,"Media/cursor.bmp",1,1,11
Image_Count=Image_Count+1
create animated sprite 12,"Media/stats.bmp",1,1,12
Image_Count=Image_Count+1
create animated sprite 13,"Media/bar1.bmp",1,1,13
Image_Count=Image_Count+1
create animated sprite 14,"Media/bar2.bmp",1,1,14
Image_Count=Image_Count+1
create animated sprite 15,"Media/bar3.bmp",1,1,15
Image_Count=Image_Count+1
create animated sprite 16,"Media/bar4.bmp",1,1,16
Image_Count=Image_Count+1
create animated sprite 17,"Media/Plain_L_Wall(1).bmp",1,1,17
Image_Count=Image_Count+1
create animated sprite 18,"Media/Plain_L_Wall(2).bmp",1,1,18
Image_Count=Image_Count+1
create animated sprite 19,"Media/Plain_L_Wall(3).bmp",1,1,19
Image_Count=Image_Count+1
create animated sprite 20,"Media/Plain_L_Wall(4).bmp",1,1,20
Image_Count=Image_Count+1
create animated sprite 21,"Media/Plain_Horizontal_Wall(1).bmp",1,1,21
Image_Count=Image_Count+1
create animated sprite 22,"Media/Plain_Horizontal_Wall(2).bmp",1,1,22
Image_Count=Image_Count+1
create animated sprite 23,"Media/Plain_Verticle_Wall(1).bmp",1,1,23
Image_Count=Image_Count+1
create animated sprite 24,"Media/Plain_Verticle_Wall(2).bmp",1,1,24
Image_Count=Image_Count+1
create animated sprite 25,"Media/Blank_Space.bmp",1,1,25
Image_Count=Image_Count+1
create animated sprite 26,"Media/Fence_Beginning_End.bmp",1,1,26
Image_Count=Image_Count+1
create animated sprite 27,"Media/Fence_Middle.bmp",1,1,27
Image_Count=Image_Count+1
create animated sprite 28,"Media/Fence_End.bmp",1,1,28
Image_Count=Image_Count+1
create animated sprite 29,"Media/Wooden_Chair.bmp",1,1,29
Image_Count=Image_Count+1
create animated sprite 30,"Media/Kings_Throne.bmp",1,1,30
Image_Count=Image_Count+1
`Sprites 31-2439 Used As Wall Sprites
`Sprites 2440-2740 Used As Blank Spaces
`Sprites 2741-3943 Used As Fence Sprites

sprite 1,35,35,1
   set sprite priority 1,10

sprite 2,300,300,2
   set sprite priority 2,1

Sprite_Value=31
while Sprite_Value<=331
   clone sprite 17,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=332
while Sprite_Value<=632
   clone sprite 18,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=633`933
while Sprite_Value<=933
   clone sprite 19,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=934`1234
while Sprite_Value<=1234
   clone sprite 20,Sprite_Value
   Image_Count=Image_Count+1
inc Sprite_Value,1
endwhile

Sprite_Value=1235`1535
while Sprite_Value<=1535
   clone sprite 21,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=1536`1836
while Sprite_Value<=1836
   clone sprite 22,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=1837`2137
while Sprite_Value<=2137
   clone sprite 23,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=2138`2439
while Sprite_Value<=2439
   clone sprite 24,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=2440`2740
while Sprite_Value<=2740
   clone sprite 25,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=2741`3041
while Sprite_Value<=3041
   clone sprite 26,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value
endwhile

Sprite_Value=3342`3642
while Sprite_Value<=3642
   clone sprite 27,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=3643`3943
while Sprite_Value<=3943
   clone sprite 28,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

`Sprites 31-2439 Used As Wall Sprites
`Sprites 2440-2740 Used As Blank Spaces
`Sprites 2741-3943 Used As Fence Sprites
create animated sprite 3944,"Media/Regular_Wooden_Floors.bmp",1,1,3944
Image_Count=Image_Count+1

Sprite_Value=3945`4245
while Sprite_Value<=4245
   clone sprite 3944,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

`Sprites 3945-4245 Used As Regular Wooden Floors
create animated sprite 4246,"Media/Chair_With_Red_Seating_Material.bmp",1,1,4246
Image_Count=Image_Count+1
`Sprites 4247-4547 Used As Chair With Red Seating Material

Sprite_Value=4247`4547
while Sprite_Value<=4547
   clone sprite 4246,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

`Sprites 4247-4547 Used As Chair With Red Seating Material
`Sprites 4548-4848 Used As Grass
`Sprites 4849-5149 Used As Grass Patch

Sprite_Value=4548`4848
while Sprite_Value<=4848
   clone sprite 2,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

Sprite_Value=4849`5149
while Sprite_Value<=5149
   clone sprite 3,Sprite_Value
   Image_Count=Image_Count+1
   inc Sprite_Value,1
endwhile

`###############################################################
`###############################################################
`###############################################################
`#########################CREATE SPRITE SECTION END#############
`###############################################################
`###############################################################
`###############################################################
while 1<2
`###############################################################
`###############################################################
`###############################################################
`#########################CONTROL SECTION START#################
`###############################################################
`###############################################################
`###############################################################
if upkey()=1
   move sprite 1,2
   play sprite 1,1,3,50
   dec CY#,2
   sync
endif

if downkey()=1
   move sprite 1,-2
   play sprite 1,7,9,50
   inc CY#,2
   sync
endif

if rightkey()=1
   rotate sprite 1,90
   move sprite 1,2
   rotate sprite 1,0
   play sprite 1,4,6,50
   inc CX#,2
   sync
endif


if leftkey()=1
   rotate sprite 1,270
   move sprite 1,2
   rotate sprite 1,0
   play sprite 1,10,12,50
   dec CX#,2
   sync
endif
`###############################################################
`###############################################################
`###############################################################
`#########################CONTROL SECTION END###################
`###############################################################
`###############################################################
`###############################################################


`###############################################################
`###############################################################
`###############################################################
`#########################COLLISION SECTION START###############
`###############################################################
`###############################################################
`###############################################################



if sprite collision(1,2)=1
Battle=Battle+1
endif

if Battle=1
sprite 1,200,200,1
sprite 2,300,200,2

if rightkey()=1
repeat
sprite 1,200,200,1
until rightkey()=0
endif

if leftkey()=1
repeat
sprite 1,200,200,1
until leftkey()=0
endif

if upkey()=1
repeat
sprite 1,200,200,1
until upkey()=0
endif

if downkey()=1
repeat
sprite 1,200,200,1
until downkey()=0
endif



if ucm=1
if mx>=540 and mx<=640 and my>=0 and my<=20
Attack_Click=1
wait 100
endif

if mx>=540 and mx<=640 and my>=20 and my<=40
Stats_Click=1
   if Stats_Click=1
      Stats_Click=0
   endif
endif
endif



if Attack_Click>0
while a<=100
rotate sprite 1,90
move sprite 1,1
rotate sprite 1,0
play sprite 1,4,6,50
sync
inc a,1
endwhile

Attack_Click=0
endif
sync
endif


`###############################################################
`###############################################################
`###############################################################
`#########################COLLISION SECTION END#################
`###############################################################
`###############################################################
`###############################################################



`###############################################################
`###############################################################
`###############################################################
`######################### MAKE SURE STATS DONT ################
`#########################GO OVER MAX LEVEL SECTION START#######
`###############################################################
`###############################################################


`###############################################################
`###############################################################
`###############################################################
`######################### MAKE SURE STATS DONT ################
`#########################GO OVER MAX LEVEL SECTION END#########
`###############################################################
`###############################################################

remstart
if keystate(23)=1
Toolbar#=Toolbar#+1
wait 100
if Toolbar#=2
Toolbar#=Toolbar#-2
wait 100
endif
endif

if Toolbar#=1
sprite 647,540,0,647
   set sprite priority 647,3

sprite 648,540,0,648
   set sprite priority 648,4

sprite 649,540,20,649
   set sprite priority 649,5

endif

if Toolbar#=0
for toolbar=10 to 12
   rotate sprite toolbar,270
   move sprite toolbar,640
   rotate sprite toolbar,0
next toolbar
endif

##############IGNORE THIS SECTION FOR NOW!remend

mx=MOUSEX()
my=MOUSEY()
SPRITE 11,mx,my,11
   set sprite priority 11,10
ucm=MOUSECLICK()

sync
endwhile

do you love video games a lot ¿¿¿ then comeon down too game zone252 @ http://www.freewebs.com/gamezone252/

Back to top

Profile PM Email Website

Dabbler

17

Years of Service

User Offline

Joined: 3rd Mar 2007

Location: Minnesota

Posted: 13th Mar 2008 02:58

Link

First: I will not badger: if it works for you then its ok.

Second: As others have said: That's a lot of sprites.

Just a couple thoughts: Most of the sprites are landscape images, would it be possible to create each image once and paste them on a background? If the background needs to move, make it a sprite from this larger composit background image?

Hey, I only dabble.

Whatever...

Back to top

Profile PM

Destrugter 1

18

Years of Service

User Offline

Joined: 26th Oct 2006

Location:

Posted: 13th Mar 2008 03:08 Edited at: 14th Mar 2008 02:25

Link

i need to detect alot of collision between my sprites also im building the inside of houses which i do not want to be just a big rectangle...im actually going to use walls and make rooms

EDIT: Also on top of that I tried pasting sprites before my loop and they don't show up...seems to me like it doesnt even work -_-

do you love video games a lot ¿¿¿ then comeon down too game zone252 @ http://www.freewebs.com/gamezone252/

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Cloning Sprites help