equal
deleted
inserted
replaced
581 Y:= Y + dY + cGravity * vobFallSpeed * 8; // using same value as flakes to try and get similar results |
581 Y:= Y + dY + cGravity * vobFallSpeed * 8; // using same value as flakes to try and get similar results |
582 xx:= hwRound(X); |
582 xx:= hwRound(X); |
583 yy:= hwRound(Y); |
583 yy:= hwRound(Y); |
584 if vobVelocity <> 0 then |
584 if vobVelocity <> 0 then |
585 begin |
585 begin |
586 DirAngle := DirAngle + (Angle / 1250000000); |
586 DirAngle := DirAngle + (Damage / 1000); |
587 if DirAngle < 0 then |
587 if DirAngle < 0 then |
588 DirAngle := DirAngle + 360 |
588 DirAngle := DirAngle + 360 |
589 else if 360 < DirAngle then |
589 else if 360 < DirAngle then |
590 DirAngle := DirAngle - 360; |
590 DirAngle := DirAngle - 360; |
591 end; |
591 end; |
592 |
592 (* |
|
593 We aren't using frametick right now, so just a waste of cycles. |
593 inc(Health, 8); |
594 inc(Health, 8); |
594 if longword(Health) > vobFrameTicks then |
595 if longword(Health) > vobFrameTicks then |
595 begin |
596 begin |
596 dec(Health, vobFrameTicks); |
597 dec(Health, vobFrameTicks); |
597 inc(Timer); |
598 inc(Timer); |
598 if Timer = vobFramesCount then |
599 if Timer = vobFramesCount then |
599 Timer:= 0 |
600 Timer:= 0 |
600 end; |
601 end; |
|
602 *) |
601 // move back to cloud layer |
603 // move back to cloud layer |
602 if yy > cWaterLine then |
604 if yy > cWaterLine then |
603 move:= true |
605 move:= true |
604 else if (xx > snowRight) or (xx < snowLeft) then |
606 else if (xx > snowRight) or (xx < snowLeft) then |
605 move:=true |
607 move:=true |