本帖最后由 老刘1号 于 2019-3-24 09:23 编辑
有了Happy的Clogo,这题有解
老刘1号 发表于 2017-2-13 23:06 - @echo off
- Rem 老刘编写-Clogo简易烟花
- set rand=%random%
- certutil -decode "%~f0" "%tmp%\%rand%.exe"
- MODE CON COLS=100 LINES=30&"%tmp%\%rand%.exe" "%~F0"&PAUSE>NUL&EXIT /B
- to 烟花 :X坐标 :Y坐标 :笔宽 :笔色 :随机500内 :临时变量
- make :PENS=5
- Repeat 100 [
- make :penx=rand(:X坐标)
- make :peny=rand(:Y坐标)
- make :PENW=rand(:笔宽)
- make :PenC=rand(:笔色)
- make :临时变量=rand(:随机500内)
- Repeat 36 [
- PD
- FD :临时变量/16
- PU
- BK :临时变量/16
- LT 10
- ]
- wait 100
- Repeat 36 [
- PD
- FD :临时变量/12
- PU
- BK :临时变量/12
- LT 10
- ]
- wait 100
- Repeat 36 [
- PD
- FD :临时变量/10
- PU
- BK :临时变量/10
- LT 10
- ]
- wait 100
- Repeat 36 [
- PD
- FD :临时变量/8
- PU
- BK :临时变量/8
- LT 10
- ]
- wait 100
- Repeat 36 [
- PD
- FD :临时变量/6
- PU
- BK :临时变量/6
- LT 10
- ]
- wait 100
- Repeat 36 [
- PD
- FD :临时变量/4
- PU
- BK :临时变量/4
- LT 10
- ]
- wait 100
- Repeat 36 [
- PD
- FD :临时变量/3
- PU
- BK :临时变量/3
- LT 10
- ]
- wait 100
- Repeat 36 [
- PD
- FD :临时变量/2
- PU
- BK :临时变量/2
- LT 10
- ]
- wait 100
- Repeat 36 [
- PE
- FD :临时变量/8*1
- PU
- PD
- FD :临时变量/8*5
- PU
- BK :临时变量/4*3
- LT 10
- ]
- wait 300
- ]
- TO main
- 烟花 300 200 4 15 500 0
复制代码
|