PC Direct 1995 September/PCD0995.ISO/files/tools.dir/00372.ls

Text File | 1995-01-25 | 880 b | 25 lines

global gUSALit, gUSASprite, gInternationalSprite, gOrderInfoSprite

on mouseDown
  set WhichSprite to the clickOn
  set the castNum of sprite WhichSprite to the number of cast "International lit"
  repeat while the stillDown
    updateStage()
  end repeat
end

on mouseUp
  if gUSALit = 1 then
    set the castNum of sprite gUSASprite to the number of cast "USA/Canada"
    set the castNum of sprite gInternationalSprite to the number of cast "International lit"
    set the castNum of sprite gOrderInfoSprite to the number of cast "OrderingInfo2"
    set gUSALit to 0
  else
    set the castNum of sprite gUSASprite to the number of cast "USA/Canada lit"
    set the castNum of sprite gInternationalSprite to the number of cast "International"
    set the castNum of sprite gOrderInfoSprite to the number of cast "OrderingInfo1"
    set gUSALit to 1
  end if
  updateStage()
end