mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-27 11:55:20 +00:00
11 lines
751 B
QBasic
11 lines
751 B
QBasic
|
0HGR2:BT=191:RT=280:MG=24
|
||
|
1CL=INT(RND(1)*2):XV=INT(RND(1)*3)+1:YV=-(INT(RND(1)*5)+3):MS=INT(RND(1)*25)+40:X=INT(RND(1)*(RT-MG*2))+MG:Y=BT:PK=Y:IFX>RT/2THENXV=-XV
|
||
|
2FORCS=1TOMS:Y1=Y2:Y2=Y:X1=X2:X2=X:X=X+XV:Y=Y+YV:YV=YV+.12:IFY<PKTHENPK=Y
|
||
|
3IFX<=MGORX>=RT-MGORY<=MGOR(YV>0AND(Y>BT-INT(BT-PK)/2ORY>=BT-MG))THENCS=MS
|
||
|
4IFCS<MSTHENHCOLOR=CL*4+3:HPLOTX2,Y2TOX,Y
|
||
|
5HCOLOR=CL*4:HPLOTX1,Y1TOX2,Y2:NEXTCS
|
||
|
6X2=INT(X2):Y2=INT(Y2):X=INT(RND(1)*20)-10:Y=INT(RND(1)*20)-10:HCOLOR=CL*4+3:HPLOTX+X2,Y+Y2:FORI=1TO9:IFI<9THENN=I:HCOLOR=CL*4+3:GOSUB9
|
||
|
7N=I-1:HCOLOR=CL*4:GOSUB9:NEXT:IFRND(1)<.5THEN6
|
||
|
8GOTO1
|
||
|
9HPLOTX+X2+N,Y+Y2+N:HPLOT X+X2-N,Y+Y2-N:HPLOTX+X2+N,Y+Y2-N:HPLOTX+X2-N,Y+Y2+N:HPLOTX+X2,Y+Y2+N*1.5:HPLOTX+X2+N*1.5,Y+Y2:HPLOTX+X2,Y+Y2-N*1.5:HPLOTX+X2-N*1.5,Y+Y2:RETURN
|