mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 07:55:07 +00:00
97 lines
2.2 KiB
QBasic
97 lines
2.2 KiB
QBasic
'simple program in qbasic
|
|
'02/01/99
|
|
'if you want to tell me something on my prog or something else
|
|
'e mail me
|
|
'darokin@infonie.fr
|
|
'darokin use it free and learn (i know you can't learn
|
|
' whith this but if that could help
|
|
' someone ....)
|
|
'darokin '99
|
|
|
|
SCREEN 13
|
|
|
|
etoile% = 150
|
|
DIM x%(1 TO etoile%)
|
|
DIM y%(1 TO etoile%)
|
|
DIM c%(1 TO etoile%)
|
|
DIM v%(1 TO etoile%)
|
|
FOR i% = 1 TO etoile%
|
|
x%(i%) = INT(RND * 320)
|
|
y%(i%) = INT(RND * 129) + 40
|
|
c%(i%) = INT(RND * 15) + 15
|
|
v%(i%) = INT(RND * 3) + 2
|
|
NEXT i%
|
|
|
|
DIM txt(97)
|
|
PRINT "darokin"
|
|
GET (0, 0)-(54, 6), txt
|
|
|
|
CLS
|
|
|
|
DIM balle(120)
|
|
DATA 00,00,00,00,04,04,04,00,00,00,00
|
|
DATA 00,00,04,04,04,04,04,04,04,00,00
|
|
DATA 00,04,04,15,15,04,04,04,04,04,00
|
|
DATA 00,04,04,15,15,04,04,04,04,04,00
|
|
DATA 04,04,04,04,04,04,04,04,04,04,04
|
|
DATA 04,04,04,04,04,04,04,04,04,04,04
|
|
DATA 00,04,04,04,04,04,04,04,04,04,00
|
|
DATA 00,04,04,04,04,04,04,04,04,04,00
|
|
DATA 00,00,04,04,04,04,04,04,04,00,00
|
|
DATA 00,00,00,00,04,04,04,00,00,00,00
|
|
|
|
xlenght = 11
|
|
ylenght = 10
|
|
|
|
FOR y% = 1 TO ylenght
|
|
FOR x% = 1 TO xlenght
|
|
READ z
|
|
PSET (x%, y%), z
|
|
NEXT x%
|
|
NEXT y%
|
|
|
|
|
|
x = 15: y = 55: xtxt = 35: ytxt = 3
|
|
xmax = 305: ymax = 160: xtxtmax = 200: ytxtmax = 15
|
|
a = 1: b = 1: c = 1: d = 1: e = 1
|
|
xmin = 5: ymin = 39: xtxtmin = 30: ytxtmin = 1
|
|
GET (0, 0)-(11, 10), balle
|
|
CLS
|
|
PUT (20, 5), txt
|
|
RANDOMIZE TIMER
|
|
DO
|
|
PUT (x, y), balle
|
|
FOR i% = 1 TO etoile%
|
|
PSET (x%(i%), y%(i%)), c%(i%)
|
|
PSET (x%(i%), y%(i%)), 0
|
|
x%(i%) = x%(i%) + v%(i%)
|
|
IF x%(i%) >= 320 THEN
|
|
x%(i%) = 1
|
|
y%(i%) = INT(RND * 129) + 40
|
|
c%(i%) = INT(RND * 15) + 15
|
|
v%(i%) = INT(RND * 3) + 2
|
|
END IF
|
|
PSET (x%(i%), y%(i%)), c%(i%)
|
|
NEXT i%
|
|
PUT (xtxt, ytxt), txt
|
|
IF c = 1 THEN CLS
|
|
c = c + 1
|
|
IF xtxt < xtxtmin THEN d = -d
|
|
IF x < xmin THEN a = -a
|
|
IF xtxt > xtxtmax THEN d = -d
|
|
IF x > xmax THEN a = -a
|
|
IF ytxt < ytxtmin THEN e = -e
|
|
IF y < ymin THEN b = -b
|
|
IF ytxt > ytxtmax THEN e = -e
|
|
IF y > ymax THEN b = -b
|
|
x = x + a
|
|
y = y + b
|
|
xtxt = xtxt + d
|
|
ytxt = ytxt + e
|
|
PUT (x, y), balle
|
|
PUT (xtxt, ytxt), txt
|
|
FOR i = 1 TO 5000
|
|
NEXT i
|
|
LOOP WHILE INKEY$ = ""
|
|
|
|
|