global script:
export procedure foo;
procedure foo begin
display_msg("foo");
end
obj_dude:
import procedure foo;
procedure map_enter_p_proc begin
display_msg("dude map_enter");
call foo();
endexport procedure foo;
procedure foo(variable bar) begin
end
There was a crash bug related to exported procedures in 3.4, it was fixed in 3.5.
That's strange, since game_time should return number of tics of game time, where one second is 10 tics. There is an sfall function which returns current system time or something like that, you could try to use it.
That's because when you specify set_global_script_repeat it actually means how many frames to skip before executing "start" proc, so the frequency is closely tied to current frame rate.
Seems so. However, try out export variables. They should be reliable now (and if not, easily fixable since all related engine hooks are already in place).
changelog said:
. Amazing work, dude.
Holy crap, on top of all those awesome additions something that let's you use flares when overwriting hs_tohit
sfall\ScriptExtender.cpp(828): bool AllowUnsafeScripting=GetPrivateProfileIntA("Debug", "AllowUnsafeScripting", 0, ini)!=0;NOption("herp",NodeHerp,001);NOption("herp",NodeHerp(herp),001);#define NodeFork(x) \
procedure NodeFork##x begin \
... \
end
NodeFork(1)
NodeFork(2)
NodeFork(3)
// etc.
Isn't there already a CriticalOverrides.ini which allows to customize critical table? This stuff seem very complex to me and I was never interested enough to study how it works
variable xxx;
xxx := ...
if (cond and xxx()) ...
Well, all integers and floats are 4 bytes, so there is not much you can do about number of possible values for each variable (though If you really want it, I know there are workarounds...). However, try putting your large integer number into a float variable, because of how floats work, you can have extremely large number (only the precision may be lost).
There is a macro in the latest sfall.h:
#define is_in_array(item, array) (scan_array(array, item) != -1)sprintf was added in 3.4, scan_array was always there
// hs_withinperception.int
procedure start;
variable watcher, target, in_range;
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\sfall.h"
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\define.h"
procedure start begin
if init_hook then begin
//you can put stuff here that only runs at game loaded
end else begin
watcher:=get_sfall_arg; //Watcher object
target:=get_sfall_arg; //Target objet
in_range:=get_sfall_arg; //Result of vanilla function: 1 - within perception range, 0 - otherwise
//set_sfall_return(-1); //overrides the returned result of the function (1 or 0)
//display_msg("hs_withinperception watcher " + watcher);
//display_msg("hs_withinperception target " + target);
//display_msg("hs_withinperception in_range " + in_range);
end
end// hs_steal.int
procedure start;
variable thief, target, item, is_planting;
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\sfall.h"
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\define.h"
procedure start begin
if init_hook then begin
//you can put stuff here that only runs at game loaded
end else begin
thief:=get_sfall_arg; //Thief
target:=get_sfall_arg; //The target
item:=get_sfall_arg; //Item being stolen/planted
is_planting:=get_sfall_arg; //0 when stealing, 1 when planting
//set_sfall_return(-1); //overrides hard-coded handler (1 - force success, 0 - force fail, -1 - use engine handler)
//display_msg("hs_steal thief " + thief);
//display_msg("hs_steal target " + target);
//display_msg("hs_steal item " + item);
//display_msg("hs_steal is_planting " + is_planting);
end
end// hs_useskill.int
procedure start;
variable critter, object, skill, bonus;
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\sfall.h"
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\define.h"
procedure start begin
if init_hook then begin
//you can put stuff here that only runs at game loaded
end else begin
critter:=get_sfall_arg; //The user critter
object:=get_sfall_arg; //The target object
skill:=get_sfall_arg; //skill being used
bonus:=get_sfall_arg; //skill bonus from items such as first aid kits
//set_sfall_return(-1); //overrides hard-coded handler (-1 - use engine handler, any other value - override)
//display_msg("hs_useskill type " + type);
//display_msg("hs_useskill object " + object);
//display_msg("hs_useskill skill " + skill);
//display_msg("hs_useskill bonus " + bonus);
end
end// hs_keypress.int
procedure start;
variable type, key_vk, key_dx;
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\sfall.h"
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\define.h"
procedure start begin
if init_hook then begin
//you can put stuff here that only runs at game loaded
end else begin
type:=get_sfall_arg; //event type: 1 - pressed, 0 - released
key_dx:=get_sfall_arg; //key DX scancode
key_vk:=get_sfall_arg; //key VK code (very similar to ASCII codes)
//display_msg("hs_keypress type " + type);
//display_msg("hs_keypress key_dx " + key_dx);
//display_msg("hs_keypress key_vk " + key_vk);
end
end// hs_mouseclick.int
procedure start;
variable type, button;
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\sfall.h"
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\define.h"
procedure start begin
if init_hook then begin
//you can put stuff here that only runs at game loaded
end else begin
type:=get_sfall_arg; //event type: 1 - pressed, 0 - released
button:=get_sfall_arg; //button number (0 - left, 1 - right, up to 7)
//display_msg("hs_mouseclick type " + type);
//display_msg("hs_mouseclick button " + button);
end
end// hs_ammocost.int
procedure start;
variable weapon, number, cost, type;
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\sfall.h"
#include "C:\GOG.com\Fallout 2 Mapper\scripts\HEADERS\define.h"
procedure start begin
if init_hook then begin
//you can put stuff here that only runs at game loaded
end else begin
weapon:=get_sfall_arg; //weapon
number:=get_sfall_arg; //Number of bullets in burst (1 for single shots)
cost:=get_sfall_arg; //Ammo cost calculated by original function (this is basically 2 for Super Cattle Prod and Mega Power Fist)
type:=get_sfall_arg; //Type of hook (0 - when substracting ammo after attack, 1 - when checking for "out of ammo" before attack)
//set_sfall_return(-1); //new ammo cost value (set to 0 for unlimited ammo)
//display_msg("hs_ammocost weapon " + weapon);
//display_msg("hs_ammocost number " + number);
//display_msg("hs_ammocost cost " + cost);
//display_msg("hs_ammocost type " + type);
end
end