home *** CD-ROM | disk | FTP | other *** search
/ Bakku no Oni - Blue / BLUE.ISO / mac / Browser / Blue / 00050.ls < prev    next >
Encoding:
Text File  |  1994-11-14  |  379 b   |  16 lines
  1. on pict_load pict_no
  2.   global group, f_name
  3.   if pict_no < 10 then
  4.     set pl_no to "0" & string(pict_no)
  5.   else
  6.     set pl_no to string(pict_no)
  7.   end if
  8.   set ret to disp_pict("BG-1", "BLUE:" & group && "BLUE" & ":220B24:" & pl_no)
  9.   if ret = 0 then
  10.     return 0
  11.   end if
  12.   set f_name to group && "BLUE" & "-" & pl_no
  13.   set the text of cast "PICTname" to f_name
  14.   return 1
  15. end
  16.