home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Sofwpc12.dxr / 00004.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  2.9 KB  |  80 lines
  1. on SOFimagessetup
  2.   global whichsection, t, whichprog, x, demo
  3.   repeat with w = 3 to 8
  4.     set the member of sprite w to member "softdot"
  5.   end repeat
  6.   set the member of sprite 1 to member "Softdot"
  7.   set the member of sprite 40 to member "softdot"
  8.   set the member of sprite 50 to member "softdot"
  9.   set the member of sprite 90 to member "softdot"
  10.   set the member of sprite 41 to member "softdot"
  11.   set the member of sprite 44 to member "softdot"
  12.   set the member of sprite 45 to member "softdot"
  13.   set the member of sprite 55 to member "softdot"
  14.   set the loc of sprite 1 to point(2000, 2000)
  15.   set the loc of sprite 40 to point(2000, 2000)
  16.   set the loc of sprite 50 to point(2000, 2000)
  17.   set the loc of sprite 90 to point(2000, 2000)
  18.   set the loc of sprite 55 to point(2000, 2000)
  19.   set the loc of sprite 41 to point(2000, 2000)
  20.   set the loc of sprite 44 to point(2000, 2000)
  21.   set the loc of sprite 45 to point(2000, 2000)
  22.   repeat with y = 70 to 79
  23.     set the loc of sprite y to member "softdot"
  24.     set the loc of sprite y to point(2000, 2000)
  25.   end repeat
  26.   set the member of sprite 31 to member "arrow_white_up"
  27.   set the loc of sprite 31 to point(172, 74)
  28.   set the ink of sprite 31 to 8
  29.   set the member of sprite 32 to member "arrow_white_down"
  30.   set the loc of sprite 32 to point(172, 160)
  31.   set the ink of sprite 32 to 8
  32.   set thiscount to "put count(" & whichsection & ") into t"
  33.   do(thiscount)
  34.   if x <= t then
  35.     set thisprog to "put the productName of the prog" & x & " of " & whichsection & " into demo"
  36.     do(thisprog)
  37.     set the member of sprite 4 to member demo
  38.     set x to x + 1
  39.     set the loc of sprite 4 to point(415, 79)
  40.   else
  41.     set the member of sprite 4 to member "softdot"
  42.   end if
  43.   if x <= t then
  44.     set thisprog to "put the productName of the prog" & x & " of " & whichsection & " into demo"
  45.     do(thisprog)
  46.     set the member of sprite 5 to member demo
  47.     set x to x + 1
  48.     set the loc of sprite 5 to point(415, 156)
  49.   else
  50.     set the member of sprite 5 to member "softdot"
  51.   end if
  52.   if x <= t then
  53.     set thisprog to "put the productName of the prog" & x & " of " & whichsection & " into demo"
  54.     do(thisprog)
  55.     set the member of sprite 6 to member demo
  56.     set x to x + 1
  57.     set the loc of sprite 6 to point(415, 233)
  58.   else
  59.     set the member of sprite 6 to member "softdot"
  60.   end if
  61.   if x <= t then
  62.     set thisprog to "put the productName of the prog" & x & " of " & whichsection & " into demo"
  63.     do(thisprog)
  64.     set the member of sprite 7 to member demo
  65.     set x to x + 1
  66.     set the loc of sprite 7 to point(415, 310)
  67.   else
  68.     set the member of sprite 7 to member "softdot"
  69.   end if
  70.   if x <= t then
  71.     set thisprog to "put the productName of the prog" & x & " of " & whichsection & " into demo"
  72.     do(thisprog)
  73.     set the member of sprite 8 to member demo
  74.     set x to x + 1
  75.     set the loc of sprite 8 to point(415, 387)
  76.   else
  77.     set the member of sprite 8 to member "softdot"
  78.   end if
  79. end
  80.