Uncharted TI Source

:.UC
:
:
:
:Fix 5
:
:10*256→X
:5*256→Y
:0→U→V→D+15→S
:0→J→F
:0→{L1+600}r
:0→{L1+602}r
:
:0→{L2}r
:0→{L2+2}r
:
:
:ClrDraw
:ClrDrawr
:sub(SMP
:
:Repeat getKey(15)
:
:
:sub(DOA
:
:If {L1+602}
:{L1+602}→H
:For(G,H,3
:sub(DOA
:End
:0→{L1+600}r
:0→{L1+602}
:End
:
:End
:Return
:
:Lbl DOA
:
:RecallPic
:sub(A
:sub(RCK
:sub(BOX
:sub(SAP
:sub(ENE
:sub(PH1
:sub(KEY
:sub(DPL
:sub(BUL
:sub(FIR
:
:If {L1+602}
:Circle({L1+600}+1,{L1+601}+1,rand^4+2
:For(A,0,3
:Horizontal +
:End
:Circle({L1+600},{L1+601},rand^8+1
:DispGraph
:For(A,0,7
:Horizontal -
:End
:DispGraph
:For(A,0,3
:Horizontal +
:End
:End
:
:If getKey(9)
:While getKey(9):End
:Text(5,5,"Paused"
:DispGraph
:Repeat getKey(9):End
:While getKey(9):End
:End
:
:DispGraphClrDraw
:Return
:
:
:[E0E06070E0000000E0E070E0B0000000]→Str1E
:Lbl ENE
:
:
:
:
:
:Return
:
:Lbl SAP
:For(A,0,7
:(A*2+L1+140)→B
:If {B}
:
:If F
:If {L2+2}≥({B+1}-1) and ({L2+2}≤({B+1}+6))
:If {L2+1}=({B}-3) or ({L2+1}=({B}+6))
:{B}→{L1+600}
:{B+1}→{L1+601}
:2→{L1+602}
:0→{B}r
:End:End:End
:
:Pt-On({B},{B+1},[709898F870000000]
:End:End
:Return
:
:
:Lbl RCK
:For(A,0,3
:(A*16+L1+76)→B
:If {B+1}
:If F=1
:If ({L2+2}≥({B+3}-1)) and ({L2+2}≤({B+3}+5)
:If ({L2+1}=({B+1}-3)) or ({L2+1}=({B+1}+6))
:1→{B+8}
:32→{B+4}r
:‾32→{B+6}r
:!If {B+9}-1
:‾24→{B+10}
:Else!If {B+9}-3
:0→{B+4}r
:End
:End:End:End
:
:If {B+8}
:{B}r+{B+4}r→{B}r
:{B+2}r+{B+6}r→{B+2}r
:!If {B+9}
:{B+4}r+4→{B+4}r:{B+6}r-2→{B+6}r
:Else!If {B+9}-1
:{B+4}r+6→{B+4}r
:Else!If {B+9}-2
:{B+4}r+12→{B+4}r
:{B+6}r-12→{B+6}r
:Else!If {B+9}-3
:{B+6}r-8→{B+6}r
:End
:
:If (pxl-Test({B+1}+3,{B+3}-1)≠0) or (pxl-Test({B+1}+4,{B+3}-1)≠0) or (pxl-Test({B+1}+5,{B+3})≠0) or (pxl-Test({B+1}+5,{B+3}+1)≠0)
:{B+1}→{L1+600}
:{B+3}→{L1+601}
:1→{L1+602}
:For(C,0,5
:!If {C*2+L1+64}
:{B+1}→{C*2+L1+64}
:{B+3}→{C*2+L1+65}
:6→C
:End
:End
:0→{B}r:0→{B+2}r
:End
:
:
:End
:
:!If {B+9}-1
:
:If {B+10}=8 and ({B+8}≠0)
:1→{B+10}
:For(C,0,5
:!If {C*2+L1+64}
:{B+1}-1→{C*2+L1+64}
:{B+3}+1→{C*2+L1+65}
:6→C
:End:End
:Else
:{B+10}+1→{B+10}
:End
:Else!If {B+9}-3
:If {B+8}
:!If rand^4
:{B+1}+2→{L1+600}
:{B+3}+4→{L1+601}
:3→{L1+602}
:End:End:End
:
:!If {B+8}
:!If {B+9}
:Pt-On({B+1},{B+3},[382858B050000000]
:Else!If {B+9}-1
:Pt-On({B+1},{B+3},[783878E8A0000000]
:Else!If {B+9}-2
:Pt-On({B+1},{B+3},[003050B050000000]
:Else!If {B+9}-3
:Pt-On({B+1},{B+3},[2050505070000000]
:End
:Else!If {B+8}-1
:!If {B+9}
:Pt-On({B+1},{B+3},[382858A040000000]
:Else!If {B+9}-1
:Pt-On({B+1},{B+3},[20F0F8F020000000]
:Else!If {B+9}-2
:Pt-On({B+1},{B+3},[1828502000000000]
:Else!If {B+9}-3
:Pt-On({B+1},{B+3},[2050505070000000]
:End
:
:For(I,0,2
:Pxl-Change(rand^3+({B+1}-2),rand^3+({B+3}+4))
:End
:
:End
:
:End
:End
:Return
:
:Lbl A
:X/256→{L5}
:Y/256→{L5+1}
:Return
:
:
:[20B050A8F8000000486070D8F8000000205070B8F8000000207068B8F8000000285058B0F8000000A050D058F800000000306898F80000000060B048F800000000306898F80000000060B048F8000000]→Str3F
:Lbl FIR
:For(A,0,5
:If {A*2+L1+64}
:Pt-Change({A*2+L1+64},{A*2+L1+65},rand^8*8+Str3F
:End:End
:For(A,0,5
:(A*2+L1+64)→B
:If {B}
:
:If rand^128=1
:0→{B}
:End
:
:!If pxl-Test({B}+2,{B+1}+5)
:{B+1}+1→{B+1}
:ElseIf rand^32=1
:If pxl-Test({B}-1,{B+1}+4)=0 and (rand^2=1)
:For(C,0,5
:(C*2+L1+64)→E
:If C=A
:Goto 002
:End
:!If {E}
:{B}-5→{E}
:{B+1}→{E+1}
:10→C
:End
:Lbl 002
:End
:ElseIf pxl-Test({B}+5,{B+1}+4)=0
:For(C,0,5
:(C*2+L1+64}→E
:If C=A
:Goto 003
:End
:!If {E}
:{B}+5→{E}
:{B+1}→{E+1}
:10→C
:End
:Lbl 003
:End
:
:End
:End
:
:End
:End
:Return
:
:Lbl BUL
:If getKey(55) and (F=0)
:→F
:If D
:{L5}-1→{L2+1}
:1→{L2+3}
:Else
:{L5}+4→{L2+1}
:0→{L2+3}
:End
:{L5+1}+2→{L2+2}
:End
:
:If {L2+1}≠0 and (F=1)
:!If {L2+3}
:!If pxl-Test({L2+1}+2,{L2+2})
:{L2+1}+1→{L2+1}
:Else
:2→F:End
:Else
:!If pxl-Test({L2+1}-1,{L2+2})
:{L2+1}-1→{L2+1}
:Else
:2→F:End
:End
:
:Goto 004
:End
:
:
:
:If F=2
:3→F
:If {L2+3}
:32→{L2+4}r
:{L2+1}+1→{L2+1}
:Else
:‾32→{L2+4}r
:{L2+1}-1→{L2+1}
:End
:
:{L2+2}→{L2+3}
:0→{L2+2}
:0→{L2+6}r
:End
:
:If F=3
:
:If {L2+4}r>>0
:If ((pxl-Test({L2+1}+2,{L2+3})=0) and (pxl-Test({L2+1}+2,{L2+3}+1)=0))
:{L2}r+{L2+4}→{L2}r:End
:ElseIf {L2+4}r<<0
:If ((pxl-Test({L2+1}-1,{L2+3})=0) and (pxl-Test({L2+1}-1,{L2+3}+1)=0))
:{L2}r+{L2+4}r→{L2}r:End
:Else
:‾({L2+4}r//2)→{L2+4}r
:End
:
:If pxl-Test({L2+1},{L2+3}+2)=0 and (pxl-Test({L2+1}+1,{L2+3}+2)=0)
:{L2+6}r+3→{L2+6}r
:Else
:If {L2+4}r>>0
:{L2+4}r-1→{L2+4}r
:ElseIf {L2+4}r<<0
:{L2+4}r+1→{L2+4}r
:End
:
:‾({L2+6}r//2)→{L2+6}r
:End
:{L2+2}r+{L2+6}r→{L2+2}r
:
:Lbl 004
:End
:
:If F=1
:Pt-On({L2+1},{L2+2},[C0C0000000000000])
:ElseIf F=3
:Pt-On({L2+1},{L2+3},[C0C0000000000000])
:End
:
:
:Return
:
:
:
:
:[0000000000000000F888F888F8000000D8F870F8F8000000F8F80000F8000000]→Str2
:
:Lbl BOX
:For(A,0,3
:If {A*16+L1}r
:Pt-On({A*16+L1+1},{A*16+L1+3},{A*16+L1+8}*8+Str2
:End:End
:
:For(A,0,3
:(A*16+L1)→B
:If {B}r
:
:If ({L5+1})<({B+3}+5) and (({L5+1})>({B+3}-5)
:If ({L5}+5)={B+1} and (D=0) and (getKey(3))
:U+1→{B+4}r
:ElseIf ({L5})=({B+1}+6) and (D=1) and (getKey(2))
:U-1→{B+4}r
:End:End
:
:
:If pxl-Test({B+1},{B+3}+5)≠0 or (pxl-Test({B+1}+4,{B+3}+5)≠0) or (pxl-Test({B+1}+2,{B+3}+5)≠0)
:0→{B+6}r
:If {B+4}r>>0
:{B+4}r-1→{B+4}r
:ElseIf {B+4}r<<0
:{B+4}r+1→{B+4}r
:End
:Else
:{B+6}r+2→{B+6}r
:End
:
:{B+6}r+{B+2}r→{B+2}r
:
:
:If {B+4}r>>0 and ((pxl-Test({B+1}+5,{B+3})=0) or (pxl-Test({B+1}+5,{B+3}+4)=0))
:{B}r+{B+4}r→{B}r
:ElseIf {B+4}r<<0 and ((pxl-Test({B+1}-1,{B+3})=0) or (pxl-Test({B+1}-1,{B+3}+4)=0))
:{B}r+{B+4}r→{B}r
:Else
:‾({B+4}r//2)→{B+4}r
:End
:
:End:End
:Return
:
:Lbl KEY
:If getKey(54) and (J≠0)
:Y-256→Y
:‾64→V
:End
:If getKey(2) and (U>>‾128)
:→D
:U-2→U
:DS<(S,15):End
:ElseIf getKey(3) and (U<<128)
:-1→D
:U+2→U
:DS<(S,15):End
:End
:Return
:
:Lbl PH1
:
:
:If U>>0 and ((pxl-Test({L5}+4,{L5+1})=0) and (pxl-Test({L5}+4,Y{L5+1}+4)=0)) and (pxl-Test({L5}+4,{L5+1}+2)=0)
:U+X→X
:ElseIf U<<0 and ((pxl-Test({L5}-1,{L5+1})=0) and (pxl-Test({L5}-1,{L5+1}+4)=0)) and (pxl-Test({L5}-1,{L5+1}+2)=0)
:U+X→X
:Else
:‾(U//2)→U
:End
:
:sub(A
:
:If X<<(3*256)
:3*256→X
:‾(U//2)→U
:ElseIf X>>(90*256)
:89*256→X
:‾(U//2)→U
:End
:
:If pxl-Test({L5},{L5+1}+5) or (pxl-Test({L5}+1,{L5+1}+5)) or (pxl-Test({L5}+2,{L5+1}+5)) or (pxl-Test({L5}+3,{L5+1}+5))
:0→V
:If U>>0
:U-1→U
:ElseIf U<<0
:U+1→U
:End
:‾(V//2)→V
:1→J
:Else
:0→J
:V+2→V
:
:End
:
:sub(A
:
:If (pxl-Test({L5},{L5+1}-1)=0) and (pxl-Test({L5}+1,{L5+1}-1)=0) and (pxl-Test({L5}+2,{L5+1}-1)=0) and (pxl-Test({L5}+3,{L5+1}-1)=0)
:
:Else
:abs(V)→V
:End
:
:
:Y+V→Y
:sub(A
:
:If F=3
:If ({L2+1}≥({L5}-1)) and ({L2+1}≤({L5}+4))
:If ({L2+3}≥({L5+1}-1)) and ({L2+3}≤({L5+1}+5))
:0→F
:End:End:End
:
:Return
:
:
:Lbl SMP
:ref(0,0,96,64
:rref(3,3,90,50
:rref(0,56,96,8
:0→{L1}
:Fill(L1,64
:
:0→{L1+64}
:Fill(L1+64,12
:
:0→{L1+76}
:Fill(L1+76,64
:
:0→{L1+140}
:Fill(L1+140,16
:70→{L1+140}
:42→{L1+141}
:
:0→{L1+156}
:Fill(L1+156,14
:20→{L1+164}
:3→{L1+165}
:20→{L1+157}
:35→{L1+159}
:
:StorePic
:Return
:
:
:[6050E070D0000000605060E06000000060A070E0B000000060A0607060000000]→Str1P
:
:
:Lbl DPL
:!If getKey(0)
:If (U≠0) or (J=0)
:1→S
:Else
:15→S
:End:End
:
:Pt-On({L5},{L5+1},D*16+(S/8*8)+Str1P
:
:Return