校园风云录二_内测

统治西方

那个。。。开放下载的测试叫公测。。。

快快向前飞

好啦，支持支持！！

暗影

做个LAVA吧，BAS的局限性毕竟大了些

zjjerry413

顶一下！！！！！

一捧米

157 IF I = 1  THEN PL = 40P = 25M = 30A = 12:PI = 14:PQ = 15
158 IF I = 2  THEN PL = 30:PP = 35:PM = 35:PA = 8:PI = 15:PQ = 10
159 IF I = 3  THEN PL = 60:PP = 30:PM = 10:PA = 15:PI = 8:PQ = 8
160 IF I = 4  THEN PL = 55:PP = 40:PM = 5:PA = 16:PI = 5:PQ = 10
161 IF I = 5  THEN PL = 35:PP = 40:PM = 25:PA = 12:PI = 12:PQ = 10
162 IF I = 6  THEN PL = 40:PP = 40:PM = 20:PA = 13:PI = 10:PQ = 11
163 IF I = 7  THEN PL = 40:PP = 35:PM = 25:PA = 13:PI = 13:PQ = 10
164 IF I = 8  THEN PL = 35:PP = 25:PM = 40:PA = 10:PI = 10:PQ = 16
165 IF I = 9  THEN PL = 45:PP = 35:PM = 20:PA = 10:PI = 10:PQ = 10
166 IF I = 10  THEN PL = 45:PP = 30:PM = 80:PA = 8:PI = 8:PQ = 8
167 IF I = 11  THEN PL = 50:PP = 40:PM = 10:PA = 20:PI = 8:PQ = 5
168 IF I = 12  THEN PL = 45:PP = 20:PM = 35:PA = 11:PI = 15:PQ = 10
169 IF I = 13  THEN PL = 30:PP = 35:PM = 35:PA = 12:PI = 12:PQ = 12
170 IF I = 14  THEN PL = 50:PP = 30:PM = 20:PA = 16:PI = 8:PQ = 8
171 IF I = 15  THEN PL = 25:PP = 30:PM = 45:PA = 8:PI = 12:PQ = 14
172 IF I = 16  THEN PL = 30:PP = 45:PM = 25:PA = 7:PI = 7:PQ = 20
173 IF I = 17  THEN PL = 20:PP = 20:PM = 60:PA = 5:PI = 20:PQ = 8
174 IF I = 18  THEN PL = 30:PP = 20:PM = 50:PA = 8:PI = 16:PQ = 8
175 IF I = 19  THEN PL = 45:PP = 70:PM = 5:PA = 14:PI = 6:PQ = 15
176 IF I = 20  THEN PL = 20:PP = 45:PM = 35:PA = 9:PI = 14:PQ = 9

天呐，你又想做巨型文件么？
这样在WQX上不能修改，很麻烦的……

一捧米

310 IF PX < 1  THEN PX = 19:X = 19:T = T - 1: GOTO 200
311 IF PX > 19  THEN PX = 1:X = 1:T = T + 1: GOTO 200
312 IF PY > 4  THEN PY = 1:Y = 1:T = T + 3: GOTO 200
313 IF PY < 1  THEN PY = 4:Y = 4:T = T - 3: GOTO 200

这几句，把GOTO 200最后另放一句就行了，不用每句话都写……
改成这样：

310 IF PX < 1  THEN PX = 19:X = 19:T = T - 1
311 IF PX > 19  THEN PX = 1:X = 1:T = T + 1
312 IF PY > 4  THEN PY = 1:Y = 1:T = T + 3
313 IF PY < 1  THEN PY = 4:Y = 4:T = T - 3
314 GOTO 200

一捧米

315 IF RR = 67  THEN PX = XY = Y: GOTO 400
316 IF RR = 68  THEN PX = XY = Y: GOTO 1398
317 IF RR = 69  THEN PX = XY = Y: GOTO 1420
318 IF RR > = 71  AND RR < = 73  THEN PX = X:PY = Y
321 IF RR = 75  THEN PX = X:PY = Y
322 IF RR = 76  THEN PX = X:PY = Y: GOTO 1201
323 IF RR = 77  THEN PX = X:PY = Y: GOTO 8220
324 IF RR = 78  THEN PX = X:PY = Y: GOTO 8300
325 IF RR = 79  THEN 4905
326 IF RR = 80  THEN 4950
327 IF RR = 81  THEN 4995
328 IF RR = 82  THEN PX = X:PY = Y: GOTO 500
359 IF RR > = 97  THEN PX = X:PY = Y: GOTO 7000
380 X = PX:Y = PY:SS = RND(1)

还有这些……我真汗了……
可以改成：
315 IF RR>78 AND RR<92  THEN ON RR+79 GOTO 4905,4950,4995
316 PX=X:PY=Y
317 ON RR+67 GOTO 400,1398,1420,(中间缺几个),1201,8220,8300,0,0,0,500,7000

从这里来看，你的数据结构安排有问题，导致简化起来都很烦琐……

bbc0556

支持个!
做成LAVA的会更有可玩度的

sargehsy

引用第6楼一捧米于2007-06-21 02:52发表的“”:
310 IF PX < 1  THEN PX = 19:X = 19:T = T - 1: GOTO 200
311 IF PX > 19  THEN PX = 1:X = 1:T = T + 1: GOTO 200
312 IF PY > 4  THEN PY = 1:Y = 1:T = T + 3: GOTO 200
313 IF PY < 1  THEN PY = 4:Y = 4:T = T - 3: GOTO 200

.......

如果GOTO 200放在最后,那么不管条件是否符合,都GOTO 200.

第JJ天堂

其实SAR那样写大是大了点，但看的更明白，结构更清晰啊。

sargehsy

别叫ＳＡＲ可以不，我感觉这是当年Ｘ寇对我的蔑称．

DenZh-TP

可以哈

去测试了

统治西方

引用第12楼sargehsy于2007-06-21 11:49发表的“”:
别叫ＳＡＲ可以不，我感觉这是当年Ｘ寇对我的蔑称．

这不是蔑称。偶是听别人这样简称的
简称而已 你自己可千万别把自己的简称也给想歪歪了。

kugaoyang

开放下载的测试叫公测吧？
┌┬┐─┬┐┌────┐
　│┌─┴╮　　　　　│
　││　││　　　╭─╯
　││　││　　　│　　
┌│╰　│┘　　　│　　
╰╯└─╯┘　╰─┘　　

一捧米

我说的方法是用公式法，哪个快？

tuyang

不管怎么，顶了

tuyang

滴滴答答滴滴答答得到

markliteng

TC808上运行安装BAS,结果死机了