Otherware/Otherware_1_SB_Development.iso/mac/hypercar/fun/hyperhoo.sit/HyperHoop™/background_2742.txt

Text File | 1989-10-03 | 24.7 KB | 1,091 lines

-- background: 2742 from stack: in
-- bmap block id: 3210
-- flags: 4000
-- background id: 0
-- name: ScoreCard
----- HyperTalk script -----

on addit howmuch,whichline,field1,field2,field3,field4
  set cursor to watch
  put param(1) into howmuch
  put param(2) into whichline
  put param(3) into field1
  put param(4) into field2
  put param(5) into field3
  put param(6) into field4
  add howmuch to line whichline of bg field field1

  if field2 is not empty then add howmuch to line whichline of bg field field2

  if field3 is not empty then add howmuch to line whichline of bg field field3

  if field4 is not empty then add howmuch to line whichline of bg field field4

end addit



-- part 1 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=463 top=300 right=340 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Game Info
----- HyperTalk script -----
on mouseUp
  visual iris open
  push card
  go to card id 4549
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=36 top=31 right=44 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Team
----- HyperTalk script -----
on mouseup
  global thisTeam, theOtherTeam
  ask "Enter the team name." with me
  if it is not empty then
    put it into me
    put "ΓÇó"&& it into line thisTeam of fld "Teams"
    put " "&& it into line thisTeam of fld "Teams" of cd theOtherTeam
    set the name of cd button id 1 of cd theOtherTeam to it
  end if
end mouseup


-- part 5 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=19 top=44 right=188 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Players


-- part 25 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=67 top=264 right=295 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Teams


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=118 top=44 right=201 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Minutes


-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=142 top=44 right=201 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: FGM
----- HyperTalk script -----
on mouseUp
  global qfield,thisTeam,theOtherTeam
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  if the ShiftKey is down then
    addit -1,player,FGM,FGA
    addit -2,player,Pts
    addit -1,13,FGM,FGA    -- line 13 is the "totals" line
    addit -2,13,Pts        -- line 13 is the "totals" line
    addit -2,thisTeam,qfield,TotalScore
  else
    addit 1,player,FGM,FGA
    addit 2,player,Pts
    addit 1,13,FGM,FGA    -- line 13 is the "totals" line
    addit 2,13,Pts        -- line 13 is the "totals" line
    addit 2,thisTeam,qfield,TotalScore
  end if

  -- figure out shooting precentage
  put line 13 of field "FGM" into divisor
  put line 13 of field "FGA" into dividend
  put round(divisor/dividend*1000)/10 into percentage
  put percentage into field "FG%"
end mouseup




-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=165 top=44 right=201 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: FGA
----- HyperTalk script -----
on mouseUp
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  if the ShiftKey is down then
    addit -1,player,FGA
    addit -1,13,FGA    -- line 13 is the "totals" line
  else
    addit 1,player,FGA
    addit 1,13,FGA    -- line 13 is the "totals" line
  end if

  -- figure out shooting precentage
  put line 13 of field "FGM" into divisor
  put line 13 of field "FGA" into dividend
  put round(divisor/dividend*1000)/10 into percentage
  put percentage into field "FG%"
end mouseup




-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=189 top=44 right=201 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: FG3M
----- HyperTalk script -----
on mouseUp
  global qfield,thisTeam,theOtherTeam
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  if the ShiftKey is down then
    addit -1,player,FG3M,FG3A
    addit -3,player,Pts
    addit -1,13,FG3M,FG3A    -- line 13 is the "totals" line
    addit -3,13,Pts        -- line 13 is the "totals" line
    addit -3,thisteam,qfield,TotalScore
  else
    addit 1,player,FG3M,FG3A
    addit 3,player,Pts
    addit 1,13,FG3M,FG3A    -- line 13 is the "totals" line
    addit 3,13,Pts        -- line 13 is the "totals" line
    addit 3,thisteam,qfield,TotalScore
  end if

  -- figure out shooting precentage
  put line 13 of field "FG3M" into divisor
  put line 13 of field "FG3A" into dividend
  put round(divisor/dividend*1000)/10 into percentage
  put percentage into field "FG3%"

end mouseup




-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=212 top=44 right=201 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: FG3A
----- HyperTalk script -----
on mouseUp
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  if the ShiftKey is down then
    addit -1,player,FG3A
    addit -1,13,FG3A    -- line 13 is the "totals" line
  else
    addit 1,player,FG3A
    addit 1,13,FG3A    -- line 13 is the "totals" line
  end if


  -- figure out shooting precentage
  put line 13 of field "FG3M" into divisor
  put line 13 of field "FG3A" into dividend
  put round(divisor/dividend*1000)/10 into percentage
  put percentage into field "FG3%"

end mouseup




-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=236 top=44 right=201 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: FTM
----- HyperTalk script -----
on mouseUp
  global qfield,thisTeam,theOtherTeam
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  if the ShiftKey is down then
    addit -1,player,FTM,FTA,PTs
    addit -1,13,FTM,FTA,pts    -- line 13 is the "totals" line
    addit -1,thisTeam,qfield,TotalScore
  else
    addit 1,player,FTM,FTA,PTs
    addit 1,13,FTM,FTA,pts    -- line 13 is the "totals" line
    addit 1,thisTeam,qfield,TotalScore
  end if


  -- figure out shooting precentage
  put line 13 of field "FTM" into divisor
  put line 13 of field "FTA" into dividend
  put round(divisor/dividend*1000)/10 into percentage
  put percentage into field "FT%"

end mouseup




-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=259 top=44 right=201 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: FTA
----- HyperTalk script -----
on mouseUp
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  if the ShiftKey is down then
    addit -1,player,FTA
    addit -1,13,FTA    -- line 13 is the "totals" line
  else
    addit 1,player,FTA
    addit 1,13,FTA   -- line 13 is the "totals" line
  end if


  -- figure out shooting precentage
  put line 13 of field "FTM" into divisor
  put line 13 of field "FTA" into dividend
  put round(divisor/dividend*1000)/10 into percentage
  put percentage into field "FT%"

end mouseup




-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=283 top=44 right=201 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: OffReb
----- HyperTalk script -----
on mouseUp
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  if the ShiftKey is down then
    addit -1,player,OffReb,TotReb
    addit -1,13,OffReb,TotReb    -- line 13 is the "totals" line
  else
    addit 1,player,OffReb,TotReb
    addit 1,13,OffReb,TotReb    -- line 13 is the "totals" line
  end if

end mouseup




-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=306 top=44 right=201 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: DefReb
----- HyperTalk script -----
on mouseUp
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  if the ShiftKey is down then
    addit -1,player,DefReb,TotReb
    addit -1,13,DefReb,TotReb    -- line 13 is the "totals" line
  else
    addit 1,player,DefReb,TotReb
    addit 1,13,DefReb,TotReb    -- line 13 is the "totals" line
  end if

end mouseup




-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=329 top=44 right=201 bottom=353
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: TotReb
----- HyperTalk script -----
on mouseup
  beep
end mouseup



-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=353 top=44 right=201 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: AST
----- HyperTalk script -----
-- This is the completely generic script for adding/recalc

on mouseUp
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  put the short name of me into fldName
  if the ShiftKey is down then
    addit -1,player,fldName
    addit -1,13,fldName    -- line 13 is the "totals" line
  else
    addit 1,player,fldName
    addit 1,13,fldName    -- line 13 is the "totals" line
  end if

end mouseup




-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=399 top=44 right=201 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: ST
----- HyperTalk script -----
-- This is the completely generic script for adding/recalc

on mouseUp
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  put the short name of me into fldName
  if the ShiftKey is down then
    addit -1,player,fldName
    addit -1,13,fldName    -- line 13 is the "totals" line
  else
    addit 1,player,fldName
    addit 1,13,fldName    -- line 13 is the "totals" line
  end if

end mouseup




-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=376 top=44 right=201 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: PF
----- HyperTalk script -----
-- This is the completely generic script for adding/recalc

on mouseUp
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  put the short name of me into fldName
  if the ShiftKey is down then
    addit -1,player,fldName
    addit -1,13,fldName    -- line 13 is the "totals" line
  else
    addit 1,player,fldName
    addit 1,13,fldName    -- line 13 is the "totals" line
  end if

end mouseup




-- part 19 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=422 top=44 right=201 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: TURN
----- HyperTalk script -----
-- This is the completely generic script for adding/recalc

on mouseUp
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  put the short name of me into fldName
  if the ShiftKey is down then
    addit -1,player,fldName
    addit -1,13,fldName    -- line 13 is the "totals" line
  else
    addit 1,player,fldName
    addit 1,13,fldName    -- line 13 is the "totals" line
  end if

end mouseup




-- part 20 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=445 top=44 right=201 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: BLK
----- HyperTalk script -----
-- This is the completely generic script for adding/recalc

on mouseUp
  put lineclicked() into Player
  if player > 12 then
    beep
    put 12 into player
  end if

  put the short name of me into fldName
  if the ShiftKey is down then
    addit -1,player,fldName
    addit -1,13,fldName    -- line 13 is the "totals" line
  else
    addit 1,player,fldName
    addit 1,13,fldName    -- line 13 is the "totals" line
  end if

end mouseup




-- part 21 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=471 top=44 right=201 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: PTS
----- HyperTalk script -----
on mouseup
  beep
end mouseup



-- part 22 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=142 top=205 right=221 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: FG%


-- part 23 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=189 top=205 right=221 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: FG3%


-- part 24 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=236 top=205 right=221 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: FT%


-- part 26 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=194 top=264 right=295 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Q1


-- part 27 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=220 top=264 right=295 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Q2


-- part 28 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=246 top=264 right=295 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Q3


-- part 29 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=272 top=264 right=295 bottom=299
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Q4


-- part 30 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=298 top=264 right=295 bottom=325
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: OT1


-- part 31 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=324 top=264 right=295 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: OT2


-- part 32 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=350 top=264 right=295 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: OT3


-- part 33 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=385 top=264 right=295 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: TotalScore


-- part 34 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=200 top=302 right=316 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Q1
----- HyperTalk script -----
on mouseUp
  global quarter,qfield,thisTeam,theOtherTeam

  -- move this team's scores onto the other team's scorecard
  get line thisteam of fld qfield
  put it into line thisteam of fld qfield of cd TheOtherTeam
  get line thisteam of fld TotalScore
  put it into line thisteam of fld TotalScore of cd TheOtherTeam

  repeat with x = 2 to 8    -- buttons in this group
    if the number of me is x then
      set the hilite of bg button x to true
      put x-1 into quarter
      put (x-1) + 22 into blah
      put the short name of field blah into qfield
      -- qfield is now in the proper name format for addit
    else
      set the hilite of bg button x to false
    end if
  end repeat

end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=226 top=302 right=316 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  global quarter,qfield,thisTeam,theOtherTeam

  -- move this team's scores onto the other team's scorecard
  get line thisteam of fld qfield
  put it into line thisteam of fld qfield of cd TheOtherTeam
  get line thisteam of fld TotalScore
  put it into line thisteam of fld TotalScore of cd TheOtherTeam

  repeat with x = 2 to 8    -- buttons in this group
    if the number of me is x then
      set the hilite of bg button x to true
      put x-1 into quarter
      put (x-1) + 22 into blah
      put the short name of field blah into qfield
      -- qfield is now in the proper name format for addit
    else
      set the hilite of bg button x to false
    end if
  end repeat

end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=251 top=302 right=316 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  global quarter,qfield,thisTeam,theOtherTeam

  -- move this team's scores onto the other team's scorecard
  get line thisteam of fld qfield
  put it into line thisteam of fld qfield of cd TheOtherTeam
  get line thisteam of fld TotalScore
  put it into line thisteam of fld TotalScore of cd TheOtherTeam

  repeat with x = 2 to 8    -- buttons in this group
    if the number of me is x then
      set the hilite of bg button x to true
      put x-1 into quarter
      put (x-1) + 22 into blah
      put the short name of field blah into qfield
      -- qfield is now in the proper name format for addit
    else
      set the hilite of bg button x to false
    end if
  end repeat

end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=277 top=302 right=316 bottom=295
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  global quarter,qfield,thisTeam,theOtherTeam

  -- move this team's scores onto the other team's scorecard
  get line thisteam of fld qfield
  put it into line thisteam of fld qfield of cd TheOtherTeam
  get line thisteam of fld TotalScore
  put it into line thisteam of fld TotalScore of cd TheOtherTeam

  repeat with x = 2 to 8    -- buttons in this group
    if the number of me is x then
      set the hilite of bg button x to true
      put x-1 into quarter
      put (x-1) + 22 into blah
      put the short name of field blah into qfield
      -- qfield is now in the proper name format for addit
    else
      set the hilite of bg button x to false
    end if
  end repeat

end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=303 top=302 right=316 bottom=321
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  global quarter,qfield,thisTeam,theOtherTeam

  -- move this team's scores onto the other team's scorecard
  get line thisteam of fld qfield
  put it into line thisteam of fld qfield of cd TheOtherTeam
  get line thisteam of fld TotalScore
  put it into line thisteam of fld TotalScore of cd TheOtherTeam

  repeat with x = 2 to 8    -- buttons in this group
    if the number of me is x then
      set the hilite of bg button x to true
      put x-1 into quarter
      put (x-1) + 22 into blah
      put the short name of field blah into qfield
      -- qfield is now in the proper name format for addit
    else
      set the hilite of bg button x to false
    end if
  end repeat

end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=329 top=302 right=316 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  global quarter,qfield,thisTeam,theOtherTeam

  -- move this team's scores onto the other team's scorecard
  get line thisteam of fld qfield
  put it into line thisteam of fld qfield of cd TheOtherTeam
  get line thisteam of fld TotalScore
  put it into line thisteam of fld TotalScore of cd TheOtherTeam

  repeat with x = 2 to 8    -- buttons in this group
    if the number of me is x then
      set the hilite of bg button x to true
      put x-1 into quarter
      put (x-1) + 22 into blah
      put the short name of field blah into qfield
      -- qfield is now in the proper name format for addit
    else
      set the hilite of bg button x to false
    end if
  end repeat

end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=355 top=302 right=316 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  global quarter,qfield,thisTeam,theOtherTeam

  -- move this team's scores onto the other team's scorecard
  get line thisteam of fld qfield
  put it into line thisteam of fld qfield of cd TheOtherTeam
  get line thisteam of fld TotalScore
  put it into line thisteam of fld TotalScore of cd TheOtherTeam

  repeat with x = 2 to 8    -- buttons in this group
    if the number of me is x then
      set the hilite of bg button x to true
      put x-1 into quarter
      put (x-1) + 22 into blah
      put the short name of field blah into qfield
      -- qfield is now in the proper name format for addit
    else
      set the hilite of bg button x to false
    end if
  end repeat

end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=468 top=247 right=292 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 4188 / 4188
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push card
  visual barn door open
  go card "Help"
end mouseUp