natural drop

[ramon]

A way to make multiple faucets drip randomly.




EVENT SPRITETYPE3

; SETTINGB es el retardo entre gota y gota
; SETTINGB = 255 siempre que se instancia un SPRITE por PRIMERA VEZ

SPRITEINK 5 ; azul como el mar

IF SETTINGB = 255
GETRANDOM 3
LET FRAME = RND
LET SETTINGB = RND
MULTIPLY SETTINGB BY 8 ; Definimos Retardo gota-gota inicial
ENDIF

IF FRAME = 0
SUBTRACT 1 TO SETTINGB ; Cuenta atrás para lanzamiento
IF SETTINGB = 0
LET FRAME = 1 ; Lanzamiento!
GETRANDOM 25
LET SETTINGB = RND ; Definimos nuevo retardo
ENDIF
ELSE
ANIMATE SLOW
ENDIF


ExampleNaturalDrop.rar (16.25 KB)

The scroll is developed by arcadegamedesigner.proboards.com/thread/1134/scroll