home *** CD-ROM | disk | FTP | other *** search
/ Leonardo daVinci / LEODAVINCI.ISO / DATA / G2.Dxr / 00050_G2Room.ls < prev    next >
Encoding:
Text File  |  1996-11-22  |  3.5 KB  |  123 lines
  1. property sub, L2ReturnToRoomButtonDimMem, L2ReturnToRoomButtonHiMem, MapHiliteMem, PreviewTextMem, PreviewGraphicMem
  2. global vCurRoom, vCurDoor, sMapHilite, sPreviewText, sPreviewGraphic, sL2ReturnToRoomButton, vResetSpritesList, vCurG2RoomObj, vRestoreContext, vCurContext
  3.  
  4. on new me, psub, pL2ReturnToRoomButtonDimMem, pL2ReturnToRoomButtonHiMem, pMapHiliteMem, pPreviewTextMem, pPreviewGraphicMem
  5.   set sub to psub
  6.   set L2ReturnToRoomButtonDimMem to member pL2ReturnToRoomButtonDimMem of castLib "G2_g"
  7.   set L2ReturnToRoomButtonHiMem to member pL2ReturnToRoomButtonHiMem of castLib "G2_g"
  8.   set MapHiliteMem to member pMapHiliteMem of castLib "G2_g"
  9.   set PreviewTextMem to member pPreviewTextMem of castLib "G2_g"
  10.   set PreviewGraphicMem to member pPreviewGraphicMem of castLib "G2_g"
  11.   return me
  12. end
  13.  
  14. on L0StartUp me
  15.   setCurrentObjectHierarchy(me)
  16. end
  17.  
  18. on setCurrentObjectHierarchy me
  19.   set vCurG2RoomObj to me
  20.   if sub = 9 then
  21.     set vCurRoom to 0
  22.   else
  23.     set vCurRoom to sub
  24.   end if
  25. end
  26.  
  27. on resetCurrentObjectHierarchy me
  28.   set vCurG2RoomObj to 0
  29. end
  30.  
  31. on L0MouseUpBackButton me
  32.   cleanupLevel0()
  33.   resetCurrentObjectHierarchy(me)
  34. end
  35.  
  36. on L0Goodbye me
  37.   cleanupLevel0()
  38.   set vCurContext to [#gallery: 2, #frame: the frame, #door: vCurDoor]
  39.   setBack(vCurContext)
  40.   resetCurrentObjectHierarchy(me)
  41. end
  42.  
  43. on L0Hello me
  44.   setCurrentObjectHierarchy(me)
  45.   set vCurDoor to getaProp(vRestoreContext, #door)
  46.   set vRestoreContext to []
  47.   goLevel0()
  48. end
  49.  
  50. on L1MouseUpMapCell me
  51.   case vCurRoom of
  52.     1, 5:
  53.       set vCurDoor to 6 - vCurRoom
  54.     2, 6:
  55.       set vCurDoor to 8 - vCurRoom
  56.     3, 7:
  57.       set vCurDoor to 10 - vCurRoom
  58.     4, 8:
  59.       set vCurDoor to 12 - vCurRoom
  60.     0:
  61.       nothing()
  62.   end case
  63.   L1Goodbye(vCurG2WallObj)
  64.   go("d" & vCurDoor)
  65.   setCurrentObjectHierarchy(me)
  66.   goLevel0()
  67. end
  68.  
  69. on L2MouseUpMapCell me
  70.   case vCurRoom of
  71.     1, 5:
  72.       set vCurDoor to 6 - vCurRoom
  73.     2, 6:
  74.       set vCurDoor to 8 - vCurRoom
  75.     3, 7:
  76.       set vCurDoor to 10 - vCurRoom
  77.     4, 8:
  78.       set vCurDoor to 12 - vCurRoom
  79.     0:
  80.       nothing()
  81.   end case
  82.   if objectp(vCurG2SubEntryObj) then
  83.     L2Goodbye(vCurG2SubEntryObj)
  84.   else
  85.     L2Goodbye(vCurG2EntryObj)
  86.   end if
  87.   go("d" & vCurDoor)
  88.   setCurrentObjectHierarchy(me)
  89.   goLevel0()
  90. end
  91.  
  92. on LnMouseOverMapCell me
  93.   set the member of sprite sMapHilite to MapHiliteMem
  94.   set the loc of sprite sMapHilite to point(320, 240)
  95.   deleteOne(vResetSpritesList, sMapHilite)
  96.   set the member of sprite sPreviewText to PreviewTextMem
  97.   set the loc of sprite sPreviewText to point(320, 240)
  98.   deleteOne(vResetSpritesList, sPreviewText)
  99.   set the member of sprite sPreviewGraphic to PreviewGraphicMem
  100.   set the loc of sprite sPreviewGraphic to point(320, 240)
  101.   deleteOne(vResetSpritesList, sPreviewGraphic)
  102. end
  103.  
  104. on LnMouseOverArch me
  105.   set the member of sprite sPreviewText to PreviewTextMem
  106.   set the loc of sprite sPreviewText to point(320, 240)
  107.   deleteOne(vResetSpritesList, sPreviewText)
  108.   set the member of sprite sPreviewGraphic to PreviewGraphicMem
  109.   set the loc of sprite sPreviewGraphic to point(320, 240)
  110.   deleteOne(vResetSpritesList, sPreviewGraphic)
  111. end
  112.  
  113. on L2MouseOverReturnToRoomButton me
  114.   set the member of sprite sL2ReturnToRoomButton to L2ReturnToRoomButtonHiMem
  115.   deleteOne(vResetSpritesList, sL2ReturnToRoomButton)
  116.   set the member of sprite sPreviewText to PreviewTextMem
  117.   set the loc of sprite sPreviewText to point(320, 240)
  118.   deleteOne(vResetSpritesList, sPreviewText)
  119.   set the member of sprite sPreviewGraphic to PreviewGraphicMem
  120.   set the loc of sprite sPreviewGraphic to point(320, 240)
  121.   deleteOne(vResetSpritesList, sPreviewGraphic)
  122. end
  123.