16 lines
322 B
Plaintext
16 lines
322 B
Plaintext
sleep(ms)={
|
|
while((ms-=gettime()) > 0,);
|
|
};
|
|
dot()=print1(Strchr([7]));sleep(250);
|
|
dash()=print1(Strchr([7]));sleep(10);print1(Strchr([7]));sleep(10);print1(Strchr([7]));sleep(250);
|
|
Morse(s)={
|
|
s=Vec(s);
|
|
for(i=1,#s,
|
|
if(s[i] == ".", dot(),
|
|
if(s[i] == "-", dash(), sleep(250))
|
|
)
|
|
)
|
|
};
|
|
|
|
Morse("...---...")
|