You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
45 lines
1.8 KiB
45 lines
1.8 KiB
--- cowsay/cows/mech-and-cow.cow 2007-10-07 12:17:44.000000000 +0200 |
|
+++ cowsay/cows/mech-and-cow.cow.new 2007-10-07 12:17:54.000000000 +0200 |
|
@@ -1,21 +1,22 @@ |
|
- ,-----. |
|
- | | |
|
- ,--| |-. |
|
- __,----| | | | |
|
- ,;:: | `_____' | |
|
- `._______| i^i | |
|
- `----| |---'| . |
|
- ,-------._| |== ||// |
|
- | |_|P`. /'/ |
|
- `-------' 'Y Y/'/' |
|
- .==\ /_\ |
|
+$sthguoht = $thoughts; |
|
+if ( $thoughts eq "\\" ) { |
|
+ $sthguoht = "/"; |
|
+} |
|
+$the_cow = <<"EOC"; |
|
+ $thoughts ,-----. |
|
+ $sthguoht | | |
|
+ $thoughts ,--| |-. |
|
+ $sthguoht __,----| | | | |
|
+ $thoughts ,;:: | `_____' | |
|
+ $sthguoht `._______| i^i | |
|
+ $thoughts `----| |---'| . |
|
+ $sthguoht ,-------._| |== ||// |
|
+ $thoughts | |_|P`. /'/ |
|
+ $sthguoht `-------' 'Y Y/'/' |
|
+ $thoughts .==\ /_\ |
|
^__^ / /'| `i |
|
- (oo)\_______ /' / | | |
|
- (__)\ )\/\ /' / | `i |
|
- ||----w | ___,;`----'.___L_,-'`\__ |
|
- || || i_____;----\.____i""\____\ |
|
- |
|
- |
|
- |
|
- |
|
- |
|
+ ($eyes)\_______ /' / | | |
|
+ (__)\ )\\/\\ /' / | `i |
|
+ $tongue||----w|| ___,;`----'.___L_,-'`\__ |
|
+ || || i_____;----\.____i""\____\ |
|
+EOC
|
|
|