home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Sofwpc12.dxr / 00022.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  414 b   |  16 lines
  1. on mouseUp
  2.   global x, SOFx, pageAmount, whichsection, whichonehuh
  3.   set x to pageAmount + 5
  4.   set SOFx to pageAmount + 5
  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.   if adcheck2 = "1" then
  11.     nothing()
  12.   else
  13.     set whichonehuh to 2
  14.   end if
  15. end
  16.