11-26-2005, 04:17 PM
Quote:well i got it my way and its faster, not like ill have more then 1 plane or anything, thnx anywayWhat is this "your way"?
And Aga: No wonder you always write unformatted code... you're drunk!
Quote:well i got it my way and its faster, not like ill have more then 1 plane or anything, thnx anywayWhat is this "your way"?
DO
GOSUB getInput
IF nothingHappened% = 0 THEN GOSUB drawChar
IF exitloop1% = 1 THEN EXIT DO
LOOP
SLEEP
SYSTEM
getInput:
I$ = UCASE$(INKEY$) 'your characters are all uppercase.
IF I$ = "" THEN nothingHappened% = 16: RETURN ' No button being pressed? DO NOTHING!
PUT (charx%, chary%), char% ' cover the old char
IF I$ = CHR$(0) + "H" THEN chary% = chary% - 16
IF I$ = CHR$(0) + "P" THEN chary% = chary% + 16
IF I$ = CHR$(0) + "M" THEN charx% = charx% + 16
IF I$ = CHR$(0) + "K" THEN charx% = charx% - 16
IF I$ = " " THEN charx% = 160: chary% = 100
IF charx% < 0 THEN LET charx% = 0
IF chary% < 4 THEN LET chary% = 4
IF charx% > 304 THEN LET charx% = 304
IF chary% > 180 THEN LET chary% = 180
nothingHappened% = 0
IF I$ = CHR$(27) THEN exitloop1% = 1: SYSTEM 'Allow quitting
RETURN
Quote:and the UCASE$ thing, i changed my input to just the arrow keys, so can i delete that, it works fine, but y was it used for the numpad???
' A simple character moving program
DEFINT A-Z
SCREEN 13
CLS
' This is the srite's design
PSET (4, 1), 8: PSET (7, 1), 8: PSET (8, 1), 8: PSET (12, 1), 8: PSET (13, 1), 8: PSET (3, 2), 8: PSET (4, 2), 14: PSET (5, 2), 8: PSET (6, 2), 8: PSET (7, 2), 14: PSET (8, 2), 14: PSET (9, 2), 8: PSET (11, 2), 8: PSET (12, 2), 14: PSET (13, 2), 8: _
PSET (3, 3), 8: PSET (4, 3), 14: PSET (5, 3), 14: PSET (6, 3), 14: PSET (7, 3), 14: PSET (8, 3), 14: PSET (9, 3), 14: PSET (10, 3), 8: PSET (11, 3), 14: PSET (12, 3), 14: PSET (13, 3), 14: PSET (14, 3), 8: PSET (15, 3), 8: PSET (2, 4), 8: PSET ( _
3, 4), 14: PSET (4, 4), 14: PSET (5, 4), 14: PSET (6, 4), 14: PSET (7, 4), 14: PSET (8, 4), 14: PSET (9, 4), 8: PSET (10, 4), 14: PSET (11, 4), 14: PSET (12, 4), 14: PSET (13, 4), 14: PSET (14, 4), 14: PSET (15, 4), 14: PSET (16, 4), 8: PSET (3, 5) _
, 8: PSET (4, 5), 14: PSET (5, 5), 8: PSET (6, 5), 14: PSET (7, 5), 66: PSET (8, 5), 66: PSET (9, 5), 14: PSET (10, 5), 14: PSET (11, 5), 14: PSET (12, 5), 8: PSET (13, 5), 14: PSET (14, 5), 14: PSET (15, 5), 8: PSET (4, 6), 8: PSET (5, 6), 8: PSET _
(6, 6), 66: PSET (7, 6), 66: PSET (8, 6), 66: PSET (9, 6), 66: PSET (10, 6), 14: PSET (11, 6), 14: PSET (12, 6), 8: PSET (13, 6), 14: PSET (14, 6), 8: PSET (5, 7), 8: PSET (6, 7), 66: PSET (7, 7), 16: PSET (8, 7), 66: PSET (9, 7), 66: PSET (10, 7), _
16: PSET (11, 7), 66: PSET (12, 7), 8: PSET (13, 7), 8: PSET (5, 8), 8: PSET (6, 8), 66: PSET (7, 8), 16: PSET (8, 8), 66: PSET (9, 8), 66: PSET (10, 8), 16: PSET (11, 8), 66: PSET (12, 8), 8: PSET (3, 9), 8: PSET (4, 9), 8: PSET (5, 9), 66: PSET (6 _
, 9), 8: PSET (7, 9), 66: PSET (8, 9), 66: PSET (9, 9), 66: PSET (10, 9), 66: PSET (11, 9), 8: PSET (12, 9), 66: PSET (13, 9), 8: PSET (14, 9), 8: PSET (2, 10), 8: PSET (3, 10), 66: PSET (4, 10), 66: PSET (5, 10), 64: PSET (6, 10), 15: PSET (7, 10) _
, 8: PSET (8, 10), 8: PSET (9, 10), 8: PSET (10, 10), 8: PSET (11, 10), 15: PSET (12, 10), 64: PSET (13, 10), 66: PSET (14, 10), 66: PSET (15, 10), 8: PSET (1, 11), 8: PSET (2, 11), 66: PSET (3, 11), 64: PSET (4, 11), 64: PSET (5, 11), 64: PSET (6, _
11), 15: PSET (7, 11), 15: PSET (8, 11), 15: PSET (9, 11), 15: PSET (10, 11), 15: PSET (11, 11), 15: PSET (12, 11), 64: PSET (13, 11), 64: PSET (14, 11), 64: PSET (15, 11), 66: PSET (16, 11), 8: PSET (1, 12), 8: PSET (2, 12), 64: PSET (3, 12), 64: _
PSET (4, 12), 8: PSET (5, 12), 8: PSET (6, 12), 8: PSET (7, 12), 15: PSET (8, 12), 15: PSET (9, 12), 15: PSET (10, 12), 15: PSET (11, 12), 8: PSET (12, 12), 8: PSET (13, 12), 8: PSET (14, 12), 64: PSET (15, 12), 64: PSET (16, 12), 8: PSET (1, 13), 8 _
: PSET (2, 13), 8: PSET (3, 13), 8: PSET (5, 13), 8: PSET (6, 13), 9: PSET (7, 13), 8: PSET (8, 13), 8: PSET (9, 13), 8: PSET (10, 13), 8: PSET (11, 13), 9: PSET (12, 13), 8: PSET (14, 13), 8: PSET (15, 13), 8: PSET (16, 13), 8: PSET (5, 14), 8: _
PSET (6, 14), 9: PSET (7, 14), 9: PSET (8, 14), 9: PSET (9, 14), 9: PSET (10, 14), 9: PSET (11, 14), 9: PSET (12, 14), 8: PSET (5, 15), 8: PSET (6, 15), 115: PSET (7, 15), 115: PSET (8, 15), 114: PSET (9, 15), 115: PSET (10, 15), 115: PSET (11, 15) _
, 114: PSET (12, 15), 8: PSET (5, 16), 8: PSET (6, 16), 115: PSET (7, 16), 115: PSET (8, 16), 114: PSET (9, 16), 115: PSET (10, 16), 115: PSET (11, 16), 114: PSET (12, 16), 8:
DIM char%(129) 'Set aside enough space to hold the sprite
GET (1, 1)-(16, 16), char% 'Get the sprite into the ball% array
CLS
PAINT (0, 0), 2 ' Make background
FOR x = 160 TO 175
FOR y = 100 TO 115
PSET (x, y), 0
NEXT y
NEXT x
DIM back%(32001) 'Set aside enough space to hold the sprite
GET (0, 0)-(319, 199), back% 'Get the sprite into the back% array
CLS
charx% = 160: chary% = 100 ' Set default ballx% and bally% coordinates
PUT (0, 0), back%
PUT (charx%, chary%), char% ' Set the ball to it's default location
PRINT charx%; chary% ' print the char's location
DO
GOSUB getInput
IF nothingHappened% = 0 THEN GOSUB drawChar
IF exitloop1% = 1 THEN EXIT DO
LOOP
SLEEP
SYSTEM
getInput:
I$ = INKEY$
IF I$ = "" THEN nothingHappened% = 1: RETURN ' No button being pressed? DO NOTHING!
PUT (charx%, chary%), char% ' cover the old char
IF I$ = CHR$(0) + "H" THEN chary% = chary% - 16
IF I$ = CHR$(0) + "P" THEN chary% = chary% + 16
IF I$ = CHR$(0) + "M" THEN charx% = charx% + 16
IF I$ = CHR$(0) + "K" THEN charx% = charx% - 16
IF I$ = " " THEN charx% = 160: chary% = 100
IF charx% < 0 THEN LET charx% = 0
IF chary% < 4 THEN LET chary% = 4
IF charx% > 304 THEN LET charx% = 304
IF chary% > 180 THEN LET chary% = 180
nothingHappened% = 0
IF I$ = CHR$(27) THEN exitloop1% = 1: SYSTEM 'Allow quitting
'IF I$ = CHR$(27) THEN GOSUB TheEnd
RETURN
drawChar:
PUT (charx%, chary%), char% ' replace the char
LOCATE 1, 1
PRINT charx%; chary% ' print the char's location
RETURN
SLEEP
SYSTEM
' The ending
PSET (1, 1), 16
DIM blank%(8)
GET (0, 0)-(1, 1), blank%
FOR x = 1 TO 320
FOR y = 1 TO 200
PUT (x, y), blank%
NEXT y
NEXT x
PRINT "Thanks For Playing, Press ESC"
IF I$ = CHR$(27) THEN END
PSET (4, 1), 8: PSET (7, 1), 8: PSET (8, 1), 8: PSET (12, 1), 8: PSET (13, 1), 8: PSET (3, 2), 8: PSET (4, 2), 14: PSET (5, 2), 8: PSET (6, 2), 8: PSET (7, 2), 14: PSET (8, 2), 14: PSET (9, 2), 8: PSET (11, 2), 8: PSET (12, 2), 14: PSET (13, 2), 8: _
PSET (3, 3), 8: PSET (4, 3), 14: PSET (5, 3), 14: PSET (6, 3), 14: PSET (7, 3), 14: PSET (8, 3), 14: PSET (9, 3), 14: PSET (10, 3), 8: PSET (11, 3), 14: PSET (12, 3), 14: PSET (13, 3), 14: PSET (14, 3), 8: PSET (15, 3), 8: PSET (2, 4), 8: PSET ( _
3, 4), 14: PSET (4, 4), 14: PSET (5, 4), 14: PSET (6, 4), 14: PSET (7, 4), 14: PSET (8, 4), 14: PSET (9, 4), 8: PSET (10, 4), 14: PSET (11, 4), 14: PSET (12, 4), 14: PSET (13, 4), 14: PSET (14, 4), 14: PSET (15, 4), 14: PSET (16, 4), 8: PSET (3, 5) _
, 8: PSET (4, 5), 14: PSET (5, 5), 8: PSET (6, 5), 14: PSET (7, 5), 66: PSET (8, 5), 66: PSET (9, 5), 14: PSET (10, 5), 14: PSET (11, 5), 14: PSET (12, 5), 8: PSET (13, 5), 14: PSET (14, 5), 14: PSET (15, 5), 8: PSET (4, 6), 8: PSET (5, 6), 8: PSET _
(6, 6), 66: PSET (7, 6), 66: PSET (8, 6), 66: PSET (9, 6), 66: PSET (10, 6), 14: PSET (11, 6), 14: PSET (12, 6), 8: PSET (13, 6), 14: PSET (14, 6), 8: PSET (5, 7), 8: PSET (6, 7), 66: PSET (7, 7), 16: PSET (8, 7), 66: PSET (9, 7), 66: PSET (10, 7), _
16: PSET (11, 7), 66: PSET (12, 7), 8: PSET (13, 7), 8: PSET (5, 8), 8: PSET (6, 8), 66: PSET (7, 8), 16: PSET (8, 8), 66: PSET (9, 8), 66: PSET (10, 8), 16: PSET (11, 8), 66: PSET (12, 8), 8: PSET (3, 9), 8: PSET (4, 9), 8: PSET (5, 9), 66: PSET (6 _
, 9), 8: PSET (7, 9), 66: PSET (8, 9), 66: PSET (9, 9), 66: PSET (10, 9), 66: PSET (11, 9), 8: PSET (12, 9), 66: PSET (13, 9), 8: PSET (14, 9), 8: PSET (2, 10), 8: PSET (3, 10), 66: PSET (4, 10), 66: PSET (5, 10), 64: PSET (6, 10), 15: PSET (7, 10) _
, 8: PSET (8, 10), 8: PSET (9, 10), 8: PSET (10, 10), 8: PSET (11, 10), 15: PSET (12, 10), 64: PSET (13, 10), 66: PSET (14, 10), 66: PSET (15, 10), 8: PSET (1, 11), 8: PSET (2, 11), 66: PSET (3, 11), 64: PSET (4, 11), 64: PSET (5, 11), 64: PSET (6, _
11), 15: PSET (7, 11), 15: PSET (8, 11), 15: PSET (9, 11), 15: PSET (10, 11), 15: PSET (11, 11), 15: PSET (12, 11), 64: PSET (13, 11), 64: PSET (14, 11), 64: PSET (15, 11), 66: PSET (16, 11), 8: PSET (1, 12), 8: PSET (2, 12), 64: PSET (3, 12), 64: _
PSET (4, 12), 8: PSET (5, 12), 8: PSET (6, 12), 8: PSET (7, 12), 15: PSET (8, 12), 15: PSET (9, 12), 15: PSET (10, 12), 15: PSET (11, 12), 8: PSET (12, 12), 8: PSET (13, 12), 8: PSET (14, 12), 64: PSET (15, 12), 64: PSET (16, 12), 8: PSET (1, 13), 8 _
: PSET (2, 13), 8: PSET (3, 13), 8: PSET (5, 13), 8: PSET (6, 13), 9: PSET (7, 13), 8: PSET (8, 13), 8: PSET (9, 13), 8: PSET (10, 13), 8: PSET (11, 13), 9: PSET (12, 13), 8: PSET (14, 13), 8: PSET (15, 13), 8: PSET (16, 13), 8: PSET (5, 14), 8: _
PSET (6, 14), 9: PSET (7, 14), 9: PSET (8, 14), 9: PSET (9, 14), 9: PSET (10, 14), 9: PSET (11, 14), 9: PSET (12, 14), 8: PSET (5, 15), 8: PSET (6, 15), 115: PSET (7, 15), 115: PSET (8, 15), 114: PSET (9, 15), 115: PSET (10, 15), 115: PSET (11, 15) _
, 114: PSET (12, 15), 8: PSET (5, 16), 8: PSET (6, 16), 115: PSET (7, 16), 115: PSET (8, 16), 114: PSET (9, 16), 115: PSET (10, 16), 115: PSET (11, 16), 114: PSET (12, 16), 8:
' The ending
PSET (1, 1), 16
DIM blank%(8)
GET (0, 0)-(1, 1), blank%
FOR x = 1 TO 320
FOR y = 1 TO 200
PUT (x, y), blank%
NEXT y
NEXT x
PRINT "Thanks For Playing, Press ESC"
IF I$ = CHR$(27) THEN END
PRINT "Thanks For Playing, Press ESC"
IF I$ = CHR$(27) THEN END
PRINT "Thanks For Playing, Press ESC"
DO
IF INKEY$ = CHR$(27) THEN END
LOOP