home *** CD-ROM | disk | FTP | other *** search
/ Painter Bear's Language Bridge — Italian / Bridge_ponte_itialian.iso / pc / helpers / open.dxr / 00002_puppets.ls < prev    next >
Encoding:
Text File  |  2001-02-22  |  2.3 KB  |  77 lines
  1. on initPuppets
  2.   global gTitleSpt, gWdTag, gPhsTag, gScorePeep, gFullPaint, gFstBridgePic, gGalleryText, gFlshSpt, gStpLght, gCarSpt, gStBar, gFstLne, gLstLne, gFstObs, gLstObs, gRoad, gRoadCollision, gFstRaceScore, gFstRaceTime, gRaceArch, gCarBox, gFirstPopSpt, gLstPopSpt, gFstPopInit, gLstPopInit, gLine1Init, gLine1Score, gLine2Init, gLine2Score, gLine3Init, gLine3Score, gLine4Init, gLine4Score, gLine5Init, gLine5Score, gTypeTag, gFirstPopLett, gFirstPopDelete, gLastPopOk, gLastPopLett, gScoreTitle, gAnswerLinesBox, gfstLftArr, gLstRtArr, gClickNote, gBridgeMonitor, gRightTag, gBear, gEyeSprite, gFindMouth, gFindTitle, gFindInstr, gCoverSprite, gBackBtn, gStampSpt, gPopBox, gSwitchSpt, gPopYes, gPopNo, gMusBtn
  3.   set gTitleSpt to 10
  4.   set gFstBridgePic to 3
  5.   set gGalleryText to 2
  6.   set gScorePeep to 42
  7.   set gWdTag to 45
  8.   set gPhsTag to 44
  9.   set gFullPaint to 111
  10.   set gAnswerLinesBox to 2
  11.   set gfstLftArr to 12
  12.   set gLstRtArr to 23
  13.   set gClickNote to 4
  14.   set gBridgeMonitor to 10
  15.   set gEyeSprite to 11
  16.   set gRightTag to 25
  17.   set gBear to 43
  18.   set gRoadCollision to 4
  19.   set gRoad to 5
  20.   set gStBar to 7
  21.   set gFstLne to 8
  22.   set gLstLne to 27
  23.   set gFstObs to 28
  24.   set gLstObs to 35
  25.   set gCarBox to 36
  26.   set gCarSpt to 37
  27.   set gFlshSpt to 63
  28.   set gFstRaceScore to 54
  29.   set gFstRaceTime to 46
  30.   set gRaceArch to 53
  31.   set gStpLght to 61
  32.   set gScoreTitle to 2
  33.   set gLine1Init to 3
  34.   set gLine2Init to 6
  35.   set gLine3Init to 9
  36.   set gLine4Init to 12
  37.   set gLine5Init to 15
  38.   set gLine1Score to 18
  39.   set gLine2Score to 25
  40.   set gLine3Score to 32
  41.   set gLine4Score to 39
  42.   set gLine5Score to 46
  43.   set gFirstPopSpt to 54
  44.   set gLstPopSpt to 83
  45.   set gFstPopInit to 84
  46.   set gLstPopInit to 86
  47.   set gTypeTag to 87
  48.   set gFirstPopLett to 55
  49.   set gLastPopLett to 80
  50.   set gFirstPopDelete to 81
  51.   set gLastPopOk to gLstPopSpt
  52.   set gFindMouth to 6
  53.   set gFindTitle to 4
  54.   set gFindInstr to 3
  55.   set gMusBtn to 115
  56.   set gStampSpt to 112
  57.   set gSwitchSpt to 113
  58.   set gBackBtn to 114
  59.   set gPopBox to 117
  60.   set gPopNo to 118
  61.   set gPopYes to 119
  62.   set gCoverSprite to 120
  63.   puppetSprite(gCoverSprite, 1)
  64. end
  65.  
  66. on puppetSprite fromWhat, toWhat
  67.   repeat with X = fromWhat to toWhat
  68.     set the puppet of sprite X to 1
  69.   end repeat
  70. end
  71.  
  72. on unpuppetSprite fromWhat, toWhat
  73.   repeat with X = fromWhat to toWhat
  74.     set the puppet of sprite X to 0
  75.   end repeat
  76. end
  77.