/*
PlateForm Engine 1.00 A - By Master47
2007-2008
*/

var Gravity, OldVsp, TempHsp ;

if not ( instance_place(x,y+1,Floor) )
{
Gravity = Grav
}
else
{
Gravity = 0
}

Vsp += Gravity ;

if keyboard_check(vk_left) && Hsp = 0
{
Hsp -= 1 ;
}
if keyboard_check(vk_right) && Hsp = 0
{
Hsp += 1 ;
}
if keyboard_check(vk_left) && Hsp < 0
{
Hsp -= 1 ;
}
if keyboard_check(vk_right) && Hsp > 0
{
Hsp += 1 ;
}

if keyboard_check(vk_left) && Hsp > 0
{
Hsp -= .25 ;
if instance_place(x,y+1,Floor) {
} }
if keyboard_check(vk_right) && Hsp < 0
{
if instance_place(x,y+1,Floor) {
Hsp += .25 ;
} }

if keyboard_check(vk_up)
{
if instance_place(x,y+1,Floor)
{
Vsp = -JumpSize
}
}

TempHsp = MaxHsp

if keyboard_check(vk_down) && instance_place(x,y+1,Floor)
{
MaxHsp = DownHsp
}

if( Hsp > MaxHsp ) then Hsp = MaxHsp ;
if( Hsp < -MaxHsp ) then Hsp = -MaxHsp ;

MaxHsp = TempHsp
if( Hsp != 0 )
{
if Hsp<0 then Hsp += Fric ;
if Hsp>0 then Hsp -= Fric ;
}

repeat(abs(Hsp))
{
if not (instance_place(x+1*sign(Hsp),y,Floor))
{
x+=1*sign(Hsp)
}
else {
for (i=1; i<br" ; / {
if not (instance_place(x+1*sign(Hsp), y-i,Floor))
{
x += 1*sign(Hsp);
y -= i;
break;
}
}
}}

if abs(Vsp) > MaxVerticalSpeed then Vsp = MaxVerticalSpeed*sign(Vsp) ;

OldVsp = Vsp ;

if Vsp!=0{
for( i=0 ; iif not instance_place(x,y+1*sign(Vsp),Floor){
y+=1*sign(Vsp);
}
else{
Vsp=0;
break;
}
}
}