var numFrames : int := Pic.Frames ("kirby_right1.bmp")
var numFrames2 : int := Pic.Frames ("bear_left1.bmp")
var pics : array 1 .. numFrames of int
var pics2 : array 1 .. numFrames2 of int
var delayTime, delayTime2 : int

% Load the picture
Pic.FileNewFrames ("kirby_right1.bmp", pics, delayTime)
Pic.FileNewFrames ("bear_left1.bmp", pics2, delayTime2)

% Create the sprite
var sprite : int
var bearsprite : int

sprite := Sprite.New (pics (1))
bearsprite := Sprite.New (pics2 (1))

process monster
if monsterstrt then
 loop
         delay (150)
         Sprite.Free  (bearsprite)
         Pic.FileNewFrames ("bear_left" + intstr (ml) + ".bmp", pics2, delayTime2)
         bearsprite := Sprite.New (pics2 (1))
         Sprite.SetPosition (bearsprite, xm, ym , false)
         Sprite.Show (bearsprite)
         ml:=ml+1
         if ml > 2 then
         ml:=1
         end if
 end loop
end if
end monster

loop

   Sprite.SetPosition (sprite, xk, yk, false)
   Sprite.Show (sprite)

   monsterstrt:=true
   fork monster

%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

   getch (userinput)

   if chars (KEY_LEFT_ARROW) then
           left:=true
           right:=false
          if safe_movel then
          xk := xk - 10
          end if
          Sprite.Free (sprite)
         Pic.FileNewFrames ("kirby_left" + intstr (l) + ".bmp", pics, delayTime)
         sprite := Sprite.New (pics (1))
         Sprite.Show (sprite)
         l:=l+1
         if l > 6 then
         l:=1
         end if
         safe_mover := true
   end if