Qbasic编译的游戏

CLS街3633号

输入“多少？”，抄送

如果cc MOD 2 = 0，则为333

dd = cc \ 2 + 1

CLS

随机化计时器

打印“1:ROCK”，“2:SISSOR”，“3:PAPER”

直到x = dd或y = dd

i = INT(RND * 3)

选择案例一

案例0

a$ = "r "

案例1

一个$ = "s "

案例2

a$ = "p "

结束选择

直到c$ = "1 "或c$ = "2 "或c$ = "3 "

c$ = INKEY$

环

选择案例c$

案例“1”

b$ = "r "

案例“2”

b$ = "s "

案例“3”

b$ = "p "

结束选择

c$ = " "

如果a$ = b$那么

打印“领带”，

那么如果a$ = "r "和b$ = "s "

打印“失败”，:x = x + 1

那么如果a$ = "s "和b$ = "p "

打印“失败”，:x = x + 1

否则如果a$ = "p "和b$ = "r "

打印“失败”，:x = x + 1

ELSEIF (a$ = "r "和b$ = "p ")或(a$ = "p "和b$ = "s ")或(a$ = "s "和b$ = "r ")然后

打印“WIN”，:y = y + 1

如果…就会结束

如果a$ = "r "那么

一块$ = "石头"

那么ELSEIF a$ = "s "

a$ = "SISSOR "

其他

一张$ = "纸"

如果…就会结束

如果b$ = "r ",那么

b$ = "摇滚"

那么ELSEIF b$ = "s "

b$ = "SISSOR "

其他

b$ = "纸张"

如果…就会结束

打印“你”:乙元，

打印“Com”:一美元

环

打印y；":";x

如果x = dd，则

打印“你输了”

那么ELSEIF y = dd

打印“你赢了”

如果…就会结束

打印标签(30)；:打印“要不要再玩一次？”

打印标签(30)；:打印“1:是3:否”

直到g$ = "1 "或g$ = "3 "

g$ = INKEY$

如果g$ = "1 "那么

g$ = "": x = 0: y = 0: GOTO 333

那么ELSEIF g$ = "3 "

结束

如果…就会结束

环