Program Source?
would it be possible for the code to be posted so I could input the code by hand?
CalcFish / Discussion
|
We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope. |
Forum
» General Discussion / Wiki Page Discussions
» CalcFish
This is the discussion related to the wiki page CalcFish.
Hi! A quick way to extract the code is by downloading the file and then using SourceCoder 3 to open it. It's entirety web based so if your on a restricted computer, it should work fine. It's on on cemetech.net :)
I'm on mobile, so it's difficult for me to do this here, but now you'll know how to get the source for any BASIC programs.
Z80 Assembly>English>TI-BASIC>Python>French>C>0
(account deleted)I have been pondering, would it help the progam be a little cleaner if the display in the main feature of the program, possibly be removed and displayed in another part of the program, perhaps?
Hewwo, my name is Achak Claw. I was formerly BioHazard.
i don't have a computer to extract the files in sourcecoder 3. and i really want to test this out.
Okay, give me a bit and I'll help you. Keep in mind there are multiple programs for this and all of them go over 10kB.
So exercise your fingers and thumbs, cause you'll be typing a lot
EDIT: Sorry for the long wait, kinda busy. Here is the long source. It contains all of the source codes for the programs, in case you cannot access the .zip folder
prgmCALCFISH-Execute this to play
:"CREDITS/TITLE
ClrDraw
AxesOff
FnOff
0→Xmin
0→Ymax
62→Ymin
94→Xmax
Horizontal 0
Horizontal 62
Vertical 94
Vertical 0
Horizontal 20
Text(1,22,3,">=≥
Text(1,22,24,"CalcFish
Text(1,22,75,"≤=<
Horizontal 30
Text(31,13,">=≥ By Kydapoot ≤=<
Horizontal 38
Line(0,54,39,54
Text(55,2,"Version 1.0 Press Any Key
Line(39,54,39,62
Repeat getKey
End
ClrDraw
UnArchive ⌊FISH
prgmVIRTFISH
prgmVIRTFISH-Main Game+Shop+More Options
:"MAIN GAME+SHOP
CLASSIC
UnArchive ⌊FISH
UnArchive Str8
Goto A
Lbl B
If ⌊FISH(7)<5
Then
ClrHome
Disp "YOU DON'T HAVE
Pause "ENOUGH MONEY!
End
If ⌊FISH(7)<5
Goto A
If ⌊FISH(4)≤0
Then
ClrHome
Disp "YOU DON'T HAVE
Pause "ANY FISH!
End
If ⌊FISH(4)≤0
Goto A
ClrHome
⌊FISH(7)-5→⌊FISH(7
Disp "2ND: FOOD","ALPHA: MEDICINE","MATH: CLEAN","ENTER: PAUSE
Pause "MODE: QUIT
⌊FISH(24)+1→⌊FISH(24
DelVar UDelVar ADelVar SDelVar NDelVar O1→Z
8→F
4→H
3→M
2→T
ClrHome
Lbl 1
S+1→S
A+1→A
N+0.1O→N
DelVar θ
Output(1,1,"HUNGER:
Output(1,8,A
If A<10
Output(1,9,"
Output(3,1,"DIRTINESS:
Output(3,11,O
Output(2,1,"DISEASE:
Output(2,10,"
Output(2,9,N
If A≥50
Goto 2
If A<0
Goto 5
If N>50
Goto 13
If N<0
Goto 14
Output(1,16,"
Output(2,16,"
Output(3,16,"
If A≥40
Output(1,16,"!
If A<10
Output(1,16,"X
If N≥40
Output(2,16,"!
If N<20
Output(2,16,"X
If O>5
Output(3,16,"!
If not(O
Output(3,16,"X
getKey
If Ans
Then
Ans→K
If K=22
⌊FISH(4)-1→⌊FISH(4
If K=22
Goto BB
If K=105
Then
Output(4,1,"PAUSED SCORE:
S-1→S
Output(4,14,S
DelVar θ
Pause
Output(4,1,"
End
If K=105
Goto 1
If K=41
4→θ
Lbl 16
If θ=4 and K=41 and ⌊FISH(3)≤0
Then
ClrHome
Disp "YOU DON'T HAVE
Pause "ANY BRUSHES!
ClrHome
End
If θ=4 and K=41 and ⌊FISH(3)≤0
Goto 1
If θ=4 and K=41
Then
DelVar O
⌊FISH(3)-1→⌊FISH(3
For(Q,4,8
Output(Q,1,"8888888888888888
rand(4
End
rand(8
For(Q,4,8
Output(Q,1,"
rand(4
End
End
If θ=4 and K=41:Goto 6
If K=31
2→θ
Lbl 15
If ⌊FISH(2)≤0 and θ=2 and K=31
Then
ClrHome
Disp "YOU DON'T HAVE
Pause "ANY MEDICINE!
ClrHome
End
If ⌊FISH(2)≤0 and θ=2 and K=31
Goto 1
If θ=2 and K=31
Then
⌊FISH(2)-1→⌊FISH(2
For(Q,4,7
Output(Q,H,"θ
rand(8
Output(Q,H,"
End
N-20→N
End
If θ=2 and K=31
Goto 6
If K=21
Then
5→C
⌊FISH(1)-1→⌊FISH(1
End
Lbl 9
If ⌊FISH(1)<0
Then
ClrHome
Disp "YOU ARE OUT
0→⌊FISH(1
Pause "OF FOOD!
ClrHome
End
If ⌊FISH(1)≤0
Goto 6
If ⌊FISH(1)>0
1→θ
Lbl 4
If θ=1
Then
Output(randInt(4,8),randInt(1,16),"•
Output(4,H,"°
rand(3
Output(4,H,"
Output(5,H,"°
rand(3
Output(5,H,"
Output(randInt(4,8),randInt(1,16),"•
Output(6,H,"°
rand(3
Output(6,H,"
Output(7,H,"°
rand(3
Output(7,H,"
Output(randInt(4,8),randInt(1,16),"•
End
A-11→A
O+1→O
End
Lbl 6
If H=16
Then
2→Z
14→H
15→M
16→T
Output(8,14,"
End
If Z=1
Output(8,T,"
If H=1
Then
1→Z
1→T
2→M
3→H
Output(8,1,"
End
If Z=1
Then
H+1→H
M+1→M
T+1→T
Output(8,T,">=≥
End
If Z=2
Then
H-1→H
M-1→M
T-1→T
Output(8,H,"≤=<
End
Goto 1
Lbl 2
ClrHome
Disp "YOUR FISH","STARVED!",">-≥","SCORE:
⌊FISH(4)-1→⌊FISH(4
Pause S
Goto BB
Lbl 5
ClrHome
Disp "YOU OVERFED","YOUR FISH!",">O≥","SCORE:
⌊FISH(4)-1→⌊FISH(4
Pause S
Goto BB
Lbl 14
ClrHome
Disp "YOU OVERDOSED","YOUR FISH'S","MEDICINE!",">θ≥","SCORE:
Pause S
Goto BB
Lbl 13
ClrHome
Disp "YOUR FISH GOT","TOO SICK!",">X≥","SCORE:
Pause S
Lbl BB
11→dim(L₆
For(Q,14,23
⌊FISH(Q→L₆(Q-13
End
S→L₆(11
SortD(L₆
For(Q,1,10
L₆(Q→⌊FISH(Q+13
End
ClrList L₆
Lbl A
randInt(1,5000→G
If G≤0.25⌊FISH(7
Then
round(⌊FISH(7),0→G
sub(randInt(1,50G→G
⌊FISH(7)-G→⌊FISH(7
ClrHome
Disp "A THIEF JUST","STOLE",G,"DOLLARS! :(","MONEY:
Pause ⌊FISH(7
End
randInt(1,5000→G
If G≤7.5*⌊FISH(2
Then
⌊FISH(2)/4→M
randInt(1,round(M,0→M
⌊FISH(2)-M→⌊FISH(2
ClrHome
Disp M,"OF YOUR PILLS","HAVE EXPIRED! :(","PILLS:
Pause ⌊FISH(2
End
randInt(1,5000→G
If G≤2*⌊FISH(1
Then
⌊FISH(1)/5→F
randInt(1,round(F,0→F
⌊FISH(1)-F→⌊FISH(1
ClrHome
Disp F,"FOOD PELLETS","WENT STALE! :(","FOOD:
Pause ⌊FISH(1
End
randInt(1,5000→G
If G≤5
Then
randInt(1,⌊FISH(4→C
⌊FISH(4)-C→⌊FISH(4
⌊FISH(7)-50→⌊FISH(7
ClrHome
Disp "OH NO!","YOUR FISHTANK","BROKE AND ",C,"FISH DIED BEFORE","YOU COULD GET A
Pause "BUCKET! :(
ClrHome
Disp "ALSO","THE FISHTANK COST","50 DOLLARS TO","REPLACE :(","MONEY:",⌊FISH(7),"FISH:
Output(8,14,⌊FISH(4
Pause
End
randInt(1,5000→G
If G≤100*⌊FISH(5
Then
sub(randInt(1,5000→P
⌊FISH(7)+P→⌊FISH(7
ClrHome
Fix 2
Disp "ONE OF YOUR","GOLD-FISH MADE",P,"DOLLARS! :)","MONEY:
Pause ⌊FISH(7
Float
End
randInt(1,5000→G
If G>⌊FISH(4) and G≤5*⌊FISH(4
Then
randInt(1,10→W
⌊FISH(4)-W→⌊FISH(4
ClrHome
Disp W,"OF YOUR","FISH JUMPED OUT","OF THE TANK","AND DIED. :(","FISH:
Pause ⌊FISH(4
End
randInt(1,5000→G
If G<⌊FISH(4
Then
randInt(1,10→H
⌊FISH(4)+H→⌊FISH(4
ClrHome
Disp "ONE OF YOUR","FISH JUST HAD",H,"BABY FISH! :D","FISH:
Pause ⌊FISH(4
End
randInt(1,5000→G
If G≤8*⌊FISH(3
Then
⌊FISH(3)/4→E
round(E,0→E
randInt(1,E→E
⌊FISH(3)-E→⌊FISH(3
ClrHome
Disp E,"OF YOUR BRUSHES","GOT TOO OLD","AND DUSTY! :(","BRUSHES:
Pause ⌊FISH(3
End
randInt(1,5000→G
If G≤20*⌊FISH(5
Then
⌊FISH(5)-1→⌊FISH(5
ClrHome
Disp "ONE OF YOUR","GOLD-FISH GOT","STOLEN BY","POACHERS! :(","GOLD-FISH:
Pause ⌊FISH(5
End
ClrHome
Lbl Z
Menu(" MAIN MENU ","PLAY(5.00) >=≥",B,"SHOP °θ8",E,"CATCHSELL +J-",F,"HIGHSCORES 123",J,"MINI GAMES ???",17,"QUIT XXX",C,"MORE OPTIONS +",M
Lbl M
Menu(" MORE COOL STUFF","RESET STATS",R,"BACK UP DATA",BD,"RESTORE SAVED",RS,"SCORES TO CASH",SC,"BACK",A
Lbl SC
ClrHome
Disp "TRADE HIGHSCORES","TOTALING",sum(⌊FISH,14,23),"POINTS FOR",sub(sum(⌊FISH,14,23)),"DOLLARS?
Output(8,1,"MONEY:
Output(8,8,⌊FISH(7
Input "1=YES, 2=NO:",Q
If Q=1
Then
⌊FISH(7)+sub(sum(⌊FISH,14,23→⌊FISH(7
For(Q,14,23
0→⌊FISH(Q
End
Output(8,1,"MONEY:
Output(8,8,⌊FISH(7
Pause
End
ClrHome
Goto M
Lbl BD
SetUpEditor ⌊FISHB
⌊FISH→⌊FISHB
Str8→Str9
Archive ⌊FISHB
ClrHome
Disp "⌊FISH AND Str8","SAVED TO ⌊FISHB
Pause "AND Str9
ClrHome
Goto M
Lbl RS
UnArchive ⌊FISHB
UnArchive Str9
⌊FISHB→⌊FISH
DelVar Str8
Str9→Str8
Archive ⌊FISHB
ClrHome
Disp "DATA SAVED IN","⌊FISHB AND Str9","RESTORED INTO
Pause "⌊FISH AND Str8
Goto M
Lbl R
Menu(" ARE YOU SURE? ","YES",RY,"NO",M
Lbl RY
Menu("SURE YOURE SURE?","YES, RESET!",YR,"NO CANCEL!",M
Lbl YR
prgmZVFSHSTP
Goto M
Lbl J
ClrHome
Disp "1-5:",⌊FISH(14),⌊FISH(15),⌊FISH(16),⌊FISH(17
Pause ⌊FISH(18
ClrHome
Disp "6-10:",⌊FISH(19),⌊FISH(20),⌊FISH(21),⌊FISH(22
Pause ⌊FISH(23
ClrHome
Disp "TOP TEN AVERAGE:
Disp sum(⌊FISH,14,23)/10
Disp "GAMES PLAYED:",⌊FISH(24),"CATCH GAMES:
Pause ⌊FISH(25
Goto A
Lbl 17
prgmMINIGAME
Lbl F
DelVar BprgmCATFISH
Lbl E
ClrHome
1→R
Menu(" SHOP ","INVENTORY °θ8",H,"+FOOD °°°",G,"+PILLS θθθ",K,"+BRUSHES 888",L,"BACK ≤=<",A
Lbl G
ClrHome
Disp "COST: 10 CENTS","PER PELLET
Input "AMOUNT:",U
If U<0
Goto E
⌊FISH(1)+U→⌊FISH(1
⌊FISH(7)-0.1U→⌊FISH(7
Fix 2
Disp "COST:
Output(4,6,0.1U
Float
Disp "FOOD:
Output(5,6,⌊FISH(1
Disp "MONEY:
Fix 2
Output(6,7,⌊FISH(7
Float
Pause
Goto E
Lbl K
ClrHome
Disp "COST: 50 CENTS","PER PILL"
Input "AMOUNT:",V
If V<0
Goto E
⌊FISH(2)+V→⌊FISH(2
⌊FISH(7)-0.5V→⌊FISH(7
Fix 2
Disp "COST:
Output(4,6,0.5V
Float
Disp "PILLS:
Output(5,7,⌊FISH(2
Fix 2
Disp "MONEY:
Output(6,7,⌊FISH(7
Float
Pause
Goto E
End
Lbl L
ClrHome
Disp "COST: 25 CENTS","PER BRUSH"
Input "NUMBER:",W
If W<0:Goto E
⌊FISH(3)+W→⌊FISH(3
⌊FISH(7)-0.25W→⌊FISH(7
Fix 2
Disp "COST:
Output(4,6,(0.25W
Float
Disp "BRUSHES:
Output(5,9,⌊FISH(3
Fix 2
Disp "MONEY:
Output(6,7,⌊FISH(7
Float
Pause
Goto E
Lbl H
1→X
Lbl D
Output(1,1,"----INVENTORY:--FOOD: ----------------PILLS: ----------------BRUSHES: ----------------MONEY:
Output(2,7,⌊FISH(1
Output(4,8,⌊FISH(2
Output(6,10,⌊FISH(3
Fix 2
Output(8,8,⌊FISH(7
Float
Pause
If X=1
Goto E
Goto A
Lbl C
ClrHome
Output(4,5,"SAVING...
Archive ⌊FISH
DelVar ADelVar BDelVar CDelVar DDelVar EDelVar FDelVar GDelVar HDelVar IDelVar JDelVar KDelVar LDelVar MDelVar NDelVar ODelVar PDelVar QDelVar RDelVar SDelVar TDelVar UDelVar VDelVar WDelVar XDelVar YDelVar ZDelVar θClrDraw
ClrHome
Stop
prgmCATFISH-Catching/Selling Fish
:"CATCHING/SELLING
Goto A
Lbl F
⌊FISH(5→V
For(Q,1,B
randInt(1,50→C
If C=1
⌊FISH(5)+1→⌊FISH(5
End
If ⌊FISH(5)>V
Then
Disp "YOU CAUGHT A","GOLD-FISH!",">*≥ :)","GOLD-FISH:
Pause ⌊FISH(5
End
Goto A
Lbl E
Output(1,1,"---INVENTORY:-------------------FISH: ----------------MONEY: ----------------GOLD-FISH: ----------------
Output(3,7,⌊FISH(4
Fix 2
Output(5,8,⌊FISH(7
Float
Output(7,12,⌊FISH(5
Pause
Goto A
Lbl C
prgmVIRTFISH
Lbl B
ClrHome
If ⌊FISH(7)<5
Then
Disp "YOU DON'T HAVE
Pause "ENOUGH MONEY!
End
If ⌊FISH(7)<5
Goto A
⌊FISH(7)-5→⌊FISH(7
Disp "ARROW KEYS:","MOVEDROP HOOK","MODE: QUIT
Pause "ENTER: PAUSE
⌊FISH(25)+1→⌊FISH(25
DelVar BDelVar U1→Z
8→F
3→H
2→M
1→T
8→J
ClrHome
Lbl 1
Output(3,1,"
Output(3,J,"J
Output(1,1,"FISH:
Output(1,6,⌊FISH(4
Output(2,1,"CAUGHT:
Output(2,8,B
getKey
If Ans
Then
Ans→K
End
If not(Ans
Goto 6
If K=22
Goto F
If K=105
Then
Output(3,1,"PAUSED
Pause
Output(1,11,"
Output(3,1,"
End
J-(K=24)+(K=26)→J
If J=17
1→J
If J=0
16→J
If K≠34
Goto 6
If K=105
Goto 1
Lbl θθ
DelVar K
For(Q,3,7
Output(Q,J,"J
rand(3
Output(Q,J,"!
End
Output(8,J,"J
rand(10
If J=H
Goto 9
For(Q,8,4,1
Output(Q,J,"
Output(Q-1,J,"J
rand(3
End
Goto 1
Lbl 6
getKey
If Ans
Then
Ans→R
J+(R=26)-(R=24)→J
If J≤0
16→J
If J≥17
1→J
End
If H=16
Then
16→T
15→M
14→H
2→Z
End
If H=1
Then
1→T
2→M
3→H
1→Z
End
If Z=1
Then
Output(8,1,"
H+1→H
M+1→M
T+1→T
Output(F,T,">=≥
End
If Z=2
Then
Output(8,1,"
H-1→H
M-1→M
T-1→T
Output(F,H,"≤=<
End
Goto 1
Lbl 9
B+1→B
Output(1,1,"FISH:
Output(1,6,⌊FISH(4
If Z=1
Then
Output(8,T,"
For(Q,7,3,1
Output(Q,T,">=≥
rand(7
Output(Q,T,"
End
End
If Z=2
Then
Output(8,H,"
For(Q,7,3,1
Output(Q,H,"≤=<
rand(7
Output(Q,H,"
End
End
If Z=1
Then
Output(F,T,">=≥
End
If Z=2
Then
Output(F,H,"≤=<
End
Lbl 11
⌊FISH(4)+1→⌊FISH(4
Goto 1
Lbl D
If ⌊FISH(7)<1
Then
Disp "YOU DON'T HAVE
Pause "ENOUGH MONEY!
End
If ⌊FISH(7)<1
Goto A
sub(randInt(1,200→C
ClrHome
⌊FISH(7)-1→⌊FISH(7
Disp "SELLING PRICE:",C,"FISH:",⌊FISH(4
Input "NUMBER:",H
If H<0
Goto A
⌊FISH(4)-H→⌊FISH(4
⌊FISH(7)+CH→⌊FISH(7
Output(6,1,"PROFIT: FISH: MONEY:
Fix 2
Output(6,8,CH-1
Float
Output(7,6,⌊FISH(4
Fix 2
Output(8,7,⌊FISH(7
Float
Pause
Lbl A
ClrHome
Menu(" CATCH/SELL FISH","GO FISH(5.00)J",B,"MARKET(1.00)+-",D,"INVENTORY 456",E,"BACK ≤=<",C
prgmMINIGAME-Minigames
:"MINIGAMES, DUH!
Goto A
Lbl C
If ⌊FISH(7)<1
Then
Disp "YOU DON'T HAVE
Pause "ENOUGH MONEY!
ClrHome
End
If ⌊FISH(7)<1
Goto A
⌊FISH(7)-1→⌊FISH(7
⌊FISH(26)+1→⌊FISH(26
ClrHome
Output(1,1,"CREATE A SHARK!"
Output(2,1,"MOUTH:
1→Q
Repeat getKey
Output(4,6,sub(">≥]})",Q,1
rand(10
Q+1→Q
If Q=6
1→Q
End
Output(2,1,"HEADGILLS:
1→Q
Repeat getKey
Output(4,7,sub("Oθ8D=≠B",Q,1
rand(10
Q+1→Q
If Q=8
1→Q
End
Output(2,1,"BODY:
1→Q
Repeat getKey
Output(4,8,sub("=≠-",Q,1
rand(10
Q+1→Q
If Q=4
1→Q
End
Output(2,1,"BODY (CONTD):
1→Q
Repeat getKey
Output(4,9,sub("=≠-",Q,1
rand(10
Q+1→Q
If Q=4
1→Q
End
Output(2,1,"TAIL:
1→Q
Repeat getKey
Output(4,10,sub("<C≤{D[(",Q,1
rand(10
Q+1→Q
If Q=8
1→Q
End
Output(8,1,"COOL SHARK!
Pause
Goto A
Lbl B
ClrHome
If ⌊FISH(7)<1
Then
Disp "YOU DON'T HAVE
Pause "ENOUGH MONEY!
End
If ⌊FISH(7)<1
Goto A
If ⌊FISH(4)≤0
Then
Disp "YOU DON'T HAVE
Pause "ANY FISH!
End
If ⌊FISH(4)≤0
Goto A
⌊FISH(7)-1→⌊FISH(7
⌊FISH(26)+1→⌊FISH(26
ClrHome
Disp "YOUR CUSTOMER","HAS ORDERED:
randInt(1,3→F
Disp F,"FISH
randInt(0,2→C
Disp sub("RARE MEDIUM WELL DONE",C*9+1,9
C+1→C
randInt(0,4→T
Disp sub("PLAIN BREADED WITH BUTTERWITH LEMON SPICY ",T*11+1,11
100→S
DelVar Z
Repeat getKey=105
Output(7,1,"MEMORIZE!
rand(10
Output(7,1,"
rand(10
Z+1→Z
End
ClrHome
Input "NUMBER OF FISH:",G
ClrHome
Disp "RARE=1","MEDIUM=2","WELL DONE=3
Input "COOK LEVEL:",D
ClrHome
Disp "PLAIN=0","BREADED=1","WITH BUTTER=2","WITH LEMON=3","SPICY=4
Input "RECIPE:",U
S-round(Z,0→S
S-15(abs(F-G→S
S-15(abs(C-D→S
S-15(U≠T→S
ClrHome
Disp "CUSTOMER","SATISFACTION:
If S<0
0→S
Output(2,15,"I%
Output(2,14,round(S,0
Disp "TIME:
Output(3,6,round(Z,0
Disp "MISTAKES:
If F=G and C=D and T=U
Disp "NONE! :)
If F≠G
Disp "-NUMBER OF FISH
If C≠D
Disp "-COOK LEVEL
If T≠U
Disp "-RECIPE
⌊FISH(4)-G→⌊FISH(4
Pause
Goto A
Lbl D
ClrHome
If ⌊FISH(7)<1
Then
Disp "YOU DON'T HAVE
Pause "ENOUGH MONEY!
End
If ⌊FISH(7)<1
Goto A
⌊FISH(7)-1→⌊FISH(7
⌊FISH(26)+1→⌊FISH(26
ClrDraw
AxesOff
DelVar A0→Ymin
0→Xmin
62→Ymax
94→Xmax
While A≠22
Text(1,2,"BUBBLES: ",⌊FISH(9
getKey
If Ans
Then
Ans→A
⌊FISH(9)+1→⌊FISH(9
If ⌊FISH(11)=2
Then
randInt(0,94→D
randInt(0,62→C
Circle(D,C,randInt(2,6),{
End
If ⌊FISH(11)=3
Then
randInt(0,62→C
randInt(0,94→D
1→θ
For(θ,1,Xmax-C)
C+2→C
Pt-On(D,C,2
Pt-On(D,C+1,2
rand
Pt-Off(D,C,2
Pt-Off(D,C+1,2
End
End
If ⌊FISH(11)=1
Then
randInt(0,91→D
randInt(0,57→C
Text(C,D,sub(Str8,randInt(1,⌊FISH(12)),1
End
End
End
⌊FISH(9)-1→⌊FISH(9
ClrDraw
Goto A
Lbl E
ClrHome
prgmVIRTFISH
Lbl F
ClrHome
If ⌊FISH(7)<1
Then
Disp "YOU DON'T HAVE
Pause "ENOUGH MONEY!
End
If ⌊FISH(7)<1
Goto A
If ⌊FISH(4)≤0
Then
Disp "YOU DON T HAVE
Pause "ANY FISH!
End
If ⌊FISH(4)≤0
Goto A
⌊FISH(7)-1→⌊FISH(7
⌊FISH(26)+1→⌊FISH(26
⌊FISH(4)-1→⌊FISH(4
ClrDraw
AxesOff
FnOff
0→Xmin
0→Ymax
62→Ymin
94→Xmax
randInt(62,94→U:randInt(62,0→V
Pt-On(U,V,2
Pause
ClrHome:Input "GRAVITY:",A
A/100→A
Input "POWER:",B
sub(B→B
Input "START HEIGHT:",C
C-62→C
Pt-On(U,V,2
Pause
DrawF AX²+BX+C
Pt-On(U,V,2
pxl-Test(V,U
If Ans
Then
Text(1,1,2,"HIT!
⌊FISH(10)+1→⌊FISH(10
Else
Text(1,1,2,"MISS!
End
Pause
Goto A
Lbl G
ClrHome
Disp "MINI GAMES","PLAYED:",⌊FISH(26),"BUBBLES:",⌊FISH(9),"ACCURATE FISH:
Pause ⌊FISH(10
ClrHome
Lbl A
Menu("MINI GAMES(1.00)","DEEP FRY SSS",B,"SHARK! }8==<",C,"BUBBLE+ °°°",D,"FLYING FISH ^▫",F,"STATS 1234",G,"SETTINGS ***",S,"BACK ≤=<",E
Lbl S
ClrHome
Disp "BUBBLE+ MODE:","1:FAST+CUSTOM","2:GRAPHIC","3:GRAPHIC+(SLOW)
Input "MODE:",T
T→⌊FISH(11
If T=1
Then
ClrHome
Disp "CURRENT BUBBLES:",Str8,"NUMBER:",⌊FISH(12
Input "BUBBLE(S):",Str8
Input "POSSIBLE BUBBLES",U
U→⌊FISH(12
End
Goto A
prgmZFSHSTP- Setting Up/Resetting Stats
:"INSTALL/RESET STATS
SetUpEditor ⌊FISH
26→dim(⌊FISH
100→⌊FISH(7
10→⌊FISH(4
0→⌊FISH(5
25→⌊FISH(1
10→⌊FISH(2
15→⌊FISH(3
"°→Str8
1→⌊FISH(11
1→⌊FISH(12
0→⌊FISH(14
0→⌊FISH(15
0→⌊FISH(16
0→⌊FISH(17
0→⌊FISH(18
0→⌊FISH(19
0→⌊FISH(20
0→⌊FISH(21
0→⌊FISH(22
0→⌊FISH(23
0→⌊FISH(24
0→⌊FISH(25
0→⌊FISH(26Hewwo, my name is Achak Claw. I was formerly BioHazard.
If you want the source, it's above, or below wherever my posts lands on
Enjoy killing your thumbs lol
Kidding.
Hewwo, my name is Achak Claw. I was formerly BioHazard.
/forum/t-1718375/calcfish#post-