home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / education / e021.dms / e021.adf / autoexec.AMOS / autoexec.amosSourceCode
Encoding:
AMOS Source Code  |  1978-01-25  |  3.6 KB  |  124 lines
  1. Rem**********************************************
  2. Screen Open 0,320,256,16,Lowres
  3. Palette $0,$F9F,$6 : Limit Mouse 120,40 To 450,300
  4. X Mouse=330 : Y Mouse=80
  5. NAVS
  6. Cls 
  7. Load "envelope.abk",5 : Load "toys.abk",6
  8. Limit Mouse 120,40 To 450,300 : TEST1=0 : Curs Off : NKEY=0 : NARNIA$=""
  9. Global NKEY,NARNIA$
  10. Limit Mouse 120,40 To 458,300
  11. Cls : Locate 1,7 : Input "What is your name? ";NAME$
  12. Wait 20 : Locate 1,10 : Print "What is the number or"
  13. Locate 1,12 : Input "name of your house?  ";NUMBER$
  14. Wait 20 : Locate 1,15 : Input "What road do you live in? ";ROAD$
  15. Wait 20 : Locate 1,18 : Input "What town do you live in? ";TWN$
  16. Wait 20 : Locate 1,21 : Input "What City do you live in? ";CITY$ : Wait 50 : Cls 
  17. Unpack 6 To 0
  18. Limit Mouse 120,40 To 458,300
  19. Paper 6 : Wait 50
  20. Locate 10,10 : Print "One day you are at"
  21. Locate 10,12 : Print "home playing with"
  22. Locate 10,14 : Print "your toys when you"
  23. Locate 10,16 : Print "hear a letter drop"
  24. Locate 10,18 : Print "from the letter box."
  25. Ink 6 : Clear Key 
  26. Do 
  27. K$=Inkey$
  28. Exit If Mouse Key=1
  29. Exit If K$<>""
  30. Loop 
  31. Bell 
  32. Bar 72,72 To 241,152
  33. Unpack 5 To 0 : Limit Mouse 120,40 To 450,300
  34. Limit Mouse 120,40 To 458,300
  35. Erase 5 : Load "letter.abk",5
  36. Paper 2 : Pen 0 : Curs Off 
  37. Locate 10,12 : Print NAME$
  38. Locate 11,14 : Print NUMBER$;"  ";ROAD$
  39. Locate 12,16 : Print TWN$
  40. Locate 13,18 : Print CITY$
  41. PAUSE
  42. Procedure PAUSE
  43. Do 
  44. Exit If Mouse Key=0
  45. Loop 
  46. Do 
  47. K$=Inkey$
  48. Exit If Mouse Key>0
  49. Exit If K$<>""
  50. Loop 
  51. Bell 
  52. End Proc
  53. Cls : Wait 30
  54. Locate 2,10 : Curs Off : Print "You open the letter and read it."
  55. Procedure COORDINATES
  56. Limit Mouse 120,40 To 458,300
  57. Do 
  58. If Mouse Key=1 Then Q=X Mouse : W=Y Mouse : Locate 20,22 : Print "                      " : Locate 20,22 : Curs Off : Print Q;"  ";W
  59. Exit If Mouse Key=2
  60. Loop 
  61. End Proc
  62. PAUSE
  63. Limit Mouse 120,40 To 458,300
  64. Unpack 5 To 0
  65. PAUSE
  66. Pen 0
  67. Cls : Wait 30
  68. Locate 2,10 : Curs Off : Print "You go back to your bedroom and"
  69. Locate 2,12 : Print "choose a toy to take with you."
  70. PAUSE
  71. Procedure NAVS
  72. Hide On 
  73. Locate 0,2 : Centre "STORYLAND2"
  74. Locate 0,3 : Centre "**************************************"
  75. Locate 0,6 : Centre "Storyland2 is an activity adventure"
  76. Locate 0,8 : Centre "written by David Alexander"
  77. Locate 0,10 : Centre "using Amos."
  78. Locate 0,12 : Centre "Special thanks go to Valerie Clarke"
  79. Locate 0,14 : Centre "who created the original characteurs"
  80. Locate 0,16 : Centre " and to Luke Miller who"
  81. Locate 0,18 : Centre "created most of the music."
  82. Locate 0,21 : Centre "**************************************"
  83. Locate 0,28 : Centre "**************************************"
  84. Locate 0,23 : Centre "DO YOU CARE FOR ANIMALS ?"
  85. Locate 0,26 : Centre "y/n ?"
  86. SD:
  87. Clear Key 
  88. Do 
  89. K$=Inkey$
  90. Exit If K$<>""
  91. Loop 
  92. If K$="n"
  93. Cls 
  94. Locate 0,10 : Centre "Only children who love animals"
  95. Locate 0,12 : Centre "are allowed to play this game."
  96. PAUSE : End 
  97. End If 
  98. If K$="N"
  99. Cls 
  100. Locate 0,10 : Centre "Only children who love animals"
  101. Locate 0,12 : Centre "Are allowed to play this game."
  102. PAUSE : End 
  103. End If 
  104. If K$="y" Then Goto GOOD
  105. If K$="Y" Then Goto GOOD
  106. Goto SD
  107. GOOD:
  108. Bell : Cls 
  109. Curs Off 
  110. Locate 0,3 : Centre "WELCOME TO STORYLAND"
  111. Locate 0,4 : Centre "**********************"
  112. Locate 0,8 : Centre "I'm glad that you love animals"
  113. Locate 0,10 : Centre "and I hope you enjoy this game."
  114. Locate 0,12 : Centre "Unfortunatey some people do"
  115. Locate 0,14 : Centre "cruel things to animals."
  116. Locate 0,18 : Centre "If you manage to kill the witch"
  117. Locate 0,20 : Centre "at the end of this game, I will"
  118. Locate 0,22 : Centre "tell you what you can do to"
  119. Locate 0,24 : Centre "help animals."
  120. Locate 0,28 : Centre "CLICK THE MOUSE BUTTON TO START."
  121. PAUSE
  122. Show On 
  123. End Proc
  124. Run "2.amos"