Sorry your browser is not supported!

chupmov:
   if anim>3 then anim=1
   if Ar_World(PWLocX,PWLocY-1,2)=0 then FL_Walkable=1

   if PGridLocY=MaxUp and FL_Walkable=1
   TopMost=TopMost-1
   BottomMost=BottomMost-1
   PWLocY=PWLocY-1
   sprite CurrSpr,PLocX,PLocY,anim
   rem sprite CurrSpr,PLocX,PLocY, 2
   endif

   if FL_Walkable=1 and PGridLocY>MaxUp
   PLocY=PLocY-39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocY=PWLocY-1
   PGridLocY=PGridLocY-1


   rem sprite CurrSpr,PLocX,PLocY, 2
   endif

   inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Verify that player can move down ****
chdwmov:
   if anim<7 or anim>9 then anim=7
   if Ar_World(PWLocX,PWLocY+1,2)=0 then FL_Walkable=1
   if PGridLocY=MaxDown and FL_Walkable=1
   TopMost=TopMost+1
   BottomMost=BottomMost+1
   PWLocY=PWLocY+1
   sprite CurrSpr,PLocX,PLocY,anim
   endif

   if FL_Walkable=1 and PGridLocY<MaxDown

   PLocY=PLocY+39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocY=PWLocY+1
   PGridLocY=PGridLocY+1

   endif

   inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Verify that player can move left ****
chltmov:
   if anim<10 or anim>12 then anim=10
   if Ar_World(PWLocX-1,PWLocY,2)=0 then FL_Walkable=1

   if PGridLocX=MaxLeft and FL_Walkable=1
   sprite CurrSpr,PLocX,PLocY,anim
   LeftMost=LeftMost-1
   RightMost=RightMost-1
   PWLocX=PWLocX-1
   endif

   if FL_Walkable=1 and PGridLocX>MaxLeft
   PLocX=PLocX-39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocX=PWLocX-1
   PGridLocX=PGridLocX-1
   endif

   inc anim
   FL_Walkable=0
   FL_Moved=1
return

rem **** Verify that player can move right ****
chrtmov:
   if anim<4 or anim>6 then anim=4
   if Ar_World(PWLocX+1,PWLocY,2)=0 then FL_Walkable=1

   if PGridLocX=MaxRight and FL_Walkable=1
   LeftMost=LeftMost+1
   RightMost=RightMost+1
   PWLocX=PWLocX+1
   sprite CurrSpr,PLocX,PLocY,anim
   endif

   if FL_Walkable=1 and PGridLocX<MaxRight
   PLocX=PLocX+39
   sprite CurrSpr,PLocX,PLocY,anim
   PWLocX=PWLocX+1
   PGridLocX=PGridLocX+1
   endif

   inc anim
   FL_Walkable=0
   FL_Moved=1
return

Sync On : Sync Rate 0
Cls
Load Image "MediabounceAA.png",1,1
Sprite 1,-100,-100,1

Create Animated Sprite 2,"Mediaeyes.png",3,1,2
Offset Sprite 2,Sprite Width(2)/2, Sprite Height(2)/2

Hide Sprite 1
Hide Sprite 2

Set Sprite Priority 1,1
Set SPrite Priority 2,2

null = Make Vector2(1)
null = Make Vector2(2)

Set Vector2 1,Screen Width()/2,Screen Height()/2

Do
   Cls RGB(255,255,255)

   Sprite 1,X Vector2(1),Y Vector2(1),1 : Paste Sprite 1,Sprite X(1),Sprite Y(1)
   Set Sprite Frame 2,1 : Paste Sprite 2,Sprite X(1) + (Sprite Width(1)/2),Sprite Y(1) + (Sprite Height(1)/2)
   Set Sprite Frame 2,2 : Paste Sprite 2,Sprite X(1) + (Sprite Width(1)/2),Sprite Y(1) + (Sprite Height(1)/2)
   Set Sprite Frame 2,3 : Paste Sprite 2,Sprite X(1) + (Sprite Width(1)/2),Sprite Y(1) + (Sprite Height(1)/2)

Sync
Loop

create animated sprite 2,"c:\chubby1.bmp",12,8,96

do
    sprite 2,x,y,2
      if leftkey()  = 1
      play sprite 2,36,38,150
      x = x - 1
  endif
loop