fixed bug that didint allow American Football to be played

amigojapan · May 10, 2012 · 8532f1a · 8532f1a
1 parent 1b0cb00
commit 8532f1a
Show file tree

Hide file tree

Showing 3 changed files with 398 additions and 347 deletions.
diff --git a/BASIC_examples/AmericanFootball.BAS b/BASIC_examples/AmericanFootball.BAS
@@ -5,182 +5,198 @@
 5 PRINT "YOU LOST TOSS"
 6 REM  when O is 1 player is on the offence 0 is on deffence
 7 O=0
-8 GOTO 57
+8 GOTO 58
 9 REM wintoss:
 10 PRINT "YOU WON TOSS"
 11 PRINT "[ENTER] TO CONTINUE"
 12 INPUT Q
 13 REM  when O is 1 player is on the offence 0 is on deffence
 14 O=1
-15 GOTO 57
+15 GOTO 58
 16 REM menu:
-17 L=T
+17 IF D=5 THEN 142
-18 T=L+1
+18 L=T
-19 REM success downs in one game
+19 T=L+1
-20 IF T=120 THEN 176
+20 REM 120 downs in one game
-21 REM info:
+21 IF T=120 THEN 192
-22 PRINT "Score,YOU,COMP:"
+22 REM info:
-23 PRINT A
+23 PRINT "Score,YOU,COMP:"
-24 PRINT B
+24 PRINT A
-25 PRINT "[ENTER] TO CONTINUE"
+25 PRINT B
-26 INPUT Q
+26 PRINT "[ENTER] TO CONTINUE"
-27 PRINT "Down,Yard"
+27 INPUT Q
-28 PRINT D
+28 PRINT "Down,Yard"
-29 PRINT E
+29 PRINT D
-30 PRINT "[ENTER] TO CONTINUE"
+30 PRINT E
-31 INPUT Q
+31 PRINT "[ENTER] TO CONTINUE"
-32 PRINT "1stDn,Turn of 120"
+32 INPUT Q
-33 C=F-E
+33 PRINT "1stDn,Turn of 120"
-34 PRINT C
+34 C=F-E
-35 PRINT T
+35 PRINT C
-36 PRINT "[ENTER] TO CONTINUE"
+36 PRINT T
-37 INPUT Q
+37 PRINT "[ENTER] TO CONTINUE"
-38 IF O=0 THEN 159
+38 INPUT Q
-39 PTINT "1)LONG PASS 3)RUN"
+39 IF O=0 THEN 175
-40 PTINT "2)SHORTPASS 4)PUNT"
+40 PTINT "1)LONG PASS 3)RUN"
-41 PTINT "5)FIELD GOAL6)INFO"
+41 PTINT "2)SHORTPASS 4)PUNT"
-42 INPUT Q
+42 PTINT "5)FIELD GOAL6)INFO"
-43 X=1
+43 INPUT Q
-44 Y=100+1
+44 X=1
-45 N=RND
+45 Y=100
-46 IF Q=1 THEN 69
+46 N=RND
-47 IF Q=2 THEN 73
+47 IF Q=1 THEN 70
-48 IF Q=3 THEN 79
+48 IF Q=2 THEN 76
-49 IF Q=4 THEN 83
+49 IF Q=3 THEN 82
-50 IF Q=5 THEN 93
+50 IF Q=4 THEN 88
-51 IF Q=6 THEN 21
+51 IF Q=5 THEN 98
-52 PRINT "INCORRECT INPUT"
+52 IF Q=6 THEN 22
-53 PRINT "MUST INPUT 1 TO 6"
+53 PRINT "INCORRECT INPUT"
-54 PRINT "[ENTER] TO CONTINUE"
+54 PRINT "MUST INPUT 1 TO 6"
-55 INPUT Q
+55 PRINT "[ENTER] TO CONTINUE"
-56 GOTO 16
+56 INPUT Q
-57 REM kickoff:
+57 GOTO 16
-58 PRINT "KICKOFF"
+58 REM kickoff:
-59 PRINT "[ENTER] TO CONTINUE"
+59 PRINT "KICKOFF"
-60 INPUT Q
+60 PRINT "[ENTER] TO CONTINUE"
-61 REM E is for Yard, start the down with a distance from 1 to 30
+61 INPUT Q
-62 Y=1
+62 REM E is for Yard, start the down with a distance from 1 to 30
-63 X=30+1
+63 Y=1
-64 E=RND
+64 X=30+1
-65 F=E+10
+65 E=RND
-66 REM D is for Down
+66 F=E+10
-67 D=1
+67 REM D is for Down
-68 GOTO 16
+68 D=1
-69 REM longpass:
+69 GOTO 16
-70 PRINT "LONG PASS"
+70 REM longpass:
-71 IF N<10 THEN 120
+71 PRINT "LONG PASS"
-72 GOTO 112
+72 X=50
-73 REM shortpass:
+73 Y=100
-74 PRINT "SHORT PASS"
+74 IF N<10 THEN 125
-75 X=1
+75 GOTO 117
-76 Y=50+1
+76 REM shortpass:
-77 IF N<25 THEN 120
+77 PRINT "SHORT PASS"
-78 GOTO 112
+78 X=1
-79 REM run:
+79 Y=50
-80 PRINT "RUN"
+80 IF N<25 THEN 125
-81 IF N<50 THEN 120
+81 GOTO 117
-82 GOTO 112
+82 REM run:
-83 REM punt:
+83 PRINT "RUN"
-84 REM I dont know how 83 works
+84 X=1
-85 PRINT "PUNT"
+85 Y=100
-86 Y=1
+86 IF N<50 THEN 125
-87 X=50+1
+87 GOTO 117
-88 E=RND
+88 REM punt:
-89 F=E+10
+89 REM I dont know how 88 works
-90 REM D is for Down
+90 PRINT "PUNT"
-91 D=1
+91 Y=1
-92 GOTO 137
+92 X=50+1
-93 REM fieldgoal:
+93 E=RND
-94 PRINT "FIELD GOAL"
+94 F=E+10
-95 REM I gotta ask if this is corrrect, I think it it wrong
+95 REM D is for Down
-96 X=1
+96 D=1
-97 Y=100+1
+97 GOTO 142
-98 N=RND
+98 REM fieldgoal:
-99 IF N<50 THEN 102
+99 PRINT "FIELD GOAL"
-100 PRINT "FAILED"
+100 REM I gotta ask if this is corrrect, I think it it wrong
-101 GOTO 137
+101 X=1
-102 REM fielgoal120:
+102 Y=100+1
-103 PRINT "SUCCEDED"
+103 N=RND
-104 IF O=1 THEN 108
+104 IF N<50 THEN 107
-105 L=B
+105 PRINT "FAILED"
-106 B=L+2
+106 GOTO 142
-107 GOTO 137
+107 REM fielgoal125:
-108 REM add2pointsplayer:
+108 PRINT "SUCCEDED"
-109 L=A
+109 IF O=1 THEN 113
-110 A=L+2
+110 L=B
-111 GOTO 137
+111 B=L+2
-112 REM f159l:
+112 GOTO 142
-113 PRINT "FAILED"
+113 REM add2pointsplayer:
-114 PRINT "[ENTER] TO CONTINUE"
+114 L=A
-115 INPUT Q
+115 A=L+2
-116 REM L is a temporary variable cause D=D+1 doesnt seem to work
+116 GOTO 142
-117 L=D
+117 REM f175l:
-118 D=L+1
+118 PRINT "FAILED"
-119 GOTO 16
+119 PRINT "[ENTER] TO CONTINUE"
-120 REM success:
+120 INPUT Q
-121 PRINT "SUCCEDED"
+121 REM L is a temporary variable cause D=D+1 doesnt seem to work
-122 PRINT "[ENTER] TO CONTINUE"
+122 L=D
-123 INPUT Q
+123 D=L+1
-124 N=RND
+124 GOTO 16
-125 REM P is previous line of scrimmage
+125 REM success:
-126 P=E
+126 PRINT "SUCCEDED"
-127 L=E
+127 PRINT "[ENTER] TO CONTINUE"
-128 E=L+N
+128 INPUT Q
-129 IF E>99 THEN 148
+129 N=RND
-130 N=F+10
+130 REM P is previous line of scrimmage
-131 IF E>N THEN 144
+131 P=E
-132 REM L is a temporary variable cause D=D+1 doesnt seem to work
+132 L=E
-133 L=D
+133 E=L+N
-134 D=L+1
+134 IF E>99 THEN 153
-135 IF D>4 THEN 137
+135 N=F+10
-136 GOTO 16
+136 IF E>N THEN 149
-137 REM ballchangesides:
+137 REM L is a temporary variable cause D=D+1 doesnt seem to work
-138 IF O=1 THEN 141
+138 L=D
-139 O=1
+139 D=L+1
-140 GOTO 57
+140 IF D>4 THEN 142
-141 REM setdeffence:
+141 GOTO 16
-142 O=0
+142 REM ballchangesides:
-143 GOTO 57
+143 IF O=1 THEN 146
-144 REM downone:
+144 O=1
-145 D=1
+145 GOTO 58
-146 F=E+10
+146 REM setdeffence:
-147 GOTO 16
+147 O=0
-148 REM touchdown:
+148 GOTO 58
-149 PRINT "TOUCHDOWN!"
+149 REM downone:
-150 REM add extra point
+150 D=1
-151 IF O=1 THEN 155
+151 F=E+10
-152 L=B
+152 GOTO 16
-153 B=L+6
+153 REM touchdown:
-154 GOTO 137
+154 PRINT "TOUCHDOWN!"
-155 REM add6pointsplayer:
+155 IF O=1 THEN 165
-156 L=A
+156 L=B
-157 A=L+6
+157 B=L+6
-158 GOTO 137
+158 PRINT "EXTRA POINT"
-159 REM ai:
+159 X=1
-160 REM ask my father how the computer should play
+160 Y=2
-161 PRINT "COMPUTER MOVE"
+161 N=RND
-162 IF D<4 THEN 165
+162 L=B
-163 IF E>80 THEN 93
+163 B=L+N
-164 IF E<60 THEN 83
+164 GOTO 142
-165 REM notfourth:
+165 REM add6pointsplayer:
-166 X=1
+166 L=A
-167 Y=3
+167 A=L+6
-168 N=RND
+168 PRINT "EXTRA POINT"
-169 IF E<50 THEN 171
+169 X=1
-170 IF N=2 THEN 73
+170 Y=2
-171 REM noshotrpass:
+171 N=RND
-172 IF D<3 THEN 79 
+172 L=A
-173 IF N=1 THEN 69
+173 A=L+N
-174 IF N=2 THEN 69
+174 GOTO 142
-175 IF N=3 THEN 79
+175 REM ai:
-176 REM gameover:
+176 REM ask my father how the computer should play
-177 PRINT "GameOver,YOU,COMP:"
+177 PRINT "COMPUTER MOVE"
-178 PRINT A
+178 IF D<4 THEN 181
-179 PRINT B
+179 IF E>80 THEN 98
-180 PRINT "[ENTER] TO CONTINUE"
+180 IF E<60 THEN 88
-181 INPUT Q
+181 REM notfourth:
-182 IF A>B THEN 185
+182 X=1
-183 PRINT "COMPUTER WINS"
+183 Y=3
-184 END
+184 N=RND
-185 REM wingame:
+185 IF E<50 THEN 187
-186 PRINT "YOU WIN"
+186 IF N=2 THEN 76
+187 REM noshotrpass:
+188 IF D<3 THEN 82 
+189 IF N=1 THEN 70
+190 IF N=2 THEN 70
+191 IF N=3 THEN 82
+192 REM gameover:
+193 PRINT "GameOver,YOU,COMP:"
+194 PRINT A
+195 PRINT B
+196 PRINT "[ENTER] TO CONTINUE"
+197 INPUT Q
+198 IF A>B THEN 201
+199 PRINT "COMPUTER WINS"
+200 END
+201 REM wingame:
+202 PRINT "YOU WIN"