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

Text File | 2001-03-13 | 682 b | 29 lines

on anim_szlogen
  global isanim, current_y, which_szlogen
  current_x = the locH of sprite 27
  current_blend = the blend of sprite 27
  if soundBusy(1) then
  else
    if current_x = 500 then
      puppetSound("szlogen_" & which_szlogen)
    end if
  end if
  if current_x < 800 then
    if current_blend < 100 then
      set the blend of sprite 27 to current_blend + 2
    end if
  end if
  if current_x < 100 then
    if current_blend > 0 then
      set the blend of sprite 27 to current_blend - 2
    end if
  end if
  tmp = current_x - 5
  if tmp < -100 then
    tmp = 800
    isanim = 0
  end if
  set the locH of sprite 27 to tmp
  set the locV of sprite 27 to current_y
end