home *** CD-ROM | disk | FTP | other *** search
/ FHM 100 Bombázó Ajándék CD / fhm_hu_1997.iso / fhm_scr.exe / fhm_scr.dxr / 00022.ls < prev    next >
Encoding:
Text File  |  2001-03-13  |  499 b   |  23 lines
  1. on exitFrame
  2.   global isanim, current_y, which_szlogen
  3.   anim_csajok_csik()
  4.   if isanim then
  5.     anim_szlogen()
  6.   else
  7.     if random(250) = 2 then
  8.       isanim = 1
  9.       if random(2) = 2 then
  10.         current_y = 160
  11.       else
  12.         current_y = 400
  13.       end if
  14.       which_szlogen = which_szlogen + 1
  15.       if which_szlogen > 7 then
  16.         which_szlogen = 1
  17.       end if
  18.       member("szlogen").text = line which_szlogen of the text of member "szlogenek"
  19.     end if
  20.   end if
  21.   go(the frame)
  22. end
  23.