procedure Step();
begin
end;

begin
  SetTimer(0,0,1,@Step);
end.

procedure Step(_para1:HWND; _para2:UINT; _para3:UINT; _para4:DWORD); stdcall;   
begin  
end;  

begin  
   SetTimer(0,0,1,@Step);  
end.

var f_name, strip_str, w_img, h_img, sprite, spr_w, spr_h, surf, i, new_spr;

f_name = argument0
strip_str = argument1
w_img = argument2
h_img = argument3

sprite = sprite_add(f_name,1,true,false,0,0);
if sprite = -1 {show_message("Error loading "+f_name) exit}

spr_w = sprite_get_width(sprite)
spr_h = sprite_get_height(sprite)

surf = surface_create(spr_w,spr_h)
surface_set_target(surf)
draw_sprite(sprite,0,0,0);

for (i=0;i<(spr_w/w_img)-1;i+=1) {
     if i=0 {
         new_spr = sprite_create_from_surface(surf,0,strip_str*h_img,w_img,(strip_str*h_img)+h_img,false,false,0,0)     
     } else {
         sprite_add_from_surface(new_spr,surf,w_img*i,strip_str*h_img,(w_img*i)+w_img,(strip_str*h_img)+h_img,false,false)
     }
}

surface_free(surf)
surface_reset_target()

return new_spr