CLS
SCREEN 12
RANDOMIZE TIMER
x = 320: y = 240: z = 1: a = 30: b = 5: n = 45: m = 25: g = 600: h = 30
DIM v(4, 16)
FOR i = 1 TO 16
READ v(1, i)
NEXT i
DATA 30,0,30,-2,30,2,30,0,40,2,50,0,40,-2,30,0
FOR i = 1 TO 16
IF i MOD 2 = 1 THEN v(2, i) = v(1, i + 1): v(2, i + 1) = v(1, i)
v(3, i) = v(1, i)
IF i MOD 2 = 1 THEN v(3, i) = -(v(3, i))
v(4, i) = v(2, i)
IF i MOD 2 = 0 THEN v(4, i) = -(v(4, i))
NEXT i
FOR i = 1 TO 4
FOR j = 1 TO 4
READ p(i, j)
NEXT j, i
DATA -2,2,0,40,0,40,-2,2,-2,2,-40,0,-40,0,-2,2
DO
CIRCLE (a, b), 2, 14
CIRCLE (n, m), 5, 6
CIRCLE (g, h), 5, 6
LINE (x, y)-(x + v(z, 1), y + v(z, 2)), 4
LINE (x + v(z, 3), y + v(z, 4))-(x + v(z, 5), y + v(z, 6)), 4
LINE (x + v(z, 7), y + v(z, 8))-(x + v(z, 9), y + v(z, 10)), 4
LINE -(x + v(z, 11), y + v(z, 12)), 4
LINE -(x + v(z, 13), y + v(z, 14)), 4
LINE -(x + v(z, 15), y + v(z, 16)), 4
IF (a > x - 3 AND a < x + 3) AND (b > y - 3 AND b < y + 3) THEN PRINT "Gryffindor win": FOR i = 1 TO 100000: NEXT i: END
FOR i = 1 TO 100000: NEXT i
CIRCLE (a, b), 2, 0
CIRCLE (n, m), 5, 0
CIRCLE (g, h), 5, 0
LINE (x, y)-(x + v(z, 1), y + v(z, 2)), 0
LINE (x + v(z, 3), y + v(z, 4))-(x + v(z, 5), y + v(z, 6)), 0
LINE (x + v(z, 7), y + v(z, 8))-(x + v(z, 9), y + v(z, 10)), 0
LINE -(x + v(z, 11), y + v(z, 12)), 0
LINE -(x + v(z, 13), y + v(z, 14)), 0
LINE -(x + v(z, 15), y + v(z, 16)), 0
w = INT(RND * 3) - 1: s = INT(RND * 3) - 1
a = a + w * 5: b = b + s * 5
n = n + w * 4: m = m + s * 4
g = g + w * 4: h = h + s * 4
IF a < 0 OR a > 640 OR b < 0 OR b > 480 THEN a = a - w * 5: b = b - s * 5
IF (ABS(a - x) + ABS(b - y)) < (ABS(a - w * 5 - x) + ABS(b - s * 5 - y)) THEN a = a - w * 5: b = b - s * 5
IF (ABS(n - x) + ABS(m - y)) > (ABS(n - w * 4 - x) + ABS(m - s * 4 - y)) THEN n = n - w * 4: m = m - s * 4
IF (ABS(g - x) + ABS(h - y)) > (ABS(g - w * 4 - x) + ABS(h - s * 4 - y)) THEN g = g - w * 4: h = h - s * 4
k$ = INKEY$
q = x + p(z, 3): e = x + p(z, 4): r = y + p(z, 1): t = y + p(z, 2)
IF n > q AND n < e AND m > r AND m < t THEN n = n - w * 4: m = m - s * 4: GOTO 10
IF g > q AND g < e AND h > r AND h < t THEN g = g - w * 4: h = h - s * 4: GOTO 10
IF UCASE$(k$) = "W" THEN z = 2: y = y - 6
IF UCASE$(k$) = "A" THEN z = 1: x = x - 6
IF UCASE$(k$) = "S" THEN z = 4: y = y + 6
IF UCASE$(k$) = "D" THEN z = 3: x = x + 6
IF k$ = CHR$(27) THEN END
10 LOOP
一个好玩的游戏

你学编程就为了游戏啊

CLS
RANDOMIZE TIMER
PRINT "jian dao,bao fu ,chui you xi shuo ming:"
PRINT "jian dao: 3,bao fu: 2,chui: 1"
REM "a=int(rnd*3+1) shi ran jian nao sui ji chan sheng 1 ge shu"
a = INT(RND * 3 + 1)
PRINT
PRINT "you xi kai shi,ni zhui bei hao le ma?"
PRINT
PRINT "dian nao yi jing zhun bei hao!"
100 INPUT "gai ni chu le(1 or 2 or 3):", b
IF b > 3 OR b < 1 THEN PRINT "ni zhen ben,chong xi shu ru:": GOTO 100
IF a = b THEN PRINT "ping ju,qing zai lai 1 ju ba!": END

IF a > b AND a - b = 1 THEN
PRINT "dian nao chu:"; a, "ni chu:"; b, "ni shu la,hai gan tiao zhan ma?": END
END IF

IF a > b AND a - b = 2 THEN
PRINT "dian nao chu:"; a, "ni chu:"; b, "ni yin la,ni zheng bang!": END
END IF

IF a < b AND a - b = -1 THEN
PRINT "dian nao chu:"; a, "ni chu:"; b, "ni yin la,ni zheng bang!": END
END IF

IF a < b AND a - b = -2 THEN
PRINT "dian nao chu:"; a, "ni chu:"; b, "ni shu la,hai gan tiao zhan ma?": END
END IF