
@selur, post #3
@mateusz_s, post #4
@mateusz_s, post #4
przy ogólnym programowaniu na pc
@mateusz_s, post #1
@teh_KaiN, post #6
@sanjyuubi, post #7
; ustawienie przerwania VBLANK, ktore wybiera bitmape do pokazania
SetInt 5
If frames_ready > 0
If bmap = 0 Then frametodisplay = 2
If bmap = 1 Then frametodisplay = 0
If bmap = 2 Then frametodisplay = 1
DisplayBitMap 0, frametodisplay
frames_ready - 1
EndIf
End SetInt
; petla
For T = 0 To 300
mycls{ btm_adr(bmap +1)\a08 }
mycls{ btm_adr(bmap +1)\a12 }
mycls{ btm_adr(bmap +1)\a16 }
mycls{ btm_adr(bmap +1)\a20 }
mycls{ btm_adr(bmap +1)\a24 }
mycls{ btm_adr(bmap +1)\a28 }
For i = 1 To #STARS
stars(i)\y + stars(i)\ys
If stars(i)\y > 252
If stars_random_x_counter >= #STARS_RANDOM_X
stars_random_x_counter = 1
Else
stars_random_x_counter + 1
EndIf
stars(i)\y = 0
stars(i)\x = stars_random_x(stars_random_x_counter)
EndIf
Blit stars(i)\shp, stars(i)\x, stars(i)\y
Next
bmap + 1
If bmap = 3 Then bmap = 0
frames_ready + 1
If frames_ready > 1
Repeat
Until frames_ready < 2
EndIf
Use BitMap bmap
Next
@mateusz_s, post #9
@sanjyuubi, post #10
@mateusz_s, post #9
Repeat Until frames_ready < 2
Signal(task, signal);
Wait(1L << signal);