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 |