home *** CD-ROM | disk | FTP | other *** search
/ Professor Iris' Fun Field Trip - Animal Safari / Iris.iso / pc / discover / page6.dir / 00407.ls < prev    next >
Encoding:
Text File  |  1995-03-14  |  1.1 KB  |  18 lines
  1. set mh to the mouseH
  2. set mv to the mouseV
  3. puppetSound("mouseClick")
  4. updateStage()
  5. set gCatBoxWide to 92
  6. set gCatBoxTall to 56
  7. set gCatSpan to 2
  8. set gCatBox1H to 116
  9. set gCatBox1V to 76
  10. set gCatBox2V to gCatBox1V + gCatBoxTall + gCatSpan
  11. set gCatBox3V to gCatBox1V + (2 * (gCatBoxTall + gCatSpan))
  12. set gCatBox4V to gCatBox1V + (3 * (gCatBoxTall + gCatSpan))
  13. set gCatBox5V to gCatBox1V + (4 * (gCatBoxTall + gCatSpan))
  14. set gLogCatTest to (1 * ((mh > gCatBox1H) and (mh < (gCatBox1H + gCatBoxWide)) and ((mv > gCatBox1V) and (mv < (gCatBox1V + gCatBoxTall))))) + (2 * ((mh > gCatBox1H) and (mh < (gCatBox1H + gCatBoxWide)) and ((mv > gCatBox2V) and (mv < (gCatBox2V + gCatBoxTall))))) + (3 * ((mh > gCatBox1H) and (mh < (gCatBox1H + gCatBoxWide)) and ((mv > gCatBox3V) and (mv < (gCatBox3V + gCatBoxTall))))) + (4 * ((mh > gCatBox1H) and (mh < (gCatBox1H + gCatBoxWide)) and ((mv > gCatBox4V) and (mv < (gCatBox4V + gCatBoxTall))))) + (5 * ((mh > gCatBox1H) and (mh < (gCatBox1H + gCatBoxWide)) and ((mv > gCatBox5V) and (mv < (gCatBox5V + gCatBoxTall)))))
  15. if gLogCatTest <> 0 then
  16.   go("Index" & gLogCatTest)
  17. end if
  18.