48 lines
1.3 KiB
QBasic
48 lines
1.3 KiB
QBasic
cls
|
||
open "O",#1,"GRFTEST3.OUT"
|
||
print#1,"OUTPUT-Datei von GRFTEST3.BAS"
|
||
print#1,""
|
||
print#1,"Die Datei hat folgendes Format:"
|
||
print#1,"X : Zufalls X-Koordinate"
|
||
print#1,"Y : Zufalls Y-Koordinate"
|
||
print#1,"0/1: X,Y schon belegt NEIN/JA"
|
||
print#1,"# : Nummer der schon belegten Pixel (640x480)"
|
||
print#1,""
|
||
open "O",#2,"GRFTEST3.OU2"
|
||
print#2,"OUTPUT-Datei von GRFTEST3.BAS"
|
||
print#2,""
|
||
print#2,"Die Datei hat folgendes Format:"
|
||
print#2,"0/1: Pixel schon belegt NEIN/JA"
|
||
print#2,""
|
||
dim o(640)
|
||
dim p(480)
|
||
screen 12
|
||
locate 1,1
|
||
1 x1=int(rnd(1)*640)
|
||
x2=int(rnd(1)*640)
|
||
y1=int(rnd(1)*480)
|
||
y2=int(rnd(1)*480)
|
||
far=int(rnd(1)*256)
|
||
line (x1,y1)-(x2,y2),far,BF
|
||
if inkey$=" " then 2
|
||
goto 1
|
||
|
||
2 REM Fucking Hostile is back
|
||
for g=1 to 640*480
|
||
randomize timer
|
||
5 x=int(rnd(1)*640)
|
||
y=int(rnd(1)*480)
|
||
if inkey$=chr$(27) then end
|
||
if o(x)=255 and p(y)=255 and o(x+1)=255 and p(y+1)=255 then
|
||
locate 30,1:print using "X ### Y ### 0/1:# _#######/307200";x;y;0;g;
|
||
print#1,using"X ### Y ### 0/1:# _#######/307200";x;y;0;g
|
||
print#2,"0";
|
||
goto 5
|
||
else
|
||
line (x,y)-(x+1,y+1),0,BF:o(x)=255:p(y)=255:o(x+1)=255:p(y+1)=255
|
||
locate 30,1:print using "X ### Y ### 0/1:# _#######/307200";x;y;1;g;
|
||
print#1,using "X ### Y ### 0/1:# _#######/307200";x;y;1;g
|
||
print#2,"1";
|
||
end if
|
||
next g
|
||
|