Need help with moving blocks

[hendrikbez]

I am trying to use moving blocks,  player sprite is stopping at the block, but is not moving it.

I have make four om my character set to use for the four corners of the block.  I have make 8 blocks (4 solid wall and 4 empty space for the corners of the block).

Here are my  code for Player control, Sprite type 5 and Game initialization and initialize sprite

Player Control
IF X < = 9
SCREENUP
LET X 144
JUMP
EXIT
ENDIF
IF X > 160
SCREENDOWN
LET X 15
EXIT
ENDIF
IF Y > = 230
SCREENRIGHT
LET Y 10
subtract 1 from x
ENDIF
IF Y < = 8
SCREENLEFT
LET Y 228
subtract 1 from x
ENDIF
DETECTOBJ
IF OBJ <> 255
if obj <= 14      
score 100
else
if obj <=29
score 150
else
if obj <= 44
score 50
endif
endif
endif
if obj =45
get obj
add 1 to G
let line C
let column 29
colour 67
message 10
score 250
add 1 to C
let line 0
let column 0
colour 68
message 17
let d = 0
endif
if obj =46
get obj
add 1 to G
let line C
let column 29
colour 67
message 10
score 250
add 1 to C
let line 0
let column 0
colour 68
message 20
let d = 0

endif
if obj = 47
get obj
add 1 to G
let line C
let column 29
colour 67
message 10
score 250
add 1 to C
let line 0
let column 1
colour 68
message 19
let d = 0
endif
if obj = 48
get obj
add 1 to G
let line C
let column 29
colour 67
message 10
score 250
add 1 to C
let line 0
let column 1
colour 68
message 21
let d = 0
endif
if obj = 49
get obj
add 1 to G
let line C
let column 29
colour 67
message 10
score 250
add 1 to C
let line 0
let column 1
colour 68
message 16
let d = 0
endif
if obj = 50
get obj
add 1 to G
let line C
let column 29
colour 67
message 10
score 250
add 1 to C
let line 0
let column 1
colour 68
message 18
let d = 0
endif
IF OBJ <  60
GET OBJ
LET LINE 23
LET COLUMN 22
SHOWSCORE
SOUND 2
ENDIF
ENDIF
if d = 200
let line 0
let column 1
colour 0
message 22
endif
if G = 6    
ENDGAME
endif
IF KEY 0
ADD 1 TO Y
IF COLLISION 1
OTHER
LET R Y
ORIGINAL
IF Y <= R
OTHER
IF PARAMB = 0
LET PARAMA 1
LET PARAMB 6
ENDIF
ORIGINAL
ENDIF
ENDIF
SUBTRACT 1 TO Y
IF CANGORIGHT
LET IMAGE = 1
IF A = 0
ANIMATE
IF FRAME = 3
SOUND 3
ENDIF
ENDIF
SPRITERIGHT
ENDIF
ENDIF
IF KEY 1
SUBTRACT 1 TO Y
IF COLLISION 1
OTHER
LET R Y
ORIGINAL
IF Y > R
OTHER
IF PARAMB = 0
LET PARAMA 2
LET PARAMB 6
ENDIF
ORIGINAL
ENDIF
ENDIF
ADD 1 TO Y
IF CANGOLEFT
LET IMAGE = 0
IF A = 0
ANIMATE
IF FRAME = 3
SOUND 3
ENDIF
ENDIF
SPRITELEFT
ENDIF
Endif

IF KEY 4
if F = 0
JUMP
SOUND 4
ENDIF
else
LET F 0
endif
IF DEADLY
KILL
ENDIF
sprite event 5

IF DIRECTION = 0
IF PARAMB > 2
IF PARAMB =6
LET Q 0
IF PARAMA = 1      
IF CANGORIGHT
LET Q 1
ENDIF
ENDIF
IF PARAMA = 2
IF CANGOLEFT
LET Q 1
ENDIF
ENDIF
IF Q = 1
LET Q X
LET R Y
DIVIDE Q BY 8
DIVIDE R BY 8
LET LINE Q
LET COLUMN R
PUTBLOCK 6
LET LINE Q
LET COLUMN R
COLOUR 65
MESSAGE 23
ADD 1 TO R
LET LINE Q
LET COLUMN R
PUTBLOCK 7
LET LINE Q
LET COLUMN R
COLOUR 66
MESSAGE 22
ADD 1 TO Q
LET LINE Q
LET COLUMN R
PUTBLOCK 8
LET LINE Q
LET COLUMN R
COLOUR 67
MESSAGE 21
SUBTRACT 1 TO R
LET LINE Q
LET COLUMN R
PUTBLOCK 9
LET LINE Q
LET COLUMN R
COLOUR 68
MESSAGE 20
ELSE
LET PARAMB 0
ENDIF
ENDIF
IF PARAMB > 0
IF PARAMA = 1
IF CANGORIGHT
SPRITERIGHT
ENDIF
IF CANGOTIGHT
SPRITERIGHT
ENDIF
ENDIF
IF PARAMA = 2
IF CANGOLEFT
SPRITELEFT
ENDIF
IF CANGOLEFT
SPRITELEFT
ENDIF
ENDIF
SUBTRACT 1 TO PARAMB
ENDIF
ENDIF
IF PARAMB = 1
LET PARAMB 0
LET Q X
LET R Y
DIVIDE Q BY 8
DIVIDE R BY 8
LET LINE Q
LET COLUMN R
PUTBLOCK 10
LET LINE Q
LET COLUMN R
COLOUR 65
MESSAGE 23
ADD 1 TO R
LET LINE Q
LET COLUMN R
PUTBLOCK 11
LET LINE Q
LET COLUMN R
COLOUR 66
MESSAGE 22
ADD 1 TO Q
LET LINE Q
LET COLUMN R
PUTBLOCK 12
LET LINE Q
LET COLUMN R
COLOUR 67
MESSAGE 21
SUBTRACT 1 TO R
LET LINE Q
LET COLUMN R
PUTBLOCK 13
LET LINE Q
LET COLUMN R
COLOUR 68
MESSAGE 20
ENDIF
IF PARAMB = 2
LET PARAMB 1
ENDIF
ENDIF
IF CANGODOWN
IF PARAMB > 0
LET PARAMB 0
ELSE
IF DIRECTION = 0        
LET DIRECTION 1    
LET Q X
LET R Y
DIVIDE Q BY 8
DIVIDE R BY 8
LET LINE Q
LET COLUMN R
PUTBLOCK 6
LET LINE Q
LET COLUMN R
COLOUR 65
MESSAGE 23
ADD 1 TO R
LET LINE Q
LET COLUMN R
PUTBLOCK 7
LET LINE Q
LET COLUMN R
COLOUR 66
MESSAGE 22
ADD 1 TO Q
LET LINE Q
LET COLUMN R
PUTBLOCK 8
LET LINE Q
LET COLUMN R
COLOUR 67
MESSSAGE 21
SUBTRACT 1 TO R
LET LINE Q
LET COLUMN R
PUTBLOCK 9
LET LINE Q
LET COLUMN R
COLOUR 68
MESSAGE 20
ENDIF
FALL
ENDIF
ELSE
IF DIRECTION = 1        
LET DIRECTION 0
LET Q X
LET R Y
DIVIDE Q BY 8
DIVIDE R BY 8
LET LINE Q
LET COLUMN R
PUTBLOCK 10
LET LINE Q
LET COLUMN R
COLOUR 65
MESSAGE 23
ADD 1 TO R
LET LINE Q
LET COLUMN R
PUTBLOCK 11
LET LINE Q
LET COLUMN R
COLOUR 66
MESSAGE 22
ADD 1 TO Q
LET LINE Q
LET COLUMN R
PUTBLOCK 12
LET LINE Q
LET COLUMN R
COLOUR 67
MESSAGE 21
SUBTRACT 1 TO R
LET LINE Q
LET COLUMN R
PUTBLOCK 13    
LET LINE Q
LET COLUMN R
COLOUR 68
MESSAGE 20
ENDIF
ENDIF
Game ins

LET LIVES = 9
COLOUR 71
BORDER 0
CLS
LET A 0
let G 0
Let D 0
COLOUR 67
LET LINE 22
LET COLUMN 2
MESSAGE 1  
LET LINE 22
LET COLUMN 8
DISPLAY LIVES
LET LINE 22
LET COLUMN 18
MESSAGE 2    
LET LINE 22
LET COLUMN 24
SHOWSCORE
colour 67
LET LINE 23
LET COLUMN 22
COLOUR 66
MESSAGE 6    
LET LINE 23
LET COLUMN 3
COLOUR 67
MESSAGE 7    
LET LINE 23
LET COLUMN 4
COLOUR 68
MESSAGE 8      
LET LINE 23
LET COLUMN 5
COLOUR 69
MESSAGE 9
LET LINE 23
LET COLUMN 6
COLOUR 70
MESSAGE 10      

initialize sprite

if type =5
let parama 0
let paramb 1
endif

[alessandro]

It would be much better if you could provide a snapshot taken within AGD in order to examine the actual sprite behavior and understand what's going on - no offence but those scripts look way too long and convoluted Did you try just using the Pushable block preset script instead?

[hendrikbez]

Save my soul 033 moving platform.z80 (54.95 KB)

Here is the file, the colour block on fisrt screen is the one I trying to move.

Yes did try the script but could not get it to work.

[rtape]

What do you want the pushable block to do?

If it's a regular pushable block then the inbuilt script does work. I've attached an example, sprite type 8 inserted on screen 1.

pushblockexample.z80 (54.97 KB)

There are a lot of possibilities in the script that make the block disappear, but all the 'REMOVE' instructions could be deleted. You could add a FALL instruction at the start of the script, or take some of the moving platform script to enable the player to stand on it.

[hendrikbez]

rtape

Thank you, I did use this code, but I think is did not work with what I have (the code),  will look at it and add fall, as I need the block to fall.

I see thast if you move the block, against the wall it disappear totally, it must not.

[rtape]

Aug 31, 2017 12:20:37 GMT hendrikbez said:

rtape
I see thast if you move the block, against the wall it disappear totally, it must not.

To stop that happening in my example, go into sprite type 8 and delete every line that says 'REMOVE'.

I don't have time now, but it would be nice to be able to stand on the push block, I might be able to try that tonight.

Cool sprites by the way.

[hendrikbez]

Thank you for you help, will wait for you when you have time, I need to stand on it as well, for part om one screen a want to make

[rtape]

Managed to squeeze this in during luncthime :-)

pushblockexample2.z80 (46.05 KB)

I started from scratch, so the relevant bits of code are all of sprite type 1, and all the code before 'IF KEY 0' in sprite type 0.

It's not perfect as the sprite sometimes sits one line down into the pushblock (I've cheated here by removing the top line of the graphic to make it look better). There must be a way to improve on that.

[hendrikbez]

Thank you

rtape

I am trying to use the code so that player can stand on moving block, but it does not.

I have put this code in my main sprite event,  but it does not work, how will it know that it must use type 1 on this.
I see that you have other code, in initialize sprite, but it is for type 2

if cangodown
fall
endif
if collision 1
other
let a = x
original
if a > x
stopfall
endif
endif

[hendrikbez]

rtape

I have put this in my sprite 0 (Main sprite) but it does not work.


IF CANGODOWN
FALL
ENDIF
IF COLLISION 1
OTHER
LET A = X
ORIGINAL
ID A > X
STOPFALL
ENDIF
ENDIF

I have put this before my if key o code.
I cannot understand how the A is working from (let A = X)
I did look at all your code, but I can not figure why it does not want to stand on the moving block.

[hendrikbez]

Got it sorted out, needed to have if collision 5 and not if collision 1.
I did think that you can only use if collision 0 and 1, boy was I wrong.

[kempston]

Hi!

When the pushable block reaches a wall, it isn't solid anymore and the player sprite passes through it. Can this be avoided?

Thank you.

[lukebord1]

Browsing quickly your code, "IF OBJ < 60" should be replaced by "IF OBJ <= 59" (maybe it was just a transcription error); as you surely know, AGD doesn't support the standalone "<" operator as it does for the ">".