07-18-2005, 01:56 AM
What does xadj and yadj mean?
here is where I found that command at
-----------------------------------------------------------------------------------
SCREEN 13
x = 50: Y = 50
x2 = 200: y2 = 100
xadj = .1: yadj = .1
DO
press$ = INKEY$
WAIT &H3DA, 8
LINE (x - 8, Y - 8)-(x + 8, Y + 8), 0, BF
CIRCLE (x, Y), 6, 5
LINE (x2, y2)-(x2 + 3, y2 + 3), 1, BF
LOCATE 1, 1: PRINT score
IF press$ = "a" THEN x2 = x2 - 2
IF press$ = "d" THEN x2 = x2 + 2
IF press$ = "s" THEN y2 = y2 + 2
IF press$ = "w" THEN y2 = y2 - 2
IF Y <= 0 THEN yadj = .5
IF Y >= 200 THEN yadj = -.5
IF x >= 320 THEN xadj = -.5
IF x <= 0 THEN xadj = .5
IF x > x2 AND x < x2 + 20 AND Y > y2 AND Y < y2 + 20 THEN : score = score + 1
IF score = 1000 THEN : PRINT "good score!"
IF score = 2500 THEN : PRINT "great!"
IF score = 5000 THEN : PRINT "wow!"
IF score = 10000 THEN
FOR i = 1 TO 100
PRINT "max score!!!"
NEXT
END
END IF
x = x + xadj
Y = Y + yadj
LOOP UNTIL press$ = "q"
-----------------------------------------------------------------------------------
here is where I found that command at
-----------------------------------------------------------------------------------
SCREEN 13
x = 50: Y = 50
x2 = 200: y2 = 100
xadj = .1: yadj = .1
DO
press$ = INKEY$
WAIT &H3DA, 8
LINE (x - 8, Y - 8)-(x + 8, Y + 8), 0, BF
CIRCLE (x, Y), 6, 5
LINE (x2, y2)-(x2 + 3, y2 + 3), 1, BF
LOCATE 1, 1: PRINT score
IF press$ = "a" THEN x2 = x2 - 2
IF press$ = "d" THEN x2 = x2 + 2
IF press$ = "s" THEN y2 = y2 + 2
IF press$ = "w" THEN y2 = y2 - 2
IF Y <= 0 THEN yadj = .5
IF Y >= 200 THEN yadj = -.5
IF x >= 320 THEN xadj = -.5
IF x <= 0 THEN xadj = .5
IF x > x2 AND x < x2 + 20 AND Y > y2 AND Y < y2 + 20 THEN : score = score + 1
IF score = 1000 THEN : PRINT "good score!"
IF score = 2500 THEN : PRINT "great!"
IF score = 5000 THEN : PRINT "wow!"
IF score = 10000 THEN
FOR i = 1 TO 100
PRINT "max score!!!"
NEXT
END
END IF
x = x + xadj
Y = Y + yadj
LOOP UNTIL press$ = "q"
-----------------------------------------------------------------------------------
~~~~~~~~~~~~~~~~~~~~~~~~~~
I love Quick Basic better then Python...
And Python is new.........
Oh yea catch ARPGME
I love Quick Basic better then Python...
And Python is new.........
Oh yea catch ARPGME