home *** CD-ROM | disk | FTP | other *** search
/ Amiga Special: Spiele Hits / Hits-CD.iso / aminet / spiele / ammud1_1.lha / AmigaMUD / Src / Basics / base.m next >
Text File  |  1997-06-15  |  36KB  |  1,236 lines
  1. /*
  2.  * Amiga MUD
  3.  *
  4.  * Copyright (c) 1997 by Chris Gray
  5.  */
  6.  
  7. /*
  8.  * base.m - standard MUD code for the basic activities and structures.
  9.  */
  10.  
  11. private tp_base CreateTable()$
  12. use tp_base
  13.  
  14. public MAX_CARRY 7$
  15.  
  16. /* These properties are made public, so that a non-builder can make code
  17.    to use them in the playpen. These are special in that they are
  18.    referenced by the automatically generated code. We want that code to
  19.    compile properly, even if the builder hasn't @use'd any tables such
  20.    as t_base. */
  21.  
  22. public p_rName CreateStringProp()$        /* the name of a room */
  23. public p_rContents CreateThingListProp()$    /* the room's contents */
  24. public p_pCarrying CreateThingListProp()$    /* player's inventory */
  25. public p_oName CreateStringProp()$        /* encoded name of object */
  26. public p_oCarryer CreateThingProp()$        /* who is carrying it */
  27. public p_oCreator CreateThingProp()$        /* who "created" it */
  28. public p_oContents CreateThingListProp()$    /* contents of an object */
  29.  
  30. define t_base p_Image CreateStringProp()$    /* name of image file */
  31.  
  32. /* some properties for rooms */
  33.  
  34. define t_base p_rBuyList CreateThingListProp()$ /* list of things for sale */
  35. define t_base p_rNameAction CreateActionProp()$ /* call proc instead */
  36. define t_base p_rDark CreateBoolProp()$     /* its dark in here */
  37. define t_base p_rNoMachines CreateBoolProp()$    /* keep the machines out */
  38. define t_base p_rLocked CreateBoolProp()$    /* only owner can go in */
  39. define t_base p_rDesc CreateStringProp()$    /* full description of room */
  40. define t_base p_rDescAction CreateActionProp()$ /* call proc instead */
  41. define t_base p_rScenery CreateStringProp()$    /* scenery names */
  42. define t_base p_rExits CreateIntListProp()$    /* list of obvious exits */
  43. define t_base p_rFurtherDesc CreateActionProp()$/* for any extra stuff */
  44. define t_base p_rLastVisit CreateIntProp()$    /* useful for timing things */
  45. define t_base p_rNoGoString CreateStringProp()$ /* print if cannot go */
  46. define t_base p_rNoGoAction CreateActionProp()$ /* call if cannot go */
  47. define t_base p_rBuyAction CreateActionProp()$    /* how to buy here */
  48.  
  49. /* the basic connections between rooms */
  50.  
  51. define t_base p_rNorth CreateThingProp()$    /* actual north connection */
  52. define t_base p_rSouth CreateThingProp()$
  53. define t_base p_rEast CreateThingProp()$
  54. define t_base p_rWest CreateThingProp()$
  55. define t_base p_rNorthEast CreateThingProp()$
  56. define t_base p_rNorthWest CreateThingProp()$
  57. define t_base p_rSouthEast CreateThingProp()$
  58. define t_base p_rSouthWest CreateThingProp()$
  59. define t_base p_rUp CreateThingProp()$
  60. define t_base p_rDown CreateThingProp()$
  61. define t_base p_rEnter CreateThingProp()$
  62. define t_base p_rExit CreateThingProp()$
  63.  
  64. define t_base p_rNorthDesc CreateStringProp()$    /* special description */
  65. define t_base p_rSouthDesc CreateStringProp()$
  66. define t_base p_rEastDesc CreateStringProp()$
  67. define t_base p_rWestDesc CreateStringProp()$
  68. define t_base p_rNorthEastDesc CreateStringProp()$
  69. define t_base p_rNorthWestDesc CreateStringProp()$
  70. define t_base p_rSouthEastDesc CreateStringProp()$
  71. define t_base p_rSouthWestDesc CreateStringProp()$
  72. define t_base p_rUpDesc CreateStringProp()$
  73. define t_base p_rDownDesc CreateStringProp()$
  74. define t_base p_rEnterDesc CreateStringProp()$
  75. define t_base p_rExitDesc CreateStringProp()$
  76.  
  77. define t_base p_rNorthMessage CreateStringProp()$ /* to player when go */
  78. define t_base p_rSouthMessage CreateStringProp()$
  79. define t_base p_rEastMessage CreateStringProp()$
  80. define t_base p_rWestMessage CreateStringProp()$
  81. define t_base p_rNorthEastMessage CreateStringProp()$
  82. define t_base p_rNorthWestMessage CreateStringProp()$
  83. define t_base p_rSouthEastMessage CreateStringProp()$
  84. define t_base p_rSouthWestMessage CreateStringProp()$
  85. define t_base p_rUpMessage CreateStringProp()$
  86. define t_base p_rDownMessage CreateStringProp()$
  87. define t_base p_rEnterMessage CreateStringProp()$
  88. define t_base p_rExitMessage CreateStringProp()$
  89.  
  90. define t_base p_rNorthOMessage CreateStringProp()$ /* to others when go */
  91. define t_base p_rSouthOMessage CreateStringProp()$
  92. define t_base p_rEastOMessage CreateStringProp()$
  93. define t_base p_rWestOMessage CreateStringProp()$
  94. define t_base p_rNorthEastOMessage CreateStringProp()$
  95. define t_base p_rNorthWestOMessage CreateStringProp()$
  96. define t_base p_rSouthEastOMessage CreateStringProp()$
  97. define t_base p_rSouthWestOMessage CreateStringProp()$
  98. define t_base p_rUpOMessage CreateStringProp()$
  99. define t_base p_rDownOMessage CreateStringProp()$
  100. define t_base p_rEnterOMessage CreateStringProp()$
  101. define t_base p_rExitOMessage CreateStringProp()$
  102.  
  103. define t_base p_rNorthEMessage CreateStringProp()$ /* to others when enter */
  104. define t_base p_rSouthEMessage CreateStringProp()$
  105. define t_base p_rEastEMessage CreateStringProp()$
  106. define t_base p_rWestEMessage CreateStringProp()$
  107. define t_base p_rNorthEastEMessage CreateStringProp()$
  108. define t_base p_rNorthWestEMessage CreateStringProp()$
  109. define t_base p_rSouthEastEMessage CreateStringProp()$
  110. define t_base p_rSouthWestEMessage CreateStringProp()$
  111. define t_base p_rUpEMessage CreateStringProp()$
  112. define t_base p_rDownEMessage CreateStringProp()$
  113. define t_base p_rEnterEMessage CreateStringProp()$
  114. define t_base p_rExitEMessage CreateStringProp()$
  115.  
  116. define t_base p_rNorthImage CreateStringProp()$ /* image of that dir */
  117. define t_base p_rSouthImage CreateStringProp()$
  118. define t_base p_rEastImage CreateStringProp()$
  119. define t_base p_rWestImage CreateStringProp()$
  120. define t_base p_rNorthEastImage CreateStringProp()$
  121. define t_base p_rNorthWestImage CreateStringProp()$
  122. define t_base p_rSouthEastImage CreateStringProp()$
  123. define t_base p_rSouthWestImage CreateStringProp()$
  124. define t_base p_rUpImage CreateStringProp()$
  125. define t_base p_rDownImage CreateStringProp()$
  126. define t_base p_rEnterImage CreateStringProp()$
  127. define t_base p_rExitImage CreateStringProp()$
  128.  
  129. /* The various 'checker' lists are private, since they are accessed only
  130.    via the supplied Add/Del Checker routines. */
  131.  
  132. define tp_base p_rNorthChecks CreateActionListProp()$
  133. define tp_base p_rSouthChecks CreateActionListProp()$
  134. define tp_base p_rEastChecks CreateActionListProp()$
  135. define tp_base p_rWestChecks CreateActionListProp()$
  136. define tp_base p_rNorthEastChecks CreateActionListProp()$
  137. define tp_base p_rNorthWestChecks CreateActionListProp()$
  138. define tp_base p_rSouthEastChecks CreateActionListProp()$
  139. define tp_base p_rSouthWestChecks CreateActionListProp()$
  140. define tp_base p_rUpChecks CreateActionListProp()$
  141. define tp_base p_rDownChecks CreateActionListProp()$
  142. define tp_base p_rEnterChecks CreateActionListProp()$
  143. define tp_base p_rExitChecks CreateActionListProp()$
  144. define tp_base p_rAnyEnterChecks CreateActionListProp()$
  145. define tp_base p_rAnyEnterActions CreateActionListProp()$
  146. define tp_base p_rAnyLeaveChecks CreateActionListProp()$
  147. define tp_base p_rAnyLeaveActions CreateActionListProp()$
  148.  
  149. define tp_base p_rGetChecks CreateActionListProp()$    /* passed the object */
  150. define tp_base p_rDropChecks CreateActionListProp()$    /* passed the object */
  151.  
  152. define tp_base p_rSayChecks CreateActionListProp()$    /* passed stuff said */
  153. define tp_base p_rLookChecks CreateActionListProp()$    /* instead of/with */
  154.  
  155. define tp_base p_rLightChecks CreateActionListProp()$    /* light introduced */
  156.  
  157. /* some properties for players */
  158.  
  159. define t_base p_pDesc CreateStringProp()$    /* the player's description */
  160. define t_base p_pDescCheck CreateActionProp()$    /* check to see if look OK */
  161. define t_base p_pDescAction CreateActionProp()$ /* call routine instead */
  162. define t_base p_pDescMore CreateActionListProp()$    /* more desc stuff */
  163. define t_base p_pMoney CreateIntProp()$     /* how much money player has */
  164. define t_base p_pVerbose CreateBoolProp()$    /* player wants verbose desc */
  165. define t_base p_pSuperBrief CreateBoolProp()$    /* player wants superbrief */
  166. define t_base p_pEchoPose CreateBoolProp()$    /* echo pose, say to them */
  167. define t_base p_pHidden CreateBoolProp()$    /* for special tricks */
  168. define t_base p_pStandard CreateBoolProp()$    /* not on fight monsters */
  169. define t_base p_pPosition CreateIntProp()$    /* special codes */
  170. define t_base p_pWhere CreateThingProp()$    /* e.g. the bench */
  171. define t_base p_pCursor CreateIntListProp()$    /* the chosen cursor */
  172. define t_base p_pCursorColour CreateIntProp(