64 lines
895 B
QBasic
64 lines
895 B
QBasic
cls
|
||
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
|
||
zahl=zahl+1
|
||
locate 30,1:print"Anzahl Rechtecke: ";zahl;
|
||
if inkey$=" " then 2
|
||
goto 1
|
||
|
||
2 REM Fucking Hostile is back
|
||
|
||
goto Fade
|
||
'goto RoboCop
|
||
'goto ARoboCop
|
||
|
||
RoboCop:
|
||
for x=0 to 480 step 2
|
||
line (0,x)-(640,x),0
|
||
next x
|
||
goto Ende
|
||
|
||
ARoboCop:
|
||
|
||
' 1 Zeile Schrift = 16 Pixel
|
||
' 1 Buchstabe = 8 Pixel
|
||
'=> Schrift = 8x16
|
||
|
||
z=50
|
||
for x=0 to 640 step 2
|
||
line (x,0)-(x,480),0
|
||
next x
|
||
goto Ende
|
||
|
||
Fade:
|
||
an=.5
|
||
st=1
|
||
for g=1 to 9
|
||
an=an*2
|
||
st=st*2
|
||
gosub DoIt
|
||
9 a$=inkey$:if a$="" then 9
|
||
if a$="r" or a$="R" then exit for
|
||
next g
|
||
|
||
goto Ende
|
||
|
||
DoIt:
|
||
z=an-st
|
||
s=an-st
|
||
6 REM FuckHost
|
||
z=z+st
|
||
s=s+st
|
||
if z>480 then 7
|
||
line (0,z)-(640,z),0
|
||
7 line (s,0)-(s,480),0
|
||
if s>640 and z>480 then return
|
||
goto 6
|
||
|
||
Ende: |