home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 October / Pcwk1097.iso / REKLAMY / ATA-INT / 3220 / 3220.EXE / 3220.DXR / 00076_DCUtils.ls < prev    next >
Encoding:
Text File  |  1997-02-13  |  2.9 KB  |  71 lines

  1. on radBtnLogic castList
  2.   set newOnIndex to 0
  3.   set clickName to the name of cast the castNum of sprite the clickOn
  4.   repeat with i = 1 to count(castList)
  5.     if clickName = getAt(castList, i) then
  6.       set newOnIndex to i
  7.       exit repeat
  8.     end if
  9.   end repeat
  10.   if newOnIndex <> 0 then
  11.     set state to not (the hilite of cast newOnIndex)
  12.     repeat with i = 1 to count(castList)
  13.       if i = newOnIndex then
  14.         set the hilite of cast getAt(castList, i) to state
  15.         next repeat
  16.       end if
  17.       set the hilite of cast getAt(castList, i) to 0
  18.     end repeat
  19.   end if
  20.   updateStage()
  21. end
  22.  
  23. on putCastNums screen
  24.   if screen = "12.05" then
  25.     set checkBoxNames to ["12.05.05a", "12.05.06a", "12.05.07a", "12.05.08a", "12.05.09a", "12.05.10a", "12.05.11a", "12.05.12a", "12.05.14a", "12.05.15a"]
  26.     set graphicCastNames to ["12.05.05c", "12.05.06c", "12.05.07c", "12.05.08c", "12.05.09c", "12.05.10c", "12.05.11c", "12.05.12c", "12.05.14c", "12.05.15c"]
  27.     set textCastNames to [EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, "12.05.14b", "12.05.14b"]
  28.   else
  29.     if screen = "12.10" then
  30.       set checkBoxNames to ["12.10.02a", "12.10.05a", "12.10.06a", "12.10.07a", "12.10.09a", "12.10.10a", "12.10.11a", "12.10.12a", "12.10.13a", "12.10.15a", "12.10.16a"]
  31.       set graphicCastNames to ["12.10.02c", "12.10.05c", "12.10.06c", "12.10.07c", "12.10.09c", "12.10.10c", "12.10.11c", "12.10.12c", "12.10.13c", "12.10.15c", "12.10.16c"]
  32.       set textCastNames to ["12.10.02b", "12.10.05b", "12.10.06b", "12.10.07b", "12.10.09b", "12.10.10b", "12.10.11b", "12.10.12b", "12.10.13b", "12.10.15b", "12.10.16b"]
  33.     else
  34.       if screen = "12.15" then
  35.         set checkBoxNames to ["12.15.02a", "12.15.03a", "12.15.04a", "12.15.05a", "12.15.06a", "12.15.07a", "12.15.08a", "12.15.09a"]
  36.         set graphicCastNames to ["12.15.02c", "12.15.03c", "12.15.04c", "12.15.05c", "12.15.06c", "12.15.07c", "12.15.08c", "12.15.09c"]
  37.         set textCastNames to ["12.15.02b", "12.15.03b", "12.15.04b", "12.15.05b", "12.15.06b", "12.15.07b", "12.15.08b", "12.15.09b"]
  38.       else
  39.         put "Dont know" && screen
  40.         exit
  41.       end if
  42.     end if
  43.   end if
  44.   set t to the ticks
  45.   put "busy..."
  46.   set checkBoxNums to []
  47.   repeat with i in checkBoxNames
  48.     add(checkBoxNums, the number of cast i)
  49.   end repeat
  50.   put "checkBoxNums for screen" & screen & RETURN & string(checkBoxNums)
  51.   set graphicNums to []
  52.   repeat with i in graphicCastNames
  53.     if i = EMPTY then
  54.       add(graphicNums, 0)
  55.       next repeat
  56.     end if
  57.     add(graphicNums, the number of cast i)
  58.   end repeat
  59.   put RETURN & "graphicNums for screen" & screen & RETURN & string(graphicNums)
  60.   set textNums to []
  61.   repeat with i in textCastNames
  62.     if i = EMPTY then
  63.       add(textNums, 0)
  64.       next repeat
  65.     end if
  66.     add(textNums, the number of cast i)
  67.   end repeat
  68.   put RETURN & "textNums for screen" & screen & RETURN & string(textNums)
  69.   put RETURN & "Done" & RETURN & "that took" && string(the ticks - t) && "ticks"
  70. end
  71.