I had an idea to change in Blockeat, however, unfortunately, I don't really get the code:
0
dim(40
Pause While getKey=9
Fill(0
Text(2,1,SELECT A DIFFICULTY:
Line(1,84,0,9,3
Text(10,0,EASY
Text(16,0,NORMAL
Text(22,0,HARD
0->A->B
While A!=8
Line(0,96,10+B*6,6,2
DispGraph
Line(0,96,10+B*6,6,2
Pause 5
getKey-1->A
A>=9
DS<(2
B
If A=0
+1
If A=3
-1
->B
B/3
Ans->B
End
1200-300*B->H
Fill(0
Text(0,0,LOADING...
DispGraph
Fill(0
95->A
While A
60->B
Line(A-4,3,B-4,3,1
B-5->B
DS<(2
A-5->A
End
6->A
While A
rand*rand
/17
5*1+Ans->C
rand*rand
/9
5*Ans->D
Line(C,5,D,15,1
A-1->A
End
6->A
While A
rand*rand
/15
5*1+Ans->C
rand*rand
/12
5*Ans->D
Line(C,15,D,5,1
A-1->A
End
0->D->G
3->C
While *D!=150
Line(A,5,B,5,0
Line(A+1,3,B,1,1
Line(A,5,B+1,1,1
Line(A+1,3,B+3,1,1
Pxl-On(B+2,A+4*C=2
If C=1
Pxl-On(B+2,A+4
If C=4
Line(A+1,4,B+2,1,1
Pxl-On(B+4,A
Pxl-On(B+4,A+4
DispGraph
Line(A,5,B,5,0
getKey-1->I
If I<4
I+1->C
A
If C=3
+5
If C=2
-5
->E
B
If C=1
+5
If C=4
-5
->F
If E=95
90->E
If E>=96
0->E
If F=60
55->F
If F>=65
0->F
If pxl-Test(F,E+2
A->E B->F
E!=A
If +F!=B
D+pxl-Test(F+2,E+2->D
E->A
F->B
G+1->G
I!=14
*G!=H
End
G->!Ans
D->!A
H->!B
Text(2,1,TIME UP!
Line(1,36,0,9,3
DispGraph
Pause While getKey!=9
Stop
ClrHome
Disp sub("LOSE!WIN! ",5(150=B)+1,5),"STEPS:",Ans,"BLOCKS:",A
Pause
Where is the main game loop? That's where I want to change stuff :S Thanks.