home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SERPENT1.DSK / DEATH.txt < prev    next >
Text File  |  2014-09-09  |  717b  |  75 lines
  1. .I O:99
  2. .T J +15
  3. .!MORE
  4. .!CLRT
  5. .P "You feel life draining away, blackness
  6. .P "closing in on you...
  7. .S K=3-P
  8. .C 0,K,0
  9. ._ K
  10. .V 12
  11. .P "You feel life draining away, blackness
  12. .P "closing in on you...
  13. .!XFRM
  14. .V 14
  15. .P "You are dead.
  16. .S O=99
  17. .!WAIT
  18. .!WAIT
  19. .!WAIT
  20. .C 0,P,0
  21. .!LOOK
  22. !LOOK
  23. .!CLRT
  24. .P "You may RESTORE GAME at this point.  Or
  25. .P "enter RESTART GAME to start a new game.
  26. !XFRM
  27. .S K=3-P
  28. .S A=15
  29. .S B=A
  30. .$ P
  31. .S B=B-1
  32. .I B>0
  33. .T J -2
  34. .S A=A-1
  35. .I A>1
  36. .$ K
  37. .T J -8
  38. .$ P
  39. .S B=A
  40. .$ K
  41. .S B=B-1
  42. .I B>0
  43. .T J -2
  44. .S A=A+1
  45. .I A<20
  46. .$ P
  47. .T J -8
  48. .$ K
  49. .S P=K
  50. .!WAIT
  51. RESTOGAME 
  52. RESTAGAME 
  53. !CLRT
  54. !MORE
  55. !CONT
  56. !GOTO
  57. !WAIT
  58. !IFSV
  59. !IFRS
  60. !CLPR
  61. !LDER
  62. !DRIV
  63. !MESG
  64. .? 
  65. !!!!!
  66.  
  67. .!CLRT
  68. .P "INVALID COMMAND.
  69. .!WAIT
  70. .!WAIT
  71. .!LOOK
  72. @@@@@
  73. !!!!!
  74. @@@@@
  75.