Greatest Childrens Stories Ever Told/Greatest_Stories.iso/demos/funtown/win.dir/00045_Script_45

Text File | 1994-11-15 | 1KB | 23 lines

--ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù

on activate spriteNum,targetCast,targetType,targetInk,targetH,targetV,stretchBool,targetH2,targetV2
  puppetsprite spriteNum, true
  set the type of sprite spriteNum=targetType
  set the castNum of sprite spriteNum=the number of cast targetCast
  set the ink of sprite spriteNum=targetink
  set the foreColor of sprite spriteNum=255
  set the backColor of sprite spriteNum=0
  set the locH of sprite spriteNum=targetH
  set the locV of sprite spriteNum=targetV
  set the stretch of sprite spriteNum=(stretchBool<>"") --ò stretch=true if stretchBool is NOT empty
  if stretchBool<>"" and targetH2<>"" then spritebox spriteNum,targetH,targetV,targetH2,targetV2
  set the immediate of sprite spriteNum=true
end
--ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
on deactivate spriteList
  repeat with x=1 to the number of items in spriteList
    set spriteNum=value ( item 1 of spriteList )
    set the type of sprite spriteNum=0
    puppetSprite spriteNum, false
  end repeat
end