SC?
» Forum
> Your Projects
Code:
ClrDraw:AxesOff:ClrHome
FnOff :PlotsOff
6->dim(|LGOLD
Lbl 0
3->Y
ClrHome
Disp "THE GOLD EMPIRE",""," SAVED"," NEW"," QUIT
Lbl 00
Output(Y,1,">
Repeat θ=21 or θ=25 or θ=34
getKey->θ //changed → to ->
End
Output(Y,1,"
If θ=25
Then
If Y=3
6->Y
Y-1->Y
End
If θ=34
Then
If Y=5
2->Y
Y+1->Y
End
If θ=21
Then
If Y=3
Goto 01
If Y=4
Goto 02
If Y=5
Goto 03
End
Goto 00
Lbl 03
ClrDraw:ClrHome:AxesOn
Stop
Lbl 02
If ⌊GOLD(5)=1
Then
ClrHome
Disp "ERASE SAVED GAME?","[2ND] YES","[ALPHA] NO"
Repeat θ=21 or θ=31
getKey→θ:End
If θ=31
Goto 01
If θ=21
0→|LGOLD(5
End
0->B:1->D:100->M:48.08->P:0→R:0->W //changed → to ->
Goto ST
Lbl 01
If ⌊GOLD(5)=0
Goto 02
|LGOLD(1)->B //changed → to ->
|LGOLD(2)->D //changed → to ->
|LGOLD(3)->M //changed → to ->
|LGOLD(4)->P //changed → to ->
|LGOLD(6)->W //changed → to ->
Lbl ST
ClrDraw
TextColor(BLACK
Text(1,5,40,"THE GOLD EMPIRE
Text(25,0,"PRICE:
Text(25,48,P
If R≥0
Then
TextColor(GREEN
Text(25,85,"+
Text(25,93,R
TextColor(BLACK
Else
TextColor(RED
Text(25,85,"-
Text(25,93,abs(R
TextColor(BLACK
End
Text(55,0,"MONEY:
Text(55,54,M
Text(40,0,"BARS:
Text(40,40,B
Text(70,0,"DAY:
Text(70,35,D
Text(50,110,"BUY
Text(62,110,"SELL
Text(74,110,"NEXT DAY
Text(86,110,"SAVE
Text(98,110,"QUIT
50->Y //changed → to ->
Lbl 05
Text(Y,100,">
Repeat θ=11 or θ=12 or θ=21 or θ=25 or θ=34:getKey→θ:End
Text(Y,100,"
If θ=25
Then
If Y=50
110->Y //changed → to ->
Y-12->Y //changed → to ->
End
If θ=34
Then
If Y=98
38->Y //changed → to ->
Y+12->Y //changed → to ->
End
If θ=11
Goto I
If θ=12
Goto MP
If θ=21
Then
If Y=50
Goto BU
If Y=62
Goto SE
If Y=74
Goto ND
If Y=86
Goto SV
If Y=98
Goto 03
End
Goto 05
Lbl I
ClrDraw
Text(1,1,1,"INVEST:
Text(30,15,"2 BARS.................... 5 DOLLARS A DAY
Text(50,15,"3 BARS.................... 10 DOLLARS A DAY
Text(70,15,"4 BARS.................... 15 DOLLARS A DAY
Text(90,15,"5 BARS.................... 20 DOLLARS A DAY
Text(110,15,"BACK
30→Y
Lbl I0
Text(Y,3,">
Repeat θ=21 or θ=25 or θ=34:getKey->θ:End //changed → to ->
Text(Y,3,"
If θ=25
Then
If Y=30
130->Y //changed → to ->
Y-20->Y //changed → to ->
End
If θ=34
Then
If Y=110
10->Y //changed → to ->
Y+20->Y //changed → to ->
End
If θ=21
Then
If Y=30
Goto I1
If Y=50
Goto I2
If Y=70
Goto I3
If Y=90
Goto I4
If Y=110
Goto ST
Goto I0
Lbl I1:2->A:Goto I5 //changed → to ->
Lbl I2:3->A:Goto I5 //changed → to ->
Lbl I3:4->A:Goto I5 //changed → to ->
Lbl I4:5->A //changed → to ->
Lbl I5
If A>B
Then
ClrHome
Disp "INSUFFICIENT BARS!","NEED:"
Output(2,7,A-B
Repeat 21=getKey:End
Goto ST
Else
ClrHome
Output(1,1,A
Output(1,3," BARS INVESTED!"
B-A→B
If A=2:5->W:If A=3:10->W //changed → to ->
If A=4:15->W:If A=5:20->W //changed → to ->
Repeat 21=getKey:End
Goto ST
End
Lbl MP
ClrHome
Disp "MOB POWER","","COST (MONEY): 300","OUTPUT (BARS): 8","SUCCESS RATE: 50","FAIL RATE: 40","CATCH RATE: 10
Repeat 21=getKey:End
If M<300
Then
ClrHome
Disp "INSUFFICIENT MONEY!","NEED:
Output(2,7,300-M
Repeat 21=getKey:End
Goto ST
End
M-300->M //changed → to ->
randInt(1,10)->θ //changed → to ->
6->θ //changed → to ->
If θ>6
Then
ClrHome
Disp "FAILED!"
Repeat 21=getKey:End
Goto ST
End
If θ<6
Then
ClrHome
Disp "SUCCESSFUL!"
B+8->B //changed → to ->
Repeat 21=getKey:End
Goto ST
End
If θ=6
Then
ClrHome
Disp "CAUGHT!...","AND IT WAS TRACED BACK TO","YOU!":Repeat 21=getKey:End
Disp "","MONEY LOST:","BARS LOST:"
0->W //changed → to ->
If M<200
Then
Output(5,13,M
0->M //changed → to ->
End
If M≥200
Then
Output(5,13,200
M-200->M //changed → to ->
End
If B<5
Then
Output(6,12,B
0->B //changed → to ->
End
If B≥5
Then
Output(6,12,5
B-5->B //changed → to ->
End
Repeat 21=getKey:End
Disp "INVESTORS DENY YOUR STOCK!"
Repeat 21=getKey:End
Goto ST
End
Lbl BU
ClrHome
Input "BUY: ",θ
If θP>M
Then
ClrHome
Disp "INSUFFICIENT MONEY!","NEED:"
Output(2,7,Pθ-M
Repeat 21=getKey:End
Goto ST
Else
M-θP->M //changed → to ->
B+θ->B //changed → to ->
Goto ST
End
Lbl SE
ClrHome
Input "SELL: ",θ
If θ>B
Then
ClrHome
Disp "INSUFFICIENT BARS!"
Repeat 21=getKey:End
Goto ST
Else
B-θ->B //changed → to ->
M+Pθ->M //changed → to ->
Goto ST
End
Lbl ND
If P>58.08
Then
randInt(1,2)->θ //changed → to ->
If θ=1
Then
randInt(50,75->Z //changed → to ->
Z/10->Z //changed → to ->
P-Z->P //changed → to ->
2->θ //changed → to ->
Goto NE
End
End
If P<38.08
Then
randInt(1,2)->θ //changed → to ->
If θ=1
Then
randInt(50,75)->Z //changed → to ->
Z/10->Z //changed → to ->
P+Z->P //changed → to ->
1->θ //changed → to ->
Goto NE
End
End
randInt(1,8)->θ //changed → to ->
If θ<5
randInt(1,15)->Z //changed → to ->
If θ=6 or θ=7
randInt(10,25)->Z //changed → to ->
If θ=8
Then
randInt(1,3)->θ //changed → to ->
If θ≠1
Goto ND
randInt(50,100)->Z //changed → to ->
End
Z/10->Z//changed → to ->
randInt(1,2)->θ //changed → to ->
randInt(1,10)->S //changed → to -> and changed Ś to S
S/100->Ś //changed → to -> and changed Ś to S
If θ=1
P+Z+S->P //changed → to -> and changed Ś to S
If θ=2
P-Z-S->P //changed → to -> and changed Ś to S
Lbl NE
If θ=1:Z+S->R //changed → to -> and changed Ś to S
If θ=2:Z-S->R //changed → to -> and changed Ś to S
D+1->D //changed → to ->
M+W0->M //changed → to ->
round(R,2)->R //changed → to ->
round(P,2)->P //changed → to ->
Goto ST
Lbl SV
B->|LGOLD(1 //changed → to ->
D->|LGOLD(2 //changed → to ->
M->⌊|LGOLD(3 //changed → to ->
P->|LGOLD(4 //changed → to ->
1->|LGOLD(5 //changed → to ->
W->|LGOLD(6 //changed → to ->
ClrHome
Disp "GAME SAVED!
Repeat 21=getKey:End
Goto ST
I changed a lot of stuff, but all this could have been avoided if you do what mets11rap suggested.
TI84plceBasicPro wrote:
Whats an Sc?
SC3 is SourceCoder3, and SC works fine. Also, for these smal questions, you might want to ask this in SAX, found on the left hand side of your page. (Unless you're like me and use CemetechRetro).
Did you test it first?
Did you follow the upload instructions that require it to be up to Cemetech standard?
Did you follow the upload instructions that require it to be up to Cemetech standard?
TI84plceBasicPro wrote:
Just uploaded!!!!!! So excited!
Did you include a Readme.txt in your upload? Maybe some screenshots? (that would help approval, I think)
Also, i got ~ninja'd by mets11rap.
EDIT:
"Gtg. Dinner" is not something to be said in the forum. Something to be said in SAX. It's ok this time, but please remember this for the future.
EDIT#2: "Oh, well i did put it in a zipped file..." isn't either, but it's at least better than "Gtg, Dinner."
EDIT#3: No offense...
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.
» Go to Registration page
» Go to Registration page
» Goto page Previous 1, 2
» View previous topic :: View next topic
» View previous topic :: View next topic
Page 2 of 2
» All times are UTC - 5 Hours
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
Advertisement