massive problem - GameCreators Forum

Author

Message

kirtn14

13

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 11th Feb 2012 12:43

Link

the piece of coding im wrighting doesnt work

For i = 1 to 6
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

For i = 8 to 14
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

For i = 29 to 34
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

For i = 36 to 48
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

For i = 50 to 62
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

For i = 64 to 70
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

+ Code Snippet

For i = 1 to 6
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

For i = 8 to 14
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

For i = 29 to 34
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

For i = 36 to 48
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

For i = 50 to 62
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

For i = 64 to 70
if GetSpriteCollision(Sprites[21],Sprites[i])
             if getspritedepth (Sprites[21])=1
            SetSpritePosition ( sprites[21],originalX#, originalY# )
    endif
    endif
Next i

its suppost to move all sprites exclueding 7,15 to 28, 35,49 and 63 but it moves them back aswell and i keep loking at the code and i cant see why it b ecause i havnt spesified them to be moved

ive writen this about 348 times for each sprite and its just so anoying when it wont work

kirtnicholls

Back to top

Profile PM Email Website

DVader

20

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 11th Feb 2012 21:29 Edited at: 11th Feb 2012 21:45

Link

Depends where you are positioning those sprites for one. But in the code above I can only see the one sprite (21) being moved? Are you moving the viewport to view that sprite? If so it would appear move all of the sprites when sprite 21 is moved to originalx#, originaly#.

Edit - you may want to make a typed array for the sprites to make your code more efficient. For instance make a type called something descriptive, say, spritedata. Add something like hit_type in the type. Dim an array called sprites[numberofsprites] as spritedata. Make a loop to run through all your 70 sprites in one go. Set the data in the loop for hit_type, so in a for next loop, sprites[n].hit_type=1. Then you can put in a bit of code to change the ones you want to be avoided back to 0. Then you can alter your code above to one single loop and check if the sprite is available by checking the array sprite[spritenumber].hit_type and checking for 1.
You could add in a string to read in the hit_type data as well, so you can put the correct data in the original loop rather than redoing afterwards. But one thing at a time, the lack of a data command means you have to use string$ for this sort of thing, which is a little more awkward than nice data statements.

Back to top

Profile PM Website

Hodgey

15

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 11th Feb 2012 23:42

Link

The problem may not lie that the piece of code you have posted. We'll need to see a bit more.

Back to top

Profile PM Email

kirtn14

13

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 12th Feb 2012 14:03

Link

this is all the code, its massive, i know that doesnt work because when i press sprite 7 it wont move no matter what the sprite is

setdisplayaspect  (0.66)
SetDisplayAspect ( 4.0 / 3.0 )

//rem load images

circle1= loadimage ("circle1.png")
circle2= loadimage ("circle2.png")
circle3= loadimage ("circle3.png")
circle4= loadimage ("circle4.png")
circle5= loadimage ("circle5.png")
circle6= loadimage ("circle6.png")
circle7= loadimage ("circle7.png")
circle8= loadimage ("circle8.png")
circle9= loadimage ("circle9.png")
circle10= loadimage ("circle10.png")
circle11= loadimage ("circle11.png")
circle12= loadimage ("circle12.png")
circle13= loadimage ("circle13.png")
circle14= loadimage ("circle14.png")
square1= loadimage ("square1.png")
square2= loadimage ("square2.png")
square3= loadimage ("square3.png")
square4= loadimage ("square4.png")
square5= loadimage ("square5.png")
square6= loadimage ("square6.png")
square7= loadimage ("square7.png")
square8= loadimage ("square8.png")
square9= loadimage ("square9.png")
square10= loadimage ("square10.png")
square11= loadimage ("square11.png")
square12= loadimage ("square12.png")
square13= loadimage ("square13.png")
square14= loadimage ("square14.png")
triangle1= loadimage ("triangle1.png")
triangle2= loadimage ("triangle2.png")
triangle3= loadimage ("triangle3.png")
triangle4= loadimage ("triangle4.png")
triangle5= loadimage ("triangle5.png")
triangle6= loadimage ("triangle6.png")
triangle7= loadimage ("triangle7.png")
triangle8= loadimage ("triangle8.png")
triangle9= loadimage ("triangle9.png")
triangle10= loadimage ("triangle10.png")
triangle11= loadimage ("triangle11.png")
triangle12= loadimage ("triangle12.png")
triangle13= loadimage ("triangle13.png")
triangle14= loadimage ("triangle14.png")
cross1= loadimage ("cross1.png")
cross2= loadimage ("cross2.png")
cross3= loadimage ("cross3.png")
cross4= loadimage ("cross4.png")
cross5= loadimage ("cross5.png")
cross6= loadimage ("cross6.png")
cross7= loadimage ("cross7.png")
cross8= loadimage ("cross8.png")
cross9= loadimage ("cross9.png")
cross10= loadimage ("cross10.png")
cross11= loadimage ("cross11.png")
cross12= loadimage ("cross12.png")
cross13= loadimage ("cross13.png")
cross14= loadimage ("cross14.png")
star1= loadimage ("star1.png")
star2= loadimage ("star2.png")
star3= loadimage ("star3.png")
star4= loadimage ("star4.png")
star5= loadimage ("star5.png")
star6= loadimage ("star6.png")
star7= loadimage ("star7.png")
star8= loadimage ("star8.png")
star9= loadimage ("star9.png")
star10= loadimage ("star10.png")
star11= loadimage ("star11.png")
star12= loadimage ("star12.png")
star13= loadimage ("star13.png")
star14= loadimage ("star14.png")
change1 =loadimage ("change.png")
change2 =loadimage ("change.png")
change3 =loadimage ("change.png")
change4 =loadimage ("change.png")
change5 =loadimage ("change.png")
cardback =loadimage ("cardback.png")

dim sprites[76] as integer

sprites [1] = createsprite (circle1)
sprites [2] = createsprite (circle2)
sprites [3] = createsprite (circle3)
sprites [4] = createsprite (circle4)
sprites [5] = createsprite (circle5)
sprites [6] = createsprite (circle6)
sprites [7] = createsprite (circle7)
sprites [8] = createsprite (circle8)
sprites [9] = createsprite (circle9)
sprites [10] = createsprite (circle10)
sprites [11] = createsprite (circle11)
sprites [12] = createsprite (circle12)
sprites [13] = createsprite (circle13)
sprites [14] = createsprite (circle14)
sprites [15] = createsprite (square1)
sprites [16] = createsprite (square2)
sprites [17] = createsprite (square3)
sprites [18] = createsprite (square4)
sprites [19] = createsprite (square5)
sprites [20] = createsprite (square6)
sprites [21] = createsprite (square7)
sprites [22] = createsprite (square8)
sprites [23] = createsprite (square9)
sprites [24] = createsprite (square10)
sprites [25] = createsprite (square11)
sprites [26] = createsprite (square12)
sprites [27] = createsprite (square13)
sprites [28] = createsprite (square14)
sprites [29] = createsprite (triangle1)
sprites [30] = createsprite (triangle2)
sprites [31] = createsprite (triangle3)
sprites [32] = createsprite (triangle4)
sprites [33] = createsprite (triangle5)
sprites [34] = createsprite (triangle6)
sprites [35] = createsprite (triangle7)
sprites [36] = createsprite (triangle8)
sprites [37] = createsprite (triangle9)
sprites [38] = createsprite (triangle10)
sprites [39] = createsprite (triangle11)
sprites [40] = createsprite (triangle12)
sprites [41] = createsprite (triangle13)
sprites [42] = createsprite (triangle14)
sprites [43] = createsprite (cross1)
sprites [44] = createsprite (cross2)
sprites [45] = createsprite (cross3)
sprites [46] = createsprite (cross4)
sprites [47] = createsprite (cross5)
sprites [48] = createsprite (cross6)
sprites [49] = createsprite (cross7)
sprites [50] = createsprite (cross8)
sprites [51] = createsprite (cross9)
sprites [52] = createsprite (cross10)
sprites [53] = createsprite (cross11)
sprites [54] = createsprite (cross12)
sprites [55] = createsprite (cross13)
sprites [56] = createsprite (cross14)
sprites [57] = createsprite (star1)
sprites [58] = createsprite (star2)
sprites [59] = createsprite (star3)
sprites [60] = createsprite (star4)
sprites [61] = createsprite (star5)
sprites [62] = createsprite (star6)
sprites [63] = createsprite (star7)
sprites [64] = createsprite (star8)
sprites [65] = createsprite (star9)
sprites [66] = createsprite (star10)
sprites [67] = createsprite (star11)
sprites [68] = createsprite (star12)
sprites [69] = createsprite (star13)
sprites [70] = createsprite (star14)
sprites[71]= createsprite (change1)
sprites[72]= createsprite (change2)
sprites[73] = createsprite (change3)
sprites[74] = createsprite (change4)
sprites[75] = createsprite (change5)
sprites[76] = createsprite (cardback)

for i = 1 to 76
     setspritesize(sprites[i],12,21)
next i

for i = 1 to 14
     setspriteposition(sprites[i],12,210)
next i

for i = 14 to 28
     setspriteposition(sprites[i],-120,21)
next i

for i = 29 to 42
     setspriteposition(sprites[i],12,-210)
next i

for i = 43 to 56
     setspriteposition(sprites[i],-120,-210)
next i

for i = 57 to 70
     setspriteposition(sprites[i],120,21)
next i

do
    setclearcolor (250,250,250)

if GetPointerState()
        x# = GetPointerX()
        y# = GetPointerY()