Untitled

//==============================================================================
if (par1 = 'xxxinfo') then
try

if (1=1) then begin
xzz:=0;
xww:=8;
xhh:=32;
for yyy:=0 to xhh-1 do
for xxx:=0 to xww-1 do
// lets skip 128 frames first ;) no need all pallete...
begin
  if (xzz>127) then begin
  XOBJX:=48;
  xobject[XOBJX] := frontSprites.AddSprite;
  xobject[XOBJX]^.ImageNumber := 48;
  xobject[XOBJX]^.X := 364+(xxx*32); // centerizing
  xobject[XOBJX]^.Y := (yyy*16)-128;
  xobject[XOBJX]^.SpriteType := 0;
  xobject[XOBJX]^.frame := xzz;
  end;
  xzz:=xzz+1;
end;
end;





{
if (xzz>127) then
begin
AddMessage('^1Removing SPrite !!!');
   frontSprites.RemoveSprite(xobject[48]);
   xzz:=0;
end;
}


except
sleep(0);
end;