Chip 1999 July/CHIP-1999-07.iso/chip/monitor/elsa/ScreenChecker.exe/ScreenChecker.dxr/00025.ls

Text File | 1998-07-09 | 1001 b | 43 lines

on startMovie
  global Kiste
  if the machineType = 256 then
    set Kiste to "PC"
  else
    set Kiste to "MAC"
  end if
  if the colorDepth = 8 then
    set ColorD to "8"
  else
    set ColorD to "0"
  end if
  set the exitLock to 1
end

on hPressButton
  set vSprite to the clickOn
  set vCastNo to the castNum of sprite vSprite
  set vCastNam to the name of cast vCastNo
  puppetSprite(vSprite, 1)
  if (vCastNam = 0) or (vCastNam = EMPTY) then
    set the castNum of sprite vSprite to vCastNo + 1
  else
    set the castNum of sprite vSprite to the number of member (vCastNam & "-down")
  end if
  updateStage()
  repeat while the stillDown
    nothing()
  end repeat
  if (vCastNam = 0) or (vCastNam = EMPTY) then
    set the castNum of sprite vSprite to vCastNo
  else
    set the castNum of sprite vSprite to the number of member vCastNam
  end if
  puppetSprite(vSprite, 0)
  updateStage()
  if the mouseCast = the castNum of sprite vSprite then
    return 1
  else
    return 0
  end if
end