CalcFish

You have not uploaded your program! Please edit the page to upload your program.

Author: Kydapoot Download: CalcFish.zipNo Download Available Version: 1.0 Compatibility: TI-83/84/+/SE File Size: 11271 Bytes Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc Rating:

This is an extensive virtual fish program where you try to see how long you can keep a fish alive by feeding it, cleaning it's tank, and giving it medicine. But that's only the beginning! You can also catch more fish, sell them, play minigames, and experience all the surprises the game has in store for you! Details (about installation/setup and gameplay) are all in the readme. I hope you enjoy! Source Code included.

What the community thinks:

Program Source?

Korlor 16 Feb 2017 16:22

would it be possible for the code to be posted so I could input the code by hand?

Program Source?

Xeda Elnara 16 Feb 2017 16:29

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) 02 Aug 2018 13:10

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.

can someone post the source code please?

m3m3b01 06 Feb 2020 15:45

i don't have a computer to extract the files in sourcecoder 3. and i really want to test this out.

Re: can someone post the source code please?

(account deleted) 06 Feb 2020 16:37

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,"CATCHSELL +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:","MOVEDROP 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,"HEADGILLS:
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(26

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Last edited on 06 Feb 2020 23:33 by (account deleted) Show more

Re: can someone post the source code please?

Trenly 06 Feb 2020 20:25

There is a source code .txt file in the zip folder download for this

Re: can someone post the source code please?

(account deleted) 07 Feb 2020 22:21

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.

Re: can someone post the source code please?

m3m3b01 13 Feb 2020 15:14

thank you for the source code this is really helpful.