-----------------------------------

moon15

Mon Mar 30, 2009 8:18 am


Animation trouble

-----------------------------------

hey guys aight so the problem is my picture icywitch is moving horizontally rather than vertically so any ideas why its not working
procedure icywitch
 var icywitch :int:=Pic.FileNew("icywitch.bmp")
 for y: 40..600
 Pic.Draw (icywitch,(maxy)-y,250,0) 
 end for 
 end icywitch
procedure ghost
 var ghost :int:=Pic.FileNew("ghost.bmp")
  Pic.Draw (ghost, 150,250,0) 
 end ghost

procedure blue_monster
 var blue_monster :int:=Pic.FileNew("ghost.bmp")
 Pic.Draw (blue_monster, 150,250,0) 
 end blue_monster
 
loop 
put "Do you wish to play this spooky freaky intense game?(y/n)"
var reply : string (1)
get reply
cls
exit when reply not ="y"
var count :int:=0
var tick:int
put "Whats your difficulty?"
get tick 
icywitch
end loop


-----------------------------------

Dusk Eagle

Mon Mar 30, 2009 8:43 am


Re: Animation trouble

-----------------------------------

First, use:

]
%code goes here

Pic.Draw (icywitch,(maxy)-y,250,0)


You are currently updating the x-value, you need to be updating the y-value for the picture to move vertically.