home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Sofwpc12.dxr / 00018.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  558 b   |  19 lines

  1. on mouseUp
  2.   global x, SOFx, pageAmount, whichsection, whichonehuh
  3.   set x to pageAmount + 1
  4.   set SOFx to pageAmount + 1
  5.   set adcheck1 to "advert"
  6.   set amount to "1"
  7.   set adcheck2 to " "
  8.   set adchecker to "if the category of the prog" & SOFx & " of " & whichsection & " = adcheck1 then set adcheck2 = amount"
  9.   do(adchecker)
  10.   set the loc of sprite 27 to point(2000, 2000)
  11.   set the loc of sprite 28 to point(2000, 2000)
  12.   set the loc of sprite 29 to point(2000, 2000)
  13.   if adcheck2 = "1" then
  14.     nothing()
  15.   else
  16.     set whichonehuh to 2
  17.   end if
  18. end
  19.