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

Text File | 1996-09-25 | 3.7 KB | 128 lines

on exitFrame
  global oldsp, sayac, Castsayac, CursorSpr, ItsPC, BayrakSpeed
  set firstsp to 2
  set Secondsp to 13
  set rolled to 0
  repeat with RollCnt = 0 to 4
    if rollOver(firstsp + RollCnt) then
      if oldsp <> (Secondsp + RollCnt) then
        if oldsp <> 0 then
          set the visible of sprite oldsp to 0
        end if
        set the visible of sprite (Secondsp + RollCnt) to 1
        set oldsp to Secondsp + RollCnt
        set rolled to 1
        exit repeat
        next repeat
      end if
      set rolled to 1
    end if
  end repeat
  if not rolled then
    set the visible of sprite oldsp to 0
    set oldsp to 0
  end if
  repeat while 1 < 2
    if rollOver(18) then
      set the castNum of sprite CursorSpr to the number of cast "CinIlk" + Castsayac
      set sayac to sayac + 1
      if (sayac mod BayrakSpeed) = 0 then
        set Castsayac to Castsayac + 1
      end if
      if sayac > 10000 then
        set sayac to 0
      end if
      if Castsayac > 2 then
        set Castsayac to 0
      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(21) then
      set the castNum of sprite CursorSpr to the number of cast "HintIlk" + Castsayac
      set sayac to sayac + 1
      if (sayac mod BayrakSpeed) = 0 then
        set Castsayac to Castsayac + 1
      end if
      if sayac > 10000 then
        set sayac to 0
      end if
      if Castsayac > 2 then
        set Castsayac to 0
      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(23) then
      set the castNum of sprite CursorSpr to the number of cast "IranIlk" + Castsayac
      set sayac to sayac + 1
      if (sayac mod BayrakSpeed) = 0 then
        set Castsayac to Castsayac + 1
      end if
      if sayac > 10000 then
        set sayac to 0
      end if
      if Castsayac > 2 then
        set Castsayac to 0
      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(19) then
      set the castNum of sprite CursorSpr to the number of cast "MongolyaIlk" + Castsayac
      set sayac to sayac + 1
      if (sayac mod BayrakSpeed) = 0 then
        set Castsayac to Castsayac + 1
      end if
      if sayac > 10000 then
        set sayac to 0
      end if
      if Castsayac > 2 then
        set Castsayac to 0
      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(20) then
      set the castNum of sprite CursorSpr to the number of cast "NepalIlk" + Castsayac
      set sayac to sayac + 1
      if (sayac mod BayrakSpeed) = 0 then
        set Castsayac to Castsayac + 1
      end if
      if sayac > 10000 then
        set sayac to 0
      end if
      if Castsayac > 2 then
        set Castsayac to 0
      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(22) then
      set the castNum of sprite CursorSpr to the number of cast "PakistanIlk" + Castsayac
      set sayac to sayac + 1
      if (sayac mod BayrakSpeed) = 0 then
        set Castsayac to Castsayac + 1
      end if
      if sayac > 10000 then
        set sayac to 0
      end if
      if Castsayac > 2 then
        set Castsayac to 0
      end if
      set the locH of sprite CursorSpr to the mouseH
      set the locV of sprite CursorSpr to the mouseV
      exit repeat
    end if
    set the castNum of sprite CursorSpr to the number of cast "Bo Bayrak"
    set sayac to 0
    exit repeat
  end repeat
  go(the frame)
end