老虎杠子鸡

吞食天地II

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

MOONYUP

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

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

Amlo

全代码
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

嗯嗯，很精简嘛。

xiejun

上图啊