polserver/testsuite/pol/testpkgs/map/test_mapinfo.src
turleypol 552cd0c939
fixed map.mul writing for testshard (#568)
added a small house as static, the poor testchars need also something to
rest
used sand tiles for the transition between water and grass
adapted testscripts due to the map changes
2023-11-30 21:52:55 +01:00

38 lines
1.1 KiB
Text

use uo;
use os;
include "testutil";
program map_info()
return 1;
endprogram
exported function mapinfo()
var errortext:="";
for x:=31 to 33
for y:=20 to 30
var info:=GetMapInfo(x,y);
if (y<28)
if (info.landtile != 0xa8 || info.z != -5)
errortext+="Wrong mapinfo {},{}: expected {},{} got {},{}\n".format(x,y,0xa8,-5,info.landtile,info.z);
endif
elseif (y==28)
if (info.landtile != 0x17 || info.z != -2)
errortext+="Wrong mapinfo {},{}: expected {},{} got {},{}\n".format(x,y,0x17,-3,info.landtile,info.z);
endif
elseif (y==29)
if (info.landtile != 0x17 || info.z != 0)
errortext+="Wrong mapinfo {},{}: expected {},{} got {},{}\n".format(x,y,0x17,0,info.landtile,info.z);
endif
elseif (y>=30)
if (info.landtile != 0x3 || info.z != 0)
errortext+="Wrong mapinfo {},{}: expected {},{} got {},{}\n".format(x,y,0x3,0,info.landtile,info.z);
endif
endif
endfor
endfor
if (len(errortext))
return ret_error(errortext);
endif
return 1;
endfunction