top of script window
grave mistake code snippet | show it | return |
on startMovie
  global gWeedColors, gNumColors, gCentered
  
  set gWeedColors= [8,15,16,51,58,87,88,99,95,101,131,143]
  set gNumColors= count(gWeedColors)
  put " " into field "fb"
  
  puppetSprite 3, 1
  puppetSprite 2, 1
  set gCentered = 0  
end

on tumbleWeed
  global gWeedColors, gNumColors, gCentered
  set the locV of sprite 3 to 270 + random(50)
  set the locH of sprite 3 to the locH of sprite 3  + random(100)
  set the castNum of sprite 3 to random(4)
  set the forecolor of sprite 3 = getAt(gWeedColors, random(gNumColors))
  if the locV of sprite 2 < 52 and NOT gCentered then 
    set the locV of sprite 2 to the locV of sprite 2 + 4
    set the ink of sprite 2 to random(39)
  else if NOT gCentered then
    set the ink of sprite 2 to 36
    set gCentered = 1
  end if
  
  updateStage
  if the locH of sprite 3 > 520 then 
    set the locH of sprite 3 to -30    
  end if
  
end tumbleWeed
Simple loop stuff to swap four different 1-bit sprites, representing 4 rotated tumble weed views, to bounce across the stage.

lingo era = v5 Completely hard wired to the stage positions for this movie!