aboutsummaryrefslogtreecommitdiff
path: root/ponies/doctor.pony
diff options
context:
space:
mode:
Diffstat (limited to 'ponies/doctor.pony')
-rw-r--r--ponies/doctor.pony61
1 files changed, 29 insertions, 32 deletions
diff --git a/ponies/doctor.pony b/ponies/doctor.pony
index 12d8f3f..a968399 100644
--- a/ponies/doctor.pony
+++ b/ponies/doctor.pony
@@ -1,33 +1,30 @@
-binmode STDOUT, ":utf8";
-$the_cow =<<EOC;
- $thoughts
- $thoughts
- $thoughts
- $thoughts
-\e[49m
-
- \e[38;5;52m\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}
- \e[48;5;52m \e[48;5;88m \e[48;5;52m \e[49m
- \N{U+2584}\e[48;5;52;38;5;88m\N{U+2584}\e[48;5;88m \e[48;5;52m \e[49m
- \e[38;5;52m\N{U+2584}\e[48;5;52;38;5;88m\N{U+2584}\e[48;5;88m \e[48;5;52m \e[49;38;5;234m\N{U+2584}\N{U+2584}
- \N{U+2584}\e[48;5;52m \e[48;5;88m \e[48;5;101m \e[38;5;144m\N{U+2584}\N{U+2584}\e[48;5;236;38;5;101m\N{U+2584} \e[48;5;234;38;5;236m\N{U+2584}\e[49;38;5;234m\N{U+2584}
- \N{U+2584}\e[48;5;234;38;5;236m\N{U+2584}\e[48;5;236m \e[48;5;52m\N{U+2584}\N{U+2584}\N{U+2584}\e[38;5;101m\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\e[48;5;101m \e[48;5;144m \e[48;5;101;38;5;144m\N{U+2584}\e[48;5;236;38;5;101m\N{U+2584} \e[48;5;234;38;5;236m\N{U+2584}\e[49;38;5;234m\N{U+2584}
- \N{U+2584}\e[48;5;234;38;5;236m\N{U+2584}\e[48;5;236m \e[38;5;101m\N{U+2584}\e[48;5;101;38;5;144m\N{U+2584}\e[48;5;144m \e[48;5;101m \e[48;5;144m \e[48;5;101m \e[48;5;236m \e[48;5;234m \e[49m
- \e[48;5;234m \e[48;5;236m \e[48;5;101m \e[48;5;144m \e[38;5;16m\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584} \e[48;5;101m \e[48;5;236m \e[38;5;234m\N{U+2584}\e[49m\N{U+2580}
- \e[48;5;234m \e[48;5;236m \e[48;5;101m \e[48;5;144m \e[48;5;16m \e[38;5;231m\N{U+2584}\e[48;5;231m \e[48;5;57m \e[48;5;231m \e[48;5;16m\N{U+2584}\e[48;5;144;38;5;16m\N{U+2584} \e[48;5;101m \e[48;5;236m \e[48;5;234m \e[49m
-\e[38;5;234m\N{U+2584}\N{U+2584}\e[48;5;234;38;5;236m\N{U+2584}\e[48;5;236m \e[48;5;101m \e[48;5;144m \e[48;5;16;38;5;231m\N{U+2584} \e[48;5;63;38;5;153m\N{U+2584}\e[48;5;231m \e[48;5;16m \e[48;5;144m \e[48;5;101m \e[48;5;236m \e[38;5;234m\N{U+2584}\e[49m\N{U+2580} \N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}
- \N{U+2580}\e[48;5;236m\N{U+2584}\N{U+2584}\e[48;5;101m \e[48;5;144m \e[48;5;153;38;5;144m\N{U+2584}\e[48;5;231m\N{U+2584}\N{U+2584}\e[48;5;144m \e[48;5;101m \e[48;5;236m \e[38;5;234m\N{U+2584}\e[49m\N{U+2580} \N{U+2584}\e[48;5;234;38;5;236m\N{U+2584}\e[48;5;236m \e[48;5;234m\N{U+2584}\N{U+2584} \e[49;38;5;234m\N{U+2580}
- \e[38;5;101m\N{U+2580}\e[48;5;144m\N{U+2584}\N{U+2584}\e[48;5;101;38;5;144m\N{U+2584}\e[48;5;144m \e[38;5;101m\N{U+2584} \e[48;5;101m \e[48;5;236m \e[38;5;234m\N{U+2584}\e[49m\N{U+2580} \N{U+2584}\e[48;5;234;38;5;236m\N{U+2584}\e[48;5;236m \e[48;5;234m \e[49;38;5;234m\N{U+2584}
- \e[38;5;101m\N{U+2580}\N{U+2580}\N{U+2580}\N{U+2580}\N{U+2580}\N{U+2580}\e[48;5;101m \e[38;5;144m\N{U+2584}\e[48;5;144m \e[38;5;250m\N{U+2584}\e[48;5;250;38;5;231m\N{U+2584}\e[48;5;234m\N{U+2584}\e[49;38;5;101m\N{U+2584}\N{U+2584}\N{U+2584}\e[48;5;101;38;5;144m\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\e[48;5;236;38;5;101m\N{U+2584}\N{U+2584}\e[49;38;5;234m\N{U+2580}\N{U+2580}\N{U+2580}\e[48;5;236m\N{U+2584} \e[48;5;234;38;5;236m\N{U+2584}\e[49;38;5;234m\N{U+2584}
- \e[48;5;101m \e[48;5;144m \e[38;5;250m\N{U+2584}\e[48;5;250;38;5;231m\N{U+2584}\e[48;5;231m \e[38;5;144m\N{U+2584}\e[48;5;144m \e[48;5;186m \e[48;5;101m\N{U+2584}\e[49;38;5;101m\N{U+2584} \e[48;5;234m \e[48;5;236m \e[48;5;234;38;5;236m\N{U+2584}\e[48;5;236;38;5;234m\N{U+2584}\e[48;5;234m \e[49m
- \e[38;5;88m\N{U+2584}\e[48;5;88m \e[48;5;52m \e[48;5;231m \e[38;5;144m\N{U+2584}\e[48;5;144m \e[38;5;186m\N{U+2584}\e[48;5;186m \e[48;5;144m\N{U+2584} \e[48;5;101m \e[49m \e[48;5;234;38;5;236m\N{U+2584}\e[48;5;236;38;5;234m\N{U+2584}\e[48;5;234m \e[48;5;236m \e[48;5;234m \e[49m \N{U+2580}
- \e[38;5;88m\N{U+2580}\e[38;5;52m\N{U+2580}\e[48;5;144;38;5;101m\N{U+2584} \e[48;5;101m \e[48;5;144m \e[48;5;186;38;5;144m\N{U+2584}\N{U+2584}\N{U+2584}\e[48;5;144;38;5;101m\N{U+2584}\e[49m\N{U+2580} \e[38;5;234m\N{U+2580}\N{U+2580} \e[48;5;234m \e[48;5;236m \N{U+2584}\e[49m\N{U+2580}
- \e[48;5;95m \e[48;5;101m \e[48;5;144m \e[38;5;101m\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\e[48;5;101m \e[48;5;144m\N{U+2584} \e[48;5;101;38;5;144m\N{U+2584}\e[49;38;5;101m\N{U+2584} \e[48;5;234m \e[48;5;236;38;5;234m\N{U+2584}\e[49m\N{U+2580}
- \e[48;5;95m \e[48;5;101m \e[48;5;144m \e[48;5;101m \e[49m \e[38;5;95m\N{U+2580}\e[48;5;137m\N{U+2584}\e[48;5;101;38;5;137m\N{U+2584} \e[48;5;144m \e[48;5;101m \e[49m \e[38;5;234m\N{U+2580}
- \e[38;5;95m\N{U+2584}\e[48;5;95;38;5;101m\N{U+2584}\e[48;5;101;38;5;144m\N{U+2584}\e[48;5;144m \e[48;5;101m \e[49m \e[48;5;95m \e[48;5;137m \e[48;5;101m \e[48;5;144m \e[48;5;101m \e[49m
- \e[48;5;95m \e[48;5;101m \e[48;5;144m \e[48;5;101m \e[49m \e[48;5;95m \e[48;5;137m \e[48;5;101m \e[48;5;144m \e[48;5;101m \e[49m
- \e[38;5;95m\N{U+2584}\e[48;5;95m \e[48;5;137;38;5;101m\N{U+2584}\e[48;5;101;38;5;144m\N{U+2584}\e[48;5;144m \e[48;5;101m \e[49m \e[48;5;95m \e[48;5;137m \e[48;5;101m \e[48;5;144m \e[48;5;101m \e[49m
- \e[48;5;95m \e[48;5;137;38;5;95m\N{U+2584}\e[48;5;101m \e[48;5;144m \e[48;5;101m \e[49m \e[48;5;95m \e[48;5;137m\N{U+2584}\N{U+2584}\e[48;5;101m \e[48;5;144m \e[48;5;101m \e[49m
- \e[48;5;101m \e[48;5;144;38;5;101m\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\e[48;5;101m \e[49m \e[48;5;101m \e[48;5;144m\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\N{U+2584}\e[48;5;101m \e[39;49m
+$balloon$
+ $\$
+ $\$
+ $\$
+ $\$
+ $\$ ▄▄▄▄▄▄▄▄▄
+    
+ ▄▄  
+ ▄▄  ▄▄
+ ▄   ▄▄▄ ▄▄
+ ▄▄ ▄▄▄▄▄▄▄▄▄  ▄▄ ▄▄
+ ▄▄ ▄▄      
+     ▄▄▄▄   ▄▀
+      ▄   ▄▄    
+▄▄▄   ▄ ▄     ▄▀ ▄▄▄▄▄▄
+ ▀▄▄  ▄▄▄   ▄▀ ▄▄ ▄▄ ▀
+ ▀▄▄▄ ▄   ▄▀ ▄▄  ▄
+ ▀▀▀▀▀▀ ▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▀▀▀▄ ▄▄
+   ▄▄ ▄  ▄▄   ▄▄ 
+ ▄   ▄ ▄ ▄   ▄▄    ▀
+ ▀▀▄   ▄▄▄▄▀ ▀▀   ▄▀
+    ▄▄▄▄ ▄ ▄▄  ▄▀
+      ▀▄▄    ▀
+ ▄▄▄        
+           
+ ▄ ▄▄        
+  ▄     ▄▄   
+  ▄▄▄▄▄   ▄▄▄▄▄ 
-EOC
+ \ No newline at end of file