西柚不是西游-
你想要多少
赛车
DECLARE SUB showcar (row!, col!, c!)
DECLARE SUB Win ()
DECLARE SUB MoveZ ()
DECLARE SUB MoveM (md!)
DECLARE SUB Lose ()
CONST R0 = 3, C0 = 30, S0 = 12
CONST Left = -1, Right = 1
CONST KeyUp = 72, KeyDown = 80, KeyLeft = 75, KeyRight = 77
CONST KeySpace = 57, KeyEnter = 28, KeyEsc = 1
TYPE cartype
row AS INTEGER
col AS INTEGER
END TYPE
DIM SHARED car(0 TO 3) AS cartype
DIM SHARED state(127) AS INTEGER
DIM SHARED BasePtr(0 TO 18) AS INTEGER
DIM SHARED shape(0 TO 4, 0 TO 2) AS INTEGER
DIM SHARED mrow, mcol, count
CLS
RANDOMIZE TIMER
REM
fk$ = "[][][][][][][][][][]"
COLOR 11
LOCATE R0 - 1, C0 + 1: PRINT CHR$(201) + STRING$(20, 205) + CHR$(187)
LOCATE R0, C0 + 1: PRINT CHR$(186); SPC(20); CHR$(186)
FOR row = 1 TO 18
LOCATE R0 + row, C0 + 1: PRINT CHR$(186); SPC(20); CHR$(186)
COLOR 0: LOCATE R0 + row, C0 + 2: PRINT fk$; : COLOR 11
NEXT row
LOCATE R0 + 19, C0 + 1: PRINT CHR$(200) + STRING$(20, 205) + CHR$(188)
ptr = 160 * (R0 - 1) + 2 * (C0 - 1) + 1
FOR row = 0 TO 18
BasePtr(row) = ptr
ptr = ptr + 160
NEXT row
DEF SEG = &HB800
FOR row = 1 TO 18 STEP 4
FOR dr = 0 TO 1
ptr = BasePtr(row + dr)
POKE ptr + 4, 10
POKE ptr + 6, 10
POKE ptr + 40, 10
POKE ptr + 42, 10
NEXT dr
NEXT row
DEF SEG
REM
FOR i = 0 TO 4
FOR j = 0 TO 2
READ x$
shape(i, j) = VAL(x$)
NEXT j
NEXT
DATA 0,0,0
DATA 0,1,0
DATA 1,1,1
DATA 0,1,0
DATA 1,0,1
mrow = 14: mcol = 3
CALL showcar(mrow, mcol, 12)
count = 0
score = 0
delaytime = .06
DO
IF count = 0 THEN score = score + 1
LOCATE 1, 1: PRINT score
IF score = 50 THEN Win
count = count + 1
IF count = S0 THEN
count = 0
car(0).col = INT(2 * RND) * 3 + 3
car(0).row = 0
FOR i = 3 TO 1 STEP -1
car(i).row = car(i - 1).row
car(i).col = car(i - 1).col
NEXT i
END IF
CALL MoveZ
tim = TIMER + delaytime
DO
k = INP(&H60)
IF k < 128 THEN
state(k) = 1
ELSE
state(k - 128) = 0
END IF
IF state(KeyLeft) THEN
CALL MoveM(Left)
state(KeyLeft) = 0
END IF
IF state(KeyRight) THEN
CALL MoveM(Right)
state(KeyRight) = 0
END IF
IF state(KeySpace) THEN
delaytime = .01
END IF
IF state(KeySpace) = 0 THEN
delaytime = .06
END IF
IF state(KeyEnter) THEN
DO WHILE INKEY$ = ""
LOOP
state(KeyEnter) = 0
END IF
IF state(KeyEsc) THEN
END
END IF
LOOP WHILE TIMER < tim
LOOP
END
SUB MoveM (md)
canmove = 1
IF mcol = 3 AND md = Left THEN EXIT SUB
IF mcol = 6 AND md = Right THEN EXIT SUB
FOR i = 3 TO 1
IF ABS(car(i).row - mrow) < 4 AND car(i).col <> mcol THEN
canmove = 0
EXIT FOR
END IF
NEXT i
IF canmove THEN
CALL showcar(mrow, mcol, 0)
mcol = mcol + 3 * md
CALL showcar(mrow, mcol, 12)
END IF
END SUB
SUB MoveZ
FOR i = 1 TO 3
car(i).row = count + S0 * (i - 1)
zrow = car(i).row: zcol = car(i).col
CALL showcar(zrow, zcol, 10)
IF ABS(car(i).row - mrow) < 4 AND car(i).col = mcol THEN Lose
NEXT i
REM
DEF SEG = &HB800
ptr = BasePtr(4): x = PEEK(ptr + 4)
ptr = BasePtr(0): POKE ptr + 4, x
FOR row = 18 TO 1 STEP -1
ptr = BasePtr(row - 1)
x = PEEK(ptr + 4)
ptr = BasePtr(row)
POKE ptr + 4, x
POKE ptr + 6, x
POKE ptr + 40, x
POKE ptr + 42, x
NEXT row
DEF SEG
END SUB
SUB showcar (row, col, c)
st = 0: en = 4
IF col <> 3 AND col <> 6 THEN EXIT SUB
IF row = mrow AND col = mcol THEN
st = 1
ELSE
IF row < 1 THEN st = 1 - row
IF row > 14 THEN en = 18 - row
IF st > en THEN EXIT SUB
END IF
DEF SEG = &HB800
FOR i = st TO en
ptr = BasePtr(row + i) + 4 * col
FOR j = 0 TO 2
POKE ptr + 4 * j, c * shape(i, j)
POKE ptr + 4 * j + 2, c * shape(i, j)
NEXT j
NEXT i
DEF SEG
END SUB
SUB Win
LOCATE 23, 1: PRINT "Win"
END
END SUB
SUB Lose
LOCATE 23, 1: PRINT "Lose"
END
END SUB
射击
DECLARE SUB zidan ()
DECLARE SUB mubiao ()
DECLARE SUB lose ()
DECLARE SUB win ()
DIM SHARED room(0 TO 24, 0 TO 15)
COMMON SHARED x0
gun = 7: x0 = 20
RANDOMIZE TIMER
VIEW PRINT 1 TO 25: CLS "初始化边界
LOCATE 1, x0 + 1: PRINT CHR$(201); STRING$(30, 205); CHR$(187)
FOR i = 2 TO 24
LOCATE i, x0 + 1: PRINT CHR$(186); SPC(30); CHR$(186)
NEXT i
DEF SEG = &HB800
POKE 24 * 160 + 2 * x0, 200
FOR j = 2 TO 60 STEP 2
POKE 24 * 160 + 2 * x0 + j, 205
NEXT j
POKE 24 * 160 + 2 * x0 + 62, 188
COLOR 9
LOCATE 24, x0 + 2 * gun: PRINT "[]"
DO
CALL mubiao "目标下移
FOR j = 1 TO 15
IF room(0, j) = 24 THEN
CALL lose
END IF
NEXT j
mubiaotime = TIMER + 1.5
DO
zidantime = TIMER + .01
DO
key$ = INKEY$
LOOP UNTIL TIMER > zidantime OR key$ <> ""
COLOR 9
SELECT CASE key$
CASE CHR$(0) + CHR$(75) "按键 左
LOCATE 24, x0 + 2 * gun: PRINT " "
gun = gun - 1: IF gun = 0 THEN gun = 1
LOCATE 24, x0 + 2 * gun: PRINT "[]"
CASE CHR$(0) + CHR$(77) "按键 右
LOCATE 24, x0 + 2 * gun: PRINT " "
gun = gun + 1: IF gun = 16 THEN gun = 15
LOCATE 24, x0 + 2 * gun: PRINT "[]"
CASE " " "按键 空格
room(24, 0) = gun
CASE CHR$(13) "按键 回车：暂停
DO WHILE INKEY$ = ""
LOOP
CASE CHR$(27) "按键 ESCape :退出
COLOR 7
END
END SELECT
COLOR 7
CALL zidan
LOOP UNTIL TIMER > mubiaotime
LOOP
SUB lose
END
END SUB
SUB mubiao
COLOR 10
FOR j = 1 TO 15
room(1, j) = 1: room(0, j) = room(0, j) + 1
"LOCATE 24, 1: PRINT "room(0,"; j; ")="; room(0, j)
NEXT j
FOR k = 1 TO 5
r = INT(RND * 15 + 1)
room(1, r) = 0
NEXT k
FOR i = 23 TO 2 STEP -1
FOR j = 1 TO 15
room(i, j) = room(i - 1, j)
IF room(i, j) = 1 THEN cc$ = "[]" ELSE cc$ = " "
LOCATE i, x0 + 2 * j: PRINT cc$
NEXT j
NEXT i
FOR j = 1 TO 15
FOR i = 24 TO 2 STEP -1
IF room(i, j) = 0 THEN
room(0, j) = room(0, j) - 1
ELSE
EXIT FOR
END IF
NEXT i
NEXT j
COLOR 7
DO "清空按键
key$ = INKEY$
LOOP UNTIL key$ = ""
END SUB
SUB zidan
COLOR 12
FOR i = 2 TO 23
IF room(i, 0) <> 0 THEN
LOCATE i, x0 + 2 * room(i, 0): PRINT " "
END IF
room(i, 0) = room(i + 1, 0)
NEXT i
FOR i = 2 TO 23
IF room(i, 0) > 0 THEN
IF room(i, room(i, 0)) = 0 THEN
LOCATE i, x0 + 2 * room(i, 0): PRINT "[]"
ELSE
LOCATE i, x0 + 2 * room(i, 0): PRINT " "
room(i, room(i, 0)) = 0
room(i, 0) = 0
END IF
END IF
NEXT i
room(24, 0) = 0
COLOR 7
DO "清空按键
key$ = INKEY$
LOOP UNTIL key$ = ""
END SUB
cloud123-
抽奖小游戏：
CLS
DIM a(30)
wer = 0
wert = 0
RANDOMIZE TIMER
a$ = "("
b$ = ")"
c$ = "["
d$ = "]"
FOR y = 1 TO 5
js = 0
p = 5000
CLS
FOR i = 1 TO 30
PRINT i,
a(i) = 0
NEXT i
FOR u = 1 TO 50
q = INT(RND * 29) + 1
PRINT "p="; p
PRINT "tom=";
INPUT a
PRINT "sha zi=";
INPUT b
CLS
PRINT "round: "; y
FOR i = 1 TO 30
IF a(i) = 1 THEN
PRINT a$; i; b$,
END IF
IF a(i) = 2 THEN
PRINT c$; i; d$,
END IF
IF a = i AND a(i) = 0 THEN
a(i) = 1
x = i
PRINT a$; x; b$,
END IF
IF b = i AND a(i) = 0 THEN
a(i) = 2
g = i
PRINT c$; g; d$,
END IF
IF i <> b AND i <> a AND a(i) = 0 THEN
PRINT i,
END IF
NEXT i
FOR i = 1 TO 30
IF i = q THEN
IF a(i) = 1 THEN
PRINT "jiang shi "; q;
PRINT "tom"; "win"; p;
INPUT "go on "; qpo$
wer = wer + p
js = 1
END IF
END IF
IF i = q THEN
IF a(i) = 2 THEN
PRINT "jiang shi "; q
PRINT "sha zi "; "win"; ; p
INPUT "go on "; q$
wert = wert + p
js = 1
END IF
END IF
NEXT i
IF js = 1 THEN
EXIT FOR
ELSE
p = p + 5000
PRINT "jiang shi"; " "; q
END IF
NEXT u
NEXT y
PRINT "tom "; wer
PRINT "sha zi "; wert
END
Chen-
yum