Part of Slepp's Projects — Pastebin — TURL — Imagebin — Filebin
Feedback -- English French German Japanese
Create Upload Newest Tools Donate
Sign In | Create Account

Paste Actions

Download Raw
Embed
pBox URL
Post to Twitter
Remove Paste

Paste Details

Perl Source format, 4年5ヶ月4週15時間53分と48秒 old, and 489 hits.

Advertising

Paste Description for Seven Ages

Seven ages of man perl game

Seven Ages
2007 year 11 month 19 day Monday 23:22:51 MDT 

  1. #!/usr/bin/perl -w
  2. #32
  3. #project for english etc.
  4.  
  5. print "This game, goes through the seven stages of life etc. <3 Tak\n";
  6. print "Enter new lifes name!: ";
  7. chomp($life=<stdin>);
  8. while(! $life)
  9. {
  10. print "please enter a correct value\n";
  11. return 0;
  12. }
  13. print "welcome $life, you are an infant, you spend your time Mewling, and puking in the nurse's arms. to reach the next level earn it\n";
  14. print "mewl, 5 times, and puke 5 times, but you can not do either twice in a row\n";
  15. print "type 1 for mewling, 2 for pukeing. with a no space inbetween each char. \n Enter Order now: ";
  16. chomp($order=<stdin>);
  17. if($order == 1212121212 || $order == 2121212121)
  18. {
  19. print "congrats ^_^, next level, you are the whining schoolboy creeping like snail
  20. Unwillingly to school. for each time you creep, you loose one life, for each time you struggle, you gain one life,\n type 1 to creep type 2 to struggle, you start with, and have a maximum of 3 health, you can use 4 options, and must creep 3 times to win.\n Enter Order now: ";
  21. $order="";
  22. chomp($order=<stdin>);
  23. if($order == 1211 || $order == 1121)
  24. {
  25. print "congrats! $life nxt lvl!!, the lover,
  26. Sighing like furnace, with a woeful ballad
  27. Made to his mistress' eyebrow.\n you are to make since of an ode writen to your lover :p, this numaric characters of the english laungauge firstly has the value of 9 and so forth untill zero is reached, the zero is null\n Enter Value now: ";
  28. $order="";
  29. chomp($order=<stdin>);
  30. if($order==9)
  31. {
  32. print "Congrats! nxt lvl, you $life are a soldier,
  33. Full of strange oaths and bearded like the pard,
  34. Jealous in honour, sudden and quick in quarrel,
  35. Seeking the bubble reputation\n You are in a duel OHH NOES! but whats that ,.. A PENNY!! what would teh soldier do's 1 to kill teh n00b, 2 t3h get ze shiney monies!!,\n Choose Phate Noes: ";
  36. $order="";
  37. chomp($order=<stdin>);
  38. if($order==1)
  39. {
  40. print "W00t j00 R 31eit!, nxt lvl, the justice,
  41. In fair round belly with good capon lined,
  42. With eyes severe and beard of formal cut,
  43. Full of wise saws and modern instances;
  44. And so he plays his part.\n You $life have come a long way, have seenn many things, and completely understand the paragraph listen above, *lol*, you see a kitten in a burning tree, what do you do, 1 save the kitten, or 2 tell a youngster a when i was young i saved burning kittens stories. Make a Choice Noes: ";
  45. $order="";
  46. chomp($order=<stdin>);
  47. if($order==2)
  48. {
  49. print "Congrats $life, you have made it to the sixth stage, the lean and slippered pantaloon
  50. With spectacles on nose and pouch on side;
  51. His youthful hose, well saved, a world too wide
  52. For his shrunk shank, and his big manly voice,
  53. Turning again toward childish treble, pipes
  54. And whistles in his sound.\n You have no company, yet long for someone to talk to, do you 1 buy a kittie, 2 talk to gravy.\n\nMake your choice now: ";
  55. $order="";
  56. chomp($order=<stdin>);
  57. if($order==1)
  58. {
  59. print "congrats $life, you weren't that old,. yet, but now you are!!, you are at the final stage,Last scene of all,
  60. That ends this strange eventful history,
  61. Is second childishness and mere oblivion,
  62. Sans teeth, sans eyes, sans taste, sans everything.\n You have no company, yet long for someone to talk to, do you 1 buy a kittie, 2 talk to gravy.\n\nMake your choice now: ";
  63. $order="";
  64. chomp($order=<stdin>);
  65. if($order==2)
  66. {
  67. print "\n\n\nYOU WIN 1337z3r!!!!! W00T <3 Tak CAN I HAVE AN A PLZ THX!!!\n\n\n";
  68. }
  69. else {
  70. print "phail!!\n";
  71. return 0;
  72. }
  73. }
  74. else {
  75. print "phail!!\n";
  76. return 0;
  77. }
  78. }
  79. else {
  80. print "phail!!\n";
  81. return 0;
  82. }
  83. }
  84. else {
  85. print "phail!!\n";
  86. return 0;
  87. }
  88. }
  89. else {
  90. print "phail!!\n";
  91. return 0;
  92. }
  93. }
  94. else {
  95. print "phail!!\n";
  96. return 0;
  97. }
  98. }
  99. else
  100. {
  101. print "phail love\n";
  102. return 0;
  103. }
  104.  

Paste Details

Tags: game perl sevenagesofman

advertising

Update the Post

Either update this post and resubmit it with changes, or make a new post.

You may also comment on this post.

update paste below
details of the post (optional)

Note: Only the paste content is required, though the following information can be useful to others.

Save name / title?

(space separated, optional)



Please note that information posted here will expire by default in one month. If you do not want it to expire, please set the expiry time above. If it is set to expire, web search engines will not be allowed to index it prior to it expiring. Items that are not marked to expire will be indexable by search engines. Be careful with your passwords. All illegal activities will be reported and any information will be handed over to the authorities, so be good.

fantasy-obligation
fantasy-obligation