home *** CD-ROM | disk | FTP | other *** search
/ Knudde EK Editie / CD1.iso / hooligan.dxr / Script_6_background.ls < prev    next >
Encoding:
Text File  |  2000-02-24  |  652 b   |  33 lines
  1. property MySprite, MyMem, MyLocH, MyLocV, MyLocZ
  2. global LocList
  3.  
  4. on new me, spr, Mem, x, y, z
  5.   MySprite = spr
  6.   sprite(MySprite).puppet = 1
  7.   MyMem = Mem
  8.   MyLocH = x
  9.   MyLocV = y
  10.   MyLocZ = z
  11.   Init(me)
  12.   return me
  13. end
  14.  
  15. on Init me
  16.   global UserLookH, UserLookV
  17.   MyX = 320
  18.   MyY = MyLocV - UserLookV + 320
  19.   sprite(MySprite).member = MyMem
  20.   sprite(MySprite).locZ = MyLocZ
  21.   sprite(MySprite).loc = point(MyX, MyY)
  22.   sprite(MySprite).visible = 1
  23. end
  24.  
  25. on Update me
  26.   global UserLookH, UserLookV
  27.   MyX = 320
  28.   MyY = MyLocV - UserLookV + 320
  29.   sprite(MySprite).member = MyMem
  30.   sprite(MySprite).locZ = MyLocZ
  31.   sprite(MySprite).loc = point(MyX, MyY)
  32. end
  33.