Rooie Oortjes 4/RO4_CD.bin/contest.dxr/00007.ls

Text File | 1998-09-18 | 816 b | 26 lines

on exitFrame
  if (the mouseH > 127) and (the mouseH < 514) then
    set the visible of sprite 2 to 0
    set the visible of sprite 3 to 0
  end if
  if the lineCount of member "field1" >= 5 then
    set str to the text of member "field1"
    set str to chars(str, 1, the number of chars in str - 1)
    set the text of member "field1" to str
    puppetSound(1, "ding")
  end if
  if the lineCount of member "field2" >= 3 then
    set str to the text of member "field2"
    set str to chars(str, 1, the number of chars in str - 1)
    set the text of member "field2" to str
    puppetSound(1, "ding")
  end if
  if random(1000) < 10 then
    set randsoundmember to the number of member "gig1" + random(9) - 1
    if not soundBusy(1) then
      puppetSound(1, randsoundmember)
    end if
  end if
  go(the frame)
end