home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / CYRIXO.DXR / 00004_LineSetUp.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  3.0 KB  |  59 lines
  1. on LineSetUp x
  2.   global LineHFlag, CyrLineList, BackTitleSprite, FirstHLine, FirstVLine, LastVLine, BigSprite, CyIconSprite, CYRSmallLogoList
  3.   set LineHFlag to 1
  4.   repeat with d = 42 to 45
  5.     set the locH of sprite d to 2000
  6.   end repeat
  7.   set the castNum of sprite BackTitleSprite to the number of member getAt(getAt(CyrLineList, x), 10)
  8.   set the ink of sprite BackTitleSprite to 0
  9.   set the loc of sprite BackTitleSprite to point(getAt(getAt(CyrLineList, x), 11), getAt(getAt(CyrLineList, x), 12))
  10.   set the castNum of sprite BigSprite to the castNum of sprite getAt(getAt(CyrLineList, x), 15) + 1
  11.   set the ink of sprite BigSprite to 36
  12.   set the loc of sprite BigSprite to point(getAt(getAt(CyrLineList, x), 13), getAt(getAt(CyrLineList, x), 14))
  13.   set the castNum of sprite x to the castNum of sprite x + 2
  14.   set the locH of sprite 46 to 2000
  15.   set the castNum of sprite 41 to the number of member getAt(getAt(CyrLineList, x), 17)
  16.   set the loc of sprite 41 to point(getAt(getAt(CyrLineList, x), 18), getAt(getAt(CyrLineList, x), 19))
  17.   repeat with s = 1 to count(CYRSmallLogoList)
  18.     set LogoSpriteNum to getAt(CYRSmallLogoList, s)
  19.     set WhichSpiteNo to getAt(LogoSpriteNum, 1)
  20.     case WhichSpiteNo of
  21.       x:
  22.         repeat with z = 2 to count(LogoSpriteNum)
  23.           set the castNum of sprite getAt(getAt(LogoSpriteNum, z), 2) to the number of member getAt(getAt(LogoSpriteNum, z), 1)
  24.           set the locH of sprite getAt(getAt(LogoSpriteNum, z), 2) to getAt(getAt(LogoSpriteNum, z), 3)
  25.           set the locV of sprite getAt(getAt(LogoSpriteNum, z), 2) to getAt(getAt(LogoSpriteNum, z), 4)
  26.         end repeat
  27.         updateStage()
  28.         exit repeat
  29.       otherwise:
  30.         set WhichLocV to getAt(getAt(CyrLineList, x), 4)
  31.         repeat with t = 1 to getAt(getAt(CyrLineList, x), 1)
  32.           set the castNum of sprite (t + FirstHLine) to the number of member getAt(getAt(CyrLineList, x), 2)
  33.           set the loc of sprite (t + FirstHLine) to point(getAt(getAt(CyrLineList, x), 3), WhichLocV)
  34.           updateStage()
  35.           set WhichLocV to WhichLocV + 15
  36.           AdWait(0.14999999999999999)
  37.         end repeat
  38.         set the castNum of sprite FirstVLine to the number of member getAt(getAt(CyrLineList, x), 5)
  39.         set the loc of sprite FirstVLine to point(getAt(getAt(CyrLineList, x), 6), 550)
  40.         set the ink of sprite FirstVLine to 36
  41.         set the locV of sprite FirstVLine to getAt(getAt(CyrLineList, x), 7)
  42.         updateStage()
  43.         AdWait(0.10000000000000001)
  44.         set the castNum of sprite 30 to the number of member getAt(getAt(CyrLineList, x), 16)
  45.         set the ink of sprite 30 to 36
  46.         set the loc of sprite 30 to point(getAt(getAt(CyrLineList, x), 8), getAt(getAt(CyrLineList, x), 9))
  47.         set WhichLocV to getAt(getAt(CyrLineList, x), 4)
  48.         repeat with t = 1 to getAt(getAt(CyrLineList, x), 1)
  49.           if (t + FirstHLine) <> 30 then
  50.             set the locH of sprite (t + FirstHLine) to 2000
  51.           end if
  52.         end repeat
  53.         updateStage()
  54.         repeat while the mouseDown
  55.         end repeat
  56.     end case
  57.   end repeat
  58. end
  59.