So, here is what I had started with the pokeball catching code:
Code: randInt(0,255->R
If L2(22)=4 or L2(22)=6:25->S
If L2(220=3 or L2(22)=1 or L2(22)=1:12->S
If L2(22)=0:0->S
R-S->R
If R<S:Goto K
L2(1)255->F
F/12->F
L2(1)/4->A
If A>0:F/A->F
If F>255:255->F
"rowSwap(ZST"->Str0
0->theta:L2(43
prgmZCE
expr(Str9-|LTT
|LTT(14)|E2->|N
|N/255->|N
If |N>254:Goto K
|NF->I%
I%/255->I%
If L2(22)=4 or L2(22)=6:10+I%->I%
If L2(22)=3 or L2(22)=1 or L2(22)=2:5+I%->I%
If I%<10:Then
20->I:25->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
25->I:20->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
30->I:16->J
"3CG7EG8BG83G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
36->I:11->J
"3EG75G83G81G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
41->I:8->J
"3EG43G81G81G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
48->I:4->J
"3CG42G81G81G81G81G62G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
53->I:1->J
"3CG42G81G81GC1GF1G7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
57->I
"3CG42G81GE1GF1GFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
64->I:4->J
"3CG62GF9GFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
For(F,4,14
Line(4,F,90,F,0
End
Text(47,4,"THE POKEBALL MISSED"
Text(53,4,"THE POKEMON!"
prgmZWT
1.5->W:Return:End
If I%>9 and I%<30:Then
20->I:25->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
25->I:20->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
30->I:16->J
"3CG7EG8BG83G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
36->I:11->J
"3EG75G83G81G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
41->I:8->J
"3EG43G81G81G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
48->I:4->J
"3CG42G81G81G81G81G62G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
53->I:1->J
"3CG42G81G81GC1GF1G7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
57->I:1->J
"3CG42G81GE1GF1GFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
64->I:4->J
"3CG62GF9GFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"3CG7AGFFGFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
5->J
"3CG7EGFFGFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFGFFGFFGFFG5EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
6->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"66G99GA5G42G42GA5G99G66"->Str4
Asm(prgmZSP2
65->I:5->J
"0EF0G1348G22C4G4812G4002G700EG5004G200AG700EG4002G4812G2344G12C8G0F70"->Str4
Asm(prgmZSP2:4->J:65->I
"1818G2AD4G5F7AGB2CDGEE77G2994G7A5EG5424G242AG7A5EG2994GEE77GB34DG5EFAG2B54G1818"->Str4
Asm(prgmZSP2
"1818G2424G4C32G9009GA005G6006GGGGG6006GA005G9009G4C32G2424G1818G"->Str4
Asm(prgmZSP2
"000EG0011G0071G01AACG124A2G2E891G21909G20509G4038AGC009DGC0071G81809G828AEG4291G3021G0FF5G000E"->Str4
64->I:1->J:Asm(prgmZSP2
69->I:8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2
Asm(prgmZSP2
69->I:9->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
70->I:7->J
"3CG7EG8BG83G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2
For(U,1,250
End:Asm(prgmZSP2
69->I:8->J
"66G99GA5G42G42GA5G99G66"->Str4
Asm(prgmZSP2
65->I:5->J
"0EF0G1348G22C4G4812G4002G700EG5004G200AG700EG4002G4812G2344G12C8G0F70"->Str4
Asm(prgmZSP2:4->J:65->I
"1818G2AD4G5F7AGB2CDGEE77G2994G7A5EG5424G242AG7A5EG2994GEE77GB34DG5EFAG2B54G1818"->Str4
Asm(prgmZSP2
"1818G2424G4C32G9009GA005G6006GGGGG6006GA005G9009G4C32G2424G1818G"->Str4
Asm(prgmZSP2
"000EG0011G0071G01AACG124A2G2E891G21909G20509G4038AGC009DGC0071G81809G828AEG4291G3021G0FF5G000E"->Str4
64->I:1->J:Asm(prgmZSP2
For(F,4,14
Line(3,F,90,F,0
End
Text(47,4,"DARN! THE POKEMON"
Text(53,4,"BROKE FREE!"
prgmZWT:End
If I%>29 and I%<70:Then
20->I:25->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
25->I:20->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
30->I:16->J
"3CG7EG8BG83G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
36->I:11->J
"3EG75G83G81G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
41->I:8->J
"3EG43G81G81G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
48->I:4->J
"3CG42G81G81G81G81G62G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
53->I:1->J
"3CG42G81G81GC1GF1G7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
57->I:1->J
"3CG42G81GE1GF1GFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
64->I:4->J
"3CG62GF9GFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"3CG7AGFFGFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
5->J
"3CG7EGFFGFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFGFFGFFGFFG5EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
6->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"66G99GA5G42G42GA5G99G66"->Str4
Asm(prgmZSP2
65->I:5->J
"0EF0G1348G22C4G4812G4002G700EG5004G200AG700EG4002G4812G2344G12C8G0F70"->Str4
Asm(prgmZSP2:4->J:65->I
"1818G2AD4G5F7AGB2CDGEE77G2994G7A5EG5424G242AG7A5EG2994GEE77GB34DG5EFAG2B54G1818"->Str4
Asm(prgmZSP2
"1818G2424G4C32G9009GA005G6006GGGGG6006GA005G9009G4C32G2424G1818G"->Str4
Asm(prgmZSP2
"000EG0011G0071G01AACG124A2G2E891G21909G20509G4038AGC009DGC0071G81809G828AEG4291G3021G0FF5G000E"->Str4
64->I:1->J:Asm(prgmZSP2
69->I:8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2
Asm(prgmZSP2
For(F,1,2
69->I:9->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
70->I:7->J
"3CG7EG8BG83G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2
For(U,1,250
End:Asm(prgmZSP2
End
69->I:8->J
"66G99GA5G42G42GA5G99G66"->Str4
Asm(prgmZSP2
65->I:5->J
"0EF0G1348G22C4G4812G4002G700EG5004G200AG700EG4002G4812G2344G12C8G0F70"->Str4
Asm(prgmZSP2:4->J:65->I
"1818G2AD4G5F7AGB2CDGEE77G2994G7A5EG5424G242AG7A5EG2994GEE77GB34DG5EFAG2B54G1818"->Str4
Asm(prgmZSP2
"1818G2424G4C32G9009GA005G6006GGGGG6006GA005G9009G4C32G2424G1818G"->Str4
Asm(prgmZSP2
"000EG0011G0071G01AACG124A2G2E891G21909G20509G4038AGC009DGC0071G81809G828AEG4291G3021G0FF5G000E"->Str4
64->I:1->J:Asm(prgmZSP2
For(F,4,14
Line(4,F,90,F,0
End
1.5->W:Return:End
If I%>69:Then
20->I:25->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
25->I:20->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
30->I:16->J
"3CG7EG8BG83G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
36->I:11->J
"3EG75G83G81G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
41->I:8->J
"3EG43G81G81G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
48->I:4->J
"3CG42G81G81G81G81G62G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
53->I:1->J
"3CG42G81G81GC1GF1G7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
57->I:1->J
"3CG42G81GE1GF1GFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
64->I:4->J
"3CG62GF9GFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"3CG7AGFFGFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
5->J
"3CG7EGFFGFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFGFFGFFGFFG5EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
6->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"66G99GA5G42G42GA5G99G66"->Str4
Asm(prgmZSP2
65->I:5->J
"0EF0G1348G22C4G4812G4002G700EG5004G200AG700EG4002G4812G2344G12C8G0F70"->Str4
Asm(prgmZSP2:4->J:65->I
"1818G2AD4G5F7AGB2CDGEE77G2994G7A5EG5424G242AG7A5EG2994GEE77GB34DG5EFAG2B54G1818"->Str4
Asm(prgmZSP2
"1818G2424G4C32G9009GA005G6006GGGGG6006GA005G9009G4C32G2424G1818G"->Str4
Asm(prgmZSP2
"000EG0011G0071G01AACG124A2G2E891G21909G20509G4038AGC009DGC0071G81809G828AEG4291G3021G0FF5G000E"->Str4
64->I:1->J:Asm(prgmZSP2
69->I:8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2
Asm(prgmZSP2
For(F,1,3
69->I:9->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
70->I:7->J
"3CG7EG8BG83G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2
For(U,1,250
End:Asm(prgmZSP2
End
69->I:8->J
"66G99GA5G42G42GA5G99G66"->Str4
Asm(prgmZSP2
65->I:5->J
"0EF0G1348G22C4G4812G4002G700EG5004G200AG700EG4002G4812G2344G12C8G0F70"->Str4
Asm(prgmZSP2:4->J:65->I
"1818G2AD4G5F7AGB2CDGEE77G2994G7A5EG5424G242AG7A5EG2994GEE77GB34DG5EFAG2B54G1818"->Str4
Asm(prgmZSP2
"1818G2424G4C32G9009GA005G6006GGGGG6006GA005G9009G4C32G2424G1818G"->Str4
Asm(prgmZSP2
"000EG0011G0071G01AACG124A2G2E891G21909G20509G4038AGC009DGC0071G81809G828AEG4291G3021G0FF5G000E"->Str4
64->I:1->J:Asm(prgmZSP2
For(F,4,14:Line(4,F,90,F,0:End
Text(47,4,"SHOOT! IT WAS":Text(53,4,"SO CLOSE, TOO!"
1.5->W:End
And this is what I've managed to shave it down to:
Code: randInt(0,255->R
If L2(22)=4 or L2(22)=6:25->S
If L2(22)=3 or L2(22)=1 or L2(22)=2:12->S
If L2(22)=0:0->S
R-S->R
If R<S:Goto K
L2(1)255->F
F/12->F
L2(1)/4->A
If A>0:F/A->F
If F>255:255->F
"rowSwap(ZST"->Str0
0->theta:L2(43
prgmZCE
expr(Str9-|LTT
|LTT(14)|E2->|N
|N/255->|N
If |N>254:Goto K
|NF->I%
I%/255->I%
If L2(22)=4 or L2(22)=6:10+I%->I%
If L2(22)=3 or L2(22)=1 or L2(22)=2:5+I%->I%
If I%<10:0->|N
If I%>9 and I%<30:1->|N
If I%>29 and I%<70:2->|N
If I%>69:3->|N
20->I:25->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
25->I:20->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
30->I:16->J
"3CG7EG8BG83G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
36->I:11->J
"3EG75G83G81G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
41->I:8->J
"3EG43G81G81G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
48->I:4->J
"3CG42G81G81G81G81G62G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
53->I:1->J
"3CG42G81G81GC1GF1G7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
57->I:1->J
"3CG42G81GE1GF1GFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
64->I:4->J
"3CG62GF9GFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"3CG7AGFFGFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
5->J
"3CG7EGFFGFFGFFGFFG7EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFGFFGFFGFFG5EG3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
6->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"66G99GA5G42G42GA5G99G66"->Str4
Asm(prgmZSP2
65->I:5->J
"0EF0G1348G22C4G4812G4002G700EG5004G200AG700EG4002G4812G2344G12C8G0F70"->Str4
Asm(prgmZSP2:4->J
"1818G2AD4G5F7AGB2CDGEE77G2994G7A5EG5424G242AG7A5EG2994GEE77GB34DG5EFAG2B54G1818"->Str4
Asm(prgmZSP2
"1818G2424G4C32G9009GA005G6006GGGGG6006GA005G9009G4C32G2424G1818G"->Str4
Asm(prgmZSP2
"000EG0011G0071G01AACG124A2G2E891G21909G20509G4038AGC009DGC0071G81809G828AEG4291G3021G0FF5G000E"->Str4
64->I:1->J:Asm(prgmZSP2
69->I:8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2
Asm(prgmZSP2
If |N>0:Then
For(F,1,iPart(|N)
9->J
"3CG7EGFFGFFGAFG9FG42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
70->I:7->J
"3CG7EG8BG83G81G81G42G3C"->Str4
Asm(prgmZSP2:Asm(prgmZSP2
69->I:8->J
"3CG7EGFFG93G8FG81G42G3C"->Str4
Asm(prgmZSP2
For(U,1,250
End:Asm(prgmZSP2
End:End
If |N>0 and |N<3.5:Then
69->I:8->J
"66G99GA5G42G42GA5G99G66"->Str4
Asm(prgmZSP2
65->I:5->J
"0EF0G1348G22C4G4812G4002G700EG5004G200AG700EG4002G4812G2344G12C8G0F70"->Str4
Asm(prgmZSP2:4->J
"1818G2AD4G5F7AGB2CDGEE77G2994G7A5EG5424G242AG7A5EG2994GEE77GB34DG5EFAG2B54G1818"->Str4
Asm(prgmZSP2
"1818G2424G4C32G9009GA005G6006GGGGG6006GA005G9009G4C32G2424G1818G"->Str4
Asm(prgmZSP2
"000EG0011G0071G01AACG124A2G2E891G21909G20509G4038AGC009DGC0071G81809G828AEG4291G3021G0FF5G000E"->Str4
64->I:1->J:Asm(prgmZSP2
End
For(F,4,14:Line(4,F,90,F,0:End
If |N<4:Then
If |N=0:Then
Text(47,4,"THE POKEBALL MISSED"
Text(53,4,"THE POKEMON!"
End
If |N=1:Then
Text(47,4,"DARN! THE POKEMON"
Text(53,4,"BROKE FREE!"
End
If |N=2:Then
Text(47,4,"AW! IT APPEARED":Text(53,4,"TO BE CAUGHT!":End
If |N=3:Then
Text(47,4,"SHOOT! IT WAS":Text(53,4,"SO CLOSE, TOO!":End
prgmZWT
1.5->W:Return:End
I still need to add in the code for the catch itself to occur. I've got an idea and I've began implementation for it.