![]() 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! |