home *** CD-ROM | disk | FTP | other *** search
- on radBtnLogic castList
- set newOnIndex to 0
- set clickName to the name of cast the castNum of sprite the clickOn
- repeat with i = 1 to count(castList)
- if clickName = getAt(castList, i) then
- set newOnIndex to i
- exit repeat
- end if
- end repeat
- if newOnIndex <> 0 then
- set state to not (the hilite of cast newOnIndex)
- repeat with i = 1 to count(castList)
- if i = newOnIndex then
- set the hilite of cast getAt(castList, i) to state
- next repeat
- end if
- set the hilite of cast getAt(castList, i) to 0
- end repeat
- end if
- updateStage()
- end
-
- on putCastNums screen
- if screen = "12.05" then
- 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"]
- 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"]
- set textCastNames to [EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, EMPTY, "12.05.14b", "12.05.14b"]
- else
- if screen = "12.10" then
- 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"]
- 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"]
- 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"]
- else
- if screen = "12.15" then
- 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"]
- 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"]
- 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"]
- else
- put "Dont know" && screen
- exit
- end if
- end if
- end if
- set t to the ticks
- put "busy..."
- set checkBoxNums to []
- repeat with i in checkBoxNames
- add(checkBoxNums, the number of cast i)
- end repeat
- put "checkBoxNums for screen" & screen & RETURN & string(checkBoxNums)
- set graphicNums to []
- repeat with i in graphicCastNames
- if i = EMPTY then
- add(graphicNums, 0)
- next repeat
- end if
- add(graphicNums, the number of cast i)
- end repeat
- put RETURN & "graphicNums for screen" & screen & RETURN & string(graphicNums)
- set textNums to []
- repeat with i in textCastNames
- if i = EMPTY then
- add(textNums, 0)
- next repeat
- end if
- add(textNums, the number of cast i)
- end repeat
- put RETURN & "textNums for screen" & screen & RETURN & string(textNums)
- put RETURN & "Done" & RETURN & "that took" && string(the ticks - t) && "ticks"
- end
-