Login [Register]
Don't have an account? Register now to chat, post, use our tools, and much more.
This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's Your Projects subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.

This forum is locked: you cannot post, reply to, or edit topics. Final Fantasy => Your Projects
Author Message
Babyboy


Advanced Member


Joined: 11 Jun 2003
Posts: 499

Posted: 12 Aug 2005 11:26:44 am    Post subject:

Final Fantasy

ok, here is the latest code, i added the bare bones for the weapon shop, touched up some area recognition stuff for the continue function, and got rid of a nasty little bug that made the pause screen pop up in the second zone. :)


ok, i have added a hard coded map for the armor shop, changed the walking code to the smallest its ever been, and fixed several transport problems.


Last edited by Guest on 12 Aug 2005 01:58:37 pm; edited 1 time in total
Back to top
Babyboy


Advanced Member


Joined: 11 Jun 2003
Posts: 499

Posted: 01 Sep 2005 09:18:22 pm    Post subject:

well, since i have officialy filled the ram on my 84 silver, i will stop any forward development to go back and get it a wee bit smaller
N E 1 want to try and help? my coding is bad so maybe someone can figure it out
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976

Posted: 02 Sep 2005 12:38:52 am    Post subject:

Yes, please post your good stuff. I'm sure there are several of us glad to help out in this code-crunching experiment.
Can I get your permission in advance to convert any code pasted from an external editor into a more readable format?
Back to top
Babyboy


Advanced Member


Joined: 11 Jun 2003
Posts: 499

Posted: 02 Sep 2005 04:55:03 pm    Post subject:

ok here is the code, yes, do whatever you need to do super, im just glad for some space help :)


Code:
[font="courier new"]<span style='font-size:9pt;line-height:100%'>If U=8309:Then
Then
STAT LIST
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.LVL
14.QQ
15.COINAG3
16.HAT
17.KIZZLE
18.DUSTER
19.RING
20.
21.CASSAROLE
22.FORK
23.kitty
24.curiass
LABELS
AS- SEP LBL FRO ARMOR USE LSTAT14 FOR WHAT SOLD
End
:
AxesOff
10→C
StoreGDB 1
PlotsOff
10→A
10→B
0→C
1→I%
Full
0→Xmin
0→Ymin
94→Xmax
62→Ymax
22→B
ClrDraw
:
Text(30,22,"Dream Software"
Line(25,25,75,25
:
While A≠100
Pt-Off(B,25
Pt-On(B,25
Pt-Off(B+1,25
Pt-On(B+1,25
B+1→B
Pt-On(B+2,25
Pt-Off(B+2,25
If B=75
22→B
getKey→K
If K≠105
End
:
100→dim(<span style='font-size:7pt;line-height:100%'>L[/font]STAT
FnOff
ClrHome
ClrDraw
GridOff
AxesOff
0→R
PlotsOff
ClrDraw
0→A
For(A,0,Ymax
Horizontal A
End
Line(1,61,1,1,0
Line(1,61,93,61,0
Line(93,61,93,1,0
Line(1,1,93,1,0
Line(90,2,92,4,0
Line(92,58,90,60,0
Line(4,60,2,58,0
Line(2,4,4,2,0
Line(2,8,8,2,0
Line(86,2,92,8,0
Line(92,54,86,60,0
Line(8,60,2,54,0
Pt-Off(4,58
Pt-Off(90,58
Pt-Off(90,4
Pt-Off(4,4
Line(14,49,24,49,0
Line(14,49,14,30,0
Line(15,30,16,30,0
Line(17,30,17,40,0
Line(17,40,21,40,0
Pt-Off(21,41
Line(21,42,17,42,0
Line(17,42,17,47,0
Line(17,47,24,47,0
Pt-Off(24,48
Line(24,37,28,37,0
Line(26,36,26,31,0
Line(28,30,24,30,0
Line(31,30,34,37,0
Line(34,37,37,30,0
Line(37,30,40,37,0
Line(42,30,44,38,0
Line(44,38,46,30,0
Pt-Off(44,32
Line(49,38,49,31,0
Line(50,30,53,30,0
Line(14,26,24,26,0
Line(14,26,14,7,0
Line(14,7,17,7,0
Line(17,7,17,15,0
Line(17,17,17,15,0
Line(17,15,21,15,0
Pt-Off(21,16
Line(21,17,17,17,0
Line(17,17,17,24,0
Line(17,24,24,24,0
Pt-Off(24,25
Line(24,7,26,15,0
Line(26,15,28,7,0
Pt-Off(26,9
Line(31,7,34,14,0
Line(34,14,37,7,0
Line(37,7,40,14,0
Line(42,15,48,15,0
Line(45,15,45,7,0
Line(50,7,52,15,0
Line(52,15,54,7,0
Pt-Off(52,9
Line(57,7,60,7,0
Pt-Off(61,8
Line(62,9,58,13,0
Pt-Off(59,14
Line(60,15,63,15,0
Line(69,7,69,12,0
Line(69,12,72,15,0
Line(69,12,66,15,0
Line(51,47,61,47,0
Line(61,51,51,51,0
Line(60,44,60,54,0
Line(52,49,53,49,0
Line(61,55,61,43,0
Line(62,55,62,54,0
:
Pt-Off(63,55
Pt-Off(63,43
Line(62,43,62,44,0
Line(63,49,88,49,0
Pt-Off(55,49
Pt-Off(57,49
Line(50,50,50,48,0
Line(62,52,91,52,0
Line(91,46,62,46,0
Line(93,46,93,49,0
:
Pt-Off(92,51
:
Pt-Off(87,45
Pt-Off(67,45
Line(66,44,66,42,0
Line(68,44,68,42,0
Line(86,44,86,42,0
:
Line(88,44,88,42,0
:
Pt-Off(87,41
Pt-Off(67,41
Line(66,40,66,38,0
Line(86,40,86,38,0
Line(88,40,88,38,0
Pt-Off(87,37
Pt-Off(67,37
Line(91,46,93,48,0
:
Line(68,40,68,38,0
Line(68,36,86,36,0
Line(68,36,68,29,0
Pt-Off(69,28
Line(70,27,84,27,0
Pt-Off(85,28
Line(86,29,86,36,0
:
0→K
While K≠105
:
getKey
:
If Ans
Then
Line(69,35,85,35
Line(85,34,69,34
Line(69,33,85,33
Line(69,32,85,32
Line(69,31,85,31
Line(69,30,85,30
Line(70,29,84,29
Line(70,28,84,28
End
:
If Ans=25
A+1→A
If Ans=34
A-1→A
:
If A>4
1→A
If A<1
4→A
:
If A=1
Then
Line(72,29,72,33,0
Pt-Off(73,33
Pt-Off(77,31
Line(74,32,74,29,0
Line(78,29,76,29,0
Line(76,29,76,33,0
Line(76,33,78,33,0
Line(80,33,80,29,0
Pt-Off(81,30
Pt-Off(82,29
Line(82,30,82,33,0
End
:
If A=2
Then
Line(81,29,81,32,0
Line(80,33,82,33,0
Line(73,33,74,33,0
Line(72,32,72,30,0
Line(73,29,74,29,0
Line(76,29,76,33,0
Line(78,32,78,29,0
Pt-Off(77,33
End
If A=3
Then
:
Line(74,32,74,29,0
Line(72,32,72,29,0
Pt-Off(73,31
Pt-Off(73,33
Line(76,33,76,29,0
Pt-Off(77,29
Pt-Off(78,30
Pt-Off(77,31
Pt-Off(78,32
Line(80,33,82,33,0
Line(81,32,81,29,0
Pt-Off(77,33
End
:
If A=4
Then
Line(73,29,74,29,0
Line(73,33,74,33,0
Line(72,33,72,29,0
Line(76,29,76,33,0
Line(78,29,78,32,0
Pt-Off(77,33
Line(80,33,80,29,0
Line(82,32,82,30,0
Pt-Off(81,33
Pt-Off(81,29
Pt-Off(73,31
End
:
If Ans=105
Then
If A=4
Then
RecallGDB 1
ClrHome
ClrDraw
Stop
:
End
:
If A=3
Then
ClrDraw
Text(7,35,"Credits
Text(17,20,"Squaresoft 1988
Send(WAR
Text(25,19,"Dreamware 2004
Send(WAR
Text(33,10,"John Ackley-Program
Send(WAR
Text(41,11,"Alan Ackley-Beta test
Send(WAR
Text(49,11,"Thank you United TI :)
Pause
ClrDraw
1→A
prgmFFNEWBLD
End
:
If A=2 and Ans=105
Then
10→A
1→B
Goto QQ
End
:
If A=1 and Ans=105
Then
1→B
10→A
Goto M0
End
End
End
:
Lbl QQ
ClrDraw
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(14)=1:Goto M0
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(14)=2:Goto M2
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(14)=3:Goto M4
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(14)=4:Goto M6
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(14)=5:Goto M8
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(14)=6:Goto M1
Output(1,1,"NML"
Stop
:
Lbl M0
:
Lbl M2
2→<span style='font-size:7pt;line-height:100%'>L</span>STAT(14)
ClrDraw
Line(0,62,0,53
Line(0,53,20,53
Line(20,53,20,62
Line(2,51,18,51
Line(18,62,18,56
Line(17,55,12,55
Line(6,62,14,62
Line(11,61,9,61
Line(9,60,11,60
Line(11,59,9,59
Line(1,52,1,52
Line(8,55,3,55
Line(2,56,2,62
Pt-On(6,57
Pt-On(5,58
Pt-On(6,59
Pt-On(7,58
Pt-On(13,58
Pt-On(14,59
Pt-On(15,58
Pt-On(14,57
Pt-On(11,56
Pt-On(9,56
Pt-On(19,52
Pt-On(13,52
Pt-On(10,52
Pt-On(7,52
Line(6,61,7,61
Line(13,61,14,61
Line(10,58,10,57
Line(29,62,44,62
Line(44,62,44,54
Line(43,53,30,53
Line(29,54,29,62
Line(30,56,43,56
Line(33,55,33,54
Line(30,53,43,53
Line(41,51,32,51
Line(29,54,32,51
Line(41,51,44,54
Pt-On(44,51
Pt-On(34,52
Line(46,21,46,62
Line(47,21,47,62
Line(48,21,48,62
Line(49,21,49,62
Line(50,21,50,62
Line(51,21,51,62
Line(52,42,52,57
Line(52,57,56,57
Line(56,57,56,42
Line(56,42,52,42
Line(56,42,59,45
Line(59,45,59,54
Line(59,54,56,57
Pt-On(57,49
Pt-On(58,50
Pt-On(58,48
Line(4,33,4,39
Line(5,39,5,33
Line(6,33,10,33
Line(10,35,6,35
Line(6,37,10,37
Line(10,39,6,39
Line(11,30,11,40
Line(12,41,13,41
Line(14,42,29,42
Line(30,41,31,41
Line(32,40,32,30
Line(38,33,38,39
Line(37,39,37,33
Line(36,33,33,33
Line(33,35,36,35
Line(36,37,33,37
Line(33,39,36,39
Line(28,37,25,37
Line(25,35,26,35
Line(27,34,27,33
Line(28,32,25,32
Line(24,33,24,34
Line(29,34,29,32
Line(27,30,24,30
Pt-On(22,30
Pt-On(23,29
Pt-On(23,31
Pt-On(17,30
Pt-On(16,31
Pt-On(16,29
Line(19,33,19,34
Line(18,34,18,34
Line(17,37,15,37
Line(28,32,27,32,0
Line(26,35,25,35
Line(31,29,31,28
Line(30,27,13,27
Line(12,28,12,29
Line(15,30,14,30
Line(14,32,15,32
Line(16,33,16,34
Line(15,35,14,35
Line(13,34,13,33
Line(0,27,5,27
Line(5,27,5,15
Line(5,15,0,15
Line(1,21,1,24
Pt-On(2,24
Pt-On(2,22
Pt-On(2,20
Pt-On(1,19
Pt-On(0,20
Line(65,30,65,24
Line(65,24,83,24
Line(83,24,83,30
Line(78,27,70,27
Line(69,28,69,29
Line(74,28,74,29
Line(68,30,80,30
Line(79,28,79,29
Pt-On(82,30
Pt-On(81,29
Pt-On(66,30
Pt-On(67,29
Line(83,59,83,62
Line(89,59,89,62
Line(94,6,94,0
Line(94,0,88,0
Line(88,0,88,6
Line(88,6,94,6
Line(91,4,91,2
Line(90,3,92,3
Line(85,61,86,62
Pt-On(87,61
Line(56,3,56,0
Line(50,0,50,3
Line(53,0,54,1
Pt-On(52,1
Line(71,36,71,39
Line(71,39,73,39
Line(74,41,74,36
Pt-On(72,37
Pt-On(73,38
Line(76,36,80,36
Line(80,36,80,39
Line(80,39,76,39
Line(77,40,77,41
Line(78,42,73,42
Line(72,44,79,44
Line(80,45,80,48
Line(80,48,71,48
Line(71,48,71,45
Pt-On(72,43
Pt-On(79,43
Line(72,36,73,36
Line(76,37,76,38
Pt-On(77,38
Pt-On(78,37
Pt-On(79,38
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(17)=1
Then
Line(2,10,2,7,0
Pt-Off(3,8
Pt-Off(3,10
Pt-Off(3,6
Pt-Off(2,5
Pt-Off(1,6
End
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(19)=1
Then
Pt-Off(58,48
Pt-Off(57,49
Pt-Off(58,50
End
If B=1
Then
50→A
50→B
End
If R=0
Then
If A≠N and B≠M
Then
50→A
50→B
End
End
1→R
Pxl-On(A,B
Pxl-On(A+1,B
:
Pxl-On(A+2,B-1
:
Pxl-On(A+2,B-1
Pxl-On(A+2,B+1
Pxl-On(A-2,B
:
Pxl-On(A,B+1
Pxl-On(A,B-1
:
For(Z,5,9
While Z
:
If K≠0
Then
Pxl-Off(A,B
Pxl-Off(A+1,B
Pxl-Off(A+2,B-1
Pxl-Off(A+2,B+1
Pxl-Off(A-2,B
Pxl-Off(A,B-1
Pxl-Off(A,B+1
End
:
If K=24 and (pxl-Test(A,B-3)=0 and B≠5
B-3→B
:
If K=26 and (pxl-Test(A,B+3)=0 and B≠89
B+3→B
:
If K=34 and (pxl-Test(A+3,B)=0 and A≠59
A+3→A
If K=25 and (pxl-Test(A-3,B)=0 and A≠5
A-3→A
getKey→K
:
Pxl-On(A,B
Pxl-On(A+1,B
Pxl-On(A+2,B-1
Pxl-On(A+2,B+1
Pxl-On(A-2,B
Pxl-On(A,B-1
Pxl-On(A,B+1
:
If K=22
Then
A→M
B→N

Goto M6
End
:
If K=21
Then
ClrHome
If A=29 and (B=74 or B=77)
Then
ClrHome
Output(2,1,"It's my TI-99 4A! It's older than i am but it still works, should i play it?
Input "Y/N",Str2
If Str2="Y"
Goto GP
End
:
If A=14 and B=62 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(20)=1
Then
ClrHome
Output(1,1,"THIS IS WHERE MY MOTHERS RING WAS STORED"
Pause
End
If A=14 and B=62 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(20)≠1
Then
ClrHome
Output(1,1,"It's my mothers favorite jewel, she put it there long ago and its all dusty..."
Pause
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(19)=1
Then
ClrHome
Output(8,1,"DUST IT?"
Input "Y/N",Str2
If Str2="Y"
Then
ClrHome
Output(1,1,"It's all shiny again, im going to take it with me!"
1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(20)
Pause
ClrHome
Output(1,1,"AQUIRED MOTHERS RING
Pt-Off(58,48
Pt-Off(57,49
Pt-Off(58,50
Pause
End
End
End
If A=14 and B=35 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(21)=1
Then
ClrHome
Output(1,1,"ITS EMPTY..."
Pause
End
:
If A=14 and B=35 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(21)≠1
Then
ClrHome
Output(1,1,"ITS OUR OLD FRIDGE, IN IT IS MY MOTHERS LAST MEAL..."
Pause
ClrHome
Output(1,1,"AQUIRED LAST CASSAROLE"
1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(21)
Pause
End
If A=14 and (B=11 or B=5 or B=8 or B=14 or B=17) and <span style='font-size:7pt;line-height:100%'>L</span>STAT(22)≠1
Then
ClrHome
Output(1,1,"ITS OUR SINK, THERE IS ONLY ONE DISH"
Pause
ClrHome
1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(22)
Output(1,1," got a Fork!"
Pause
End
:
If A=41 and B=8 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(17)≠1
Then
Output(1,1,"GOT THE STEREOTYPICAL RPG KEY"
Pause
1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(17)
End
:
If A=41 and B=8 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(17)=1
Then
Output(1,1,"THE TABLE IS EMPTY
Pause
End
:
If A=14 and (B=11 or B=5 or B=8 or B=14 or B=17) and STAT(22)=1
Then
ClrHome
Output(1,1,"It's empty, i already took the Fork...
End
If A=59 and B=53
Then
0→R
0→A
ClrDraw
Goto M4
End
:
End
:
End
:
End
:
Lbl M4
3→<span style='font-size:7pt;line-height:100%'>L</span>STAT(14)
ClrDraw
If R=0
Then
23→A
86→B
End
Line(17,8,21,8
Line(0,21,26,21
Line(1,10,0,10
Line(26,21,26,0
Line(26,1,25,1
Line(26,2,20,2
Line(20,1,0,1
Line(24,3,23,3
Line(23,6,23,11
Line(22,12,18,12
Pt-On(21,10
Pt-On(19,11
Pt-On(19,9
Line(17,11,17,6
Line(15,6,12,6
Line(12,6,12,12
Line(12,14,17,14
Line(17,15,18,15
Line(18,16,23,16
Line(23,15,24,15
Line(24,14,26,14
Line(20,17,21,17
Line(15,14,15,8
Line(14,7,12,7
Line(15,9,14,9
Line(13,10,14,10
Line(15,11,12,11
Line(12,12,15,12
Pt-On(13,13
Line(11,7,10,7
Line(10,8,9,8
Line(9,9,8,9
Line(8,10,4,10
Line(4,11,1,11
:
Pt-On(0,9
Line(12,13,9,13
Line(9,14,8,14
Line(8,15,5,15
Line(5,14,3,14
Line(7,15,7,17
Pt-On(6,17
Line(0,16,0,17
Pt-On(1,17
Line(3,19,6,19
Line(6,20,7,20
Line(9,19,10,19
Line(13,17,11,17
Line(16,19,17,19
Line(19,20,20,20
Line(20,19,21,19
Line(0,42,94,42
Line(20,43,18,43
Line(20,42,20,58
Pt-On(19,59
Pt-On(18,60
Pt-On(17,59
Pt-On(16,58
Pt-On(16,56
Pt-On(17,55
Pt-On(3,55
Pt-On(4,56
Pt-On(4,58
Pt-On(3,59
Pt-On(2,60
Pt-On(1,59
Line(3,61,17,61
Line(15,57,5,57
Line(0,58,0,42
Line(2,42,2,54
Line(6,53,6,42
Line(14,42,14,53
Line(6,53,14,53
Pt-On(12,49
Pt-On(8,49
Pt-On(8,45
Pt-On(12,45
Line(13,48,13,46
Line(11,44,9,44
Line(7,46,7,48
Line(9,50,11,50
Line(21,53,22,53
Pt-On(23,52
Line(24,42,24,58
Line(24,58,38,58
Line(38,58,38,42
Pt-On(39,43
Pt-On(40,44
Pt-On(41,45
Pt-On(41,61
Pt-On(40,60
Pt-On(39,59
Line(42,46,42,62
Line(42,62,28,62
Pt-On(27,61
Pt-On(26,60
Pt-On(25,59
Line(27,51,33,51
Line(27,51,27,43
Line(27,43,33,43
Line(33,43,33,51
Line(30,51,30,43
Pt-On(46,55
Pt-On(47,54
Pt-On(44,54
Pt-On(45,55
Pt-On(43,53
Line(18,43,18,54
Line(27,53,34,53
Line(27,53,27,56
Line(27,56,34,56
Line(34,56,34,53
Pt-On(32,54
Pt-On(30,54
Pt-On(29,55
Pt-On(31,55
Line(48,59,48,42
Line(48,59,51,62
Line(48,59,62,59
Line(62,59,62,42
Line(62,59,65,62
Line(65,62,51,62
Line(65,62,65,55
Line(52,54,56,58
Line(56,58,60,54
Pt-On(53,54
Pt-On(52,55
Pt-On(53,56
Pt-On(54,55
Pt-On(58,55
Pt-On(59,56
Pt-On(60,55
Pt-On(59,54
Line(58,51,58,43
Line(58,43,52,43
Line(52,43,52,51
Line(52,51,58,51
Line(55,51,55,43
Line(64,43,64,54
Line(64,54,72,62
Line(70,60,77,53
Line(77,53,77,42
Line(77,53,86,62
Line(80,62,90,52
Line(88,62,94,56
Line(94,56,90,52
Line(90,52,90,42
Line(88,43,88,50
Line(88,50,85,50
Line(85,50,85,43
Line(85,43,88,43
Line(83,45,79,45
Line(79,45,79,52
Line(79,52,83,52
Line(83,52,83,45
Line(81,45,81,52
Line(83,48,79,48
Line(75,50,75,43
Line(75,43,72,43
Line(72,43,72,50
Line(72,50,75,50
Line(70,53,70,45
Line(70,45,66,45
Line(66,45,66,53
Line(66,53,70,53
Line(68,45,68,53
Line(70,49,66,49
Pt-On(74,46
Pt-On(87,46
Pt-On(94,45
Pt-On(94,50
:
Line(94,21,56,21
Line(56,21,56,0
Line(87,0,87,19
Line(87,19,81,13
Line(87,19,71,19
Line(71,19,65,13
Line(65,13,81,13
Line(65,13,65,0
Pt-On(67,0
Pt-On(79,0
Line(79,3,79,11
Line(79,3,67,3
Line(67,3,67,11
Line(67,11,79,11
Line(73,11,73,3
Line(79,6,67,6
Pt-On(68,4
Pt-On(69,5
Pt-On(70,4
Pt-On(71,5
:
Pt-On(74,5
Pt-On(75,4
Pt-On(76,5
Pt-On(77,4
Pt-On(78,5
Pt-On(72,4
Line(67,1,79,1
Pt-On(68,8
Pt-On(69,7
Line(71,7,71,9
Pt-On(75,7
Line(77,7,77,8
If R=0
Then
If A≠N and B≠M
Then
23→A
86→B
End
End
:
For(Z,5,9
While Z
:
If K≠0
Then
Pxl-Off(A,B
Pxl-Off(A+1,B
Pxl-Off(A+2,B-1
Pxl-Off(A+2,B+1
Pxl-Off(A-2,B
Pxl-Off(A,B-1
Pxl-Off(A,B+1
End
:
If K=24 and (pxl-Test(A,B-3)=0 and B≠5
B-3→B
:
If K=26 and (pxl-Test(A,B+3)=0 and B≠89
B+3→B
:
If K=34 and (pxl-Test(A+3,B)=0 and A≠59
A+3→A
If K=25 and (pxl-Test(A-3,B)=0 and A≠5
A-3→A
getKey→K
:
Pxl-On(A,B
Pxl-On(A+1,B
Pxl-On(A+2,B-1
Pxl-On(A+2,B+1
Pxl-On(A-2,B
Pxl-On(A,B-1
Pxl-On(A,B+1
:
If K=22
Then
A→M
B→N
Goto M6
End
:
If K=21
Then
If A=23 and B=86
Then
59→A
53→B
Goto M2
End
If A=23 and (B=32 or B=29)
Then
A→M
B→N
0→R
Goto M8
End
:
If A=23 and (B=53 or B=56)
Then
0→R
A→M
B→N
Goto M1
End
:
End
End
:
Stop
:
Lbl M6
ClrDraw
Text(1,15,"FINAL FANTASY 83+"
Text(9,30,"CONTINUE
Text(19,30,"GAMEAGE
Text(29,30,"ITEMS
Text(39,30,"STATS
Text(49,30,"QUIT/SAVE
:
0→B
51→A
49→C
50→D
:
For(Z,5,9
While Z
Line(20,A,25,D
Line(20,C,25,D
Line(20,A,20,C
Line(16,D,20,D
sin(cos(sin(9
Line(20,A,20,C,0
Line(20,A,25,D,0
Line(20,C,25,D,0
Line(16,D,20,D,0
Text(1,1,D
If B=1
Then
A+1→A
C-1→C
End
If B=0
Then
C+1→C
A-1→A
End
If A=D+2
0→B
If A=D-2
1→B
:
getKey
If Ans=25
Then
D+10→D
A+10→A
C+10→C
End
If Ans=34
Then
D-10→D
A-10→A
C-10→C
End
:
If D=0
Then
50→D
49→C
51→A
End
If D=60
Then
11→A
9→C
10→D
End
:
If Ans=105
Then
If D=50
Then
M→A
N→B
ClrDraw
Goto QQ
End
If D=40
Goto GP
If D=30
Goto IT
If D=20
Goto ST
If D=10
Then
RecallGDB 1
ClrDraw
ClrHome
Stop
End
:
End
End
:
Lbl GP
:
Menu("GAMAGE","ZAPPEM",ZP,"ARM WRESTLING",WR,"SLOTS",SL,"QUIT",QG
:
Lbl ZP
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)-5→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
ClrHome
ClrDraw
randInt(1,61→V
V→W
Line(15,V+2,14,V
Line(13,V,7,V
Line(7,V,4,V+3
Line(4,V+3,7,V+6
Line(7,V+6,13,V+6
Line(13,V+6,16,V+3
Line(16,V+3,13,V+3
Line(14,V+2,5,V+2
Line(6,V+4,15,V+4
:
Pt-On(12,V+3
Pt-On(10,V+3
Pt-On(8,V+3
:
Pt-Off(15,V+3
Pt-Off(13,V+3
Pt-Off(14,V+3
Pt-Off(14,V
:
randInt(5,61→V
Line(55,V,55,0
Line(54,V,94,V
Line(57,V+1,63,V+1
Pt-On(56,V+2
Pt-On(64,V+2
Line(57,V+3,63,V+3
Pt-On(58,V+2
Pt-On(60,V+2
Pt-On(62,V+2
Line(62,V+4,62,V+6
Line(59,V+7,61,V+7
Line(58,V+4,58,V+6
Line(55,V+6,58,V+6
:
Pause
Output(3,1,"INPUT GUESS"
Lbl ZP
Input A
Line(58,V+2,15,A
Pause
If A=W or A=W+1 or A=W+2 or A=W+3 or A=W+4 or A=W+5 or A=W+6
Then
Output(1,1,"YOU WIN!
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)+10→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
Pause
Input "TRY AGAIN?",R
If R=1
Goto ZP
If R=2
Goto GP
End
Input "TRY AGAIN?",R
If R=1
Goto ZP
If R=2
Goto GP
:
Lbl WR
Output(1,1,"ARM WRESTLING"
Pause
ClrHome
Output(1,1,"PRESS 2ND TO PUMP YOUR ARM"
Pause
ClrHome
Input "1EASY 2HARD 3RIPPED",Z
1→θ
If Z=1
3→U

If Z=2
2→U
If Z=3
1→U
For(Z,5,7
While Z
Line(35,35,55,35
Text(25,60,"WIN"
Text(25,20,"LOSE"
getKey→K
:
Text(23,θ,"░░!░░"
Y+1→Y
If Y=U
Then
0→Y
θ-1→θ
End
If K=21
θ+1→θ
If θ=55
Then
ClrHome
Output(1,1,"YOU WIN"
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)+10→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
Pause
Goto WR
End
If θ=35
Then
ClrHome
Output(1,1,"YOU LOSE"
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)-10→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
Pause
Goto WR
End
End
:
Lbl QG
1→R
M→A
N→B
Goto QQ
:
Lbl SL
Input "BET HOW MUCH?",Z
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)-Z→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
ClrHome
Output(1,1,"****
*************░░░
░SLOTS░░░░░**░░░
░░░░░░░░░░░**░░░
░░░░░░░░░░░**░░░
░░░░░░░░░░░**░░A
░░░B░░░C░░░**░░░
░░░░░░░░░░░*****
************"
randInt(1,3→V
randInt(1,3→W
randInt(1,3→X
Output(6,4,"X"
Output(6,8,"X"
Output(6,12,"X"
Send(WAR
Output(6,4,V
Send(WAR
Output(6,8,W
Send(WAR
Output(6,12,X
Pause
ClrHome
If V=W and W=X
Then
Output(1,1,"ALL EQUALS!"
Pause
V*3→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
Output(2,1,"YOU GET"
Output(3,1,V*3
Pause
End
If V=1 and W=2 and X=3 or V=2 and W=3 and X=4
Then
Output(1,1,"LINED ALL UP!"
V*2→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
Output(2,1,"YOU GET"
Output(3,1,V*3
Pause
End
ClrHome
Input "PLAY AGAIN?",V
If V=1
Goto SL
If V=2
Goto GP
:
Lbl M8
5→<span style='font-size:7pt;line-height:100%'>L</span>STAT(14)
If R=0
Then
59→A
56→B
End
ClrDraw
Line(26,62,26,39
Line(26,39,0,39
Line(0,44,7,44
Line(7,44,21,58
Line(21,58,21,62
Line(3,62,3,54
Line(3,54,0,54
Line(0,57,1,58
Line(1,58,2,57
Line(17,39,26,48
Line(26,45,21,40
Line(26,42,23,39
Line(24,39,26,41
Line(26,40,25,39
Line(29,0,29,24
Line(29,24,11,24
Line(11,24,11,0
Line(11,0,29,0
Line(12,15,17,15
Line(17,15,17,16
Line(17,16,16,17
Line(16,17,16,18
Line(16,18,17,19
Line(17,19,17,21
Line(17,21,12,21
Line(12,21,12,15
Line(13,13,13,11
Line(11,11,11,9
Line(11,9,15,9
Line(15,9,15,13
Line(15,13,13,13
Line(22,18,26,18
Line(26,18,26,15
Line(26,15,22,15
Line(22,15,22,18
Line(24,16,24,15
Line(23,17,23,18
Line(25,17,25,18
Line(21,12,22,13
Line(22,13,26,13
Line(26,13,26,11
Line(26,11,21,11
Line(21,11,21,12
Line(24,13,24,10
Line(22,9,25,9
Line(25,9,25,6
Line(25,6,24,6
Line(24,6,24,5
Line(24,5,22,5
Line(22,5,22,9
Line(20,5,18,5
Line(18,5,18,3
Line(18,3,20,3
Line(20,3,20,5
Line(23,3,23,1
Line(23,1,16,1

Line(16,1,16,5
Line(16,5,18,5
Line(18,5,18,3
Line(18,3,23,3
Line(44,33,44,45
Line(44,45,74,45
Line(74,45,74,21
Line(74,21,65,21
Line(65,21,65,33
Line(65,33,44,33
Line(49,42,49,36
Line(49,36,50,35
Line(50,35,55,35
Line(55,35,56,36
Line(56,36,56,42
Line(56,42,55,43
Line(55,43,54,42
Line(54,42,51,42
Line(51,42,50,43
Line(50,43,49,42
Line(49,42,49,36
Line(49,36,50,35
Line(50,35,55,35
Line(55,35,56,36
Line(54,37,51,37
Line(51,39,54,39
Line(63,37,61,37
Line(61,37,61,42
Line(61,42,62,43
Line(62,43,66,43
Line(66,43,67,42
Line(67,42,67,37
Line(67,37,65,37
Line(63,39,65,39
Pt-On(65,41
Pt-On(63,41
Line(71,31,68,31
Line(68,31,68,27
Line(68,27,70,27
Line(70,27,70,23
Line(70,23,67,23
Line(67,26,68,27
Line(71,28,70,27
Line(44,62,44,54
Line(44,54,89,54
Line(89,54,89,62
Line(49,61,51,61
Line(51,61,52,60
Line(52,60,52,59
Line(52,59,55,59
Line(55,59,56,58
Line(56,58,56,57
Line(56,57,49,57
Line(49,57,49,61
Line(61,58,59,58
Line(59,58,59,56
Line(59,56,63,56
Line(63,56,63,57
Line(63,57,65,57
Line(68,61,68,57
Line(68,57,73,57
Line(73,57,73,59
Line(73,59,70,59
Line(70,59,70,61
Line(70,61,68,61
Line(79,61,78,61
Line(78,61,77,60
Line(77,60,76,60
Line(77,60,77,57
Line(77,57,81,57

Line(81,57,79,58
Line(79,58,79,61
Line(79,61,78,61
Line(82,59,81,58
Line(94,36,87,36
Line(87,36,83,32
Line(83,32,83,0
Line(87,21,94,21
Line(94,21,94,23
Line(94,23,93,24
Line(93,24,94,25
Line(94,25,94,27
Line(94,27,87,27
Line(87,27,87,21
Line(87,23,86,23
Line(86,23,86,26
Line(86,26,87,26
Line(91,30,93,28
Line(90,29,91,28
Line(90,19,91,20
Line(91,18,93,20
Line(94,11,88,11
Line(88,11,87,10
Line(87,10,87,7
Line(87,6,88,5
Line(88,5,94,5
Line(94,5,94,11
Line(94,8,87,8
Line(93,9,92,10
Line(92,6,93,7
Line(51,3,51,0
Line(54,0,53,1
Line(54,0,55,1
Line(57,0,57,3
:
For(Z,5,9
While Z
:
If K≠0
Then
Pxl-Off(A,B
Pxl-Off(A+1,B
Pxl-Off(A+2,B-1
Pxl-Off(A+2,B+1
Pxl-Off(A-2,B
Pxl-Off(A,B-1
Pxl-Off(A,B+1
End
:
If K=24 and (pxl-Test(A,B-3)=0 and B≠5
B-3→B
:
If K=26 and (pxl-Test(A,B+3)=0 and B≠89
B+3→B
:
If K=34 and (pxl-Test(A+3,B)=0 and A≠59
A+3→A
If K=25 and (pxl-Test(A-3,B)=0 and A≠5
A-3→A
getKey→K
:
Pxl-On(A,B
Pxl-On(A+1,B
Pxl-On(A+2,B-1
Pxl-On(A+2,B+1
Pxl-On(A-2,B
Pxl-On(A,B-1
Pxl-On(A,B+1
:
If K=22
Then
A→M
B→N
Goto M6
End
:
If K=21
Then
If A=59 and B=56
Then
M→A
N→B
1→R
Goto M4
End
:
If (A=17 or A=20 or A=23 or A=26) and (B=29 or B=26 or B=23 or B=20)
Goto AR
:
If A=38 and B=80
Then
Output(1,1,"SHIVBLOCKER CHESTPADS, ON SALE NOW!"
Pause
ClrHome
End
:
If A=53 and B=80
Then
Output(1,1,"PROSHIN GREAVES, NOW WITH LEG WARMERS."
Pause
ClrHome
End
:
If (A=35 or A=38 or A=41 or A=44 or A=32) and (B=62 or B=65 or B=68 or B=71 or B=74 or B=77)
Then
Output(1,1,"BENT UP GIANT STAFF, DISORIENT FOES!"
Pause
ClrHome
End
:
If A=11 and (B=80 or B=77)
Then
Output(1,1,"ELF SHOES, ELVEN JINGLE BALLS 2X BIGGER
Pause
ClrHome
End
:
If A=11 and (B=71 or B=68)
Then
Output(1,1,"CEMENT SHOES, GREAT FOR GOING FOR A +LITTLE RIDE+"
Pause
ClrHome
End
:
If A=11 and (B=59 or B=62 or B=65)
Then
Output(1,1,"ZIPPYS LOW CUT RUNNING SHOES, WHEN YOU HAVE TO GET GONE, GET ZIPPY"
Pause
ClrHome
End
:
If A=11 and (B=56 or B=53 or B=50)
Then
Output(1,1,"BIG F***IN SHOES"
Pause
ClrHome
End
If A=14 and (B=62 or B=65
Then
Output(1,1,"OLD SCHOOL PAC MAN HELM, JUST LIKE THE GHOSTS!
Pause
ClrHome
End
:
End
Text(1,1,A
Text(8,1,B
End
:
End
:
Lbl AR
ClrDraw
Text(1,20,"WHAT DO YOU NEED?"
Text(9,30,"BUY
Text(19,30,"SELL
Text(29,30,"NOTHING"
:
0→B
51→A
49→C
50→D
:
For(Z,5,9
While Z
:
Text(1,1,D
Line(20,A,25,D
Line(20,C,25,D
Line(20,A,20,C
Line(16,D,20,D
sin(9
Line(20,A,20,C,0
Line(20,A,25,D,0
Line(20,C,25,D,0
Line(16,D,20,D,0
:
If B=1
Then
A+1→A
C-1→C
End
If B=0
Then
C+1→C
A-1→A
End
If A=D+2
0→B
If A=D-2
1→B
:

getKey
If Ans=25
Then
D+10→D
A+10→A
C+10→C
End
If Ans=34
Then
D-10→D
A-10→A
C-10→C
End
:
If D=20
Then
50→D
49→C
51→A
End
If D=60
Then
31→A
29→C
30→D
End
:
If Ans=21
Then
If D=30
Then
M→A
N→B
1→R
Goto M8
End
If D=50
Goto 10
:
If D=40
Then
ClrDraw
Text(1,25,"YOUR ARMOR"
Text(50,10,"MODE= BACK
:
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(16)1
Text(10,10,"1. HAT ",<span style='font-size:7pt;line-height:100%'>L</span>STAT(16)
:
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(23)1
Text(20,10,"2. KITTY ",<span style='font-size:7pt;line-height:100%'>L</span>STAT(23)
If <span style='font-size:7pt;line-height:100%'>L</span>STAT(24)1
Text(30,10,"3. CURIASS ",<span style='font-size:7pt;line-height:100%'>L</span>STAT(24
For(Z,5,9
While Z
getKey
If Ans=92 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(16)1
Then
<span style='font-size:7pt;line-height:100%'>L</span>STAT(16)-1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(16)
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)+12→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
ClrDraw
Text(10,10,"SOLD FOR 12"
Pause
Goto AR
End
:
If Ans=93 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(23)1
Then
<span style='font-size:7pt;line-height:100%'>L</span>STAT(23)-1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(23)
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)+.5→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
ClrDraw
Text(10,10,"SOLD FOR .5"
Pause
Goto AR
End
:
If Ans=94 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(24)1
Then
<span style='font-size:7pt;line-height:100%'>L</span>STAT(24)-1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(24)
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)+125→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
ClrDraw
Text(10,10,"SOLD FOR 125"
Pause
Goto AR
End
If Ans=22
Goto AR
End
End
:
Lbl 10
ClrDraw
:
Text(1,15,"BUY"
Text(10,10,"1. L1 HAT -25
Text(18,10,"2. L1 KITTY -1
Text(26,10,"3. L1 CURIASS -250
Text(50,10,"MODE= BACK"
:
For(Z,5,9
While Z
getKey
:
If Ans=22
Goto AR
:
If Ans=92 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(15)25
Then
<span style='font-size:7pt;line-height:100%'>L</span>STAT(16)+1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(16)
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)-25→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
Goto AR
End
:
If Ans=93 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(15)1
Then
<span style='font-size:7pt;line-height:100%'>L</span>STAT(23)+1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(23)
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)-1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
Goto AR
End
:
If Ans=94 and <span style='font-size:7pt;line-height:100%'>L</span>STAT(15)250
Then
<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)-250→<span style='font-size:7pt;line-height:100%'>L</span>STAT(15)
<span style='font-size:7pt;line-height:100%'>L</span>STAT(24)+1→<span style='font-size:7pt;line-height:100%'>L</span>STAT(24)
Goto AR
End
:
If Ans=92 or Ans=93 or Ans=94
Then
Text(25,25,"NOT ENOUGH CASH
Pause
Goto AR
End
End
End
End
End
End
End
:
Lbl M1
ClrDraw
6→<span style='font-size:7pt;line-height:100%'>L</span>STAT(14)
If R=0
Then
31→A
7→B
End
Line(16,62,16,37
Line(16,37,0,37
Line(0,22,16,22
Line(16,22,16,0
Line(0,24,0,34
Line(2,34,2,24
Line(4,24,4,34
:
Pt-On(3,32
Pt-On(3,30
Pt-On(3,28
Pt-On(3,26
Pt-On(3,24
Pt-On(1,32
Pt-On(1,30
Pt-On(1,28
Pt-On(1,26
Pt-On(1,24
Line(37,10,49,10
Line(37,10,37,52
Line(49,40,49,10
Line(49,40,94,40
Line(94,52,37,52
Line(4,34,0,34
:
For(Z,5,9
While Z
:
If K≠0
Then
Pxl-Off(A,B
Pxl-Off(A+1,B
Pxl-Off(A+2,B-1
Pxl-Off(A+2,B+1
Pxl-Off(A-2,B
Pxl-Off(A,B-1
Pxl-Off(A,B+1
End
:
If K=24 and (pxl-Test(A,B-3)=0
B-3→B
:
If K=26 and (pxl-Test(A,B+3)=0 and B≠91
B+3→B
:
If K=34 and (pxl-Test(A+3,B)=0 and A≠58
A+3→A
If K=25 and (pxl-Test(A-3,B)=0 and A≠4
A-3→A
getKey→K
:
Pxl-On(A,B
Pxl-On(A+1,B
Pxl-On(A+2,B-1
Pxl-On(A+2,B+1
Pxl-On(A-2,B
Pxl-On(A,B-1
Pxl-On(A,B+1
:
If K=22
Then
A→M
B→N
Goto M6
End
:
Text(1,1,A
Text(8,1,B
:
If K=21
Then
:
If A=31 and B=7
Then
M→A
N→B
1→R
Goto M4
End
End
:
End
End</span></span>


im surprised you made it this far down ;)


EDIT: Thanks for doing the grunt work, Supergoose. :)
EDIT2:Desmilified, it messed up the code.


Last edited by Guest on 02 Sep 2005 06:50:18 pm; edited 1 time in total
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976

Posted: 02 Sep 2005 05:35:43 pm    Post subject:

Here it is. Nothing was changed yet except for the removing of empty lines, fixing of digitally-misinterpreted characters, and appropriate resizing of the L's in list names. Your comments were untouched, although I think those would be easier to read (and store) on a computer or written on a sheet of paper.

:) ← If you see a blue smiley here, go back and edit.

Code:
[font="courier new"]<span style='font-size:9pt;line-height:100%'>

If U=8309:Then
Then
STAT LIST
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.LVL
14.QQ
15.COINAG3
16.HAT
17.KIZZLE
18.DUSTER
19.RING
20.
21.CASSAROLE
22.FORK
23.kitty
24.curiass
LABELS
AS- SEP LBL FRO ARMOR USE LSTAT14 FOR WHAT SOLD
End
:
AxesOff
StoreGDB 1
PlotsOff
10→C
Ans→A [color=blue]    //Ans again, just moved 10→C down to use it.[/color]
DelVar CFull
0→Xmin
0→Ymin
1→ΔX
1→ΔY
22→B
ClrDraw
:
Text(30,22,"Dream Software"
Line(25,25,75,25
:
While A≠<span style='font-size:7pt;line-height:100%'>E[/font]2           [color=blue]//<span style='font-size:7pt;line-height:100%'>E[/color]2 instead of 100</span>
Pt-Off(B,25
Pt-On(B,25
Pt-Off(B+1,25
Pt-On(B+1,25
B+1→B
Pt-On(B+2,25
Pt-Off(B+2,25
If B=75
22→B
getKey→K
If Ans≠105
End
:
<span style='font-size:7pt;line-height:100%'>E</span>2→dim(LSTAT
FnOff
ClrHome
ClrDraw
GridOff
AxesOff [color=blue]//don't remember, doesn't AxesOff clear the draw screen when used?[/color] [color=Limegreen][b]//Yup.[/b][/color]
DelVar RPlotsOff     [color=blue]//Why bother deleting A here if there's a For( loop?[/color]
For(A,0,Ymax
Horizontal A
End
Line(1,61,1,1,0
Line(1,61,93,61,0 [color=blue]//Re: Ans; Three bytes for new line, three bytes saved.[/color]
1→A [color=blue]//store 1 to A before pausing, it saves a picosecond because user never hits[/color]
Pause [color=blue]//enter that quickly[/color]
ClrDraw
prgmFFNEWBLD
End
:
If A=2 and Ans=105
Then
10→A
1→B
Goto QQ
End
:
If A=1 and Ans=105
Then
1→B
10→A
Goto M0
End
End
End
:
Lbl QQ
ClrDraw
If 1=LSTAT(14:Goto M0 [color=blue]//switch order, saves a byte per parenthesis[/color]
If 2=LSTAT(14:Goto M2
If 3=LSTAT(14:Goto M4
If 4=LSTAT(14:Goto M6
If 5=LSTAT(14:Goto M8
If 6=LSTAT(14:Goto M1
Output(1,1,"NML [color=blue]//come on, you know about ending quotes, right?[/color]
Stop
:
Lbl M0
:
Lbl M2
2→LSTAT(14 [color=blue]//ending ) again[/color]
ClrDraw
Line(0,62,0,53
Line(0,53,20,53
Line(20,53,20,62
Line(2,51,18,51
Line(18,62,18,56
Line(17,55,12,55
Line(6,62,14,62
Line(11,61,9,61
Line(9,60,11,60
Line(11,59,9,59
Line(1,52,1,52
Line(8,55,3,55
Line(2,56,2,62
Pt-On(6,58,2    [color=blue]//draws a point in one line instead of 4[/color]
Pt-On(14,58,2  [color=blue]//ditto[/color]
Pt-On(11,56
Pt-On(9,56
Pt-On(19,52
Pt-On(13,52
Pt-On(10,52
Pt-On(7,52
Line(6,61,7,61
Line(13,61,14,61
Line(10,58,10,57
Line(29,62,44,62
Line(44,62,44,54
Line(43,53,30,53
Line(29,54,29,62
Line(30,56,43,56
Line(33,55,33,54
Line(30,53,43,53
Line(41,51,32,51
Line(29,54,32,51
Line(41,51,44,54
Pt-On(44,51
Pt-On(34,52
62
Line(46,21,46,Ans   [color=blue]//decided to use 62 instead of 21 only because[/color]
Line(47,21,47,Ans   [color=blue]//it was at the end of a line[/color]
Line(48,21,48,Ans [color=red]// For(Z,46,51[/color]
Line(49,21,49,Ans [color=red]// Line(Z,21,Z,62[/color]
Line(50,21,50,Ans [color=red]// End[/color] [color=blue]</suggestion>[/color]
Line(51,21,51,Ans
Line(52,42,52,57
Line(52,57,56,57
Line(56,57,56,42
Line(56,42,52,42
Line(56,42,59,45
Line(59,45,59,54
Line(59,54,56,57
Pt-On(57,49
Pt-On(58,50
Pt-On(58,48
Line(4,33,4,39
Line(5,39,5,33
Line(6,33,10,33
Line(10,35,6,35
Line(6,37,10,37
Line(10,39,6,39
Line(11,30,11,40
Line(12,41,13,41
Line(14,42,29,42
Line(30,41,31,41
Line(32,40,32,30
Line(38,33,38,39
Line(37,39,37,33
Line(36,33,33,33
Line(33,35,36,35
Line(36,37,33,37
Line(33,39,36,39
Line(28,37,25,37
Line(25,35,26,35
Line(27,34,27,33
Line(28,32,25,32
Line(24,33,24,34
Line(29,34,29,32
Line(27,30,24,30
Pt-On(22,30
Pt-On(23,29
Pt-On(23,31
Pt-On(17,30
Pt-On(16,31
Pt-On(16,29
Line(19,33,19,34
Line(18,34,18,34
Line(17,37,15,37
Line(28,32,27,32,0
Line(26,35,25,35
Line(31,29,31,28
Line(30,27,13,27
Line(12,28,12,29
Line(15,30,14,30
Line(14,32,15,32
Line(16,33,16,34
Line(15,35,14,35
Line(13,34,13,33
Line(0,27,5,27
Line(5,27,5,15
Line(5,15,0,15
Line(1,21,1,24
Pt-On(2,24
Pt-On(2,22
Pt-On(2,20
Pt-On(1,19
Pt-On(0,20
Line(65,30,65,24
Line(65,24,83,24
Line(83,24,83,30
Line(78,27,70,27
Line(69,28,69,29
Line(74,28,74,29
Line(68,30,80,30
Line(79,28,79,29
Pt-On(82,30
Pt-On(81,29
Pt-On(66,30
Pt-On(67,29
Line(83,59,83,62
Line(89,59,89,62
Line(94,6,94,0
Line(94,0,88,0
Line(88,0,88,6
Line(88,6,94,6
Line(91,4,91,2
Line(90,3,92,3
Line(85,61,86,62
Pt-On(87,61
Line(56,3,56,0
Line(50,0,50,3
Line(53,0,54,1
Pt-On(52,1
Line(71,36,71,39
Line(71,39,73,39
Line(74,41,74,36
Pt-On(72,37
Pt-On(73,38
Line(76,36,80,36
Line(80,36,80,39
Line(80,39,76,39
Line(77,40,77,41
Line(78,42,73,42
Line(72,44,79,44
Line(80,45,80,48
Line(80,48,71,48
Line(71,48,71,45
Pt-On(72,43
Pt-On(79,43
Line(72,36,73,36
Line(76,37,76,38
Pt-On(77,38
Pt-On(78,37
Pt-On(79,38
If 1=LSTAT(17
Then
Line(2,10,2,7,0
Pt-Off(3,8
Pt-Off(3,10
Pt-Off(3,6
Pt-Off(2,5
Pt-Off(1,6
End
If 1=LSTAT(19
Then
Pt-Off(58,48
Pt-Off(57,49
Pt-Off(58,50
End
If B=1
Then
50→A
Ans→B
End
If not(R [color=blue]// 'not(' > '=0'[/color]
Then
If A≠N and B≠M
Then
50→A
Ans→B
End
End
1→R
Pxl-On(A,B
Pxl-On(A+1,B
:
Pxl-On(A+2,B-1
:
Pxl-On(A+2,B-1
Pxl-On(A+2,B+1
Pxl-On(A-2,B
:
Pxl-On(A,B+1
Pxl-On(A,B-1
:
For(Z,5,9
While Z [color=blue]// Why is this loop here? Z is always true.[/color]
:
If K [color=blue]//'If K' > 'If K!=0'[/color]
Then
Pxl-Off(A,B
Pxl-Off(A+1,B
Pxl-Off(A+2,B-1
Pxl-Off(A+2,B+1
Pxl-Off(A-2,B
Pxl-Off(A,B-1
Pxl-Off(A,B+1
End
:
B+3((K=26 and B≠89 and not(pxl-Test(A,B+3)))-(K=24 and B≠5 and not(pxl-Test(A,B-3→B [color=blue]// Wham![/color]
:
A+3((K=34 and A≠59 and not(pxl-Test(A+3,B)))-(K=25 and A≠5 and not(pxl-Test(A-3,B→A
:
getKey→K
:
Pxl-On(A,B
Pxl-On(A+1,B
Pxl-On(A+2,B-1
Pxl-On(A+2,B+1
Pxl-On(A-2,B
Pxl-On(A,B-1
Pxl-On(A,B+1
:
If K=22
Then
A→M
B→N
End
If K=22 [color=blue]// Fixed erroneous Goto. Further redesign should see these jumps unnecessary.[/color]
Goto M6
:
If K=21
Then
ClrHome
If A=29 and (B=74 or B=77
Then
ClrHome
Output(2,1,"It's my TI-99 4A! It's older than i am but it still works, should i play it?
Input "Y/N",Str2
If Str2="Y
Goto GP [color=blue]// So much RAM ownage...[/color]
End
:
If A=14 and B=62 and 1=LSTAT(20 [color=red]//Who wants this one block?[/color]
Then
ClrHome
Output(1,1,"THIS IS WHERE MY MOTHERS RING WAS STORED
Pause
End
If A=14 and B=62 and 1≠LSTAT(20
Then
ClrHome
Output(1,1,"It's my mothers favorite jewel, she put it there long ago and its all dusty...
Pause
If 1=LSTAT(19
Then
ClrHome
Output(8,1,"DUST IT?
Input "Y/N",Str2
If Str2="Y
Then
ClrHome
Output(1,1,"It's all shiny again, im going to take it with me!
1→LSTAT(20
Pause
ClrHome
Output(1,1,"ACQUIRED MOTHERS RING [color=blue]//spelling counts![/color]
Pt-Off(58,48
Pt-Off(57,49
Pt-Off(58,50
Pause
End
End
End
If A=14 and B=35 and 1=LSTAT(21 [color=red]//Who wants this other block?[/color]
Then
ClrHome
Output(1,1,"IT'S EMPTY...
Pause
End
:
If A=14 and B=35 and 1≠LSTAT(21
Then
ClrHome
Output(1,1,"ITS OUR OLD FRIDGE, IN IT IS MY MOTHERS LAST MEAL...
Pause
ClrHome
Output(1,1,"AQUIRED LAST CASSAROLE
1→LSTAT(21
Pause
End
If A=14 and 1≠LSTAT(22) and max(B={5,8,11,14,17 [color=blue]// Testing multiple values at once.[/color]
Then
ClrHome
Output(1,1,"ITS OUR SINK, THERE IS ONLY ONE DISH
Pause
ClrHome
1→LSTAT(22
Output(1,1," got a Fork!
Pause
End
:
If A=41 and B=8     [color=blue]//Redone to use nested statements.  Left original code in red so someone can double check me. [/color]
Then [color=Limegreen][b]//This works fine; Original code removed.[/b][/color]
If 1=<span style='font-size:7pt;line-height:100%'>L</span>STAT(17
Then
"THE TABLE IS EMPTY
Else
1→LSTAT(17
"GOT THE STEREOTYPICAL RPG KEY
End
Output(1,1,Ans
Pause
End
:
If A=14 and 1=LSTAT(22) and max(B={5,8,11,14,17 [color=blue]// Same; There should be a workaround to this repetition.[/color]
Then
ClrHome
Output(1,1,"It's empty, i already took the Fork... [color=blue]// Good use of the comma! See where else it's needed.[/color]
End
If A=59 and B=53
Then
DelVar RDelVar AClrDraw [color=blue]// New lines are not needed after DelVar.[/color]
Goto M4
End
:
End
:
End
:
End
:
Lbl M4
3→LSTAT(14
ClrDraw
If not(R
Then
23→A
86→B
End
Line(17,8,21,8
Line(0,21,26,21
Line(1,10,0,10
Line(26,21,26,0
Line(26,1,25,1
Line(26,2,20,2
Line(20,1,0,1
Line(24,3,23,3
Line(23,6,23,11
Line(22,12,18,12
Pt-On(21,10
Pt-On(19,11
Pt-On(19,9
Line(17,11,17,6
Line(15,6,12,6
Line(12,6,12,12
Line(12,14,17,14
Line(17,15,18,15
Line(18,16,23,16
Line(23,15,24,15
Line(24,14,26,14
Line(20,17,21,17
Line(15,14,15,8
Line(14,7,12,7
Line(15,9,14,9
Line(13,10,14,10
Line(15,11,12,11
Line(12,12,15,12
Pt-On(13,13
Line(11,7,10,7
Line(10,8,9,8
Line(9,9,8,9
Line(8,10,4,10
Line(4,11,1,11
:
Pt-On(0,9
Line(12,13,9,13
Line(9,14,8,14
Line(8,15,5,15
Line(5,14,3,14
Line(7,15,7,17
Pt-On(6,17
Line(0,16,0,17
Pt-On(1,17
Line(3,19,6,19
Line(6,20,7,20
Line(9,19,10,19
Line(13,17,11,17
Line(16,19,17,19
Line(19,20,20,20
Line(20,19,21,19
Line(0,42,94,42
Line(20,43,18,43
Line(20,42,20,58
Pt-On(19,59
Pt-On(18,60
Pt-On(17,59
Pt-On(16,58
Pt-On(16,56
Pt-On(17,55
Pt-On(3,55
Pt-On(4,56
Pt-On(4,58
Pt-On(3,59
Pt-On(2,60
Pt-On(1,59
Line(3,61,17,61
Line(15,57,5,57
Line(0,58,0,42
Line(2,42,2,54
Line(6,53,6,42
Line(14,42,14,53
Line(6,53,14,53
Pt-On(12,49
Pt-On(8,49
Pt-On(8,45
Pt-On(12,45
Line(13,48,13,46
Line(11,44,9,44
Line(7,46,7,48
Line(9,50,11,50
Line(21,53,22,53
Pt-On(23,52
Line(24,42,24,58
Line(24,58,38,58
Line(38,58,38,42
Pt-On(39,43
Pt-On(40,44
Pt-On(41,45
Pt-On(41,61
Pt-On(40,60
Pt-On(39,59
Line(42,46,42,62
Line(42,62,28,62
Pt-On(27,61
Pt-On(26,60
Pt-On(25,59
Line(27,51,33,51
Line(27,51,27,43
Line(27,43,33,43
Line(33,43,33,51
Line(30,51,30,43
Pt-On(46,55
Pt-On(47,54
Pt-On(44,54
Pt-On(45,55
Pt-On(43,53
Line(18,43,18,54
Line(27,53,34,53
Line(27,53,27,56
Line(27,56,34,56
Line(34,56,34,53
Pt-On(32,54
Pt-On(30,54
Pt-On(29,55
Pt-On(31,55
Line(48,59,48,42
Line(48,59,51,62
Line(48,59,62,59
Line(62,59,62,42
Line(62,59,65,62
Line(65,62,51,62
Line(65,62,65,55
Line(52,54,56,58
Line(56,58,60,54
Pt-On(53,54
Pt-On(52,55
Pt-On(53,56
Pt-On(54,55
Pt-On(58,55
Pt-On(59,56
Pt-On(60,55
Pt-On(59,54
Line(58,51,58,43
Line(58,43,52,43
Line(52,43,52,51
Line(52,51,58,51
Line(55,51,55,43
Line(64,43,64,54
Line(64,54,72,62
Line(70,60,77,53
Line(77,53,77,42
Line(77,53,86,62
Line(80,62,90,52
Line(88,62,94,56
Line(94,56,90,52
Line(90,52,90,42
Line(88,43,88,50
Line(88,50,85,50
Line(85,50,85,43
Line(85,43,88,43
Line(83,45,79,45
Line(79,45,79,52
Line(79,52,83,52
Line(83,52,83,45
Line(81,45,81,52
Line(83,48,79,48
Line(75,50,75,43
Line(75,43,72,43
Line(72,43,72,50
Line(72,50,75,50
Line(70,53,70,45
Line(70,45,66,45
Line(66,45,66,53
Line(66,53,70,53
Line(68,45,68,53
Line(70,49,66,49
Pt-On(74,46
Pt-On(87,46
Pt-On(94,45
Pt-On(94,50
:
Line(94,21,56,21
Line(56,21,56,0
Line(87,0,87,19
Line(87,19,81,13
Line(87,19,71,19
Line(71,19,65,13
Line(65,13,81,13
Line(65,13,65,0
Pt-On(67,0
Pt-On(79,0
Line(79,3,79,11
Line(79,3,67,3
Line(67,3,67,11
Line(67,11,79,11
Line(73,11,73,3
Line(79,6,67,6
Pt-On(68,4
Pt-On(69,5
Pt-On(70,4
Pt-On(71,5
:
Pt-On(74,5
Pt-On(75,4
Pt-On(76,5
Pt-On(77,4
Pt-On(78,5
Pt-On(72,4
Line(67,1,79,1
Pt-On(68,8
Pt-On(69,7
Line(71,7,71,9
Pt-On(75,7
Line(77,7,77,8
If not(R
Then
If A≠N and B≠M
Then
23→A
86→B
End
End
:
For(Z,5,9
While Z [color=blue]// Another Z loop?[/color]
:
If not(K
Then
Pxl-Off(A,B
Pxl-Off(A+1,B
Pxl-Off(A+2,B-1
Pxl-Off(A+2,B+1
Pxl-Off(A-2,B
Pxl-Off(A,B-1
Pxl-Off(A,B+1
End
:
B+3((K=26 and B≠91 and not(pxl-Test(A,B+3)))-(K=24 and not(pxl-Test(A,B-3→B
:
A+3((K=34 and A≠58 and not(pxl-Test(A+3,B)))-(K=25 and A≠4 and not(pxl-Test(A-3,B→A
:
getKey→K
:
Pxl-On(A,B
Pxl-On(A+1,B
Pxl-On(A+2,B-1
Pxl-On(A+2,B+1
Pxl-On(A-2,B
Pxl-On(A,B-1
Pxl-On(A,B+1
:
If K=22
Then
A→M
B→N
Goto M6
End
:
Text(1,1,A
Text(8,1,B
:
If K=21
Then
:
If A=31 and B=7
Then
M→A
N→B
1→R
Goto M4
End
End
:
End
End

</span></span>

The amount of bytes we can save with this thing will be nothing short of stunning.

I've condensed all multiple line breaks (three or more) into double line breaks under the assumption that you had a good reason to separate the lines like you did. Unfortunately, I didn't expect to have to leave for four days on a family trip. I'll bring along a copy of this program to work with while I'm there.

By the way, you got me wanting a TI-99 4A. Best of luck to your program.

Edit(alexrudd):worked on some easy stuff in code. Commented first time I used a technique but usually not again.
Edit(Supergoose): This will be a slow-sure process. More fixes, adjustments here and there (colorized comments). Comments are now officially unrestricted (have fun). Be sure to kill the smilies each edit. Two people editing the code at once can cause problems. Take turns!
Edit(alexrudd):Did a couple more, noticed three things:
(1)Draw commands need some work with Ans and using the 3 types of Pt-On('s. gave some examples, but didn't get them all
(2)Label names. When I get time I'll use notepad or something and get rid of two-letter names.
(3)Do entires in LSTAT other than 14 have any value other than one or zero? If not, If 1=LSTAT(X is as extinct as large terrible lizards.
Edit(Supergoose): (3)The program isn't finished, so there may yet be plans for these elements. Okay, I cleaned up a bit, answered a couple questions, and offered more stuff to work on. I know the contest is on, but if you have the urge to help us out here, go for it! Especially, post a fix down below if you are unable to edit this post.


Last edited by Guest on 06 Sep 2005 02:52:27 pm; edited 1 time in total
Back to top
alexrudd
pm me if you read this


Bandwidth Hog


Joined: 06 Oct 2004
Posts: 2335

Posted: 02 Sep 2005 06:10:54 pm    Post subject:

OK, changed the original post to reflect Supergoose's condensed version. It was causing rendering problems, I saw some gray boxes for some reason.

And, yes I agree this one will take a beating. You won't recognize it at the end.



How about we use the code in supergoose's post as the "active" one? Babyboy, Supergoose, Sir Robin, Arcane, and I can all edit it, and anyone else can post their suggestiongs.


Last edited by Guest on 02 Sep 2005 06:17:13 pm; edited 1 time in total
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976

Posted: 02 Sep 2005 06:20:49 pm    Post subject:

My post screwed up the board for a second there because of an overflow error. It should look fine now. If it doesn't, then perhaps you need to switch away from Alex's Fake Browser.

My encouragement on tackling this issue would be to list what types of optimizations you make only once as you see the initial circumstances when they are found useful. For instance, when you find that you can leave a parentheses off of one line, present that detail to serve as the precedent for all other similar changes you make throughout the rest of the program. That way, we could develop this into a productive tutorial on how to shrink programs to more manageable sizes. :biggrin:


Last edited by Guest on 02 Sep 2005 06:45:09 pm; edited 1 time in total
Back to top
Babyboy


Advanced Member


Joined: 11 Jun 2003
Posts: 499

Posted: 02 Sep 2005 11:25:04 pm    Post subject:

Quote:
How about we use the code in supergoose's post as the "active" one?

sounds good


Quote:
That way, we could develop this into a productive tutorial on how to shrink programs to more manageable sizes.


THIS WILL BE THE MOTHER OF ALL EXAMPLES


what about ending quotes, i thought we left those and ( off of them for space
^
Comma
Back to top
alexrudd
pm me if you read this


Bandwidth Hog


Joined: 06 Oct 2004
Posts: 2335

Posted: 04 Sep 2005 08:09:43 pm    Post subject:

It's a pretty good guide, but still incomplete. Smile
there's probably not much point in marking parenthesis and quotes, and DelVars, etc. because they're so easy. But it doesn't hurt.
Back to top
Babyboy


Advanced Member


Joined: 11 Jun 2003
Posts: 499

Posted: 12 Sep 2005 09:55:50 pm    Post subject:

i have been bad, to much WOW and high school means to programming time, i will get back on track soon.

BTW, does anyone klnow how do disconnect brakes on a car or lower the said car closer to the ground? Smile
Back to top
AlienCC
Creative Receptacle!


Know-It-All


Joined: 24 May 2003
Posts: 1927

Posted: 12 Sep 2005 10:14:09 pm    Post subject:

Why would you want to disconnect the brakes?

--AlienCC
Back to top
DJ Omnimaga
http://i-lost-the-ga.me


Calc Guru


Joined: 14 Nov 2003
Posts: 1196

Posted: 13 Sep 2005 07:11:09 am    Post subject:

that was kinda off-topic lol... Neutral

Keep up the good work on that game, I think I played a version earlier but I didnt got too far Smile
Back to top
Babyboy


Advanced Member


Joined: 11 Jun 2003
Posts: 499

Posted: 13 Sep 2005 07:21:58 am    Post subject:

rear brakes, hot rod- power brake
Back to top
bananaman
Indestructible


Calc Guru


Joined: 12 Sep 2005
Posts: 1124

Posted: 19 Oct 2005 05:31:19 pm    Post subject:

If you're struggling with program size you could use flash gordan. Located by a search on ticalc for zflash.
Back to top
DJ Omnimaga
http://i-lost-the-ga.me


Calc Guru


Joined: 14 Nov 2003
Posts: 1196

Posted: 20 Oct 2005 08:31:55 am    Post subject:

oh yea I remember flash gordon was uploaded (illegally) at ticalc.org a while ago, ther eis also zCopy and Resource that does similar things but a bit more complicated to use, just more stable
Back to top
Jeremiah Walgren
General Operations Director


Know-It-All


Joined: 24 May 2003
Posts: 1937

Posted: 20 Oct 2005 09:09:28 am    Post subject:

What's Flash Gordon?
Back to top
0oruneo0


Member


Joined: 01 May 2005
Posts: 112

Posted: 20 Oct 2005 03:02:56 pm    Post subject:

I believe it is a program that runs BASIC program that are archived. The syntax (I think) is similar to:

Code:
"PRGMNAME
Asm(FGORDON;or whatever the program name is


I use prgmZRUN which runs the program whos name is in Str0, so I'm not positive.
Back to top
elfprince13
Retired


Super Elite (Last Title)


Joined: 11 Apr 2005
Posts: 3500

Posted: 20 Oct 2005 03:10:01 pm    Post subject:

Kevin wrote:
oh yea I remember flash gordon was uploaded (illegally) at ticalc.org a while  ago, there are also zCopy and Resource that does similar things but a bit more complicated to use, just more stable  [post="59181"]<{POST_SNAPBACK}>[/post]


aren't you the one who uploaded it? Smile


Last edited by Guest on 20 Oct 2005 05:22:40 pm; edited 1 time in total
Back to top
Babyboy


Advanced Member


Joined: 11 Jun 2003
Posts: 499

Posted: 06 Nov 2005 04:43:53 pm    Post subject:

why cant someone jssut use Archive and Unarchive commands instead of some other prgram?
Back to top
Justin W.
Shattered Silence


Advanced Member


Joined: 24 May 2003
Posts: 429

Posted: 06 Nov 2005 06:00:44 pm    Post subject:

The reason for this is. Archive prgmNAME or UnArchive prgmNAME are not valid commands in TI-Basic. Assembler is the only way to bypass this problem.
Back to top
Display posts from previous:   
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
    » Goto page 1, 2  Next
» View previous topic :: View next topic  
Page 1 of 2 » All times are GMT - 5 Hours

 

Advertisement