home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / mcny / source / newduck.dir / 00020.ls < prev    next >
Encoding:
Text File  |  1996-05-06  |  211 b   |  15 lines
  1. on mouseUp
  2.   global weapon
  3.   if weapon = 1 then
  4.     go("buckshot")
  5.   else
  6.     if weapon = 2 then
  7.       got(to, "fried")
  8.     else
  9.       if weapon = 3 then
  10.         go("laser")
  11.       end if
  12.     end if
  13.   end if
  14. end
  15.