property pPict,pSprite,pW,pH,pZero,pMaxW

on new me
  set pSprite = 3
  set pPict   = ""
  set pW      = 0
  set pH      = 0
  set pZero   = the locH of sprite pSprite
  set pMaxW   = 125
  puppetSprite pSprite,TRUE
  
  return me
end new


on mEmptyPict me
  Global gLimit
  
  mChangePict(me,"data" & gLimit & "Bild000.gif")  
end mEmptyPict


on mChangePict me,newPict
  if newPict <> "" AND NOT(voidP(newPict)) then
    
    set pPict = newPict
    set the fileName of member "ExtKite" to the pathName & pPict
    
    set pW = the width of member "ExtKite"
    set pH = the height of member "ExtKite"
    set newLocH = pZero + ((pMaxW - pW) / 2)
    set the locH of sprite pSprite to newLocH
  else
    mEmptyPict(me)
  end if
end mChangePict
