home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM da Folhinha / cdrom-folhinha.ISO / hq.dir / 00027.ls < prev    next >
Encoding:
Text File  |  1997-04-07  |  867 b   |  36 lines
  1. on mouseUp
  2.   global opcao, linha, coluna, quav, quah, desenho, fliphor, fliver, barratexto
  3.   repeat with i = 0 to 4
  4.     set the editableText of sprite ((i * 2) + 39) to 0
  5.   end repeat
  6.   if barratexto = 99 then
  7.     voltatexto()
  8.   end if
  9.   set fliphor to 0
  10.   set flipver to 0
  11.   set mv to the mouseV
  12.   set mh to the mouseH
  13.   if mh < 46 then
  14.     set opcao to 1
  15.   end if
  16.   if (mh > 55) and (mh < 90) then
  17.     set opcao to 2
  18.   end if
  19.   if (mh > 99) and (mh < 134) then
  20.     set opcao to 3
  21.   end if
  22.   if mh > 143 then
  23.     set opcao to 4
  24.   end if
  25.   set the castNum of sprite 3 to opcao + 3 + ((desenho - 1) * 4)
  26.   set the castNum of sprite 4 to 28 + ((opcao - 1) * 15) + ((desenho - 1) * 78)
  27.   set linha to 1
  28.   set coluna to 1
  29.   set quav to 236
  30.   set quah to 280
  31.   set the locV of sprite 5 to quah
  32.   puppetSound("botao")
  33.   updateStage()
  34.   set the locH of sprite 5 to quav
  35. end
  36.