CASIO 5800P 计算器游戏--猜数字游戏原代码
我编的计算器小游戏--猜数字游戏
LbI I "xxGUESS NUMBERxx xPROGRAMMER:JCHx ---------------- START>>>>>>>[EXE]"◢ LbI Q "xxxDIFFICULTYxxx [1EASY] [2MIDDLE] [3HARD]"?→N: N=1=>GOTO N:N=2=>GOTO O: N=3=>GOTO P:GOTO Q LbI P:5→N:GOTO G LbI O:10→N:GOTO G LbI N:20→N: LbI G RanInt#(1,9)→A LbI C:RanInt#(0,9)→B: B=A=>GOTO C LbI D:RanInt#(0,9)→C:C=A Or C=B=>GOTO D LbI E:RanInt#(0,9)→D: D=A Or D=B Or D=C=>GOTO E N→M LbI 9 "PLEASE INPUT A FOOR PLACE NUMBER" LbI 1:"THOUSAND"?→G:G= 482129314=>GOTO L:G=413921284 =>GOTO M:LbI Y:1≤G And G≤9 =>GOTO 2:"WRONG!":GOTO 1 LbI 2 LbI 3:"HUNDRED"?→H: 0≤H And H≤9 And H≠G=> GOTO 4:"WRONG!":GOTO 3: LbI 4 LbI 5:"TEN"?→I:0≤I And I≤9 And I≠G And I≠H=>GOTO 6: "WRONG!":GOTO 5:LbI 6 LbI 7:"INGIVIDUAL"?→J: 0≤J And J≤9 And J≠G And J≠H And J≠I=>GOTO 8: "WRONG!":GOTO 7:LbI 8 "YOU CHOOSE NUMBER IS":1000G+100H+10I+J◢ 0→K:0→L G=A=>Isz K:G=B=>Isz L:G=C =>Isz L:G=D=>Isz L H=B=>Isz K:H=A=>Isz L:H=C =>Isz L:H=D=>Isz L I=C=>Isz K:I=A=>Isz L:I=B =>Isz L:I=D=>Isz L J=D=>Isz K:J=A=>Isz L:J=B =>Isz L:J=C=>Isz L CLS Locate 1,2,"A=" Locate 3,2,K Locate 6,2,"B=" Locate 8,2,L Locate 10,2,"FREE=" Locate 15,2,M-1 Locate 1,1,"NUMBER=" Locate 13,1,1000G+100H+10I+J◢ CLS Dsz M=GOTO A "TRUE ANSWER:" 1000A+100B+10C+D◢ LbI M "xxxxxxxxxxxxxxxx xxxxGAME OVERxxx xxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx"◢ GOTO H LbI A:K=4=>GOTO B:GOTO 9: LbI B:LbI L "xxxxxxxxxxxxxxxx xxxxxYOU WIN!xxxx xxxxxxxxxxxxxxxx"◢ GOTO H:LbI H:LbI K "xxxPLAY AGAIN?xxx xxxxxxxxxxxxxxxxxx [1YES] [2NO]"?→O: O=1=>GOTO I:O=2=>GOTO J: GOTO K:LbI J:"GOOD BEY!": STOP
因为我的 5800P丢了,所以以后只能看这个来回忆我的计算器了,我还写了几个其他的游戏,但都不是太好玩就不打上来了,不过我还写过一个秒表的程序,这个秒表很小,大概也就60行左右,但我耗费的经历和时间一点也不比这个猜数游戏少,所以改天我再把秒表程序发上来了。
其实我也并不指望谁来看,有时间自己看看就行了,只是想记录下来我曾经做过的东西,因为写到本上早晚会弄的不知道到哪去,所以写到这里就不会丢了吧。
——原文发表于2008年3月26日
时间: 2024-09-30 15:58:25