What PC? 1997 February/WPCFEB97.ISO/dxrs/jukebx02.dxr/00032_Bubbles.ls

Text File | 1996-12-09 | 5.6 KB | 172 lines

on bubbleVariables
  global Inc, radius, deg, Bubblecentreh, Bubblecentrev, Bubble1Counter, Bubblecentreh2, Bubblecentrev2, radius2, bubble2flag, bubble5flag, bubble6flag, bubble7flag, bubble8flag, bubble5counter, bubble6counter, bubble7counter, bubble8counter
  set bubble2flag to 0
  set bubble5flag to 0
  set bubble6flag to 0
  set bubble7flag to 0
  set bubble8flag to 0
  set Bubble1Counter to 180
  set bubble5counter to 180
  set bubble6counter to 180
  set bubble7counter to 180
  set bubble8counter to 180
  set the visible of sprite 30 to 0
  set the visible of sprite 31 to 0
  set the visible of sprite 32 to 0
  set the visible of sprite 33 to 0
  set the visible of sprite 34 to 0
  set the visible of sprite 35 to 0
  set Bubblecentrev to the locV of sprite 30
  set Bubblecentreh to the locH of sprite 5
  set radius to Bubblecentreh - the locH of sprite 30
  set deg to PI / 180.0
  set Inc to 1
  set Bubblecentrev2 to the locV of sprite 31
  set Bubblecentreh2 to the locH of sprite 5 - 32
  set radius2 to Bubblecentreh2 - the locH of sprite 31
end

on BubbleAnimation
  global bubble2flag, bubble5flag, bubble6flag, bubble7flag, bubble8flag
  set Rand to random(200)
  Bubble1Animation()
  if bubble2flag = 1 then
    bubble2animation()
  end if
  if ((Rand > 15) and (Rand < 20)) or (bubble5flag = 1) then
    bubble5animation()
  end if
  if ((Rand > 20) and (Rand < 25)) or (bubble6flag = 1) then
    bubble6animation()
  end if
  if ((Rand > 25) and (Rand < 30)) or (bubble7flag = 1) then
    bubble7animation()
  end if
  if ((Rand > 30) and (Rand < 35)) or (bubble8flag = 1) then
    bubble8animation()
  end if
end

on Bubble1Animation
  global Bubble1Counter, Bubblecentreh, Bubblecentrev, Inc, radius, deg
  set the visible of sprite 30 to 1
  set newinc to Bubble1Counter * Inc
  set the locH of sprite 30 to Bubblecentreh + (radius * cos(newinc * deg))
  set the locV of sprite 30 to Bubblecentrev - (radius * sin(newinc * deg))
  set Bubble1Counter to Bubble1Counter - 1
  if Bubble1Counter = 111 then
    set Bubble1Counter to 180
  end if
  if rollOver(30) and the mouseDown then
    puppetSound(3, 148)
    set the visible of sprite 30 to 0
    set Bubble1Counter to 180
  end if
  updateStage()
end

on bubble2animation
  global radius2, Bubblecentreh2, Bubblecentrev2, deg, bubble2counter, Inc, bubble2flag
  set the visible of sprite 31 to 1
  set bubble2flag to 1
  set newinc to bubble2counter * Inc
  set the locH of sprite 31 to Bubblecentreh2 + (radius2 * cos(newinc * deg))
  set the locV of sprite 31 to Bubblecentrev2 + (radius2 * sin(newinc * deg))
  set bubble2counter to bubble2counter - 1
  if bubble2counter = 111 then
    set bubble2counter to 180
    set bubble2flag to 0
    set the visible of sprite 31 to 0
  end if
  if rollOver(31) and the mouseDown then
    puppetSound(3, 148)
    set the visible of sprite 31 to 0
    set bubble2counter to 180
  end if
  updateStage()
end

on bubble5animation
  global radius, Bubblecentreh, Bubblecentrev, deg, bubble5flag, bubble5counter, Inc
  set the visible of sprite 32 to 1
  set bubble5flag to 1
  set newinc to bubble5counter * Inc
  set the locH of sprite 32 to Bubblecentreh + (radius * cos(newinc * deg))
  set the locV of sprite 32 to Bubblecentrev - (radius * sin(newinc * deg))
  set bubble5counter to bubble5counter - 1
  if bubble5counter = 111 then
    set bubble5counter to 180
    set bubble5flag to 0
    set the visible of sprite 32 to 0
  end if
  if rollOver(32) and the mouseDown then
    puppetSound(3, 148)
    set the visible of sprite 32 to 0
    set bubble5counter to 180
  end if
  updateStage()
end

on bubble6animation
  global radius2, Bubblecentreh2, Bubblecentrev2, deg, bubble6flag, bubble6counter, Inc
  set the visible of sprite 33 to 1
  set bubble6flag to 1
  set newinc to bubble6counter * Inc
  set the locH of sprite 33 to Bubblecentreh2 + (radius2 * cos(newinc * deg))
  set the locV of sprite 33 to Bubblecentrev2 + (radius2 * sin(newinc * deg))
  set bubble6counter to bubble6counter - 1
  if bubble6counter = 111 then
    set bubble6counter to 180
    set bubble6flag to 0
    set the visible of sprite 33 to 0
  end if
  if rollOver(33) and the mouseDown then
    puppetSound(3, 148)
    set the visible of sprite 33 to 0
    set bubble6counter to 180
  end if
  updateStage()
end

on bubble7animation
  global radius2, Bubblecentreh2, Bubblecentrev2, deg, bubble7flag, bubble7counter, Inc
  set the visible of sprite 34 to 1
  set bubble7flag to 1
  set newinc to bubble7counter * Inc
  set the locH of sprite 34 to Bubblecentreh2 + (radius2 * cos(newinc * deg))
  set the locV of sprite 34 to Bubblecentrev2 + (radius2 * sin(newinc * deg))
  set bubble7counter to bubble7counter - 1
  if bubble7counter = 111 then
    set bubble7counter to 180
    set bubble7flag to 0
    set the visible of sprite 34 to 0
  end if
  if rollOver(34) and the mouseDown then
    puppetSound(3, 148)
    set the visible of sprite 34 to 0
    set bubble7counter to 180
  end if
  updateStage()
end

on bubble8animation
  global radius, Bubblecentreh, Bubblecentrev, deg, bubble8flag, bubble8counter, Inc
  set the visible of sprite 35 to 1
  set bubble8flag to 1
  set newinc to bubble8counter * Inc
  set the locH of sprite 35 to Bubblecentreh + (radius * cos(newinc * deg))
  set the locV of sprite 35 to Bubblecentrev - (radius * sin(newinc * deg))
  set bubble8counter to bubble8counter - 1
  if bubble8counter = 111 then
    set bubble8counter to 180
    set bubble8flag to 0
    set the visible of sprite 35 to 0
  end if
  if rollOver(35) and the mouseDown then
    puppetSound(3, 148)
    set the visible of sprite 35 to 0
    set bubble8counter to 180
  end if
  updateStage()
end