Keskustelu: Koodit: QB: firewall- ampumispeli

i% = 1
CLS
SCREEN 8
COLOR background, 0
COLOR 2
LOCATE 1, 1
PRINT "ÛÛÛÛ"
LOCATE 2, 1
PRINT "Û   Û"
LOCATE 3, 1
PRINT "ÛÛÛÛ"
LOCATE 4, 1
PRINT "Û   Û"
LOCATE 5, 1
PRINT "ÛÛÛÛ"

LOCATE 1, 14
PRINT "Û  Û"
LOCATE 2, 14
PRINT "Û  Û"
LOCATE 3, 14
PRINT "ÛÛÛÛ"
LOCATE 4, 14
PRINT "   Û"
LOCATE 5, 14
PRINT "  Û"
LOCATE 6, 14
PRINT " Û ((C))"


LOCATE 1, 6
PRINT "B U G G"

COLOR 4
LOCATE 2, 6
PRINT "ÍÍÍÍÍÍÍ"

COLOR 14
LOCATE 3, 6
PRINT "ÍÍÍÍÍÍÍ"

COLOR 9
LOCATE 4, 6
PRINT "ÍÍÍÍÍÍÍÍÍÍ"

COLOR 2
LOCATE 5, 6
PRINT "ÍÍÍÍÍÍÍÍÍ"
LOCATE 7, 4
PRINT "PRESENTS"
SLEEP 4
CLS
COLOR 4
LOCATE 1, 20
PRINT "ÛÛÛÛ Û ÛÛÛÛ ÛÛÛÛ Û Û Û ÛÛÛÛ Û    Û"
LOCATE 2, 20
PRINT "Û    Û Û  Û Û    Û Û Û Û  Û Û    Û"
LOCATE 3, 20
PRINT "ÛÛÛÛ Û ÛÛÛÛ ÛÛÛÛ Û Û Û Û  Û Û    Û"
LOCATE 4, 20
PRINT "Û    Û Û Û  Û    Û Û Û ÛÛÛÛ Û    Û"
LOCATE 5, 20
PRINT "Û    Û Û  Û ÛÛÛÛ ÛÛÛÛÛ Û  Û ÛÛÛÛ ÛÛÛÛ"
COLOR 14
LOCATE 7, 1
PRINT "THIS GAME IS THE FIREWALL 1.0"
LOCATE 9, 1
PRINT "YOU ARE FIREWALL- COMPUTER AND YOU MISSION IS TO DEFEND YOU SERVER"
LOCATE 11, 1
PRINT "AT VIRUSES. VIRUSES LOOKS LIKE THAT: (#) "
LOCATE 13, 1
PRINT "YOU CONTROLS ARE SPACE TO SHOOT AND LEFT AND RIGHT ARROW TO MOVE."
LOCATE 15, 1
PRINT "IN MAIN MENU YOU USE TABULATOR (TAB) TO MOVE YOU SELECTER AND SPACE TO SELECT."
LOCATE 17, 1
PRINT "YOU GET A 100 POINTS IF YOU SHOOT ONE VIRUS. IF YOU LEAVE VIRUS TO GO THEN YOU "
LOCATE 19, 1
PRINT "LOSE 100 POINTS."


go% = 0
LOCATE 23, 50

PRINT "(PRESS ESC TO CONTINUE)"
DO
LOOP UNTIL INKEY$ = CHR$(27)
1
CLS
COLOR 2
LOCATE 1, 30
PRINT "START TO GAME"
LOCATE 2, 30
PRINT "EXIT"
LOCATE 23, 50
PRINT "(TAB TO SWITCH)"
DO
LOCATE i%, 44
PRINT "<--"
SELECT CASE INKEY$
CASE CHR$(9)
i% = i% + 1
IF i% = 3 THEN i% = 1
CLS
GOTO 1
CASE CHR$(32)
go% = 1

END SELECT

LOOP UNTIL go% = 1


IF i% = 2 THEN END
IF i% = 1 THEN GOTO peli


peli:
CLS
x% = 30
ski% = 0
go% = 0
LOCATE 1, 30
PRINT "SKILL"
LOCATE 2, 30
PRINT "AMATEUR------1"
LOCATE 3, 30
PRINT "NORMAL-------2"
LOCATE 4, 30
PRINT "PROFESSIONAL-3"
DO
SELECT CASE INKEY$
CASE CHR$(49)
ski% = 1000
go% = 1
CASE CHR$(50)
ski% = 500
go% = 1
CASE CHR$(51)
ski% = 250
go% = 1
END SELECT
LOOP UNTIL go% = 1

3 CLS


bugop% = 1
DO

SELECT CASE vx%
CASE 73
bugop% = 1
poi% = poi% - 100
END SELECT

LOCATE 22, x%
PRINT "|"
LOCATE 23, x%
PRINT "-"
IF vx% = 73 THEN bugop% = 1
SELECT CASE bugop%
CASE 1
vy% = INT(RND * 20)
vx% = 2
time% = 0
bugop% = 0
CASE 0


LOCATE vy%, vx%
PRINT "#)"
vxx% = vx%
vxx% = vxx% - 1
LOCATE vy%, vxx%
PRINT "("

END SELECT
time% = time% + 1
SELECT CASE time%
CASE ski%
vx% = vx% + 1
CLS



time% = 0
END SELECT




SELECT CASE INKEY$
CASE CHR$(0) + "M"
x% = x% + 1
IF x% = 75 THEN x% = 74
CLS
CASE CHR$(0) + "K"
x% = x% - 1
IF x% = 1 THEN x% = 2
CLS

CASE CHR$(32)
d% = 21
DO
LOCATE d%, x%
PRINT ":"
PLAY "a32"
d% = d% - 1

SELECT CASE x%
CASE vx%
SELECT CASE d%
CASE vy%
CLS
LOCATE 22, x%
PRINT "|"
LOCATE 23, x%
PRINT "-"
COLOR 14
LOCATE vy%, vx%
PRINT "°"
ht% = 0
DO
ht% = ht% + 1
LOOP UNTIL ht% = 30000
ht% = 0
CLS
COLOR 2
LOCATE 22, x%
PRINT "|"
LOCATE 23, x%
PRINT "-"
COLOR 14
LOCATE vy%, vx%
PRINT "±"
DO
ht% = ht% + 1
LOOP UNTIL ht% = 30000
ht% = 0

CLS
COLOR 2
LOCATE 22, x%
PRINT "|"
LOCATE 23, x%
PRINT "-"
COLOR 14
LOCATE vy%, vx%
PRINT "²"
DO
ht% = ht% + 1
LOOP UNTIL ht% = 30000
ht% = 0

CLS
COLOR 2
LOCATE 22, x%
PRINT "|"
LOCATE 23, x%
PRINT "-"
COLOR 14
LOCATE vy%, vx%
PRINT "Û"
poi% = poi% + 100
RANDOMIZE TIMER
goo% = INT(RND * 6)
LOCATE 24, 60
IF goo% = 0 THEN PRINT "YOU ARE BEST!"
LOCATE 24, 60
IF goo% = 1 THEN PRINT "GOOD SHOT!"
LOCATE 24, 60
IF goo% = 2 THEN PRINT "WELL DONE!"
LOCATE 24, 60
IF goo% = 3 THEN PRINT "THATS GOOD!"
LOCATE 24, 60
IF goo% = 4 THEN PRINT "WOW!"
LOCATE 24, 60
IF goo% = 5 THEN PRINT "OOOOOO!"
LOCATE 24, 60
IF goo% = 6 THEN PRINT "JEAH!"
SLEEP 1
ht% = 0

COLOR 2
bugop% = 1

END SELECT
END SELECT

CLS
LOCATE 22, x%
PRINT "|"
LOCATE 23, x%
PRINT "-"
IF vx% = 73 THEN bugop% = 1

SELECT CASE bugop%
CASE 1
vy% = INT(RND * 20)
vx% = 2
time% = 0
bugop% = 0
CASE 0
LOCATE vy%, vx%
PRINT "#)"
vxx% = vx%
vxx% = vxx% - 1
LOCATE vy%, vxx%
PRINT "("

END SELECT



LOOP WHILE d% > 2



CASE CHR$(27)
GOTO ender
END SELECT
IF vx% = 73 THEN bugop% = 1



LOOP

ender:
CLS
PRINT "YOU GET "; poi%; " POINTS"