What PC? 1997 December/WPCDEC97.ISO/DXRS/CYRIXO.DXR/00006_AnimateFreePhone.ls

Text File | 1997-10-13 | 1.6 KB | 53 lines

on AnimateFreePhone
  global Phone, LineHFlag, CYRIXPHONE, CYRPhoneCount, CYRIXFuture
  repeat while not rollOver(Phone)
    case CYRIXFuture of
      0:
        if the castNum of sprite 18 = the number of member "BIGCOMSixteen" then
          set the locH of sprite 39 to 250
        else
          set the locH of sprite 39 to 317
        end if
        set CYRIXFuture to 1
    end case
    case CYRIXPHONE of
      0:
        if the locH of sprite Phone > 219 then
          set the locH of sprite Phone to 219
          set CYRIXPHONE to 1
          updateStage()
          set the castNum of sprite Phone to the number of member "PhoneTwo"
        else
          set the locH of sprite Phone to the locH of sprite Phone + 10
        end if
      1:
        case CYRPhoneCount of
          120:
            set the castNum of sprite Phone to the number of member "Phone"
            updateStage()
          240:
            set the castNum of sprite Phone to the number of member "PhoneTwo"
            set CYRPhoneCount to 0
            updateStage()
        end case
        set CYRPhoneCount to 1 + CYRPhoneCount
    end case
    if the mouseDown then
      ReplaceCast()
      set the castNum of sprite Phone to the number of member "Phone"
      set CYRIXPHONE to 2
      set CYRIXFuture to 0
      exit repeat
    end if
    updateStage()
  end repeat
  if (the locH of sprite Phone = 219) and (CYRIXPHONE = 1) then
    set the castNum of sprite Phone to the number of member "PhoneTwo"
    set CYRPhoneCount to 0
    updateStage()
  end if
  if CYRIXPHONE = 2 then
    set CYRIXPHONE to 0
  end if
end