标题: [转载代码] [开源软件]字符串水族馆:ASCIIquarium [打印本页]
作者: 523066680 时间: 2018-12-10 17:58 标题: [开源软件]字符串水族馆:ASCIIquarium
本帖最后由 523066680 于 2018-12-10 18:00 编辑
首页:https://robobunny.com/projects/asciiquarium/html/
下载:http://freshmeat.sourceforge.net/projects/asciiquarium
转一部分源码,纯粹觉得好奇…… 原来真的是码出来的。- sub add_shark {
- my ($old_ent, $anim) = @_;
- my @shark_image = (
- q#
- __
- ( `\
- ,??????????????????????????) `\
- ;' `.????????????????????????( `\__
- ; `.?????????????__..---'' `~~~~-._
- `. `.____...--'' (b `--._
- > _.-' .(( ._ )
- .`.-`--...__ .-' -.___.....-(|/|/|/|/'
- ;.'?????????`. ...----`.___.',,,_______......---'
- '???????????'-'
- #,
- q#
- __
- /' )
- /' (??????????????????????????,
- __/' )????????????????????????.' `;
- _.-~~~~' ``---..__?????????????.' ;
- _.--' b) ``--...____.' .'
- ( _. )). `-._ <
- `\|\|\|\|)-.....___.- `-. __...--'-.'.
- `---......_______,,,`.___.'----... .'?????????`.;
- `-`???????????`
- #,
- );
复制代码
- sub add_big_fish {
- my ($old_ent, $anim) = @_;
-
- my @big_fish_image = (
- q{
- ______
- `""-. `````-----.....__
- `. . . `-.
- : . . `.
- , : . . _ :
- : `. : (@) `._
- `. `..' . =`-. .__)
- ; . = ~ : .-"
- .' .'`. . . =.-' `._ .'
- : .' : . .'
- ' .' . . . .-'
- .'____....----''.'=.'
- "" .'.'
- ''"'`
- },q{
- ______
- __.....-----''''' .-""'
- .-' . . .'
- .' . . :
- : _ . . : ,
- _.' (@) : .' :
- (__. .-'= . `..' .'
- "-. : ~ = . ;
- `. _.' `-.= . . .'`. `.
- `. . : `. :
- `-. . . . `. `
- `.=`.``----....____`.
- `.`. ""
- '`"``
- });
复制代码
- q{
- \:.
- \;, ,;\\\\\,,
- \\\\\;;:::::::o
- ///;;::::::::<
- /;` ``/////``
- },
- q{
- 222
- 666 1122211
- 6661111111114
- 66611111111115
- 666 113333311
- },
- q{
- .:/
- ,,///;, ,;/
- o:::::::;;///
- >::::::::;;\\\\\
- ''\\\\\\\\\'' ';\
- },
- q{
- 222
- 1122211 666
- 4111111111666
- 51111111111666
- 113333311 666
- },
- q{
- __
- ><_'>
- '
- },
- q{
- 11
- 61145
- 3
- },
- q{
- __
- <'_><
- `
- },
- q{
- 11
- 54116
- 3
- },
- q{
- ..\,
- >=' ('>
- '''/''
- },
- q{
- 1121
- 661 745
- 111311
- },
- q{
- ,/..
- <') `=<
- ``\```
- },
- q{
- 1211
- 547 166
- 113111
- },
- q{
- \
- / \
- >=_('>
- \_/
- /
- },
- q{
- 2
- 1 1
- 661745
- 111
- 3
- },
- q{
- /
- / \
- <')_=<
- \_/
- \
- },
复制代码
作者: 523066680 时间: 2018-12-10 18:37
windows版字符图屏保(scr文件)
https://pan.baidu.com/s/1clSW09AS2rvdUz4NfwQ6Aw
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |