@tukinem,
post #23
KOLOR$="c"
Screen Open 0,320,256,16,Lowres
Cls 1 : Flash Off : Curs Off : Ink 0
If KOLOR$="c" Then Load Iff "dane/brush"
If KOLOR$="t" Then Load Iff "dane/brush_tandy"
Get Bob 1,1,1 To 16,17
Get Bob 2,18,1 To 33,17
Get Bob 3,35,1 To 50,17
Get Bob 4,52,1 To 65,17
Get Bob 5,69,1 To 84,17
Get Bob 6,86,1 To 100,17
Cls 2
Double Buffer
Draw 42,28 To 278,28
Draw 42,234 To 278,234
Draw 42,28 To 42,234
Draw 278,28 To 278,234
Draw 44,30 To 276,30
Draw 44,232 To 276,232
Draw 44,30 To 44,232
Draw 276,30 To 276,232
Dim TAB(19,16)
Rem**********
RemLEVEL1
Rem**********
TAB(5,4)=6
TAB(6,4)=6
TAB(7,4)=6
TAB(8,4)=6
TAB(9,4)=6
TAB(5,5)=6
TAB(9,5)=6
TAB(9,6)=6
TAB(5,6)=6
TAB(3,7)=6
TAB(4,7)=6
TAB(5,7)=6
TAB(9,7)=6
TAB(10,7)=6
TAB(3,8)=6
TAB(10,8)=6
TAB(1,9)=6
TAB(2,9)=6
TAB(3,9)=6
TAB(5,9)=6
TAB(7,9)=6
TAB(8,9)=6
TAB(10,9)=6
TAB(14,9)=6
TAB(15,9)=6
TAB(16,9)=6
TAB(17,9)=6
TAB(18,9)=6
TAB(19,9)=6
TAB(1,10)=6
TAB(5,10)=6
TAB(7,10)=6
TAB(8,10)=6
TAB(10,10)=6
TAB(11,10)=6
TAB(12,10)=6
TAB(13,10)=6
TAB(14,10)=6
TAB(19,10)=6
TAB(1,11)=6
TAB(19,11)=6
TAB(1,12)=6
TAB(2,12)=6
TAB(3,12)=6
TAB(4,12)=6
TAB(5,12)=6
TAB(7,12)=6
TAB(8,12)=6
TAB(9,12)=6
TAB(11,12)=6
TAB(13,12)=6
TAB(14,12)=6
TAB(19,12)=6
TAB(5,13)=6
TAB(11,13)=6
TAB(12,13)=6
TAB(13,13)=6
TAB(14,13)=6
TAB(15,13)=6
TAB(16,13)=6
TAB(17,13)=6
TAB(18,13)=6
TAB(19,13)=6
TAB(5,14)=6
TAB(6,14)=6
TAB(7,14)=6
TAB(8,14)=6
TAB(9,14)=6
TAB(10,14)=6
TAB(11,14)=6
TAB(18,12)=5
TAB(18,11)=5
TAB(18,10)=5
TAB(17,12)=5
TAB(17,11)=5
TAB(17,10)=5
TAB(6,6)=4
TAB(6,8)=4
TAB(8,8)=4
TAB(8,7)=4
TAB(6,11)=4
TAB(3,11)=4
TAB(12,12)=1
POLA=6
SKRZYNIE=6
B=1
For X=1 To 19
For Y=1 To 16
XP=(X-1)*12+46
YP=(Y-1)*12+32
If TAB(X,Y)=6 Then Paste Bob XP,YP,6
If TAB(X,Y)=5 Then Bob POLA+30,XP,YP,5 : POLA=POLA-1
If TAB(X,Y)=4 Then Bob SKRZYNIE+3,XP,YP,4 : SKRZYNIE=SKRZYNIE-1
If TAB(X,Y)=1 Then Bob 1,XP,YP,B : XP=XB : YP=YB
Next Y
Next X
SKRZYNIE=6
X=12
Y=12
250
Rem****** PETLA WLASCIWA *******
Do
Bob 1,(X-1)*12+46,(Y-1)*12+32,B
RUCHX=0
RUCHY=0
Wait 3
If Joy(1)=1 Then RUCHY=-1 : B=3 : C=3
If Joy(1)=2 Then RUCHY=1 : B=3 : C=4
If Joy(1)=4 Then RUCHX=-1 : B=1 : C=1
If Joy(1)=8 Then RUCHX=1 : B=2 : C=2
If X<1 Then X=1
If X>19 Then X=19
If Y<1 Then Y=1
If Y>16 Then Y=16
For I=4 To 9
If Bob Col(1,4 To I)=-1 Then Goto MOVEBOX
Next I
If TAB(X,Y-1)=6 and RUCHY=-1 Then RUCHY=0 : Goto 300
If TAB(X,Y+1)=6 and RUCHY=1 Then RUCHY=0 : Goto 300
If TAB(X-1,Y)=6 and RUCHX=-1 Then RUCHX=0 : Goto 300
If TAB(X+1,Y)=6 and RUCHX=1 Then RUCHX=0 : Goto 300
300
X=X+RUCHX
Y=Y+RUCHY
Wait 2
Rem Locate 10,30
Rem Print "kolizja: ";Bob Col(1,4 To I);" i :";I
Loop
MOVEBOX:
If C=1 Then Bob I,(X-2)*12+46,(Y-1)*12+32,4
If C=2 Then Bob I,X*12+46,(Y-1)*12+32,4
If C=3 Then Bob I,(X-1)*12+46,(Y-2)*12+32,4
If C=4 Then Bob I,(X-1)*12+46,Y*12+32,4
Goto 250