Klaus wrote:Hi Ralph,
could you please post the "offending" script of btn #3?
My Button script on card #3
-----
on mouseUp -- 8/26/93 - Rev. 05/06/05
global ydLine, ydsChange, downYds, BallLoc, posStart, ydsToGo
put char 1 of posStart into downStart
if char 3 of posStart <> "G" then
put char 3 to 4 of posStart into YdsToGoStart
else
put char 14 to 15 of posStart into YdsToGoStart -- 8/18/93
end if
-- Put "Got Here" message -- OK √
modal stack "AssessPnlty"
-- Do NOT get "Got Here #2" OK message -- X[/b}
put the dialogData into myString
put "The dataDialog =" && myString into message
Put "MyString =" && myString && "ouyt of DualogBox"
if the myString = "Cancel" i then -- clicked the “Cancel” button
exit mouseUp
else
put item 1 of myString into PenaltyYds
-- 10/25/95 ••
if item 5 of myString is "TRUE" then -- add penalty to Gain/Loss
if item 4 of myString is "TRUE" then -- against defense
put ydLine + PenaltyYds into ydLine
put YdsToGoStart - ydsChange - PenaltyYds into ydsToGo
else
if item 2 of myString is "TRUE" then -- against offense
put ydLine - PenaltyYds into ydLine
put YdsToGoStart - ydsChange + PenaltyYds into ydsToGo
else
put "Incomplete Penalty Definition"
exit mouseUp
end if
end if
put downStart+1 into downStart
put downStart &"/"& ydsToGo into downYds
else
if item 2 of myString is "TRUE" then -- against offense
put ydLine - ydsChange - PenaltyYds into ydLine
put YdsToGoStart + PenaltyYds into ydsToGo
else
if item 3 of myString is "TRUE" then
put "; Penalty Declined" after \ -- ∆∆∆
last line of cd fld "Play Result"
set hilite of me to false
exit mouseUp
else
if item 4 of myString is "TRUE" then -- against defense
put ydLine - ydsChange + PenaltyYds into ydLine
put YdsToGoStart - PenaltyYds into ydsToGo
end if
end if
end if
end if
end if
if YdsToGo < 1 or (item 6 of myString is "TRUE") then -- & 1st Down
put "1/10" into downYds
else
if item 7 of myString is "TRUE" then \ -- & Loss of Down
put downStart+1 into downStart
put downStart &"/"& ydsToGo into downYds
end if
if ydLine + YdsToGo >= 100 then put "1/Goal" into downYds -- 8/18/93
DecodeYards -- ∆∆∆ 1/15/93
put downYds && "from" && BallLoc into cd fld "BallLocation"
put cd fld "BallLocation" into posStart
set hilite of me to false
end mouseUp
-----
