From 8ef403bfb99310aa6d47943886f72cc429ab832f Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Mon, 28 Jun 2021 21:49:44 -0400 Subject: [PATCH] appleiibot: work on compacting fozztexx's fireworks code --- basic/appleiibot/Makefile | 9 ++++++++- basic/appleiibot/fireworks.bas | 10 ++++++++++ 2 files changed, 18 insertions(+), 1 deletion(-) create mode 100644 basic/appleiibot/fireworks.bas diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile index 0b3cd04d..1d841bdd 100644 --- a/basic/appleiibot/Makefile +++ b/basic/appleiibot/Makefile @@ -17,7 +17,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \ COMBO.BAS WIRES.BAS PATTERN.BAS BALL.BAS LINES.BAS MOD9.BAS \ XOR_ZOOM.BAS MOD9_HGR.BAS SIER_HGR.BAS MOVE.BAS SINE.BAS XDRAW128.BAS \ GATOR.BAS CURSOR.BAS STARGATE.BAS TUNNEL.BAS STARFIELD.BAS \ - STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS ORB.BAS + STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS ORB.BAS \ + FIREWORKS.BAS # cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk cp empty.dsk appleiibot.dsk @@ -92,6 +93,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \ $(DOS33) -y appleiibot.dsk SAVE A COOL_BOT.BAS $(DOS33) -y appleiibot.dsk SAVE A WEB.BAS $(DOS33) -y appleiibot.dsk SAVE A ORB.BAS + $(DOS33) -y appleiibot.dsk SAVE A FIREWORKS.BAS #### @@ -521,5 +523,10 @@ ORB.BAS: orb.bas #### +FIREWORKS.BAS: fireworks.bas + $(TOKENIZE) < fireworks.bas > FIREWORKS.BAS + +#### + clean: rm -f *~ *.o *.lst convert_to convert_from convert_qkumba convert_vmw make_boxes convert_back convert_tgreene LOAD *.BAS diff --git a/basic/appleiibot/fireworks.bas b/basic/appleiibot/fireworks.bas new file mode 100644 index 00000000..c4cea4ef --- /dev/null +++ b/basic/appleiibot/fireworks.bas @@ -0,0 +1,10 @@ +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=RT-MGORY<=MGOR(YV>0AND(Y>BT-INT(BT-PK)/2ORY>=BT-MG))THENCS=MS +4IFCS