[原创。。] 俄罗斯方块修改器

天琊

EROS很久没玩了，还是支持以下吧

西湖绿雨

好久不见BASIC的东西了

POTO

来支持一下!

澜心飞扬

支持一下! 感觉不错~

POTO

149 PRINT "修改完毕,去看看吧!":GOTO 1000
1000 CLSRINT "谢谢您的使用，本软件作者ly3715,QQ:100185918":END
------------
你是不是把中间的东西删了~
要不是的话^你不觉得这是多此一举么

Swain

139 PRINT "修改完毕,去看看吧!":H$=INKEY$:GOTO 1000
149 PRINT "修改完毕,去看看吧!":I$=INKEY$:GOTO 1000
看看吧.....

ly3715

小弟初学BAS,为了向同学炫耀俄罗斯方块的分数，所以做了这个修改器。。。实在班门弄斧了。。。希望大家不要笑我。。。
PS:本人俄罗斯方块真实最高分是6607。。。。
主要能修改NC1020(N),NC2000A/C,NC2600C,PC1000,PC2000A,CC800,CC8800A的分数，用法：先用修改器把分数改成0，然后去游戏，得一分后自杀，输入最高分得姓名，再去修改最高分就行了，NC1020(N),NC2000A/C,NC2600C以测试通过，其他的PC,CC系列只是看了资料的地址，没有测试过。。。。


1 GRAPH
2 CLSRINT "*****方块修改器*****"
3 PRINT TAB (6);"1.NC系列",TAB (6);"2.PC系列",TAB (6);"3.CC系列"
4 PRINT " ****ly3715出品****";:A$=INKEY$
6 IF A$="b" THEN 10
7 IF A$="n" THEN 21
8 IF A$="m" THEN 30
9 IF A$=CHR$(27)THEN 1000
10 CLSRINT "*******NC系列*******"
12 PRINT "  1.NC1020(n)"
13 PRINT "  2.NC2000A/C"
14 PRINT "  3.NC2600C"
16 B$=INKEY$:IF B$="b" THEN 110
17 IF B$="n" THEN 120
18 IF B$="m" THEN 91
20 IF B$=CHR$(27)THEN 1000
21 CLSRINT "*******PC系列*******"
22 PRINT "  1.PC1000"
23 PRINT "  2.PC2000A"
24 C$=INKEY$
25 IF C$="b" THEN 130
26 IF C$="n" THEN 140
27 IF C$=CHR$(27)THEN 1000
30 CLS:PRINT "*******CC系列*******"
32 PRINT "  1.CC800"
33 PRINT "  2.CC8800A"
34 D$=INKEY$
35 IF D$="b" THEN 130
36 IF D$="n" THEN 110
37 IF D$=CHR$(27)THEN 1000
91 CLS:PRINT "请输入最高分(0-65535)"
92 INPUT X
93 IF X<256 THEN POKE 1544,X :POKE 1545,0 ;GOTO 100
94 IF X>=256 THEN Y=X/256
95 Z=INT(Y)
96 H=X-256*Z
97 POKE 1545,Z
98 POKE 1544,H
99 GOTO 100
100 PRINT "修改完毕,去看看吧!":E$=INKEY$:GOTO 1000
110 CLS:PRINT "请输入最高分(0-65535)"
111 INPUT X
112 IF X<256 THEN POKE 1263,X :POKE 1264,0 ;GOTO 119
113 IF X>=256 THEN Y=X/256
114 Z=INT(Y)
115 H=X-256*Z
116 POKE 1264,Z
117 POKE 1263,H
118 GOTO 119
119 PRINT "修改完毕,去看看吧!":F$=INKEY$:GOTO 1000
120 CLS:PRINT "请输入最高分(0-65535)"
121 INPUT X
122 IF X<256 THEN POKE 1542,X :POKE 1543,0 ;GOTO 129
123 IF X>=256 THEN Y=X/256
124 Z=INT(Y)
125 H=X-256*Z
126 POKE 1543,Z
127 POKE 1542,H
128 GOTO 129
129 PRINT "修改完毕,去看看吧!":G$=INKEY$:GOTO 1000
130 CLS:PRINT "请输入最高分(0-65535)"
131 INPUT X
132 IF X<256 THEN POKE 1435,X :POKE 1436,0 ;GOTO 139
133 IF X>=256 THEN Y=X/256
134 Z=INT(Y)
135 H=X-256*Z
136 POKE 1436,Z
137 POKE 1435,H
138 GOTO 139
139 PRINT "修改完毕,去看看吧!":H$=INKEY$:GOTO 1000
140 CLS:PRINT "请输入最高分(0-65535)"
141 INPUT X
142 IF X<256 THEN POKE 1597,X :POKE 1598,0 ;GOTO 149
143 IF X>=256 THEN Y=X/256
144 Z=INT(Y)
145 H=X-256*Z
146 POKE 1598,Z
147 POKE 1597,H
148 GOTO 149
149 PRINT "修改完毕,去看看吧!":I$=INKEY$:GOTO 1000
1000 CLS:PRINT "谢谢您的使用，本软件作者ly3715,QQ:100185918":END


谢谢大大的提醒，已经修改完毕