home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 August / CHIP_CD_1998_08_PL.iso / Software / testsoft / tatry / tatry2.dir / 00010.ls < prev    next >
Encoding:
Text File  |  1998-06-09  |  410 b   |  16 lines
  1. on exitFrame
  2.   global ktora_bitmapa, CzyByl, nr_tla
  3.   if not CzyByl and (nr_tla <> 40) then
  4.     puppetSprite(9, 1)
  5.     puppetTransition(48, 2, 5, 1)
  6.     set the visible of sprite 9 to 0
  7.     updateStage()
  8.     set the member of sprite 9 to member (string(nr_tla) & "s0601")
  9.     puppetTransition(51, 2, 5, 1)
  10.     set the visible of sprite 9 to 1
  11.     updateStage()
  12.     set CzyByl to 1
  13.   end if
  14.   go(the frame)
  15. end
  16.