X-Git-Url: https://deadsoftware.ru/gitweb?p=cavecraft.git;a=blobdiff_plain;f=src%2FPhy.pas;h=9157e68ebb025aa073ab3e110e1cd45eee63855d;hp=2b795c4d8bc3524aac4cbec37b4e4f385d3bf073;hb=bddd811f24b5890310e09e93a33600a58db39ec9;hpb=4d7cf2ab1e10d9926d03afb5a3f883bcf5312469 diff --git a/src/Phy.pas b/src/Phy.pas index 2b795c4..9157e68 100644 --- a/src/Phy.pas +++ b/src/Phy.pas @@ -20,7 +20,7 @@ interface implementation - uses items_store, maps, vars; + uses Maps, Vars, Blocks; const maxVelocity = 32; @@ -58,7 +58,7 @@ implementation function IsSolid(x, y : integer) : boolean; begin - isSolid := GetBlockColl(getMap(x, y)) <> 0; + result := Blocks.IsSolid(getMap(x, y)); end; function MapColl(x, y, w, h : integer) : boolean;