.CUBE Cuberunner 1.2
0003C003C003C003C3E003E003E003E023E07000D801AC017400D8008800000)
.CREATE |v
"|vCubeHS"->Str9
"insufficient RAM"->Str90
"grey "->Str7
UnArchive Str9
!If GetCalc(Str9)->W
 GetCalc(Str9,8)->W
 !If W
  Text(20,25,Str90
   Repeat getKey
   End
  Goto Q
 End
 0->{W}^^r
 0->{W+2}^^r
 0->{W+4}
 Str7->{W+5}^^r
End


.HEADER
DiagnosticOff
Fix 5

.DATA
prgmCUBEDATA
"paused"->Str99
[00081C366B5D3622]->Pic0
.EXPLODE
[0000001818000000000018242418000000443824462C5000897E3CE6677EDA89984B2A40D3025A9581100001810004910000000000000000]->Pic5A
[FEFEFEFEFEFEFE00007C7C7C7C7C000000787878780000000000001800000000]->Pic1
.ROTATED 2
[000060000000000070F0F0E00000000038F8FCFC7C7000001EFEFEFFFF7F7F78]
[0000000000000000]->Pic2R
[787F7FFFFFFEFE1E707CFCFCF8380000E0F0F070000000000000600000000000]
[000018000000000030F0F8786000000038F8FCFC7C7000000C3CFEFE7F7F3C30]
[0000000000000000]->Pic1R
[303C7F7FFEFE3C0C707CFCFCF83800006078F8F0300000000000180000000000]
"made by squidgetx"->Str0
"2nd:play"->Str1
"clear:quit"->Str2
"high score: "->Str3
"<normal>"->Str4
"<    hard     >"->Str5
"alpha: "->Str6

"mono "->Str8
[FFFFFFE0E0FFFFFFE7E7E7E7E7FFFFFFFFFFE7FEFEE7FFFFFFFFE0FCFCE0FFFFFEFFE7FEFEFCEEE7E7E7E7E7E7FFFFFFE7F7FFFFFFFFEFE7E7F7FFFFFFFFEFE7FFFFE0FCFCE0FFFFFEFFE7FEFEFCEEE7]->Pic1T
"                    "->Str19


Lbl 0
ClrDraw
ClrDraw^^r
.TITLE SCREEN
Line(5,17,91,17
Line(10,48,86,48
StorePic
ClrDraw
Text(34,20,Str1
Text(31,34,Str6
Text(32,41,Str2
Text(20,49,Str3
Fix 3
Text(18,56,Str0
Fix 2
Line(17,56,17,62
Line(17,62,77,62
For(A,0,9
 Pt-On(A*9+4,5,A*8+Pic1T
 Pt-On(A*9+2,6,A*8+Pic1T)^^r
End

!If {W+4}
Str4->A
Else
Str5->A
End
0->K
Repeat getKey(54)
Text(58,49,Str19
Text(58,49,{{W+4}+W}^^r>Dec
Text(33,27,A
Text(52,34,{W+5}^^r
If getKey(15)
Goto Q
End
If getKey(48)
!If {W+5}^^r-Str7
  Str8->{W+5}^^r
 Else
  Str7->{W+5}^^r
 End
For(E,0,2
DispGraph^^r
End
End
If getKey(2)
0->{W+4}
Str4->A
End
If getKey(3)
Str5->A
2->{W+4}
End
DispGraph^^r
End

{W+5}^^r=Str8->{L5}
{W+4}->D

.INITIALIZE VARS
0->Q->{L1}->P
Fill(L1,100)
1->E->{L1+94}

fnInt(P,6)



.91,92:PTR TO SPRT
.93,94:V VCTR


.99:PAUSE?

.MAIN LOOP
.---------
.*********
Repeat Q
.---------
If {W+4}-2
If P<1500
 Pause 100-(P/15)
 DispGraph^^r
End
End
ClrDraw^^r
ClrDraw
.--------*

.SCORE-------*
!If P^500
sub(LV)
End
P+1->P

P>{W+D}^^r+{W+D}^^r->{W+D}^^r

./SC---------*

.KEYS--------
If getKey(15)
 Goto 99
End

.HANDLE MVT.-*
.93=speed
.94=direction
If getKey(2)->{L5+1} xor (getKey(3)->{L5+2})
If {L5+1}
 If {L1+94}!=1
  0->{L1+93}
 End
 1->{L1+94}
 {L1+93}+1->{L1+93}
End
If {L5+2}
 !If {L1+94}-1
  0->{L1+93}
 End
 ~1->{L1+94}
 {L1+93}+1->{L1+93}
End
End
!If {L1+93}-8
 7->{L1+93}
End
.slowdown
!If getKey(2)plotcrossgetKey(3)
 4*{L1+93}/5->{L1+93}
End
.move everything
For(A,0,84
 If A^2
  {L1+94}*{L1+93}+{A+L1}->{A+L1}
 End
End
./MVT--------*

.advance 1 space
conj(L1+4,L1,80
.96(L)=NUM ROWS PASSED
.97(M)=ROWS OF OBJECT
If L>M
 rand^2+1->{L1+80
 rand^256->{L1+81
 rand^2+1->{L1+82
 rand^256->{L1+83
Else
 conj(L*4+L1+100,L1+80,4)
 L+1->L
End

.DRAW
For(A,2,44-({W+4}*2)
 If {A*2+L1}
  {L1+93}*int(A*2+L1+1}*int(L1+94}//12->C
  A/2->Z
  /5-1*8+Pic1->{L1+91}^^r
  If {L1+93}>1
   If {L1+93}>4
    Pic1R->B
   Else
    Pic2R->B
   End
   Z/5*8*int(L1+94}+B->{L1+91}^^r
  End
  If int(A*2+L1+1}*9//Z+44->X<128
   If C+30*6//Z+21->Y<128
    If {A*2+L1}=1 or (1500/({W+4}/2+1)<P) or {L5}
     Pt-On(X,Y,{L1+91}^^r)
    Else
     Pt-On(X,Y,{L1+91}^^r)^^r
    End
   End
  End
 End
End
Pt-On(43,56,Pic0
3*{L1+93}*int(L1+94}->C
Line(0,33-C,95,33+C
Text(0,0,P>Dec
Text(75,0,{W+D}^^r>Dec
./DRAW

.COLLISION CHK
For(A,10,11
 If {A*2+L1}
  If {A*2+L1+1}>251 or ({A*2+L1+1}<4
   ->Q
  End
 End
End
./CC

.PAUSE--------
!If E
 FnOff
 Text(35,30,Str99
 1->E
 If P>1500
  DrawInv
 End
Lbl PP
 Repeat getKey(0)
  If P>1500
   DispGraph
  Else
   DispGraph^^r
  End
 End
If getKey(55)
Goto PP
End
 FnOn
End

./PAUSE-------

.SCREEN-------
If 1500/({W+4}sub(S))>P
 DispGraph^^r
Else
 If 2500/({W+4}sub(S))>P
  DrawInv
  DispGraph
 Else
  If P^10>=(rand^10)
   DrawInv
  End
  DispGraph
 End
End
./SCREEN------


End
./************


.EXPLOSION
For(A,0,6
 Pause 110
 Pt-Off(43,56,8*A+Pic5A
 Pt-Off(43,56,8*A+100)^^r
 DispGraph^^r
End
./EXPLODE-----

Goto 0


.QUIT CODE
Lbl Q
ClrDraw
Text(35,25,"exiting..."
DispGraph
Archive Str9
Lbl 99
LnReg
ClrDraw
ClrDraw^^r
ClrHome
Fix 4
Return
./QUIT
Lbl S
/2+1
Return
Lbl P
If getKey(55)
0->E
End
Return


Lbl LV
0->L
!If P
For(A,0,10
conj(GDB1,8*A+L1+140,8
End
30->M
End

.-------------

!If P-1000
For(A,0,2
conj(GDB2,A*96+L1+140,96
End
82->M
End

!If P-2000
For(A,0,1
conj(GDB3,A*124+L1+140,124
End
72->M
End
Return