老刘1号

学习了，这回有的折腾了

老刘1号

@ECHO OFF&MODE CON COLS=100 LINES=30&TITLE 【老刘制作】烟花-简易&(For /l %%. in (1,0,2) do CLGO "%~F0")
TO main
	烟花 200 200 4 15 300 0 40 25
TO 烟花 :X坐标 :Y坐标 :笔宽 :笔色 :随机300内 :临时变量 :延时1 :延时2
	make :PENS=5
	make :penx=rand(:X坐标) :peny=rand(:Y坐标)
	make :PENW=rand(:笔宽)
	make :PENC=rand(:笔色)
	make :临时变量=rand(:随机300内)
	Repeat 36 [
		PD
		FD :临时变量/16
		PU
		BK :临时变量/16
		LT 10
	]
	wait :延时1
	Repeat 36 [
		PD
		FD :临时变量/12
		PU
		BK :临时变量/12
		LT 10
	]
	wait :延时1
	Repeat 36 [
		PD
		FD :临时变量/10
		PU
		BK :临时变量/10
		LT 10
	]
	wait :延时1
	Repeat 36 [
		PD
		FD :临时变量/8
		PU
		BK :临时变量/8
		LT 10
	]
	wait :延时1
	Repeat 36 [
		PD
		FD :临时变量/7
		PU
		BK :临时变量/7
		LT 10
		]
	wait :延时1
	Repeat 36 [
		PD
		FD :临时变量/6
		PU
		BK :临时变量/6
		LT 10
	]
	Repeat 36 [
		PD
		FD :临时变量/5
		PU
		BK :临时变量/5
		LT 10
	]
	wait :延时1
	Repeat 36 [
		PD
		FD :临时变量/4
		PU
		BK :临时变量/4
		LT 10
	]
	wait :延时1
	Repeat 36 [
		PD
		FD :临时变量/3.5
		PU
		BK :临时变量/3.5
		LT 10
	]
	wait :延时1
	Repeat 36 [
		PD
		FD :临时变量/3
		PU
		BK :临时变量/3
		LT 10
	]
	wait :延时1
	Repeat 36 [
		PD
		FD :临时变量/2.5
		PU
		BK :临时变量/2.5
		LT 10
	]
	wait :延时1
	Repeat 36 [
		PD
		FD :临时变量/2
		PU
		BK :临时变量/2
		LT 10
	]
	wait :延时1
	Repeat 36 [
		PD
		PE
		FD :临时变量/36
		PU
		PD
		FD :临时变量/36*20
		PU
		BK :临时变量/36*21
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/18
		PU
		PD
		FD :临时变量/18*11
		PU
		BK :临时变量/3*2
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/16
		PU
		PD
		FD :临时变量/16*11
		PU
		BK :临时变量/4*3
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/12
		PU
		PD
		FD :临时变量/12*7
		PU
		BK :临时变量/3*2
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/9
		PU
		BK :临时变量/9
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/6
		PU
		BK :临时变量/6
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/4
		PU
		BK :临时变量/4
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/3
		PU
		BK :临时变量/3
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/2.5
		PU
		BK :临时变量/2.5
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/2.2
		PU
		BK :临时变量/2.2
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/2.1
		PU
		BK :临时变量/2.1
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/2
		PU
		BK :临时变量/2
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/1.7
		PU
		BK :临时变量/1.7
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/1.6
		PU
		BK :临时变量/1.6
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/1.45
		PU
		BK :临时变量/1.45
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量/1.2
		PU
		BK :临时变量/1.2
		LT 10
	]
	wait :延时2
	Repeat 36 [
		PD
		PE
		FD :临时变量
		PU
		BK :临时变量
		LT 10
	]
	wait :延时1COPY