吞食天地II 发表于 2009-12-25 15:12:38

老虎杠子鸡

罕见的GVBASIC游戏，最新制作。
全机型通用！:loveliness:

MOONYUP 发表于 2009-12-25 16:21:28

啊……
果然是全机型通用，比我还恶搞……

[ 本帖最后由 MOONYUP 于 2009-12-31 20:34 编辑 ]

Amlo 发表于 2009-12-25 16:48:41

全代码:loveliness:
0 :
10 GOTO 20
20 A$(0)=""
21 A$(1)=""
22 A$(2)=""
23 A$(3)=""
30 CP%=RND(1)*4:CLS
35 IF I$=CHR$(27) THEN PRINT "有种继续!!!":END
40 PRINT "亮绝招吧!!","1 2 3 4"
50 I$=INKEY$
55 IF I$=CHR$(27) THEN PRINT "有种继续!!!":END
60 PP%=(I$="b")+(I$="n")*2+(I$="m")*3+(I$="g")*4-1
70 IF PP%=-1 THEN 50
80 PRINT A$(PP%);" VS ";A$(CP%);
90 IF PP%-CP%=1 OR PP%-CP%=-3 THEN PRINT " 赢了!牛!":I$=INKEY$:30
100 IF PP%-CP%=-1 OR PP%-CP%=3 THEN PRINT " 输了!衰!":I$=INKEY$:30
110 PRINT " 平手!!":I$=INKEY$: GOTO 30

FantasyDR 发表于 2009-12-30 10:41:55

嗯嗯，很精简嘛。

xiejun 发表于 2010-5-2 03:39:08

上图啊
页: [1]
查看完整版本: 老虎杠子鸡