home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 13 / CDROM13.iso / entrete / DEMOCP / FORCA1.DXR / 00098.ls < prev    next >
Encoding:
Text File  |  1996-11-20  |  815 b   |  38 lines
  1. on mouseUp
  2.   global erro, forca, acerto, fim
  3.   if fim = 0 then
  4.     repeat with x = 30 to 37
  5.       if the castNum of sprite 25 = the castNum of sprite x then
  6.         set the puppet of sprite x to 1
  7.         set the visible of sprite x to 1
  8.         set erro to 1
  9.       end if
  10.     end repeat
  11.     if erro = 0 then
  12.       set the puppet of sprite (forca + 1) to 1
  13.       set the visible of sprite (forca + 1) to 1
  14.       set forca to forca + 1
  15.       chora()
  16.       if the visible of sprite 43 = 1 then
  17.         set fim to 1
  18.         puppetSound("chora")
  19.       else
  20.         puppetSound("bee")
  21.       end if
  22.     else
  23.       fim()
  24.       if acerto = 1 then
  25.         set fim to 1
  26.         puppetSound("aplauso")
  27.       else
  28.         puppetSound("gong")
  29.       end if
  30.     end if
  31.   end if
  32. end
  33.  
  34. on mouseDown
  35.   global erro
  36.   set erro to 0
  37. end
  38.