Ray Dream Gallery - The Best of 1995/RAYDREAM95.iso/pc/_gal94/windows/index.dir/00054_Script_54

Text File | 1994-12-01 | 702b | 19 lines

On spritePos state
  global gSprite1H, gSprite1V, gSpriteDistH, gSpriteDistV, gslider,gsprite1
  repeat with Vpupp = gsprite1 to gsprite1+41
    Puppetsprite Vpupp, state
  end repeat
  set the locH of sprite gsprite1 = gSprite1H
  set the locV of sprite gsprite1 = gSprite1V
  set spriteCur = gsprite1
  repeat with zoneX = 0 to 5
    repeat with zoneY = 0 to 6
      set the locV of sprite spriteCur = (gsprite1V+ gSpriteDistV*zoneX)
      set the locH of sprite spriteCur = (gsprite1H+gSpriteDistH*zoneY)
      set spriteCur = (spriteCur + 1)
      put (gsprite1V+ gSpriteDistH*zoneX) into Vtest
      put (gsprite1H+gSpriteDistV*zoneY) into Htest
    end repeat
  end repeat
end