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 / 00033.ls < prev    next >
Encoding:
Text File  |  2001-03-13  |  1.8 KB  |  80 lines
  1. on init_csajok
  2.   global counter, which_csaj, current_y, which_szlogen
  3.   counter = 0
  4.   which_csaj = random(38)
  5.   current_y = 400
  6.   which_szlogen = random(12)
  7.   render_big_csaj()
  8.   xx = 2229 - (which_csaj * 99)
  9.   set the locH of sprite 13 to xx
  10.   set the locV of sprite 27 to current_y
  11.   updateStage()
  12. end
  13.  
  14. on init_honap
  15.   global ev, honap, nap
  16.   case honap of
  17.     "1":
  18.       member("ev_honap").text = ev & " Janu├ír"
  19.     "2":
  20.       member("ev_honap").text = ev & " Febru├ír"
  21.     "3":
  22.       member("ev_honap").text = ev & " M├írcius"
  23.     "4":
  24.       member("ev_honap").text = ev & " ├üprilis"
  25.     "5":
  26.       member("ev_honap").text = ev & " M├íjus"
  27.     "6":
  28.       member("ev_honap").text = ev & " J├║nius"
  29.     "7":
  30.       member("ev_honap").text = ev & " J├║lius"
  31.     "8":
  32.       member("ev_honap").text = ev & " Augusztus"
  33.     "9":
  34.       member("ev_honap").text = ev & " Szeptember"
  35.     "10":
  36.       member("ev_honap").text = ev & " Okt├│ber"
  37.     "11":
  38.       member("ev_honap").text = ev & " November"
  39.     "12":
  40.       member("ev_honap").text = ev & " December"
  41.   end case
  42.   if ev <> "2001" then
  43.     sprite(1).visible = 0
  44.     sprite(2).visible = 0
  45.     sprite(3).visible = 0
  46.     sprite(4).visible = 0
  47.     sprite(6).visible = 0
  48.     sprite(8).visible = 0
  49.   else
  50.     set the member of sprite 8 to "naptar_" & honap
  51.   end if
  52. end
  53.  
  54. on set_date
  55.   global ev, honap, nap
  56.   dt = the short date
  57.   idel = the itemDelimiter
  58.   if offset(".", dt) then
  59.     magyar = 1
  60.   end if
  61.   if magyar then
  62.     the itemDelimiter = "."
  63.     ev = item 1 of dt
  64.     honap = item 2 of dt
  65.     nap = item 3 of dt
  66.   else
  67.     the itemDelimiter = "/"
  68.     ev = "20" & item 3 of dt
  69.     honap = item 1 of dt
  70.     nap = item 2 of dt
  71.   end if
  72.   the itemDelimiter = idel
  73.   e = value(ev)
  74.   h = value(honap)
  75.   n = value(nap)
  76.   ev = string(e)
  77.   honap = string(h)
  78.   nap = string(n)
  79. end
  80.