Fo2 Worldmap / Encounter maps

[Lexx]

I just found out something weird, something I've never realized up until now...

... Whenever I am on the worldmap, stop traveling and get into an encounter map on my own, I'll always get a desert map. No matter where I am, desert-, mountain-, city-zone... it appears only the desert1 map is chosen.

The only case any other encounter map is chosen, is whenever the player gets dragged into a real encounter situation. That's when the encounter table kicks in and dictates the map to chose.

This wasn't the case in Fo1, because I remember how I always stopped right before visiting the Glow and always got a mountain map.


This sucks and I want to change that.

If it isn't possible any other way, I guess one could use a global script to check if the player loads the encounter map, then read the current zone type (is that even possible?), and then load another random encounter map.

Anyone got any ideas / suggestions / thoughts on the matter?

/edit: Did some more tests and I really always land in desert1.map.. One could remove this map from the encounter tables and attach a custom script to it that will load a different map once the player enters it. Still no idea if it's possible to read out the current zone type, though. I could easily setup a few defines with x and y coordinates on the worldmap to check where the player is and chose a map based on this... but that sounds highly complicated... still, a solution if nothing else works.

 

[Cubik2k]

Look into MAPS.TXT:

[Map 000]
lookup_name=Desert Encounter 1
map_name=desert1

Probably it is hardcoed in fallout2.exe and always desert1.map is loaded in own encounters.

Try with sfall, there are two functions:
void force_encounter(int map)
void force_encounter_with_flags(int map, int flags)

and
get_world_map_x_pos
get_world_map_y_pos


Look into "rain" example from ModdersPack/example_mods.

 

[Lexx]

This is how I tested it now... Keep in mind, I am a mediocre scripter and a horrible programmer. With some true Sfall knowledge I guess the code could be simplified a lot.

Spoiler

/*
   Random encounter map script
*/

#include "..\headers\define.h"
//#include "..\headers\modMain.h"
#include "..\headers\updatmap.h"

#define NAME                    SCRIPT_RNDENC

#include "..\headers\command.h"


#define city1(x,y)                        ((x >= 259) and (x <= 294) and (y >= 345) and (y <= 375))
#define city2(x,y)                        ((x >= 763) and (x <= 794) and (y >= 1129) and (y <= 1169))
#define city3(x,y)                        ((x >= 598) and (x <= 639) and (y >= 911) and (y <= 959))
#define city4(x,y)                        ((x >= 578) and (x <= 600) and (y >= 945) and (y <= 967))
#define city5(x,y)                        ((x >= 543) and (x <= 591) and (y >= 968) and (y <= 1001))

#define mountain1(x,y)                    ((x >= 553) and (x <= 597) and (y >= 505) and (y <= 765))
#define mountain2(x,y)                    ((x >= 700) and (x <= 750) and (y >= 552) and (y <= 740))
#define mountain3(x,y)                    ((x >= 0) and (x <= 90) and (y >= 0) and (y <= 136))
#define mountain4(x,y)                    ((x >= 0) and (x <= 50) and (y >= 135) and (y <= 395))
#define mountain5(x,y)                    ((x >= 170) and (x <= 260) and (y >= 170) and (y <= 460))
#define mountain6(x,y)                    ((x >= 180) and (x <= 320) and (y >= 0) and (y <= 160))
#define mountain7(x,y)                    ((x >= 108) and (x <= 138) and (y >= 490) and (y <= 596))
#define mountain8(x,y)                    ((x >= 804) and (x <= 107) and (y >= 450) and (y <= 488))
#define mountain9(x,y)                    ((x >= 0) and (x <= 34) and (y >= 612) and (y <= 820))
#define mountain10(x,y)                ((x >= 40) and (x <= 65) and (y >= 850) and (y <= 946))
#define mountain11(x,y)                ((x >= 50) and (x <= 84) and (y >= 951) and (y <= 1027))
#define mountain12(x,y)                ((x >= 144) and (x <= 200) and (y >= 612) and (y <= 837))
#define mountain13(x,y)                ((x >= 198) and (x <= 248) and (y >= 638) and (y <= 736))
#define mountain14(x,y)                ((x >= 0) and (x <= 100) and (y >= 1040) and (y <= 1384))
#define mountain15(x,y)                ((x >= 100) and (x <= 400) and (y >= 1048) and (y <= 1388))
#define mountain16(x,y)                ((x >= 345) and (x <= 490) and (y >= 1108) and (y <= 1303))
#define mountain17(x,y)                ((x >= 490) and (x <= 1140) and (y >= 1195) and (y <= 1299))
#define mountain18(x,y)                ((x >= 600) and (x <= 685) and (y >= 1103) and (y <= 1195))
#define mountain19(x,y)                ((x >= 850) and (x <= 1130) and (y >= 1100) and (y <= 1190))
#define mountain20(x,y)                ((x >= 1190) and (x <= 1220) and (y >= 550) and (y <= 854))
#define mountain21(x,y)                ((x >= 1260) and (x <= 1397) and (y >= 132) and (y <= 401))
#define mountain22(x,y)                ((x >= 1216) and (x <= 1288) and (y >= 5) and (y <= 111))
#define mountain23(x,y)                ((x >= 1345) and (x <= 1400) and (y >= 60) and (y <= 135))
#define mountain24(x,y)                ((x >= 937) and (x <= 988) and (y >= 560) and (y <= 708))
#define mountain25(x,y)                ((x >= 996) and (x <= 108) and (y >= 575) and (y <= 648))
#define mountain26(x,y)                ((x >= 641) and (x <= 724) and (y >= 104) and (y <= 241))
#define mountain27(x,y)                ((x >= 677) and (x <= 745) and (y >= 0) and (y <= 55))
#define mountain28(x,y)                ((x >= 447) and (x <= 637) and (y >= 849) and (y <= 899))
#define mountain29(x,y)                ((x >= 427) and (x <= 540) and (y >= 900) and (y <= 932))
#define mountain30(x,y)                ((x >= 400) and (x <= 450) and (y >=700) and (y <= 845))
#define mountain31(x,y)                ((x >= 745) and (x <= 815) and (y >= 692) and (y <= 729))
#define mountain32(x,y)                ((x >= 848) and (x <= 900) and (y >= 296) and (y <= 410))
#define mountain33(x,y)                ((x >= 911) and (x <= 1132) and (y >= 1026) and (y <= 1097))
#define mountain34(x,y)                ((x >= 1024) and (x <= 1133) and (y >= 860) and (y <= 1033))
#define mountain35(x,y)                ((x >= 468) and (x <= 493) and (y >= 399) and (y <= 461))
#define mountain36(x,y)                ((x >= 150) and (x <= 214) and (y >= 990) and (y <= 1065))

#define mixed1(x,y)                        ((x >= 392) and (x <= 1399) and (y >= 1299) and (y <= 1499))
#define mixed2(x,y)                        ((x >= 1131) and (x <= 1399) and (y >= 854) and (y <= 1299))
#define mixed3(x,y)                        ((x >= 1219) and (x <= 1399) and (y >= 400) and (y <= 855))
#define mixed4(x,y)                        ((x >= 195) and (x <= 307) and (y >= 735) and (y <= 913))
#define mixed5(x,y)                        ((x >= 446) and (x <= 566) and (y >= 61) and (y <= 163))
#define mixed6(x,y)                        ((x >= 1085) and (x <= 1220) and (y >= 426) and (y <= 545))
#define mixed7(x,y)                        ((x >= 762) and (x <= 1090) and (y >= 814) and (y <= 893))
#define mixed8(x,y)                        ((x >= 527) and (x <= 573) and (y >= 165) and (y <= 218))
#define mixed9(x,y)                        ((x >= 197) and (x <= 396) and (y >= 920) and (y <= 1060))
#define mixed10(x,y)                    ((x >= 345) and (x <= 438) and (y >= 465) and (y <= 697))
#define mixed11(x,y)                    ((x >= 709) and (x <= 822) and (y >= 506) and (y <= 654))
#define mixed12(x,y)                    ((x >= 672) and (x <= 731) and (y >= 266) and (y <= 425))
#define mixed13(x,y)                    ((x >= 564) and (x <= 663) and (y >= 701) and (y <= 852))
#define mixed14(x,y)                    ((x >= 391) and (x <= 454) and (y >= 314) and (y <= 394))
#define mixed15(x,y)                    ((x >= 540) and (x <= 573) and (y >= 372) and (y <= 500))
#define mixed16(x,y)                    ((x >= 411) and (x <= 452) and (y >= 158) and (y <= 214))
#define mixed17(x,y)                    ((x >= 886) and (x <= 930) and (y >= 225) and (y <= 290))

#define WM_In_City(x,y)                (city1(x,y) or city2(x,y) or city3(x,y) or city4(x,y)or city5(x,y))

#define WM_In_Mixed(x,y)                (mixed1(x,y) or mixed2(x,y) or mixed3(x,y) or mixed4(x,y) or mixed5(x,y) or mixed6(x,y) or mixed7(x,y) or mixed8(x,y) or mixed9(x,y) or \
                                               mixed10(x,y) or mixed11(x,y) or mixed12(x,y) or mixed13(x,y) or mixed14(x,y) or mixed15(x,y) or mixed16(x,y) or mixed17(x,y))
                                     
#define WM_In_Mountains(x,y)            (mountain1(x,y) or mountain2(x,y) or mountain3(x,y) or mountain4(x,y) or mountain5(x,y) or mountain6(x,y) or mountain7(x,y) or mountain8(x,y) or  \
                                               mountain9(x,y) or mountain10(x,y) or mountain11(x,y) or mountain12(x,y) or mountain13(x,y) or mountain14(x,y) or mountain15(x,y) or mountain16(x,y) or  \
                                               mountain17(x,y) or mountain18(x,y) or mountain19(x,y) or mountain20(x,y) or mountain21(x,y) or mountain22(x,y) or mountain23(x,y) or mountain24(x,y) or \
                                               mountain25(x,y) or mountain26(x,y) or mountain27(x,y) or mountain28(x,y) or mountain29(x,y) or mountain30(x,y) or mountain31(x,y) or mountain32(x,y) or \
                                               mountain33(x,y) or mountain34(x,y) or mountain35(x,y) or mountain36(x,y))

procedure start;
procedure timed_event_p_proc;
procedure map_enter_p_proc;
procedure map_update_p_proc;
procedure map_exit_p_proc;

procedure load_city;
procedure load_mountains;
procedure load_desert;

variable map;

procedure start begin
end

procedure map_exit_p_proc begin
   if (global_var(GVAR_PLAYER_GOT_CAR) != 0) then begin
       car_give_to_party;
   end
end

procedure timed_event_p_proc begin
variable map;

   if (fixed_param == 1) then begin
       // In City:
       if (WM_In_City(worldmap_xpos,worldmap_ypos)) then begin
           call load_city;
       end
 
       // In Mountains and Desert
       else if (WM_In_Mixed(worldmap_xpos,worldmap_ypos)) then begin
           if (random(0,10) >= 4) then
               call load_desert;
           else
               call load_mountains;
       end
 
       // In Mountains:
       else if (WM_In_Mountains(worldmap_xpos,worldmap_ypos)) then begin
           call load_mountains;
       end
 
       // In Desert:
       else begin
           call load_desert;
       end
 
   end
end

procedure load_city begin
   wm_area_set_pos(AREA_RND_CITY, worldmap_xpos, worldmap_ypos);
   map := random(1,8);
 
   if map == 1 then
       load_map(MAP_RND_CITY1, 0);
   else if map == 2 then
       load_map(MAP_RND_CITY_2, 0);
   else if map == 3 then
       load_map(MAP_RND_CITY_3, 0);
   else if map == 4 then
       load_map(MAP_RND_CITY_4, 0);
   else if map == 5 then
       load_map(MAP_RND_CITY_5, 0);
   else if map == 6 then
       load_map(MAP_RND_CITY_6, 0);
   else if map == 7 then
       load_map(MAP_RND_CITY_7, 0);
   else if map == 8 then
       load_map(MAP_RND_CITY_8, 0);
end

procedure load_mountains begin
   wm_area_set_pos(AREA_RND_MOUNTAIN, worldmap_xpos, worldmap_ypos);
   map := random(1,6);

   if map == 1 then
       load_map(MAP_RND_MOUNTAIN1, 0);
   else if map == 2 then
       load_map(MAP_RND_MOUNTAIN2, 0);
   else if map == 3 then
       load_map(MAP_RND_MOUNTAIN_3, 0);
   else if map == 4 then
       load_map(MAP_RND_MOUNTAIN_4, 0);
   else if map == 5 then
       load_map(MAP_RND_MOUNTAIN_5, 0);
   else if map == 6 then
       load_map(MAP_RND_MOUNTAIN_6, 0);
end

procedure load_desert begin
   wm_area_set_pos(AREA_RND_DESERT, worldmap_xpos, worldmap_ypos);
   map := random(2,10);

   if map == 2 then
       load_map(MAP_RND_DESERT_2, 0);
   else if map == 3 then
       load_map(MAP_RND_DESERT_3, 0);
   else if map == 4 then
       load_map(MAP_RND_DESERT4, 0);
   else if map == 5 then
       load_map(MAP_RND_DESERT5, 0);
   else if map == 6 then
       load_map(MAP_RND_DESERT6, 0);
   else if map == 7 then
       load_map(MAP_RND_DESERT7, 0);
   else if map == 8 then
       load_map(MAP_RND_DESERT_8, 0);
   else if map == 9 then
       load_map(MAP_RND_DESERT_9, 0);
   else if map == 10 then
       load_map(MAP_RND_DESERT_10, 0);
end

procedure map_enter_p_proc begin
variable map := random(1,3);
   //debug("THAT map");
   add_timer_event(self_obj, game_ticks(0), 1);
end

procedure map_update_p_proc begin
   add_timer_event(self_obj, game_ticks(0), 1);
end

It's a new map script for desert1.map - load the map and you get moved to another one based on worldmap position. Of course, this means that desert1.map needs to be removed from the usual encounter tables.

I had to put the actual map load into a timed event, because on map_enter failed most of the time when coming from the worldmap (worked in the mapper).

It works, but what is bugging me still is that you can see the map switch. The screen will flicker once you enter the first map and the second gets loaded (see interface -> blackfade -> final encounter). I guess the only way to get rid of this would be a hook script that kicks in even before the map is loaded. No idea if Sfall currently supports such a thing (I guess not).

/Edit: Ok, just found out that it's buggy. Works perfect when you get a desert map, but once you hit mountains, the car won't correctly spawn, and going back to the worldmap results in being moved to the original mountain location position. So you basically get warped away from your *real* position. Sucks.
Interestingly the city maps are working perfect.

/Edit2: Apparently for whatever reason, only mountain4-6 are making problems with the new location placement. If I remove them from the list, it's all fine... everything else works. No idea why. Makes no sense to me as of now.

Had to tweak the map script for the mountain encounters, to check if the car is not just in "AREA_RND_MOUNTAIN" but also desert and city... if it is, create the car. Don't know why the game won't take the car over from location 26 to 27... but with this workaround it doesn't matter. The player can never leave the vehicle in any encounter map anyway, so it shouldn't cause any other problems down the line.

All in all it works quite sweet. Used the big black scenery objects from the RP to cover the desert1.map - so now except for the interface, you'll just see black. Works good. I like it.