PC Master 1997 July & August/PCM97.iso/demos.dxr/00018.ls

Text File | 1998-06-23 | 389 b | 19 lines

on exitFrame
  go(the frame)
end

on idle
  global nm
  set X to rol(30, 45)
  if X > 0 then
    set tx to getAt(nm, X - 29)
    set the text of member "nam" to tx
    puppetSprite(100, 1)
    set the locH of sprite 100 to the locH of sprite X - 30
    set the locV of sprite 100 to the locV of sprite X - 40
    updateStage()
  else
    set the text of member "nam" to EMPTY
  end if
end