digital literacy for everyone
[lit][generate-title]
[lit]
[fig]
#
#!/usr/bin/env python #kite
# 2007 mennonite
# ported to python 2009
# ported to fig 2015
#### license: creative commons cc0 1.0 (public domain)
#### http://creativecommons.org/publicdomain/zero/1.0/
function cls
z "\x1b[2J\x1b[1;1H" prints
fig
q "...../\........./__\......./____\...../______\.../________\./___fig!_"
z q plus "__\\\\__________/.\________/...\______/.....\____/.......\__/...."
q z plus ".....\/....." colortext 7 highlight 1
uc ""
zcls cls
z "\x1b[?25l" prints # hide cursor
csrl
b
a
try
while
zcls cls
zbr randint -1 1
zar randint -1 1
zb b plus zbr swap zb b
za a plus zar swap za a
ckb b minus 1 sgn
ifequal ckb -1
b 1 #if b < 1: b = 1
fig
ckb b minus 10 sgn
ifequal ckb 1
b 10
fig #if b > 10: b = 10
cka a minus 1 sgn
ifequal cka -1
a 1 #if a < 1: a = 1
fig
cka a minus 67 sgn
ifequal cka 1
a 67
fig #if a > 67: a = 67
for y 1 12 1
for x 1 12 1
onedex y times 12 minus 12 plus x minus 0
one q mid onedex 1
fc ".2_4567890\\23:5" instr fc one
ckfc fc minus 1 sgn
ifequal ckfc -1
fc 11
ifequal one "/"
pass
else
fc 14
fig
fig
yb y plus b
xa x plus a
zco colortext fc highlight 1
zpr "\x08" plus one locate yb xa prints
fig
fig
zbzb colortext 15 highlight 1
csrl y plus b
atwo
while
ckcsl csrl minus 23 sgn
ifequal ckcsl 1
break
fig
floy csrl plus 1
flox x plus a minus 6 plus atwo
fl locate floy flox
frint randint -1 1
at atwo plus frint swap at atwo
python
print (("||" + unichr(8776)) * 11)[csrl],
fig
zc csrl plus 1 swap zc csrl
wend
for s 1 500 1
s10 s mod 10 not
iftrue s10
z "" locate 1 1 print sleep 0.0025
fig
next
wend
except
z "\x1b[?25h" colortext 7 highlight 0 prints
zcls cls
p end
resume
home: [lit]https://freesoftwareresistance.neocities.org[lit]