yust wanted to inform you santa a little of wath iam doing here.
today did i remove 54 sprites that was not neaded because i rewrote parts of the code you had for the border.
I wanted to make it easier for the newbies to change the play are and move it.
old----------------
`draws the boarder pieces
x_value = 60
for x = 11 to 24
sprite bottom, x_value,420,8
x_value = x_value + 20
rem hide sprite x
next x
y_value = 420
for x = 25 to 45
y_value = y_value - 20
sprite x, 60,y_value,8
hide sprite x
next x
y_value = 420
for x = 46 to 67
y_value = y_value - 20
sprite x, 320,y_value,8
hide sprite x
next x
end old----------------------------
new code---------------------------
` ----------------------playfield border
border_bottom=11
border_left_side=12
border_right_side=13
sprite border_bottom,60,420,1
SIZE SPRITE border_bottom,280,20
sprite border_left_side,60,0,1
SIZE SPRITE border_left_side,19,420
sprite border_right_side,320,0,1
SIZE SPRITE border_right_side,20,420
end new-----------------
so if an starting coder dont understand the new code so do i not know how they would be able to code.
and if there is someone else out there using santas code so here is the parts to change in the code.
right before the loop change this..........
dropped_piece = 18
-------------->and change here to
`loop to delete lines
for Start_y = -20 to 400 step 20
`makes check sprite if it doesnt exist
-------------->if sprite exist(14) <> 1 then sprite 14,80,Start_y,10
pieces_on_row = 0
`counts pieces on row
-------------->FOR x = 17 TO (dropped_piece - 1)
-------------->IF SPRITE COLLISION(14,x) = 1
pieces_on_row = pieces_on_row + 1
endif
next x
`starts a loop if theirs 12
`pieces on row
if pieces_on_row = 12
`deletes the row
-------------------->FOR x = 17 TO (dropped_piece - 1)
-------------------->IF SPRITE COLLISION(14,x) = 1
delete sprite x
endif
next x
------------------>FOR x = 17 TO (dropped_piece - 1)
if sprite exist(x)
if sprite y(x) < start_y
new_x=sprite x(x)
new_y=sprite y(x)+20
new_image=sprite image(x)
delete sprite x
sprite x,new_x,new_y,new_image
endif
endif
next x
endif
------------------------>delete sprite 14
pieces_on_row = 0
next start_y
Yet again santa thanks and enjoy to the rest an complete source and media will be released later.
AMD ATHLON 1.8 XP WITH AN GEFORCE 4 TITANIUM 4600 (128 MB) AND 256 MB DDRAM (266).
