本帖最后由 老刘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 0COPY |
|