FHM 100 Bombázó Ajándék CD/fhm_hu_1997.iso/fhm.exe/fhm.dxr/00012.ls

Text File | 2001-03-18 | 1.6 KB | 56 lines

on mozgass_csajok_csik where
  global csajok_csik_h, which_csaj, whichpage, run_anim
  if where = "back" then
    x = 1
  else
    x = -1
  end if
  which_csaj = which_csaj - x
  if which_csaj < 1 then
    which_csaj = 39
  end if
  if which_csaj > 39 then
    which_csaj = 1
  end if
  if run_anim or (whichpage = "bigcsaj") then
    csajok_csik_h = the locH of sprite 10 + (x * 142)
  else
    set the locH of sprite 10 to the locH of sprite 10 + (x * 2)
    repeat with n = 1 to 4
      csajok_csik_h = the locH of sprite 10 + (x * 35)
      set the locH of sprite 10 to csajok_csik_h
      updateStage()
    end repeat
  end if
  if csajok_csik_h < -2169 then
    csajok_csik_h = 3227
  end if
  if csajok_csik_h > 3227 then
    csajok_csik_h = -2169
  end if
  set the locH of sprite 10 to csajok_csik_h
  updateStage()
  if whichpage = "csaj" then
    set the member of sprite 21 to "csaj_nev_" & which_csaj
    set the member of sprite 22 to "csaj_text_" & which_csaj
    set the member of sprite 16 to "csaj_kiskep_" & which_csaj
    updateStage()
  end if
  if whichpage = "bigcsaj" then
    set the member of sprite 21 to "csaj_kisnev_" & which_csaj
    set the member of sprite 22 to "csaj_text_" & which_csaj
    updateStage()
  end if
  if whichpage = "szavazas" then
    set the member of sprite 21 to "csaj_nev_" & which_csaj
    set the member of sprite 22 to "csaj_text_" & which_csaj
    set the member of sprite 16 to "csaj_kiskep_" & which_csaj
    updateStage()
  end if
  if whichpage = "bigcsaj" then
    set the member of sprite 23 to "csaj_big_" & which_csaj
    puppetTransition(28, 0)
    updateStage()
  end if
end