home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 1 (Norsk) / backpacker.iso / pc / data / misc / bpk.dxr / 00205_NextJob.ls < prev    next >
Encoding:
Text File  |  1995-02-28  |  510 b   |  16 lines
  1. on NextJob Dir
  2.   global QN_K, tAUKT_JOBS, JOBS_P
  3.   set JOBS_P to JOBS_P + Dir
  4.   if (JOBS_P = count(tAUKT_JOBS)) or (JOBS_P = 1) then
  5.     set the visible of sprite the clickOn to 0
  6.   end if
  7.   if JOBS_P > 1 then
  8.     set the visible of sprite 11 to 1
  9.   end if
  10.   if JOBS_P < count(tAUKT_JOBS) then
  11.     set the visible of sprite 10 to 1
  12.   end if
  13.   set the castNum of sprite 8 to the number of cast ("Job" & getAt(tAUKT_JOBS, JOBS_P))
  14.   set the text of field "Kategori" to getAt(QN_K, getAt(tAUKT_JOBS, JOBS_P))
  15. end
  16.