Animation trouble

[moon15]

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]

First, use:

[syntax="turing"]
%code goes here
[/syntax]

to make your code more readable. Your problem is in your Pic.Draw statement:

Turing:

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.