home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / SHARED.DXR / 01069_JustBeforAdvert.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  624 b   |  19 lines
  1. on exitFrame
  2.   global addlist, addPallist, ADDThisNum, ADDKindList, REFAddWatch, REFaddPallist, REFaddlist, REFADDKindList
  3.   go(the frame)
  4.   win_midiStop()
  5.   puppetSound(0)
  6.   updateStage()
  7.   if REFAddWatch = 0 then
  8.     if count(addlist) = 0 then
  9.       set addPallist to list([1085, 1084], [1087, 1086], [1100, 1099], [1089, 1088], [1091, 1090], [1093, 1092])
  10.       set addlist to list([1079, 1800], [1080, 1800], [0, 0], [1081, 2390], [1082, 1660], [1083, 630])
  11.       set ADDKindList to list(1, 1, 2, 1, 1, 1)
  12.     end if
  13.     set ADDThisNum to random(count(addlist))
  14.     go("ADDVIDEO")
  15.   else
  16.     go("ADDVIDEO")
  17.   end if
  18. end
  19.