Human & Space in Asia/ARIF_ASCI.ISO/pc/arif.dir/00466.ls

Text File | 1996-09-25 | 4.5 KB | 145 lines

on exitFrame
  global CursorSpr, Fotos, WhichFoto, oldcast, oldx, oldy, ThereisF, ThereisA, ThereisS, Volum, ThereisT, alindi, ustunde, Where
  if soundBusy(1) then
    if the volume of sound 2 = Volum then
      set the volume of sound 2 to 10
    end if
  else
    if the volume of sound 2 = 10 then
      set the volume of sound 2 to Volum
    end if
  end if
  set mx to the mouseH
  set my to the mouseV
  if not alindi then
    if (abs(oldx - mx) > 5) or (abs(oldy - my) > 5) then
      set oldx to mx
      set oldy to my
      startTimer()
      if not (the visible of sprite 6) then
        cursor(-1)
        if ThereisS or ThereisA or ThereisT then
          ParmakCursor(6)
          set the visible of sprite 6 to 1
        end if
        if ThereisF then
          ParmakCursor(7)
          set the visible of sprite 7 to 1
        end if
      end if
    else
      if (the timer > 150) and the visible of sprite 6 then
        cursor(200)
        if ThereisS or ThereisA or ThereisT then
          set the visible of sprite 6 to 0
          set the cursor of sprite 6 to 200
        end if
        if ThereisF then
          set the cursor of sprite 7 to 200
          set the visible of sprite 7 to 0
        end if
      end if
    end if
    if WhichFoto = Fotos then
      set the cursor of sprite 4 to 0
    else
      set the cursor of sprite 4 to 200
    end if
    if WhichFoto = 1 then
      set the cursor of sprite 3 to 0
    else
      set the cursor of sprite 3 to 200
    end if
    repeat while 2 > 1
      if rollOver(2) then
        if oldcast <> 2 then
          if Where = 0 then
            set the castNum of sprite CursorSpr to the number of cast "GoBack1"
          else
            set the castNum of sprite CursorSpr to the number of cast "GoBack2"
          end if
          set oldcast to 2
        end if
        set the locH of sprite CursorSpr to the mouseH
        set the locV of sprite CursorSpr to the mouseV
        exit repeat
      end if
      if rollOver(3) and (WhichFoto > 1) then
        if oldcast <> 3 then
          set the castNum of sprite CursorSpr to the number of cast "GoLeft"
          set oldcast to 3
        end if
        set the locH of sprite CursorSpr to the mouseH
        set the locV of sprite CursorSpr to the mouseV
        exit repeat
      end if
      if rollOver(4) and (WhichFoto < Fotos) then
        if oldcast <> 4 then
          set the castNum of sprite CursorSpr to the number of cast "GoRight"
          set oldcast to 4
        end if
        set the locH of sprite CursorSpr to the mouseH
        set the locV of sprite CursorSpr to the mouseV
        exit repeat
      end if
      if oldcast <> 0 then
        set the castNum of sprite CursorSpr to the number of cast "‹kona Karesi"
        set oldcast to 0
      end if
      exit repeat
    end repeat
  end if
  if alindi and rollOver(11) and not ustunde then
    puppetSound("tikirti")
    set bekle to 5
    set the castNum of sprite 11 to the number of cast "Vazosol"
    startTimer()
    repeat while the timer < bekle
      set the locH of sprite 12 to the mouseH
      set the locV of sprite 12 to the mouseV
    end repeat
    set the locH of sprite 12 to the mouseH
    set the locV of sprite 12 to the mouseV
    updateStage()
    set the castNum of sprite 11 to the number of cast "Vazo"
    startTimer()
    repeat while the timer < bekle
      set the locH of sprite 12 to the mouseH
      set the locV of sprite 12 to the mouseV
    end repeat
    set the locH of sprite 12 to the mouseH
    set the locV of sprite 12 to the mouseV
    updateStage()
    set the castNum of sprite 11 to the number of cast "Vazosag"
    startTimer()
    repeat while the timer < bekle
      set the locH of sprite 12 to the mouseH
      set the locV of sprite 12 to the mouseV
    end repeat
    set the locH of sprite 12 to the mouseH
    set the locV of sprite 12 to the mouseV
    updateStage()
    set the castNum of sprite 11 to the number of cast "Vazo"
    startTimer()
    repeat while the timer < bekle
      set the locH of sprite 12 to the mouseH
      set the locV of sprite 12 to the mouseV
    end repeat
    set the locH of sprite 12 to the mouseH
    set the locV of sprite 12 to the mouseV
    updateStage()
    set ustunde to 1
  else
    if alindi and not rollOver(11) then
      set ustunde to 0
    end if
  end if
  if Where = 7 then
    set the castNum of sprite CursorSpr to the number of cast "‹kona Karesi"
    puppetSound(0)
    updateStage()
    go(the frame + 1)
  end if
  go(the frame)
end