Problem mit Init Datei

[4.JgKp] Joschy · 27. Dezember 2016

Moin Kameraden,

ich habe ein Problem mit einer Init Datei einer Schiessbahn.

Folgende Fehlermeldung wird ausgegeben:

Die betreffende Zeile:

Code

//if target has been cleared
if (WALK_TARGET_PUBVAR == _target) then {
_scoretable = null; //[COMBAT]Geo modification
_scoretable = [];
_score_table_count_before = 0; //[COMBAT]Geo modification
WALK_TARGET_PUBVAR = null;
publicVariable "WALK_TARGET_PUBVAR";
_target removeAction _action_cs;
_target removeAction _action_ct;
_monitor removeAction _action_csm;
_monitor removeAction _action_csm;
//Enable target actions from a monitor object
if(!isNull _monitor) then {
_monitor = _this select 1;
_monitor removeAction _action_cs;
_action_cs = _target addaction [format["Treffer pruefen %1",_target_name], _path + "check_target.sqf",[_scoretable,_target_name]];
_monitor removeAction _action_ct;
_action_ct = _target addaction [format["Scheibe loeschen %1",_target_name], _path + "clear_target.sqf",_target];
};
};

Alles anzeigen

Funktioniert trotz der Meldung alles Tadellos allerdings geht die Meldung nicht mehr weg wenn man im Game ist

Vielen Dank

Horrido

[4.JgKp] Joschy

commy2 · 27. Dezember 2016

WALK_TARGET_PUBVAR is nicht definiert.

Diese Zeile (und alle ähnlichen):

Code

WALK_TARGET_PUBVAR = null;

machen keinen Sinn. null ist auch nur eine undefinierte Variable. Man müsste schon einen richtigen Nulltyp benutzen, z.B: https://community.bistudio.com/wiki/objNull
Ohne Böse zu sein, aber das sieht aus wie Code von jemanden, der keine Ahnung hat wie das alles funktioniert. : )

[4.JgKp] Joschy · 27. Dezember 2016

Moin Commy2,

also ob derjenige Ahnung hat oder nicht sei mal dahin gestellt auf jeden fall erfüllt das Script seinen zweck nachdem es auf dem Server lag war die Fehlermeldung erledigt

Ich danke dennoch für die Hilfe

BlauBaer · 27. Dezember 2016

Das Skript zeigt euch keine Fehlermeldung mehr an da es auf dem Server läuft und nicht auf euren Clients. Stattdessen wird die RPT des Servers wahrscheinlich gerade damit um ein paar MB aufgepolstert.

Die Augen vor einem Problem zu verschließen behebt es nicht.

[4.JgKp] Joschy · 27. Dezember 2016

Ok seh ich ein Blaubaer nur hab ich leider keine Lösung dafür.

Hab es schon versucht mit Löschen der betreffenden Zeile aber dann Funktioniert das Gesamte Script nicht mehr und die Zielscheiben werden nicht mehr ausgewertet.
Da das Script noch auf Arma " basiert kann sich denke ich auch da ein fehler eingschlichen haben aber dafür hab ich Leider noch zu wenig Ahnung von Scripten und Scriptaufbau

Horrido

BlauBaer · 27. Dezember 2016

Vielleicht kannst du ja mal das komplette Skript posten und genauer erklären, was es eigentlich tun soll.

[4.JgKp] Joschy · 27. Dezember 2016

Moin,

also das Script liest die Schiessklade aus und gibt mir entsprechend die Trefferpunkte der Zielscheibe auf dem Laptop wieder. Von dort aus kann man die Aktuelle Punktzahl wieder Löschen.
In Zeile 89 bringt er mir die angesprochene Fehlermeldung.

C

//=====================================================================
//script by Walker
//www.united-nations-army.eu
//=====================================================================
// This script initilizes a new target, collects the positions of the hits.
// The saved positions are passed to check_target.sqf
// Init line: nul = [this] execVM "una_targets\init_target.sqf";
//=====================================================================
_target_name = "target";
_monitor = null;
_path = "una_targets\";
_target = _this select 0;
if(count _this > 1) then {_monitor = _this select 1;};
if(count _this > 2) then {_target_name = _this select 2;};
_scoretable = [];
//_target_name = _this select 3
_target setVectorUp [0,0,1];
//-----------------------------------------------
//Initilize target
//-----------------------------------------------
//set target texture
//_target setObjectTexture [0,_path + 'circular_target.paa'];
WALK_TARGET_PUBVAR = null;
//get target center position
_offset =[0.00,-1.306];
//calibrated score borders
_borders = [0.460,0.410,0.365,0.320,0.270,0.225,0.175,0.130,0.080,0.035, 0];
_holelist = [];
_score_table_count_before = 0;
_action_cs = null;
_action_ct = null;
_action_csm = null;
_action_ctm = null;
//how often the the target is checked for new hits (in seconds)
_sweeptime = 0.1;
//-----------------------------------------------
//target loop
//-----------------------------------------------
_xb = 0;
_yb = 0;
While {true} do {
//if there has been new hits to the target -> update check target actions
if(count _scoretable > _score_table_count_before) then {
_score_table_count_before = count _scoretable;
_target removeAction _action_cs;
_action_cs = _target addaction [format["Treffer pruefen %1",_target_name], _path + "check_target.sqf",[_scoretable,_target_name]];
// _target removeAction _action_ct;
_action_ct = _target addaction [format["Scheibe loeschen %1",_target_name], _path + "clear_target.sqf",_target];
//Enable target actions from a monitor object
if(!isNull _monitor) then {
_monitor = _this select 1;
_monitor removeAction _action_csm;
_action_csm = _monitor addaction [format["Treffer pruefen %1",_target_name], _path + "check_target.sqf",[_scoretable,_target_name]];
_monitor removeAction _action_ctm;
_action_ctm = _monitor addaction [format["Scheibe loeschen %1",_target_name], _path + "clear_target.sqf",_target];
};
}
else {
_score_table_count_before = count _scoretable;
};
//if target has been cleared
if (WALK_TARGET_PUBVAR == _target) then {
_scoretable = null; //[COMBAT]Geo modification
_scoretable = [];
_score_table_count_before = 0; //[COMBAT]Geo modification
WALK_TARGET_PUBVAR = null;
publicVariable "WALK_TARGET_PUBVAR";
_target removeAction _action_cs;
_target removeAction _action_ct;
_monitor removeAction _action_csm;
_monitor removeAction _action_csm;
//Enable target actions from a monitor object
if(!isNull _monitor) then {
_monitor = _this select 1;
_monitor removeAction _action_cs;
_action_cs = _target addaction [format["Treffer pruefen %1",_target_name], _path + "check_target.sqf",[_scoretable,_target_name]];
_monitor removeAction _action_ct;
_action_ct = _target addaction [format["Scheibe loeschen %1",_target_name], _path + "clear_target.sqf",_target];
};
};
//wait sweeptime
sleep _sweeptime;
//get recent hits
_hits = [(getposATL _target select 0),(getposATL _target select 1),(getposATL _target select 2) - (_offset select 1)] nearObjects ["#craterOnVehicle",1];
if(count _hits > 0) then {
_last_hit = _hits select (count _hits - 1);
_j = 0;
//iteratet trough all hits since last sweep
while { !(_last_hit in _holelist) } do {
_holelist = _holelist + [_last_hit];
//position of last hit (in world coords)
_xh = getpos _last_hit select 0;
_yh = getpos _last_hit select 1;
_zh = getpos _last_hit select 2;
//position of target (in world coords)
_xt = getposATL _target select 0;
_yt = getposATL _target select 1;
_zt = getposATL _target select 2;
//position of last hit (in target coords)
_xb = sqrt((_xh-_xt)*(_xh-_xt) + (_yh-_yt)*(_yh-_yt)) + (_offset select 0);
_yb = _zh + (_offset select 1);
if (_xh < _xt) then {
_xb = -_xb;
};
if ((getdir _target) >= 180) then {
_xb = -_xb;
};
//save the hit positions into an array
_scoretable = _scoretable + [_xb,_yb];
_j = _j + 1;
if (count _hits > (_j)) then {
_last_hit = _hits select (count _hits - (_j + 1));
};
};
};
};

Alles anzeigen

Dorbedo · 28. Dezember 2016

Wie Commy bereits erwähnte: WALK_TARGET_PUBVAR = null; sollte 2x ersetzt werden durch: WALK_TARGET_PUBVAR = objNull;

Unabhängig davon: Ich denke, dass das Script keine korrekten Ergebnisse ausgeben kann.
Dazu eine Frage in den Raum:
Sollte das Einschussloch nicht Asyncron über die Clients sein? Oder wird der Trefferpunkt exakt syncronisiert?
Meiner Ansicht nach kann es nur exakt sein, wenn das Trefferbild lokal auf dem Shooter ausgewerten wird.

Noch eine kleine Anmerkung: Bitte nutz doch hier im Forum den Code-Block. Dann lässt sich der Code besser lesen.

commy2 · 28. Dezember 2016

C-Syntax macht es dann nochmal etwas leserlicher als "Brainfuck". (Wir brauchen hier echt mal ein SQF-plugin).

C

//=====================================================================
//script by Walker
//www.united-nations-army.eu
//=====================================================================
// This script initilizes a new target, collects the positions of the hits.
// The saved positions are passed to check_target.sqf
// Init line: nul = [this] execVM "una_targets\init_target.sqf";
//=====================================================================
_target_name = "target";
_monitor = null;
_path = "una_targets\";
_target = _this select 0;
if(count _this > 1) then {_monitor = _this select 1;};
if(count _this > 2) then {_target_name = _this select 2;};
_scoretable = [];
//_target_name = _this select 3
_target setVectorUp [0,0,1];
//-----------------------------------------------
//Initilize target
//-----------------------------------------------
//set target texture
//_target setObjectTexture [0,_path + 'circular_target.paa'];
WALK_TARGET_PUBVAR = null;
//get target center position
_offset =[0.00,-1.306];
//calibrated score borders
_borders = [0.460,0.410,0.365,0.320,0.270,0.225,0.175,0.130,0.080,0.035, 0];
_holelist = [];
_score_table_count_before = 0;
_action_cs = null;
_action_ct = null;
_action_csm = null;
_action_ctm = null;
//how often the the target is checked for new hits (in seconds)
_sweeptime = 0.1;
//-----------------------------------------------
//target loop
//-----------------------------------------------
_xb = 0;
_yb = 0;
While {true} do {
//if there has been new hits to the target -> update check target actions
if(count _scoretable > _score_table_count_before) then {
_score_table_count_before = count _scoretable;
_target removeAction _action_cs;
_action_cs = _target addaction [format["Treffer pruefen %1",_target_name], _path + "check_target.sqf",[_scoretable,_target_name]];
// _target removeAction _action_ct;
_action_ct = _target addaction [format["Scheibe loeschen %1",_target_name], _path + "clear_target.sqf",_target];
//Enable target actions from a monitor object
if(!isNull _monitor) then {
_monitor = _this select 1;
_monitor removeAction _action_csm;
_action_csm = _monitor addaction [format["Treffer pruefen %1",_target_name], _path + "check_target.sqf",[_scoretable,_target_name]];
_monitor removeAction _action_ctm;
_action_ctm = _monitor addaction [format["Scheibe loeschen %1",_target_name], _path + "clear_target.sqf",_target];
};
}
else {
_score_table_count_before = count _scoretable;
};
//if target has been cleared
if (WALK_TARGET_PUBVAR == _target) then {
_scoretable = null; //[COMBAT]Geo modification
_scoretable = [];
_score_table_count_before = 0; //[COMBAT]Geo modification
WALK_TARGET_PUBVAR = null;
publicVariable "WALK_TARGET_PUBVAR";
_target removeAction _action_cs;
_target removeAction _action_ct;
_monitor removeAction _action_csm;
_monitor removeAction _action_csm;
//Enable target actions from a monitor object
if(!isNull _monitor) then {
_monitor = _this select 1;
_monitor removeAction _action_cs;
_action_cs = _target addaction [format["Treffer pruefen %1",_target_name], _path + "check_target.sqf",[_scoretable,_target_name]];
_monitor removeAction _action_ct;
_action_ct = _target addaction [format["Scheibe loeschen %1",_target_name], _path + "clear_target.sqf",_target];
};
};
//wait sweeptime
sleep _sweeptime;
//get recent hits
_hits = [(getposATL _target select 0),(getposATL _target select 1),(getposATL _target select 2) - (_offset select 1)] nearObjects ["#craterOnVehicle",1];
if(count _hits > 0) then {
_last_hit = _hits select (count _hits - 1);
_j = 0;
//iteratet trough all hits since last sweep
while { !(_last_hit in _holelist) } do {
_holelist = _holelist + [_last_hit];
//position of last hit (in world coords)
_xh = getpos _last_hit select 0;
_yh = getpos _last_hit select 1;
_zh = getpos _last_hit select 2;
//position of target (in world coords)
_xt = getposATL _target select 0;
_yt = getposATL _target select 1;
_zt = getposATL _target select 2;
//position of last hit (in target coords)
_xb = sqrt((_xh-_xt)*(_xh-_xt) + (_yh-_yt)*(_yh-_yt)) + (_offset select 0);
_yb = _zh + (_offset select 1);
if (_xh < _xt) then {
_xb = -_xb;
};
if ((getdir _target) >= 180) then {
_xb = -_xb;
};
//save the hit positions into an array
_scoretable = _scoretable + [_xb,_yb];
_j = _j + 1;
if (count _hits > (_j)) then {
_last_hit = _hits select (count _hits - (_j + 1));
};
};
};
};

Alles anzeigen

Indentieren hilft auch. So richtig schlau draus werde ich aber noch nicht. Meiner Meinung nach müsste das schon ab dem Fehler in Zeile 10 abbrechen.

Fakey Mendax · 28. Dezember 2016

Zitat von commy2

(Wir brauchen hier echt mal ein SQF-plugin).

Ich habe für das wbb 4.1 ein bbcode syntaxhighlighter für sqf, allerdings kann ich keine installierbaren Pakete erstellen, so dass die Admins das von Hand in die wbb Installation einpflegen müssten. Falls Interesse daran besteht, dann gerne per pn kontaktieren.

BlauBaer · 28. Dezember 2016

Ich habs einfach mal neu geschrieben. Da ich nicht alle Skriptdateien hab kann ichs nicht testen, sollte aber so ungefähr stimmen.
Dein Skript scannt regelmäßig ob das Ziel getroffen wurde oder ob die Treffer gelöscht wurden, ich mach das alles mit Event Handlern, dass sollte nicht nur zuverlässiger funktionieren, sondern spart auch noch Performance.

JavaScript: HitScript.sqf

/*
* Aufruf mit:
* [Zielscheibe, Monitor, Zielbezeichnung] execVM "HitScript.sqf"
*/
params [
["_target", objNull, [objNull]],
["_monitor", objNull, [objNull]],
["_name", "target", [""]]
];
if (isNull _target) exitWith {
["Keine Zielscheibe angegeben."] call BIS_fnc_error;
};
_target setVariable ["HitScript_monitor", _monitor];
_target setVariable ["HitScript_name", _name];
if (isNil "HitScript_targets") then {
HitScript_targets = [_target];
// Handles clearing target hits
"WALK_TARGET_PUBVAR" addPublicVariableEventHandler {
if !(WALK_TARGET_PUBVAR in HitScript_targets) exitWith {};
// Remove actions
private _monitor = WALK_TARGET_PUBVAR getVariable "HitScript_monitor";
{
if (isNull _x) exitWith {};
private _actionIDs = _x getVariable ["HitScript_actionIDs", []];
{
_x removeAction _actionID;
} forEach _actionIDs;
_x setVariable ["HitScript_actionIDs", []];
} forEach [WALK_TARGET_PUBVAR, _monitor];
WALK_TARGET_PUBVAR setVariable ["HitScript_hits", []];
// The following might not be necessary depending on the other scripts
WALK_TARGET_PUBVAR = objNull;
publicVariable "WALK_TARGET_PUBVAR";
};
} else {
HitScript_targets pushBack _target;
};
// Original script uses pig disgusting scheduled env. to check for hits, eh does this much better
_target addEventHandler ["HitPart", {
params ["_target", "", "", "_position"];
private _monitor = _target getVariable "HitScript_monitor";
private _name = _target getVariable "HitScript_name";
private _hits = _target getVariable ["HitScript_hits", []];
// First save hit position
_hits pushBack [_position];
_target setVariable ["HitScript_hits", _hits];
// Then handle actions
private _actionCheck = [format ["Treffer prüfen (%1)", _name], "una_targets\check_target.sqf", [_hits, _name]];
private _actionClear = [format ["Scheibe löschen (%1)", _name], "una_targets\clear_target.sqf", _target];
{
if (isNull _x) exitWith {};
private _actionIDs = _x getVariable ["HitScript_actionIDs", []];
{
_x removeAction _actionID;
} forEach _actionIDs;
_actionIDs set [0, _x addAction _actionCheck];
_actionIDs set [1, _x addAction _actionClear];
_x setVariable ["HitScript_actionIDs", _actionIDs];
} forEach [_target, _monitor];
}];

Alles anzeigen

commy2 · 28. Dezember 2016

Das sieht schon besser aus. Und die Zeilenzahl gleich mal halbiert. Jetzt muss es nur noch funktionieren. Bin mir sicher, dass du das mit CBA-Events hättest machen können, aber so geht's ja auch.

[4.JgKp] Joschy · 29. Dezember 2016

Moin,

also Lösungsvorschlag von Commy2 und Dorbedo " WALK_TARGET_PUBVAR = objNull; " hat funktioniert und die Meldung ist beseitigt.

Vielen Dank für die Hilfe

Horrido

[4.JgKp] Joschy

Teilen