home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / intpcw08.dxr / 00004_IFLSetUpLogo.ls < prev    next >
Encoding:
Text File  |  1997-05-21  |  1.9 KB  |  68 lines
  1. on IFLSetUpLogo
  2.   global ILFRotateP, IFLPersonalList, IFLStartP, IFLROtCounter
  3.   if IFLROtCounter = 2 then
  4.     set ILFRotateP to 2
  5.   else
  6.     set IFLROtCounter to 1 + IFLROtCounter
  7.   end if
  8.   if ILFRotateP <> 2 then
  9.     repeat with t = 1 to 8
  10.       if (ILFRotateP = 1) and (the castNum of sprite 3 = the number of member "Startrotate") then
  11.         set ILFRotateP to 2
  12.         exit repeat
  13.         next repeat
  14.       end if
  15.       set the castNum of sprite 3 to the castNum of sprite 3 + 1
  16.       if the mouseDown then
  17.         cursor(-1)
  18.         set ILFRotateP to 1
  19.         updateStage()
  20.       end if
  21.       Intwait(0.10000000000000001)
  22.       updateStage()
  23.     end repeat
  24.   end if
  25.   if ILFRotateP <> 2 then
  26.     repeat with t = 1 to 8
  27.       if (ILFRotateP = 1) and (the castNum of sprite 3 = the number of member "Startrotate") then
  28.         set ILFRotateP to 2
  29.         exit repeat
  30.         next repeat
  31.       end if
  32.       set the castNum of sprite 3 to the castNum of sprite 3 - 1
  33.       if the mouseDown then
  34.         cursor(-1)
  35.         set ILFRotateP to 1
  36.         updateStage()
  37.       end if
  38.       Intwait(0.10000000000000001)
  39.       updateStage()
  40.     end repeat
  41.   else
  42.     cursor(200)
  43.     puppetSound(0)
  44.     set the castNum of sprite 3 to the number of member "rotateP"
  45.     updateStage()
  46.     set the castNum of sprite 3 to the castNum of sprite 3 + 1
  47.     updateStage()
  48.     repeat while the locV of sprite 3 < 362
  49.       set the locV of sprite 3 to the locV of sprite 3 + 10
  50.       updateStage()
  51.     end repeat
  52.     set the locV of sprite 3 to 362
  53.     updateStage()
  54.     set the locH of sprite 3 to 339
  55.     updateStage()
  56.     Intwait(0.20000000000000001)
  57.     set the castNum of sprite 32 to the number of member "fullLOGO"
  58.     set the locH of sprite 32 to 445
  59.     set the locV of sprite 32 to 407
  60.     repeat with t = 3 to 12
  61.       set the locH of sprite t to 2000
  62.     end repeat
  63.     updateStage()
  64.     Intwait(0.20000000000000001)
  65.     set IFLStartP to 1
  66.   end if
  67. end
  68.