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
nd new


on mEmptyPict me
 Global gLimit
 
 mChangePict(me,"data" & gLimit & "Bild000.gif")  
nd 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
nd mChangePict
