ja do tego uzywam flag mappera , i trzymasz tez shorta zima/lato, bo na samych dostepnych wyjsciach sie za daleko nie pojedzie
a pozatym to wszyscy maja wszystko to samo

Kod: Zaznacz cały
#map read mapkatt.map
#map return
#map map
#nop prepare the map;
#loop {1} {60000} {a} {#map at {$a} {#map roomflag static off;#map set roomterrain org;#map set roomsymbol {<ffa>[ ]<088>}};};
#alias {dig_terrain}
{
#nop argv1=roomID argv2=terraincode;
#var roomsymbol {};
#if {"%2" == "las"} {#var roomsymbol {<ABA><fca>YYY<088>}};
#map at {%1} {#map get roomexits room_exits};
#map goto %1;
#if {$room_exits[w] > 1} {} {#var tmpterrain {};#map dig w;#map move w;#map get roomterrain tmpterrain;#if {$tmpterrain == "org"} {#map unlink e both} {#map set roomterrain %2;#map set roomsymbol $roomsymbol};#map goto %1};
#if {$room_exits[nw] > 1} {} {#var tmpterrain {};#map dig nw;#map move nw;#map get roomterrain tmpterrain;#if {$tmpterrain == "org"} {#map unlink se both} {#map set roomterrain %2;#map set roomsymbol $roomsymbol};#map goto %1};
#if {$room_exits[sw] > 1} {} {#var tmpterrain {};#map dig sw;#map move sw;#map get roomterrain tmpterrain;#if {$tmpterrain == "org"} {#map unlink ne both} {#map set roomterrain %2;#map set roomsymbol $roomsymbol};#map goto %1};
#if {$room_exits[n] > 1} {} {#var tmpterrain {};#map dig n;#map move n;#map get roomterrain tmpterrain;#if {$tmpterrain == "org"} {#map unlink s both} {#map set roomterrain %2;#map set roomsymbol $roomsymbol};#map goto %1};
#if {$room_exits[ne] > 1} {} {#var tmpterrain {};#map dig ne;#map move ne;#map get roomterrain tmpterrain;#if {$tmpterrain == "org"} {#map unlink sw both} {#map set roomterrain %2;#map set roomsymbol $roomsymbol};#map goto %1};
#if {$room_exits[s] > 1} {} {#var tmpterrain {};#map dig s;#map move s;#map get roomterrain tmpterrain;#if {$tmpterrain == "org"} {#map unlink n both} {#map set roomterrain %2;#map set roomsymbol $roomsymbol};#map goto %1};
#if {$room_exits[se] > 1} {} {#var tmpterrain {};#map dig se;#map move se;#map get roomterrain tmpterrain;#if {$tmpterrain == "org"} {#map unlink nw both} {#map set roomterrain %2;#map set roomsymbol $roomsymbol};#map goto %1};
#if {$room_exits[e] > 1} {} {#var tmpterrain {};#map dig e;#map move e;#map get roomterrain tmpterrain;#if {$tmpterrain == "org"} {#map unlink w both} {#map set roomterrain %2;#map set roomsymbol $roomsymbol};#map goto %1};
}
Kod: Zaznacz cały
LLL ORG
| \ /
| \ /
LLL ORG
| \
| \
LLL LLL
Kod: Zaznacz cały
LLLLLL ORG
LLLLLL /
LLL /
LLL ORG
LLLLLL
LLLLLL
LLLLLLLL