Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

basic: fireworks

This commit is contained in:
Vince Weaver 2021-07-04 11:29:12 -04:00
parent a2afa747ef
commit c15bbead57
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basic/appleiibot/fireworks.bas
View File

@ -1,10 +1,6 @@
0HGR2:BT=191:RT=280:MG=24:DEFFNR(X)=INT(RND(1)*X)
1B=FNR(2)*4:XV=FNR(3)+1:YV=-FNR(5)-3:MS=FNR(25)+40:X=FNR(RT-MG*2)+MG:Y=BT:PK=Y:IFX>RT/2THENXV=-XV
2FORS=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))THENS=MS
4IFS<MSTHENHCOLOR=B+3:HPLOTX2,Y2TOX,Y
5HCOLOR=B:HPLOTX1,Y1TOX2,Y2:NEXT
6V=X2+FNR(20)-10:W=Y2+FNR(20)-10:HCOLOR=B+3:HPLOTV,W:FORI=1TO9:IFI<9THENN=I:HCOLOR=B+3:GOSUB9
7N=I-1:HCOLOR=B:GOSUB9:NEXT:IFRND(1)<.5THEN6
8GOTO1
0HGR2
5Q=25-RND(1)*10
6B=4*NOTB:V=Q+RND(1)*240:W=Q+RND(1)*100:HCOLOR=B+3:HPLOTV,W:FORI=1TO9:IFI<9THENN=I:HCOLOR=B+3:GOSUB9
7N=I-1:HCOLOR=B:GOSUB9:NEXT:GOTO5
9HPLOTV+N,W+N:HPLOTV-N,W-N:HPLOTV+N,W-N:HPLOTV-N,W+N:HPLOTV,W+N*1.5:HPLOTV+N*1.5,W:HPLOTV,W-N*1.5:HPLOTV-N*1.5,W:RETURN
' Based on Fireworks by FozzTexx, originally written in 1987