home *** CD-ROM | disk | FTP | other *** search
/ Shock - The Game / Shock The Game.iso / pc / casts / old.cst / 00001_screenobject.ls next >
Encoding:
Text File  |  1997-04-08  |  4.0 KB  |  151 lines
  1. --property PmyHotSpotList, PtheToy, PmyProxy, PmyCredits, PtheMallet, PtheRock, Pgirl1, Pgirl2, Pgirl3, PmyTotal, PmySounds, ParcadeFlag, PmySound, PtheBag, PtheFlower, PtheCandy, PtheCard
  2. --
  3. --global GvidSprite, GnavOb, GpreSets, GscreenObject, GsexOb
  4. --
  5. --
  6. --on new me
  7. --  
  8. --  set PmyHotSpotList = [:]
  9. --  set hotSpot = new(script "constantHotSpot", 4, 11, 0, 151)
  10. --  addProp PmyHotSpotList, 4, hotSpot
  11. --  set hotSpot = new(script "constantHotSpot", 5, 21, 0, 203)
  12. --  addProp PmyHotSpotList, 5, hotSpot
  13. --  set hotSpot = new(script "constantHotSpot", 6, 31, 0, 250)
  14. --  addProp PmyHotSpotList, 6, hotSpot
  15. --  set hotSpot = new(script "constantHotSpot", 7, 41, 74, 455)
  16. --  addProp PmyHotSpotList, 7, hotSpot
  17. --  set hotSpot = new(script "constantHotSpot", 8, 51, 75, 515)
  18. --  addProp PmyHotSpotList, 8, hotSpot
  19. --  set hotSpot = new(script "constantHotSpot", 9, 61, 76, 598)
  20. --  addProp PmyHotSpotList, 9, hotSpot
  21. --  set hotSpot = new(script "helpObj", 34,35)
  22. --  addProp PmyHotSpotList, 34, hotSpot
  23. --  
  24. --  set PtheRock = getat(GpreSets,1)
  25. --  set PtheMallet = getat(GpreSets,2)
  26. --  set PmyCredits = getat(GpreSets,3)
  27. --  set PtheToy = getat(GpreSets,7)
  28. --  set PmyProxy = 0
  29. --  set PtheBag = 0
  30. --  set PtheFlower = 0
  31. --  set PtheCandy = 0
  32. --  set PtheCard = 0
  33. --  
  34. --  set Pmygirl1 = 0
  35. --  set Pmygirl2 = 0
  36. --  set Pmygirl3 = 0
  37. --  set PmyTotal = 0
  38. --  set ParcadeFlag = 1
  39. --  set PmySound = 1
  40. --  
  41. --  puppetsprite 12, 1
  42. --  
  43. --  set PmySounds = [#n32n: "vo10.aiff", #n13s: "vo11.aiff"]
  44. --  
  45. --  return me
  46. --  
  47. --end
  48. --
  49. --
  50. --on update me
  51. --  
  52. --  if PtheRock then addCard me, 43, 151, 153, 77 -- "rock"
  53. --  if PtheMallet then addCard me, 41, 171, 280, 79 -- "hammer"
  54. --  if PtheToy then addCard me, 40, 181, 353, 80 -- "toys"
  55. --  
  56. --  if getat(GpreSets, 4) then 
  57. --    addCard me, 42, 161, 218, 78 -- "flower"
  58. --    addCard me, 47, 261, 443, 0
  59. --  end if
  60. --  if getat(GpreSets, 5) then 
  61. --    addCard me, 46, 251, 350, 0
  62. --    addCard me, 37, 211, 553, 0
  63. --  end if
  64. --  if getat(GpreSets, 6) then
  65. --    addCard GscreenObject, 39, 191, 409, 81 -- "candy"
  66. --    addCard GscreenObject, 48, 271, 535, 0
  67. --  end if
  68. --  if getat(GpreSets, 10) then 
  69. --    addCard GscreenObject, 44, 231, 172, 0
  70. --    set PtheCard = 1
  71. --  end if
  72. --  
  73. --end
  74. --
  75. --
  76. --on move me
  77. --  repeat with x = 1 to count(PmyHotSpotList)
  78. --    move getat(PmyHotSpotList,x)
  79. --  end repeat
  80. --  updatestage
  81. --end
  82. --
  83. --
  84. --on addCard me, whichSprite, whichCell, whichLocH, whichHandler
  85. --  
  86. --  set hotSpot = new(script "addHotSpot", whichSprite, whichCell, whichLocH, whichHandler)
  87. --  SetaProp PmyHotSpotList, whichSprite, hotSpot
  88. --  
  89. --end
  90. --
  91. --
  92. --on moveCards me, whichDir
  93. --  
  94. --  if whichDir > 0 then
  95. --    repeat with x = 37 to 43
  96. --      if not voidP(getaprop(PmyHotSpotList,x)) then moveOff getaprop(PmyHotSpotList,x)
  97. --    end repeat
  98. --    
  99. --    repeat with x = 44 to 48
  100. --      if not voidP(getaprop(PmyHotSpotList,x)) then moveOn getaprop(PmyHotSpotList,x)
  101. --    end repeat
  102. --    
  103. --  else
  104. --    
  105. --    repeat with x = 37 to 43
  106. --      if not voidP(getaprop(PmyHotSpotList,x)) then moveOn getaprop(PmyHotSpotList,x)
  107. --    end repeat
  108. --    
  109. --    repeat with x = 44 to 48
  110. --      if not voidP(getaprop(PmyHotSpotList,x)) then moveOff getaprop(PmyHotSpotList,x)
  111. --    end repeat
  112. --  end if
  113. --  
  114. --end
  115. --
  116. --
  117. --on killCards me
  118. --  repeat with x = 4 to 9
  119. --    disappear getaprop(PmyHotSpotList,x)
  120. --  end repeat
  121. --  
  122. --  repeat with x = 37 to 48
  123. --    if not voidP(getaprop(PmyHotSpotList,x)) then moveOff getaprop(PmyHotSpotList,x)
  124. --  end repeat
  125. --end
  126. --
  127. --on checkGame me
  128. --  --  if (Pgirl1 + Pgirl2 + Pgirl3) = 3 then
  129. --  --    goThing "dep"
  130. --  --  end if
  131. --  set PmyTotal = Pgirl1 + Pgirl2 + Pgirl3
  132. --end
  133. --
  134. --on changeHelp me
  135. --  deleteProp PmyHotSpotList, 34
  136. --end
  137. --
  138. --on changeHelpBack me
  139. --  --  set the ink of sprite 12 = 1
  140. --  --  set the locv of sprite 12 = 428
  141. --  -- deleteProp PmyHotSpotList, 3
  142. --  set hotSpot = new(script "helpObj", 34,35)
  143. --  addProp PmyHotSpotList, 34, hotSpot
  144. --end
  145. --
  146. --on revive me
  147. --  repeat with x = 4 to 9
  148. --    appear getaprop(PmyHotSpotList,x)
  149. --  end repeat
  150. --  moveCards me
  151. --end repeat