swg-source-1.2/src-1.2
1
0
Fork 0
mirror of https://bitbucket.org/theswgsource/src-1.2.git synced 2026-07-14 00:01:30 -04:00
Code Issues Projects Releases Wiki Activity
Files
5ce31f23fbfb7a68977b6fcec67289f4bac69cbc
src-1.2/game/server/database/item_conversion/item_conversion.sql.template
T
Anonymous cf2e16dba2 Added database/sql
2014-01-17 07:03:16 -07:00

2580 lines
98 KiB
Plaintext
Raw Blame History

CREATE OR REPLACE PACKAGE "ITEM_CONVERSION" as
procedure StartItemConversion (rbs_to_use varchar2 default null, conversion_id number default 1);
procedure DoSingleObject (objectId number, conversion_id number default 1);
end;
/
CREATE OR REPLACE PACKAGE BODY "ITEM_CONVERSION" as
-- private type defs
type objVarType is record (
object_id number := NULL,
objvar_name varchar2(500) := NULL,
objvar_type number := NULL,
objvar_value varchar2(1000) := NULL,
objvar_name_id number := 0,
old_objvar_name_id number := 0);
type objRowType is record (
object_id number,
object_template_id number,
object_name varchar2(127), name_string_table varchar2(500), name_string_text varchar2(500),
objvar_0_name varchar2(50), objvar_0_type number, objvar_0_value varchar2(50),
objvar_1_name varchar2(50), objvar_1_type number, objvar_1_value varchar2(50),
objvar_2_name varchar2(50), objvar_2_type number, objvar_2_value varchar2(50),
objvar_3_name varchar2(50), objvar_3_type number, objvar_3_value varchar2(50),
objvar_4_name varchar2(50), objvar_4_type number, objvar_4_value varchar2(50),
objvar_5_name varchar2(50), objvar_5_type number, objvar_5_value varchar2(50),
objvar_6_name varchar2(50), objvar_6_type number, objvar_6_value varchar2(50),
objvar_7_name varchar2(50), objvar_7_type number, objvar_7_value varchar2(50),
objvar_8_name varchar2(50), objvar_8_type number, objvar_8_value varchar2(50),
objvar_9_name varchar2(50), objvar_9_type number, objvar_9_value varchar2(50),
objvar_10_name varchar2(50), objvar_10_type number, objvar_10_value varchar2(50),
objvar_11_name varchar2(50), objvar_11_type number, objvar_11_value varchar2(50),
objvar_12_name varchar2(50), objvar_12_type number, objvar_12_value varchar2(50),
objvar_13_name varchar2(50), objvar_13_type number, objvar_13_value varchar2(50),
objvar_14_name varchar2(50), objvar_14_type number, objvar_14_value varchar2(50),
objvar_15_name varchar2(50), objvar_15_type number, objvar_15_value varchar2(50),
objvar_16_name varchar2(50), objvar_16_type number, objvar_16_value varchar2(50),
objvar_17_name varchar2(50), objvar_17_type number, objvar_17_value varchar2(50),
objvar_18_name varchar2(50), objvar_18_type number, objvar_18_value varchar2(50),
objvar_19_name varchar2(50), objvar_19_type number, objvar_19_value varchar2(50),
scriptlist varchar2(2000));
type objVarRowType is record (
object_id number,
objvar_name_id number,
objvar_name varchar2(500),
objvar_type number,
objvar_value varchar2(1000));
type weaponRowType is record (
object_id number,
min_damage number,
max_damage number,
attack_speed float,
wound_chance float,
accuracy number,
attack_cost number,
min_range float,
max_range float,
damage_type number,
elemental_type number,
elemental_value number);
type manfSchematicRowType is record (
object_id number,
draft_schematic number);
type manfAttributeRowType is record (
object_id number,
attribute varchar2(500),
value float);
type rangeType is varray(4) of number;
type rangeTableType is table of rangeType;
type numTable is table of number;
type varcharTable is table of varchar2(500);
type numTableVarchar is table of number
index by varchar2(500);
type varcharTableNum is table of varchar2(500)
index by binary_integer;
type objectObjVarArray is varray(20) of objVarType;
type objVarTable is table of objVarType
index by varchar2(500);
type dotObjVarTable is table of objVarType
index by varchar2(10);
type dotArrayVarchar is table of dotObjVarTable
index by varchar2(500);
type numTableNumber is table of number
index by binary_integer;
type dotsMatrixType is table of numTableNumber index by varchar2(50);
type manfAttributesTable is table of manfAttributeRowType
index by varchar2(500);
-- private global containers
use_rbs varchar2(50);
object_id number;
free_slots numTable; -- empty OBJECTS ObjVar columns
slot_map numTableVarchar; -- map from ObjVar name to OBJECTS slot
Obj_ObjVars objectObjVarArray; -- array of ObjVars in OBJECTS
OV_ObjVars objVarTable; -- map by name of ObjVars in OBJECT_VARIABLES
dot_list dotArrayVarchar; -- map from extracted DoT name and class to ObjVar
-- example: dot_list('actionShot1')('type')
isObjModified boolean; -- tracks if any of the OBJECTS data has changed
updated_objvars varcharTable; -- list of updated ObjVar names in OBJECT_VARIABLES
deleted_objvars varcharTable; -- list of deleted ObjVar names in OBJECT_VARIABLES
added_objvars varcharTable; -- list of added ObjVar names in OBJECT_VARIABLES
isWeaponObj boolean; -- tracks if the object has WEAPON_OBJECTS data
isSchematic boolean; -- tracks if the object has MANF_SCHEMATIC_OBJECTS data
isFactory boolean;
script_list varchar2(2000);
object_name varchar2(127);
name_table varchar2(500);
name_text varchar2(500);
template_id number;
new_template_id number;
new_schematic_id number;
err_num number;
weapon_attribs weaponRowType; -- record for weapon attributes for current object
manf_attributes manfAttributesTable; -- map of attributes in MANF_SCHEMATIC_ATTRIBUTES
updated_attribs varcharTable; -- list of updated attributes in MANF_SCHEMATIC_ATTRIBUTES
deleted_attribs varcharTable; -- list of deleted attributes in MANF_SCHEMATIC_ATTRIBUTES
added_attribs varcharTable; -- list of added attributes in MANF_SCHEMATIC_ATTRIBUTES
-- private lookup tables
templateIdSet numTableNumber; -- set of template ids to be converted
objvarNameIdMap numTableVarchar; -- map from ObjVar name to OBJECT_VARIABLES_NAMES ID
dots_matrix dotsMatrixType; -- map from DoT type and attribute to ObjVar
-- example: dots_matrix('fire')(6)
schematic_map numTableNumber; -- map of schematic to created template
templateNameTable varcharTableNum; -- map of new template ids to string_name_table
templateNameText varcharTableNum; -- map of new template ids to string_name_text
-- private constants
blankObjVar objVarType; -- can't use CONSTANT properly with records :(
-- private function declaration
procedure DoItemConversionBatch(start_objectid number, end_objectid number, conversion_id number);
function InitializeData return boolean;
procedure AddObjVar (objvar_name varchar2, objvar_type number, objvar_value varchar2);
procedure DeleteObjVar (objVarName in varchar2);
procedure ModifyObjVar (oldObjVarName varchar2, objvar_name varchar2, objvar_type number, objvar_value varchar2);
procedure ModifyObjVar (oldObjVarName varchar2, objvar_name varchar2, objvar_type number, rangeTable rangeTableType);
procedure RenameObjVar (oldObjVarName varchar2, objvar_name varchar2);
function GetObjVarValue (objvar_name varchar2) return varchar2;
procedure AddScript (newScript varchar2);
procedure RemoveScript (oldScript varchar2);
procedure SetNewTemplateId (newTemplateId number);
procedure SetTemplateText (newTemplateId number);
procedure InvalidateSchematic;
procedure AddAttrib (attrib_name varchar2, attrib_value float);
procedure DeleteAttrib (attrib_name in varchar2);
procedure ModifyAttrib (old_attrib_name varchar2, attrib_name varchar2, attrib_value float);
procedure DeleteOldArmorObjvars;
procedure SetGenProtection(rangeTable rangeTableType);
procedure SetArmorCondLevelCat(condition varchar2, lev varchar2, category varchar2);
procedure SetArmorLevel(lev varchar);
procedure SetArmorCategory(category varchar2);
procedure SetGpAndCond(gp_name varchar2, gp_val varchar2, cond_name varchar2, cond_val varchar2);
procedure DeleteCraftingComponents;
procedure CopySchematicAttributes;
procedure HandleFoodSchematic;
procedure HandleFoodCrate;
procedure ConvertToStimpack(stim_template number,healing_power number, combat_level number);
procedure ConvertToEnhancer(enh_template number, enh_name varchar2, enh_power number);
procedure ConvertToPetStimpack(stim_template number,healing_power number);
procedure ConvertSpice(spice_name varchar2);
procedure HandleWeaponDots;
procedure SetWeaponBaseStats(attack number, acc number, minrange number, maxrange number, damagetype number);
procedure SetMinDamage (min_damage number);
procedure SetMaxDamage (max_damage number);
procedure SetAttackSpeed (attack_speed number);
procedure SetWoundChance (wound_chance number);
procedure SetAccuracy (accuracy number);
procedure SetAttackCost (attack_cost number);
procedure SetMinRange (min_range number);
procedure SetMaxRange (max_range number);
procedure SetDamageType (dmg_type number);
procedure SetElementalType (ele_type number);
procedure SetElementalValue (ele_value number);
procedure ConvertAttribValue(attribute varchar2, rangeTable rangeTableType);
procedure ConvertMinDamage (rangeTable rangeTableType);
procedure ConvertMaxDamage (rangeTable rangeTableType);
procedure ConvertAttackSpeed (rangeTable rangeTableType);
procedure ConvertWoundChance (rangeTable rangeTableType);
procedure ConvertRangedPowerup;
procedure ConvertMeleePowerup;
procedure ConvertMinePowerup;
function ConvertValue (oldvalue number, rangeTable rangeTableType) return number;
procedure CheckObjVarForDot (objvar objVarType);
function DotsMatrix(dot_type varchar2, dot_attrib number)
return number;
function SchematicMap(schematic_id number)
return number;
-- public function definitions
procedure StartItemConversion (rbs_to_use varchar2, conversion_id number)
is
maxObjectId number;
startObjectId number := 0;
starttime date := sysdate;
begin
use_rbs := rbs_to_use;
if use_rbs is not null then
execute immediate 'set transaction use rollback segment ' || use_rbs;
end if;
if (InitializeData) then
-- loop through all objects in batches
select max(object_id) into maxObjectId from objects;
while startObjectId < maxObjectId loop
dbms_output.put_line('starting batch: ' || startObjectId || ' time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
DoItemConversionBatch(startObjectId, startObjectId + 19999999999, conversion_id);
commit;
if use_rbs is not null then
execute immediate 'set transaction use rollback segment ' || use_rbs;
end if;
startObjectId := startObjectId + 20000000000;
end loop;
end if;
dbms_output.put_line('start time = ' || to_char(starttime, 'MM/DD/YY HH24:MI:SS'));
dbms_output.put_line('final time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
dbms_output.put_line('total time = ' || to_char(trunc((sysdate - starttime)*24*60)) || ' mins');
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in StartItemConversion - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in StartItemConversion');
end;
procedure DoSingleObject (objectId number, conversion_id number)
is
begin
if (InitializeData) then
DoItemConversionBatch(objectId, objectId, conversion_id);
end if;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in DoSingleObject - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in ObjVarUpdates');
end;
-- private function definitions
procedure DoItemConversionBatch(start_objectid number, end_objectid number, conversion_id number)
is
-- cursors
objRow objRowType;
cursor objCursor (start_id number, end_id number) is
select
o.object_id,
o.object_template_id,
o.object_name, o.name_string_table, o.name_string_text,
o.objvar_0_name, o.objvar_0_type, o.objvar_0_value,
o.objvar_1_name, o.objvar_1_type, o.objvar_1_value,
o.objvar_2_name, o.objvar_2_type, o.objvar_2_value,
o.objvar_3_name, o.objvar_3_type, o.objvar_3_value,
o.objvar_4_name, o.objvar_4_type, o.objvar_4_value,
o.objvar_5_name, o.objvar_5_type, o.objvar_5_value,
o.objvar_6_name, o.objvar_6_type, o.objvar_6_value,
o.objvar_7_name, o.objvar_7_type, o.objvar_7_value,
o.objvar_8_name, o.objvar_8_type, o.objvar_8_value,
o.objvar_9_name, o.objvar_9_type, o.objvar_9_value,
o.objvar_10_name, o.objvar_10_type, o.objvar_10_value,
o.objvar_11_name, o.objvar_11_type, o.objvar_11_value,
o.objvar_12_name, o.objvar_12_type, o.objvar_12_value,
o.objvar_13_name, o.objvar_13_type, o.objvar_13_value,
o.objvar_14_name, o.objvar_14_type, o.objvar_14_value,
o.objvar_15_name, o.objvar_15_type, o.objvar_15_value,
o.objvar_16_name, o.objvar_16_type, o.objvar_16_value,
o.objvar_17_name, o.objvar_17_type, o.objvar_17_value,
o.objvar_18_name, o.objvar_18_type, o.objvar_18_value,
o.objvar_19_name, o.objvar_19_type, o.objvar_19_value,
script_list
from objects o
where object_id between start_id and end_id
order by object_id;
objVarRow objVarRowType;
cursor objVarCursor (start_id number, end_id number) is
select
v.object_id,
v.name_id,
nvl(n.name, to_char(n.id)),
v.type,
v.value
from object_variables v, object_variable_names n
where v.object_id between start_id and end_id
and nvl(v.detached,0) = 0
and v.name_id = n.id
order by v.object_id;
weaponRow weaponRowType;
cursor weaponCursor (start_id number, end_id number) is
select
object_id,
min_damage,
max_damage,
attack_speed,
wound_chance,
accuracy,
attack_cost,
min_range,
max_range,
damage_type,
elemental_type,
elemental_value
from weapon_objects
where object_id between start_id and end_id
order by object_id;
manfSchematicRow manfSchematicRowType;
cursor schematicCursor (start_id number, end_id number) is
select
object_id,
draft_schematic
from manf_schematic_objects
where object_id between start_id and end_id
order by object_id;
manfAttributeRow manfAttributeRowType;
cursor attributeCursor (start_id number, end_id number) is
select
object_id,
attribute_type,
value
from manf_schematic_attributes
where object_id between start_id and end_id
order by object_id;
-- local variables
i number;
n number;
idx number := 0;
cnt number := 0;
cvt number := 0;
bool boolean;
tempObjVar objVarType;
stmt varchar2(4000);
prefix varchar2(100);
begin
dbms_output.put_line('start time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
open objCursor (start_objectid, end_objectid);
fetch objCursor into objRow;
dbms_output.put_line('object cursor time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
open objVarCursor (start_objectid, end_objectid);
fetch objVarCursor into objVarRow;
dbms_output.put_line('objvar cursor time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
open weaponCursor (start_objectid, end_objectid);
fetch weaponCursor into weaponRow;
dbms_output.put_line('weapon cursor time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
open schematicCursor (start_objectid, end_objectid);
fetch schematicCursor into manfSchematicRow;
dbms_output.put_line('schematic cursor time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
open attributeCursor (start_objectid, end_objectid);
fetch attributeCursor into manfAttributeRow;
dbms_output.put_line('attribute cursor time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
while objCursor%found loop
begin
if templateIdSet.exists(objRow.object_template_id) then
-- Clear Data
free_slots.delete;
free_slots := numTable(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20);
slot_map.delete;
for i in 1..20 loop
Obj_ObjVars(i) := blankObjVar;
end loop;
OV_ObjVars.delete;
dot_list.delete;
updated_objvars.trim(updated_objvars.count);
deleted_objvars.trim(deleted_objvars.count);
added_objvars.trim(added_objvars.count);
manf_attributes.delete;
updated_attribs.trim(updated_attribs.count);
deleted_attribs.trim(deleted_attribs.count);
added_attribs.trim(added_attribs.count);
isObjModified := FALSE;
isWeaponObj := FALSE;
isSchematic := FALSE;
isFactory := FALSE;
prefix := 'crafting_components.';
new_schematic_id := 0;
weapon_attribs := null;
-- Load the data into variables
object_id := objRow.object_id;
script_list := objRow.scriptList;
object_name := objRow.object_name;
name_table := objRow.name_string_table;
name_text := objRow.name_string_text;
template_id := objRow.object_template_id;
new_template_id := template_id;
Obj_ObjVars(1).object_id := objRow.object_id; -- might be able to eliminate
Obj_ObjVars(1).objvar_name := objRow.objvar_0_name;
Obj_ObjVars(1).objvar_type := objRow.objvar_0_type;
Obj_ObjVars(1).objvar_value := objRow.objvar_0_value;
if ((objRow.objvar_0_name is not null) and (objRow.objvar_0_type != -1))then
slot_map(objRow.objvar_0_name) := 1;
CheckObjVarForDot(Obj_ObjVars(1));
free_slots.delete(1);
end if;
Obj_ObjVars(2).object_id := objRow.object_id;
Obj_ObjVars(2).objvar_name := objRow.objvar_1_name;
Obj_ObjVars(2).objvar_type := objRow.objvar_1_type;
Obj_ObjVars(2).objvar_value := objRow.objvar_1_value;
if ((objRow.objvar_1_name is not null) and (objRow.objvar_1_type != -1))then
slot_map(objRow.objvar_1_name) := 2;
CheckObjVarForDot(Obj_ObjVars(2));
free_slots.delete(2);
end if;
Obj_ObjVars(3).object_id := objRow.object_id;
Obj_ObjVars(3).objvar_name := objRow.objvar_2_name;
Obj_ObjVars(3).objvar_type := objRow.objvar_2_type;
Obj_ObjVars(3).objvar_value := objRow.objvar_2_value;
if ((objRow.objvar_2_name is not null) and (objRow.objvar_2_type != -1))then
slot_map(objRow.objvar_2_name) := 3;
CheckObjVarForDot(Obj_ObjVars(3));
free_slots.delete(3);
end if;
Obj_ObjVars(4).object_id := objRow.object_id;
Obj_ObjVars(4).objvar_name := objRow.objvar_3_name;
Obj_ObjVars(4).objvar_type := objRow.objvar_3_type;
Obj_ObjVars(4).objvar_value := objRow.objvar_3_value;
if ((objRow.objvar_3_name is not null) and (objRow.objvar_3_type != -1))then
slot_map(objRow.objvar_3_name) := 4;
CheckObjVarForDot(Obj_ObjVars(4));
free_slots.delete(4);
end if;
Obj_ObjVars(5).object_id := objRow.object_id;
Obj_ObjVars(5).objvar_name := objRow.objvar_4_name;
Obj_ObjVars(5).objvar_type := objRow.objvar_4_type;
Obj_ObjVars(5).objvar_value := objRow.objvar_4_value;
if ((objRow.objvar_4_name is not null) and (objRow.objvar_4_type != -1))then
slot_map(objRow.objvar_4_name) := 5;
CheckObjVarForDot(Obj_ObjVars(5));
free_slots.delete(5);
end if;
Obj_ObjVars(6).object_id := objRow.object_id;
Obj_ObjVars(6).objvar_name := objRow.objvar_5_name;
Obj_ObjVars(6).objvar_type := objRow.objvar_5_type;
Obj_ObjVars(6).objvar_value := objRow.objvar_5_value;
if ((objRow.objvar_5_name is not null) and (objRow.objvar_5_type != -1))then
slot_map(objRow.objvar_5_name) := 6;
CheckObjVarForDot(Obj_ObjVars(6));
free_slots.delete(6);
end if;
Obj_ObjVars(7).object_id := objRow.object_id;
Obj_ObjVars(7).objvar_name := objRow.objvar_6_name;
Obj_ObjVars(7).objvar_type := objRow.objvar_6_type;
Obj_ObjVars(7).objvar_value := objRow.objvar_6_value;
if ((objRow.objvar_6_name is not null) and (objRow.objvar_6_type != -1))then
slot_map(objRow.objvar_6_name) := 7;
CheckObjVarForDot(Obj_ObjVars(7));
free_slots.delete(7);
end if;
Obj_ObjVars(8).object_id := objRow.object_id;
Obj_ObjVars(8).objvar_name := objRow.objvar_7_name;
Obj_ObjVars(8).objvar_type := objRow.objvar_7_type;
Obj_ObjVars(8).objvar_value := objRow.objvar_7_value;
if ((objRow.objvar_7_name is not null) and (objRow.objvar_7_type != -1))then
slot_map(objRow.objvar_7_name) := 8;
CheckObjVarForDot(Obj_ObjVars(8));
free_slots.delete(8);
end if;
Obj_ObjVars(9).object_id := objRow.object_id;
Obj_ObjVars(9).objvar_name := objRow.objvar_8_name;
Obj_ObjVars(9).objvar_type := objRow.objvar_8_type;
Obj_ObjVars(9).objvar_value := objRow.objvar_8_value;
if ((objRow.objvar_8_name is not null) and (objRow.objvar_8_type != -1))then
slot_map(objRow.objvar_8_name) := 9;
CheckObjVarForDot(Obj_ObjVars(9));
free_slots.delete(9);
end if;
Obj_ObjVars(10).object_id := objRow.object_id;
Obj_ObjVars(10).objvar_name := objRow.objvar_9_name;
Obj_ObjVars(10).objvar_type := objRow.objvar_9_type;
Obj_ObjVars(10).objvar_value := objRow.objvar_9_value;
if ((objRow.objvar_9_name is not null) and (objRow.objvar_9_type != -1))then
slot_map(objRow.objvar_9_name) := 10;
CheckObjVarForDot(Obj_ObjVars(10));
free_slots.delete(10);
end if;
Obj_ObjVars(11).object_id := objRow.object_id;
Obj_ObjVars(11).objvar_name := objRow.objvar_10_name;
Obj_ObjVars(11).objvar_type := objRow.objvar_10_type;
Obj_ObjVars(11).objvar_value := objRow.objvar_10_value;
if ((objRow.objvar_10_name is not null) and (objRow.objvar_10_type != -1))then
slot_map(objRow.objvar_10_name) := 11;
CheckObjVarForDot(Obj_ObjVars(11));
free_slots.delete(11);
end if;
Obj_ObjVars(12).object_id := objRow.object_id;
Obj_ObjVars(12).objvar_name := objRow.objvar_11_name;
Obj_ObjVars(12).objvar_type := objRow.objvar_11_type;
Obj_ObjVars(12).objvar_value := objRow.objvar_11_value;
if ((objRow.objvar_11_name is not null) and (objRow.objvar_11_type != -1))then
slot_map(objRow.objvar_11_name) := 12;
CheckObjVarForDot(Obj_ObjVars(12));
free_slots.delete(12);
end if;
Obj_ObjVars(13).object_id := objRow.object_id;
Obj_ObjVars(13).objvar_name := objRow.objvar_12_name;
Obj_ObjVars(13).objvar_type := objRow.objvar_12_type;
Obj_ObjVars(13).objvar_value := objRow.objvar_12_value;
if ((objRow.objvar_12_name is not null) and (objRow.objvar_12_type != -1))then
slot_map(objRow.objvar_12_name) := 13;
CheckObjVarForDot(Obj_ObjVars(13));
free_slots.delete(13);
end if;
Obj_ObjVars(14).object_id := objRow.object_id;
Obj_ObjVars(14).objvar_name := objRow.objvar_13_name;
Obj_ObjVars(14).objvar_type := objRow.objvar_13_type;
Obj_ObjVars(14).objvar_value := objRow.objvar_13_value;
if ((objRow.objvar_13_name is not null) and (objRow.objvar_13_type != -1))then
slot_map(objRow.objvar_13_name) := 14;
CheckObjVarForDot(Obj_ObjVars(14));
free_slots.delete(14);
end if;
Obj_ObjVars(15).object_id := objRow.object_id;
Obj_ObjVars(15).objvar_name := objRow.objvar_14_name;
Obj_ObjVars(15).objvar_type := objRow.objvar_14_type;
Obj_ObjVars(15).objvar_value := objRow.objvar_14_value;
if ((objRow.objvar_14_name is not null) and (objRow.objvar_14_type != -1))then
slot_map(objRow.objvar_14_name) := 15;
CheckObjVarForDot(Obj_ObjVars(15));
free_slots.delete(15);
end if;
Obj_ObjVars(16).object_id := objRow.object_id;
Obj_ObjVars(16).objvar_name := objRow.objvar_15_name;
Obj_ObjVars(16).objvar_type := objRow.objvar_15_type;
Obj_ObjVars(16).objvar_value := objRow.objvar_15_value;
if ((objRow.objvar_15_name is not null) and (objRow.objvar_15_type != -1))then
slot_map(objRow.objvar_15_name) := 16;
CheckObjVarForDot(Obj_ObjVars(16));
free_slots.delete(16);
end if;
Obj_ObjVars(17).object_id := objRow.object_id;
Obj_ObjVars(17).objvar_name := objRow.objvar_16_name;
Obj_ObjVars(17).objvar_type := objRow.objvar_16_type;
Obj_ObjVars(17).objvar_value := objRow.objvar_16_value;
if ((objRow.objvar_16_name is not null) and (objRow.objvar_16_type != -1))then
slot_map(objRow.objvar_16_name) := 17;
CheckObjVarForDot(Obj_ObjVars(17));
free_slots.delete(17);
end if;
Obj_ObjVars(18).object_id := objRow.object_id;
Obj_ObjVars(18).objvar_name := objRow.objvar_17_name;
Obj_ObjVars(18).objvar_type := objRow.objvar_17_type;
Obj_ObjVars(18).objvar_value := objRow.objvar_17_value;
if ((objRow.objvar_17_name is not null) and (objRow.objvar_17_type != -1))then
slot_map(objRow.objvar_17_name) := 18;
CheckObjVarForDot(Obj_ObjVars(18));
free_slots.delete(18);
end if;
Obj_ObjVars(19).object_id := objRow.object_id;
Obj_ObjVars(19).objvar_name := objRow.objvar_18_name;
Obj_ObjVars(19).objvar_type := objRow.objvar_18_type;
Obj_ObjVars(19).objvar_value := objRow.objvar_18_value;
if ((objRow.objvar_18_name is not null) and (objRow.objvar_18_type != -1))then
slot_map(objRow.objvar_18_name) := 19;
CheckObjVarForDot(Obj_ObjVars(19));
free_slots.delete(19);
end if;
Obj_ObjVars(20).object_id := objRow.object_id;
Obj_ObjVars(20).objvar_name := objRow.objvar_19_name;
Obj_ObjVars(20).objvar_type := objRow.objvar_19_type;
Obj_ObjVars(20).objvar_value := objRow.objvar_19_value;
if ((objRow.objvar_19_name is not null) and (objRow.objvar_19_type != -1))then
slot_map(objRow.objvar_19_name) := 20;
CheckObjVarForDot(Obj_ObjVars(20));
free_slots.delete(20);
end if;
while (objVarCursor%found and objVarRow.object_id <= objRow.object_id) loop
if objVarRow.object_id = objRow.object_id then
tempObjVar := blankObjVar;
tempObjVar.object_id := objVarRow.object_id;
tempObjVar.objvar_name := objVarRow.objvar_name;
tempObjVar.objvar_type := objVarRow.objvar_type;
tempObjVar.objvar_value := objVarRow.objvar_value;
tempObjVar.objvar_name_id := objVarRow.objvar_name_id;
OV_ObjVars(objVarRow.objvar_name) := tempObjVar;
slot_map(objVarRow.objvar_name) := 21;
CheckObjVarForDot(tempObjVar);
end if;
fetch objVarCursor into objVarRow;
end loop;
while (weaponCursor%found and weaponRow.object_id <= objRow.object_id) loop
if weaponRow.object_id = objRow.object_id then
weapon_attribs := weaponRow;
isWeaponObj := TRUE;
end if;
fetch weaponCursor into weaponRow;
end loop;
-- check to see if it is a manufacturing schematic
if template_id = -144833342 then
while (schematicCursor%found and manfSchematicRow.object_id <= objRow.object_id) loop
if manfSchematicRow.object_id = objRow.object_id then
template_id := SchematicMap(manfSchematicRow.draft_schematic);
if template_id != 0 then
isSchematic := TRUE;
prefix := 'crafting_attributes.crafting:';
end if;
end if;
fetch schematicCursor into manfSchematicRow;
end loop;
while (attributeCursor%found and manfAttributeRow.object_id <= objRow.object_id) loop
if manfAttributeRow.object_id = objRow.object_id then
manf_attributes(manfAttributeRow.attribute) := manfAttributeRow;
end if;
fetch attributeCursor into manfAttributeRow;
end loop;
-- check to see if it a weapon (162889564) or armor (1120303977) factory crate
-- or food (-200781577) or chemicals (-1966544754)
-- or electronics (-754298423) or clothing (-1207917085)
elsif template_id = 162889564 or template_id = 1120303977
or template_id = -200781577 or template_id = -1966544754
or template_id = -754298423 or template_id = -1207917085 then
if slot_map.exists('draftSchematic') then
if slot_map('draftSchematic') < 21 then
template_id := SchematicMap(to_number(Obj_ObjVars(slot_map('draftSchematic')).objvar_value));
else
template_id := SchematicMap(to_number(OV_ObjVars('draftSchematic').objvar_value));
end if;
isFactory := TRUE;
prefix := 'crafting_attributes.crafting:';
DeleteObjVar('ingr.*');
end if;
end if;
-- Do the conversions
-- ****** BEGIN ARMOR CONVERSION RULES ******
-- ****** BEGIN ARMOR COMPONENT CONVERSION RULES ******
-- ****** BEGIN WEAPON CONVERSION RULES ******
-- ****** BEGIN POWERUP CONVERSION RULES ******
-- ****** BEGIN SABER CONVERSION RULES ******
-- ****** BEGIN FOOD CONVERSION RULES ******
-- ****** BEGIN MEDICINE CONVERSION RULES ******
-- ****** BEGIN SPICE CONVERSION RULES ******
--object/tangible/wearables/necklace/necklace_nyax.iff
elsif template_id = 1717727484 then
DeleteObjVar('skillmod.bonus.combat_medic_effectiveness');
AddObjVar('skillmod.bonus.dot_efficiency',0,'5');
end if;
-- Save the changes
if isObjModified = TRUE then
begin
stmt := 'update objects set '
|| 'objvar_0_name = :o0n, objvar_0_type = :o0t, objvar_0_value = :o0v, '
|| 'objvar_1_name = :o1n, objvar_1_type = :o1t, objvar_1_value = :o1v, '
|| 'objvar_2_name = :o2n, objvar_2_type = :o2t, objvar_2_value = :o2v, '
|| 'objvar_3_name = :o3n, objvar_3_type = :o3t, objvar_3_value = :o3v, '
|| 'objvar_4_name = :o4n, objvar_4_type = :o4t, objvar_4_value = :o4v, '
|| 'objvar_5_name = :o5n, objvar_5_type = :o5t, objvar_5_value = :o5v, '
|| 'objvar_6_name = :o6n, objvar_6_type = :o6t, objvar_6_value = :o6v, '
|| 'objvar_7_name = :o7n, objvar_7_type = :o7t, objvar_7_value = :o7v, '
|| 'objvar_8_name = :o8n, objvar_8_type = :o8t, objvar_8_value = :o8v, '
|| 'objvar_9_name = :o9n, objvar_9_type = :o9t, objvar_9_value = :o9v, '
|| 'objvar_10_name = :o10n, objvar_10_type = :o10t, objvar_10_value = :o10v, '
|| 'objvar_11_name = :o11n, objvar_11_type = :o11t, objvar_11_value = :o11v, '
|| 'objvar_12_name = :o12n, objvar_12_type = :o12t, objvar_12_value = :o12v, '
|| 'objvar_13_name = :o13n, objvar_13_type = :o13t, objvar_13_value = :o13v, '
|| 'objvar_14_name = :o14n, objvar_14_type = :o14t, objvar_14_value = :o14v, '
|| 'objvar_15_name = :o15n, objvar_15_type = :o15t, objvar_15_value = :o15v, '
|| 'objvar_16_name = :o16n, objvar_16_type = :o16t, objvar_16_value = :o16v, '
|| 'objvar_17_name = :o17n, objvar_17_type = :o17t, objvar_17_value = :o17v, '
|| 'objvar_18_name = :o18n, objvar_18_type = :o18t, objvar_18_value = :o18v, '
|| 'objvar_19_name = :o19n, objvar_19_type = :o19t, objvar_19_value = :o19v, '
|| 'script_list = :sl, object_template_id = :otid, '
|| 'object_name = :obn, name_string_table = :nstb, name_string_text = :nstx, '
|| 'conversion_id = :version '
|| 'where object_id = :id';
execute immediate stmt using
Obj_ObjVars(1).objvar_name, Obj_ObjVars(1).objvar_type, Obj_ObjVars(1).objvar_value,
Obj_ObjVars(2).objvar_name, Obj_ObjVars(2).objvar_type, Obj_ObjVars(2).objvar_value,
Obj_ObjVars(3).objvar_name, Obj_ObjVars(3).objvar_type, Obj_ObjVars(3).objvar_value,
Obj_ObjVars(4).objvar_name, Obj_ObjVars(4).objvar_type, Obj_ObjVars(4).objvar_value,
Obj_ObjVars(5).objvar_name, Obj_ObjVars(5).objvar_type, Obj_ObjVars(5).objvar_value,
Obj_ObjVars(6).objvar_name, Obj_ObjVars(6).objvar_type, Obj_ObjVars(6).objvar_value,
Obj_ObjVars(7).objvar_name, Obj_ObjVars(7).objvar_type, Obj_ObjVars(7).objvar_value,
Obj_ObjVars(8).objvar_name, Obj_ObjVars(8).objvar_type, Obj_ObjVars(8).objvar_value,
Obj_ObjVars(9).objvar_name, Obj_ObjVars(9).objvar_type, Obj_ObjVars(9).objvar_value,
Obj_ObjVars(10).objvar_name, Obj_ObjVars(10).objvar_type, Obj_ObjVars(10).objvar_value,
Obj_ObjVars(11).objvar_name, Obj_ObjVars(11).objvar_type, Obj_ObjVars(11).objvar_value,
Obj_ObjVars(12).objvar_name, Obj_ObjVars(12).objvar_type, Obj_ObjVars(12).objvar_value,
Obj_ObjVars(13).objvar_name, Obj_ObjVars(13).objvar_type, Obj_ObjVars(13).objvar_value,
Obj_ObjVars(14).objvar_name, Obj_ObjVars(14).objvar_type, Obj_ObjVars(14).objvar_value,
Obj_ObjVars(15).objvar_name, Obj_ObjVars(15).objvar_type, Obj_ObjVars(15).objvar_value,
Obj_ObjVars(16).objvar_name, Obj_ObjVars(16).objvar_type, Obj_ObjVars(16).objvar_value,
Obj_ObjVars(17).objvar_name, Obj_ObjVars(17).objvar_type, Obj_ObjVars(17).objvar_value,
Obj_ObjVars(18).objvar_name, Obj_ObjVars(18).objvar_type, Obj_ObjVars(18).objvar_value,
Obj_ObjVars(19).objvar_name, Obj_ObjVars(19).objvar_type, Obj_ObjVars(19).objvar_value,
Obj_ObjVars(20).objvar_name, Obj_ObjVars(20).objvar_type, Obj_ObjVars(20).objvar_value,
script_list, new_template_id,
object_name, name_table, name_text,
conversion_id,
object_id;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in object update(' || object_id || ') - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in object update');
end;
end if;
if isWeaponObj = TRUE then
begin
stmt := 'update weapon_objects set '
|| 'min_damage = :mindam, '
|| 'max_damage = :maxdam, '
|| 'attack_speed = :spd, '
|| 'wound_chance = :wnd, '
|| 'accuracy = :accuracy, '
|| 'attack_cost = :ac, '
|| 'min_range = :mindrng, '
|| 'max_range = :maxrng, '
|| 'damage_type = :dmgtype, '
|| 'elemental_type = :eletype, '
|| 'elemental_value = :elevalue '
|| 'where object_id = :id';
execute immediate stmt using
weapon_attribs.min_damage,
weapon_attribs.max_damage,
weapon_attribs.attack_speed,
weapon_attribs.wound_chance,
weapon_attribs.accuracy,
weapon_attribs.attack_cost,
weapon_attribs.min_range,
weapon_attribs.max_range,
weapon_attribs.damage_type,
weapon_attribs.elemental_type,
weapon_attribs.elemental_value,
object_id;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in weapon update(' || object_id || ') - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in weapon update');
end;
end if;
i := deleted_objvars.first;
while i is not null loop
begin
stmt := 'delete from object_variables '
|| 'where object_id = :id and name_id = :oldname';
execute immediate stmt using
object_id,
OV_ObjVars(deleted_objvars(i)).old_objvar_name_id;
i := deleted_objvars.next(i);
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error (' || SQLERRM(err_num) || ') with deleted_objvars(' || object_id || ') - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error with deleted_objvars');
i := deleted_objvars.next(i);
end;
end loop;
i := added_objvars.first;
while i is not null loop
begin
stmt := 'insert into object_variables values '
|| '(:id, :name, :type, :value, 0)';
execute immediate stmt using
object_id,
OV_ObjVars(added_objvars(i)).objvar_name_id,
OV_ObjVars(added_objvars(i)).objvar_type,
OV_ObjVars(added_objvars(i)).objvar_value;
i := added_objvars.next(i);
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error (' || SQLERRM(err_num) || ') with added_objvars(' || object_id || ') - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error with added_objvars');
i := added_objvars.next(i);
end;
end loop;
i := updated_objvars.first;
while i is not null loop
begin
stmt := 'update object_variables set '
|| 'name_id = :name, type = :type, value = :value '
|| 'where object_id = :id and name_id = :oldname';
execute immediate stmt using
objvarNameIdMap(OV_ObjVars(updated_objvars(i)).objvar_name),
OV_ObjVars(updated_objvars(i)).objvar_type,
OV_ObjVars(updated_objvars(i)).objvar_value,
object_id,
OV_ObjVars(updated_objvars(i)).old_objvar_name_id;
i := updated_objvars.next(i);
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error (' || SQLERRM(err_num) || ') with updated_objvars(' || object_id || ') - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error with updated_objvars');
i := updated_objvars.next(i);
end;
end loop;
i := deleted_attribs.first;
while i is not null loop
begin
stmt := 'delete from manf_schematic_attributes '
|| 'where object_id = :id and attribute_type = :attribute';
execute immediate stmt using
object_id,
deleted_attribs(i);
i := deleted_attribs.next(i);
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error (' || SQLERRM(err_num) || ') with deleted_attribs(' || object_id || ') - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error with deleted_attribs');
i := deleted_attribs.next(i);
end;
end loop;
i := added_attribs.first;
while i is not null loop
begin
stmt := 'insert into manf_schematic_attributes values '
|| '(:id, :attrib, :value)';
execute immediate stmt using
object_id,
manf_attributes(added_attribs(i)).attribute,
manf_attributes(added_attribs(i)).value;
i := added_attribs.next(i);
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error (' || SQLERRM(err_num) || ') with added_attribs(' || object_id || ') - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error with added_attribs');
i := added_attribs.next(i);
end;
end loop;
i := updated_attribs.first;
while i is not null loop
begin
stmt := 'update manf_schematic_attributes set '
|| 'attribute_type = :attribute, value = :value '
|| 'where object_id = :id and attribute_type = :oldname';
execute immediate stmt using
manf_attributes(updated_attribs(i)).attribute,
manf_attributes(updated_attribs(i)).value,
object_id,
updated_attribs(i);
i := updated_attribs.next(i);
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error (' || SQLERRM(err_num) || ') with updated_attribs(' || object_id || ') - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error with updated_attribs');
i := updated_attribs.next(i);
end;
end loop;
if (isSchematic = TRUE) and (new_schematic_id != 0) then
begin
stmt := 'update manf_schematic_objects set '
|| 'draft_schematic = :new_id '
|| 'where object_id = :id';
execute immediate stmt using
new_schematic_id,
object_id;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error (' || SQLERRM(err_num) || ') with update_schematic(' || object_id || ') - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error with update_schematic');
i := updated_attribs.next(i);
end;
end if;
cvt := cvt + 1;
end if;
idx := idx + 1;
-- commit every 100,000 records
if idx > 99999 then
commit;
if use_rbs is not null then
execute immediate 'set transaction use rollback segment ' || use_rbs;
end if;
dbms_output.put_line('100,000 rows = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
cnt := cnt + idx;
idx := 0;
end if;
end;
fetch objCursor into objRow;
end loop;
--commit;
close attributeCursor;
close schematicCursor;
close weaponCursor;
close objVarCursor;
close objCursor;
cnt := cnt + idx;
dbms_output.put_line('end time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
dbms_output.put_line('converted = ' || to_char(cvt));
dbms_output.put_line('total count = ' || to_char(cnt));
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error (' || SQLERRM(err_num) || ') in DoItemConversionBatch (' || object_id || ') - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in DoItemConversionBatch');
end;
function InitializeData return boolean
is
objvarNameIdRow object_variable_names%rowtype;
-- ALL added/updated objvar names MUST be in this list
cursor objvarNameIdCursor is
select id, name from object_variable_names
where name in (
'armor.armorCategory',
'armor.armorLevel',
'armor.armorencumbrance',
'armor.condition',
'armor.effectiveness',
'armor.encumbrance',
'armor.encumbranceSplit',
'armor.general_protection',
'armor.layer0',
'armor.layer13',
'armor.layer14',
'armor.layer15',
'armor.mandDeconstruct',
'armor.rating',
'armor.recharge_rate',
'armor.risDeconstruct',
'armor.special.1',
'armor.special.1024',
'armor.special.128',
'armor.special.16',
'armor.special.2',
'armor.special.2048',
'armor.special.256',
'armor.special.32',
'armor.special.4',
'armor.special.4096',
'armor.special.512',
'armor.special.64',
'armor.special.8',
'armor.vulnerability',
'armorCategory',
'armorLevel',
'biolink.faction_points',
'blindChance',
'blindDuration',
'buff_name',
'burnDuration',
'burnIntensity',
'crafting_attributes.crafting:accuracy',
'crafting_attributes.crafting:armor_condition',
'crafting_attributes.crafting:armor_general_protection',
'crafting_attributes.crafting:armor_layer0',
'crafting_attributes.crafting:armor_layer1',
'crafting_attributes.crafting:armor_layer2',
'crafting_attributes.crafting:armor_layer4',
'crafting_attributes.crafting:armor_layer5',
'crafting_attributes.crafting:armor_layer6',
'crafting_attributes.crafting:armor_layer7',
'crafting_attributes.crafting:armor_layer12',
'crafting_attributes.crafting:attackActionCost',
'crafting_attributes.crafting:attackCost',
'crafting_attributes.crafting:attackHealthCost',
'crafting_attributes.crafting:attackMindCost',
'crafting_attributes.crafting:attackSpeed',
'crafting_attributes.crafting:condition',
'crafting_attributes.crafting:damageType',
'crafting_attributes.crafting:effect',
'crafting_attributes.crafting:efficiency',
'crafting_attributes.crafting:elementalType',
'crafting_attributes.crafting:elementalValue',
'crafting_attributes.crafting:flavor',
'crafting_attributes.crafting:general_protection',
'crafting_attributes.crafting:hitPoints',
'crafting_attributes.crafting:maxDamage',
'crafting_attributes.crafting:maxRange',
'crafting_attributes.crafting:maxRangeMod',
'crafting_attributes.crafting:midRange',
'crafting_attributes.crafting:midRangeMod',
'crafting_attributes.crafting:minDamage',
'crafting_attributes.crafting:minRange',
'crafting_attributes.crafting:minRangeMod',
'crafting_attributes.crafting:nutrition',
'crafting_attributes.crafting:power',
'crafting_attributes.crafting:woundChance',
'crafting_attributes.crafting:zeroRangeMod',
'crafting_components.accuracy',
'crafting_components.armor_armorencumbrance',
'crafting_components.armor_condition',
'crafting_components.armor_general_protection',
'crafting_components.armor_layer0',
'crafting_components.armor_layer1',
'crafting_components.armor_layer2',
'crafting_components.armor_layer4',
'crafting_components.armor_layer5',
'crafting_components.armor_layer6',
'crafting_components.armor_layer7',
'crafting_components.armor_layer12',
'crafting_components.attackActionCost',
'crafting_components.attackCost',
'crafting_components.attackHealthCost',
'crafting_components.attackMindCost',
'crafting_components.attackSpeed',
'crafting_components.attribute.bonus.0',
'crafting_components.attribute.bonus.1',
'crafting_components.attribute.bonus.2',
'crafting_components.attribute.bonus.3',
'crafting_components.attribute.bonus.4',
'crafting_components.attribute.bonus.5',
'crafting_components.attribute.bonus.6',
'crafting_components.attribute.bonus.7',
'crafting_components.attribute.bonus.8',
'crafting_components.condition',
'crafting_components.damageType',
'crafting_components.elementalType',
'crafting_components.elementalValue',
'crafting_components.general_protection',
'crafting_components.hitPoints',
'crafting_components.layer13',
'crafting_components.layer14',
'crafting_components.layer15',
'crafting_components.maxDamage',
'crafting_components.maxRange',
'crafting_components.maxRangeMod',
'crafting_components.midRange',
'crafting_components.midRangeMod',
'crafting_components.minDamage',
'crafting_components.minRange',
'crafting_components.minRangeMod',
'crafting_components.recharge_rate',
'crafting_components.woundChance',
'crafting_components.zeroRangeMod',
'draftSchematic',
'duration',
'effect_class',
'effectiveness',
'filling',
'ImAnInvalidSchematic',
'intAOEDamagePercent',
'intWeaponType',
'jedi.crystal.stats.accuracy',
'jedi.crystal.stats.attack_cost',
'jedi.crystal.stats.damage_type',
'jedi.crystal.stats.elemental_type',
'jedi.crystal.stats.elemental_value',
'jedi.crystal.stats.force',
'jedi.crystal.stats.max_dmg',
'jedi.crystal.stats.max_rng',
'jedi.crystal.stats.min_dmg',
'jedi.crystal.stats.min_rng',
'jedi.crystal.stats.speed',
'jedi.crystal.stats.wound',
'jedi.saber.base_stats.accuracy',
'jedi.saber.base_stats.attack_cost',
'jedi.saber.base_stats.damage_type',
'jedi.saber.base_stats.elemental_type',
'jedi.saber.base_stats.elemental_value',
'jedi.saber.base_stats.force',
'jedi.saber.base_stats.max_dmg',
'jedi.saber.base_stats.max_rng',
'jedi.saber.base_stats.min_dmg',
'jedi.saber.base_stats.min_rng',
'jedi.saber.base_stats.speed',
'jedi.saber.base_stats.wound',
'jedi.saber.force',
'healing.power',
'powerup.accuracy',
'powerup.actionCost',
'powerup.damage',
'powerup.effect',
'powerup.efficiency',
'powerup.speed',
'powerup.usesLeft',
'powerup.wound',
'reuseTimer',
'skillmod.bonus.pistol_speed',
'slowDuration',
'slowIntensity',
'spice.name',
'strWeaponType',
'weapon.intNoCertRequired',
'weaponType'
);
maxNameId number;
schematicRow schematic_templates%rowtype;
cursor schematicCursor is
select schematic_id, object_template_id
from schematic_templates;
v varchar2(500);
stmt varchar2(4000);
begin
-- initialize
free_slots := numTable(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20);
Obj_ObjVars := objectObjVarArray();
Obj_Objvars.extend(20);
updated_objvars := varcharTable();
deleted_objvars := varcharTable();
added_objvars := varcharTable();
updated_attribs := varcharTable();
deleted_attribs := varcharTable();
added_attribs := varcharTable();
-- Data Table for relative weapon DoT powers
dots_matrix('fire')(6) := 12;
dots_matrix('fire')(0) := 9;
dots_matrix('fire')(3) := 6;
dots_matrix('poison')(6) := 11;
dots_matrix('poison')(0) := 8;
dots_matrix('poison')(3) := 5;
dots_matrix('disease')(6) := 10;
dots_matrix('disease')(0) := 7;
dots_matrix('disease')(3) := 4;
dots_matrix('bleeds')(6) := 3;
dots_matrix('bleeds')(0) := 2;
dots_matrix('bleeds')(3) := 1;
objvarNameIdMap('armor.armorCategory') := 0;
objvarNameIdMap('armor.armorLevel') := 0;
objvarNameIdMap('armor.armorencumbrance') := 0;
objvarNameIdMap('armor.condition') := 0;
objvarNameIdMap('armor.effectiveness') := 0;
objvarNameIdMap('armor.encumbrance') := 0;
objvarNameIdMap('armor.encumbranceSplit') := 0;
objvarNameIdMap('armor.general_protection') := 0;
objvarNameIdMap('armor.layer0') := 0;
objvarNameIdMap('armor.layer14') := 0;
objvarNameIdMap('armor.layer13') := 0;
objvarNameIdMap('armor.layer15') := 0;
objvarNameIdMap('armor.mandDeconstruct') := 0;
objvarNameIdMap('armor.rating') := 0;
objvarNameIdMap('armor.recharge_rate') := 0;
objvarNameIdMap('armor.risDeconstruct') := 0;
objvarNameIdMap('armor.special.1') := 0;
objvarNameIdMap('armor.special.1024') := 0;
objvarNameIdMap('armor.special.128') := 0;
objvarNameIdMap('armor.special.16') := 0;
objvarNameIdMap('armor.special.2') := 0;
objvarNameIdMap('armor.special.2048') := 0;
objvarNameIdMap('armor.special.256') := 0;
objvarNameIdMap('armor.special.32') := 0;
objvarNameIdMap('armor.special.4') := 0;
objvarNameIdMap('armor.special.4096') := 0;
objvarNameIdMap('armor.special.512') := 0;
objvarNameIdMap('armor.special.64') := 0;
objvarNameIdMap('armor.special.8') := 0;
objvarNameIdMap('armor.vulnerability') := 0;
objvarNameIdMap('armorCategory') := 0;
objvarNameIdMap('armorLevel') := 0;
objvarNameIdMap('biolink.faction_points') := 0;
objvarNameIdMap('blindChance') := 0;
objvarNameIdMap('blindDuration') := 0;
objvarNameIdMap('buff_name') := 0;
objvarNameIdMap('burnDuration') := 0;
objvarNameIdMap('burnIntensity') := 0;
objvarNameIdMap('crafting_attributes.crafting:accuracy') := 0;
objvarNameIdMap('crafting_attributes.crafting:armor_general_protection') := 0;
objvarNameIdMap('crafting_attributes.crafting:armor_condition') := 0;
objvarNameIdMap('crafting_attributes.crafting:armor_layer0') := 0;
objvarNameIdMap('crafting_attributes.crafting:armor_layer1') := 0;
objvarNameIdMap('crafting_attributes.crafting:armor_layer2') := 0;
objvarNameIdMap('crafting_attributes.crafting:armor_layer4') := 0;
objvarNameIdMap('crafting_attributes.crafting:armor_layer5') := 0;
objvarNameIdMap('crafting_attributes.crafting:armor_layer6') := 0;
objvarNameIdMap('crafting_attributes.crafting:armor_layer7') := 0;
objvarNameIdMap('crafting_attributes.crafting:armor_layer12') := 0;
objvarNameIdMap('crafting_attributes.crafting:attackActionCost') := 0;
objvarNameIdMap('crafting_attributes.crafting:attackCost') := 0;
objvarNameIdMap('crafting_attributes.crafting:attackHealthCost') := 0;
objvarNameIdMap('crafting_attributes.crafting:attackMindCost') := 0;
objvarNameIdMap('crafting_attributes.crafting:attackSpeed') := 0;
objvarNameIdMap('crafting_attributes.crafting:condition') := 0;
objvarNameIdMap('crafting_attributes.crafting:damageType') := 0;
objvarNameIdMap('crafting_attributes.crafting:effect') := 0;
objvarNameIdMap('crafting_attributes.crafting:efficiency') := 0;
objvarNameIdMap('crafting_attributes.crafting:elementalType') := 0;
objvarNameIdMap('crafting_attributes.crafting:elementalValue') := 0;
objvarNameIdMap('crafting_attributes.crafting:flavor') := 0;
objvarNameIdMap('crafting_attributes.crafting:general_protection') := 0;
objvarNameIdMap('crafting_attributes.crafting:hitPoints') := 0;
objvarNameIdMap('crafting_attributes.crafting:maxDamage') := 0;
objvarNameIdMap('crafting_attributes.crafting:maxRange') := 0;
objvarNameIdMap('crafting_attributes.crafting:maxRangeMod') := 0;
objvarNameIdMap('crafting_attributes.crafting:midRange') := 0;
objvarNameIdMap('crafting_attributes.crafting:midRangeMod') := 0;
objvarNameIdMap('crafting_attributes.crafting:minDamage') := 0;
objvarNameIdMap('crafting_attributes.crafting:minRange') := 0;
objvarNameIdMap('crafting_attributes.crafting:minRangeMod') := 0;
objvarNameIdMap('crafting_attributes.crafting:nutrition') := 0;
objvarNameIdMap('crafting_attributes.crafting:power') := 0;
objvarNameIdMap('crafting_attributes.crafting:woundChance') := 0;
objvarNameIdMap('crafting_attributes.crafting:zeroRangeMod') := 0;
objvarNameIdMap('crafting_components.accuracy') := 0;
objvarNameIdMap('crafting_components.armor_armorencumbrance') := 0;
objvarNameIdMap('crafting_components.armor_condition') := 0;
objvarNameIdMap('crafting_components.armor_general_protection') := 0;
objvarNameIdMap('crafting_components.armor_layer0') := 0;
objvarNameIdMap('crafting_components.armor_layer1') := 0;
objvarNameIdMap('crafting_components.armor_layer2') := 0;
objvarNameIdMap('crafting_components.armor_layer4') := 0;
objvarNameIdMap('crafting_components.armor_layer5') := 0;
objvarNameIdMap('crafting_components.armor_layer6') := 0;
objvarNameIdMap('crafting_components.armor_layer7') := 0;
objvarNameIdMap('crafting_components.armor_layer12') := 0;
objvarNameIdMap('crafting_components.attackActionCost') := 0;
objvarNameIdMap('crafting_components.attackCost') := 0;
objvarNameIdMap('crafting_components.attackHealthCost') := 0;
objvarNameIdMap('crafting_components.attackMindCost') := 0;
objvarNameIdMap('crafting_components.attackSpeed') := 0;
objvarNameIdMap('crafting_components.attribute.bonus.0') := 0;
objvarNameIdMap('crafting_components.attribute.bonus.1') := 0;
objvarNameIdMap('crafting_components.attribute.bonus.2') := 0;
objvarNameIdMap('crafting_components.attribute.bonus.3') := 0;
objvarNameIdMap('crafting_components.attribute.bonus.4') := 0;
objvarNameIdMap('crafting_components.attribute.bonus.5') := 0;
objvarNameIdMap('crafting_components.attribute.bonus.6') := 0;
objvarNameIdMap('crafting_components.attribute.bonus.7') := 0;
objvarNameIdMap('crafting_components.attribute.bonus.8') := 0;
objvarNameIdMap('crafting_components.condition') := 0;
objvarNameIdMap('crafting_components.damageType') := 0;
objvarNameIdMap('crafting_components.elementalType') := 0;
objvarNameIdMap('crafting_components.elementalValue') := 0;
objvarNameIdMap('crafting_components.general_protection') := 0;
objvarNameIdMap('crafting_components.hitPoints') := 0;
objvarNameIdMap('crafting_components.layer13') := 0;
objvarNameIdMap('crafting_components.layer14') := 0;
objvarNameIdMap('crafting_components.layer15') := 0;
objvarNameIdMap('crafting_components.maxDamage') := 0;
objvarNameIdMap('crafting_components.maxRange') := 0;
objvarNameIdMap('crafting_components.maxRangeMod') := 0;
objvarNameIdMap('crafting_components.midRange') := 0;
objvarNameIdMap('crafting_components.midRangeMod') := 0;
objvarNameIdMap('crafting_components.minDamage') := 0;
objvarNameIdMap('crafting_components.minRange') := 0;
objvarNameIdMap('crafting_components.minRangeMod') := 0;
objvarNameIdMap('crafting_components.recharge_rate') := 0;
objvarNameIdMap('crafting_components.woundChance') := 0;
objvarNameIdMap('crafting_components.zeroRangeMod') := 0;
objvarNameIdMap('draftSchematic') := 0;
objvarNameIdMap('duration') := 0;
objvarNameIdMap('effect_class') := 0;
objvarNameIdMap('effectiveness') := 0;
objvarNameIdMap('filling') := 0;
objvarNameIdMap('ImAnInvalidSchematic') := 0;
objvarNameIdMap('intAOEDamagePercent') := 0;
objvarNameIdMap('intWeaponType') := 0;
objvarNameIdMap('jedi.crystal.stats.accuracy') := 0;
objvarNameIdMap('jedi.crystal.stats.attack_cost') := 0;
objvarNameIdMap('jedi.crystal.stats.damage_type') := 0;
objvarNameIdMap('jedi.crystal.stats.elemental_type') := 0;
objvarNameIdMap('jedi.crystal.stats.elemental_value') := 0;
objvarNameIdMap('jedi.crystal.stats.force') := 0;
objvarNameIdMap('jedi.crystal.stats.max_dmg') := 0;
objvarNameIdMap('jedi.crystal.stats.max_rng') := 0;
objvarNameIdMap('jedi.crystal.stats.min_dmg') := 0;
objvarNameIdMap('jedi.crystal.stats.min_rng') := 0;
objvarNameIdMap('jedi.crystal.stats.speed') := 0;
objvarNameIdMap('jedi.crystal.stats.wound') := 0;
objvarNameIdMap('jedi.saber.base_stats.accuracy') := 0;
objvarNameIdMap('jedi.saber.base_stats.attack_cost') := 0;
objvarNameIdMap('jedi.saber.base_stats.damage_type') := 0;
objvarNameIdMap('jedi.saber.base_stats.elemental_type') := 0;
objvarNameIdMap('jedi.saber.base_stats.elemental_value') := 0;
objvarNameIdMap('jedi.saber.base_stats.force') := 0;
objvarNameIdMap('jedi.saber.base_stats.max_dmg') := 0;
objvarNameIdMap('jedi.saber.base_stats.max_rng') := 0;
objvarNameIdMap('jedi.saber.base_stats.min_dmg') := 0;
objvarNameIdMap('jedi.saber.base_stats.min_rng') := 0;
objvarNameIdMap('jedi.saber.base_stats.speed') := 0;
objvarNameIdMap('jedi.saber.base_stats.wound') := 0;
objvarNameIdMap('jedi.saber.force') := 0;
objvarNameIdMap('healing.power') := 0;
objvarNameIdMap('powerup.accuracy') := 0;
objvarNameIdMap('powerup.actionCost') := 0;
objvarNameIdMap('powerup.damage') := 0;
objvarNameIdMap('powerup.effect') := 0;
objvarNameIdMap('powerup.efficiency') := 0;
objvarNameIdMap('powerup.speed') := 0;
objvarNameIdMap('powerup.usesLeft') := 0;
objvarNameIdMap('powerup.wound') := 0;
objvarNameIdMap('reuseTimer') := 0;
objvarNameIdMap('skillmod.bonus.pistol_speed') := 0;
objvarNameIdMap('slowDuration') := 0;
objvarNameIdMap('slowIntensity') := 0;
objvarNameIdMap('spice.name') := 0;
objvarNameIdMap('strWeaponType') := 0;
objvarNameIdMap('weapon.intNoCertRequired') := 0;
objvarNameIdMap('weaponType') := 0;
open objvarNameIdCursor;
fetch objvarNameIdCursor into objvarNameIdRow;
while objvarNameIdCursor%found loop
objvarNameIdMap(objvarNameIdRow.name) := objvarNameIdRow.id;
fetch objvarNameIdCursor into objvarNameIdRow;
end loop;
close objvarNameIdCursor;
select max(id) into maxNameId from object_variable_names;
v := objvarNameIdMap.first;
while v is not null loop
if objvarNameIdMap(v) = 0 then
maxNameId := maxNameId + 1;
stmt := 'insert into object_variable_names values (:id, :name)';
execute immediate stmt using maxNameId, v;
objvarNameIdMap(v) := maxNameId;
end if;
v := objvarNameIdMap.next(v);
end loop;
commit;
if use_rbs is not null then
execute immediate 'set transaction use rollback segment ' || use_rbs;
end if;
open schematicCursor;
fetch schematicCursor into schematicRow;
while schematicCursor%found loop
schematic_map(schematicRow.schematic_id) := schematicRow.object_template_id;
fetch schematicCursor into schematicRow;
end loop;
close schematicCursor;
-- ****** BEGIN TEMPLATE ID SET ******
templateIdSet(-144833342) := -144833342; -- manufacturing schematic
templateIdSet(162889564) := 162889564; -- weapon crate
templateIdSet(1120303977) := 1120303977; -- armor crate
templateIdSet(-200781577) := -200781577; -- food crate
templateIdSet(-1966544754) := -1966544754; -- chemical crate
templateIdSet(-754298423) := -754298423; -- electronics crate
templateIdSet(-1207917085) := -1207917085; -- clothing crate
templateIdSet(1717727484) := 1717727484; -- nyax necklace
templateNameText(2099054288) := 'armor_bounty_hunter_crafted_belt';
templateNameText(-852325331) := 'armor_bounty_hunter_crafted_bicep_l';
templateNameText(-1108883010) := 'armor_bounty_hunter_crafted_bicep_r';
templateNameText(315293450) := 'armor_bounty_hunter_crafted_boots';
templateNameText(-151793970) := 'armor_bounty_hunter_crafted_bracer_l';
templateNameText(-2044294307) := 'armor_bounty_hunter_crafted_bracer_r';
templateNameText(1649659380) := 'armor_bounty_hunter_crafted_chest_plate';
templateNameText(140529204) := 'armor_bounty_hunter_crafted_gloves';
templateNameText(-1096765636) := 'armor_bounty_hunter_crafted_helmet';
templateNameText(2044138449) := 'armor_bounty_hunter_crafted_leggings';
templateNameText(-983864428) := 'armor_layer_kinetic';
templateNameTable(-983864428) := 'craft_clothing_ingredients_n';
templateNameText(1594162622) := 'armor_recon_segment';
templateNameTable(1594162622) := 'craft_armor_ingredients_n';
templateNameText(-1438161694) := 'armor_battle_segment';
templateNameTable(-1438161694):= 'craft_armor_ingredients_n';
templateNameText(2042493214) := 'armor_assault_segment';
templateNameTable(2042493214) := 'craft_armor_ingredients_n';
templateNameText(-2117547605) := 'weapon_mine_explosive';
templateNameTable(-2117547605):= 'powerup_n';
templateNameText(548609244) := 'weapon_melee_balancing_weights';
templateNameTable(548609244) := 'powerup_n';
templateNameText(-1004627683) := 'weapon_melee_inertial_fluctuator';
templateNameTable(-1004627683):= 'powerup_n';
templateNameText(352903310) := 'weapon_ranged_barrel';
templateNameTable(352903310) := 'powerup_n';
templateNameText(130303407) := 'weapon_ranged_grip';
templateNameTable(130303407) := 'powerup_n';
templateNameText(1006954225) := 'weapon_ranged_muzzle';
templateNameTable(1006954225) := 'powerup_n';
templateNameText(200431483) := 'weapon_ranged_scope';
templateNameTable(200431483) := 'powerup_n';
templateNameText(1219521873) := 'weapon_ranged_stock';
templateNameTable(1219521873) := 'powerup_n';
templateNameText(-551790316) := 'weapon_melee_surface_serration';
templateNameTable(-551790316) := 'powerup_n';
templateNameText(-1042074732) := 'weapon_melee_tactical_grip';
templateNameTable(-1042074732):= 'powerup_n';
templateNameText(-356900087) := 'instant_stimpack_a';
templateNameTable(-356900087) := 'medicine_name';
templateNameText(833457054) := 'instant_stimpack_b';
templateNameTable(833457054) := 'medicine_name';
templateNameText(2023812115) := 'instant_stimpack_c';
templateNameTable(2023812115) := 'medicine_name';
templateNameText(-2092710137) := 'instant_stimpack_d';
templateNameTable(-2092710137):= 'medicine_name';
templateNameText(-1674079888) := 'stimpack_pet_a';
templateNameTable(-1674079888):= 'medicine_name';
templateNameText(1193294311) := 'stimpack_pet_b';
templateNameTable(1193294311) := 'medicine_name';
templateNameText(237854314) := 'stimpack_pet_c';
templateNameTable(237854314) := 'medicine_name';
templateNameText(-171018882) := 'stimpack_pet_d';
templateNameTable(-171018882) := 'medicine_name';
templateNameText(-1631144444) := 'rifle_bowcaster_heavy';
templateNameText(-746051337) := 'carbine_e11_mark2';
templateNameText(1893534473) := 'enhancer_bactajab';
templateNameTable(1893534473) := 'medicine_name';
templateNameText(189249679) := 'enhancer_bactaspray';
templateNameTable(189249679) := 'medicine_name';
templateNameText(-1945173818) := 'enhancer_bactatoss';
templateNameTable(-1945173818):= 'medicine_name';
templateNameText(-21620221) := 'enhancer_deuteriumtoss';
templateNameTable(-21620221) := 'medicine_name';
templateNameText(1004186547) := 'enhancer_disinfect';
templateNameTable(1004186547) := 'medicine_name';
templateNameText(232945406) := 'enhancer_endorphineinjection';
templateNameTable(232945406) := 'medicine_name';
templateNameText(-2018470158) := 'enhancer_neurotoxin';
templateNameTable(-2018470158):= 'medicine_name';
templateNameText(2094584686) := 'enhancer_nutrientinjection';
templateNameTable(2094584686) := 'medicine_name';
templateNameText(-1847366477) := 'enhancer_stabilizer';
templateNameTable(-1847366477):= 'medicine_name';
templateNameText(-410958245) := 'enhancer_thyroidrupture';
templateNameTable(-410958245) := 'medicine_name';
templateNameText(-454097742) := 'enhancer_traumatize';
templateNameTable(-454097742) := 'medicine_name';
return TRUE;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in InitializeData - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in InitializeData');
return FALSE;
end;
procedure AddObjVar (objvar_name varchar2, objvar_type number, objvar_value varchar2)
is
n number;
tempObjVar objVarType;
oldName varchar2(500);
begin
if slot_map.exists(objvar_name) then
ModifyObjVar(objvar_name, objvar_name, objvar_type, objvar_value);
else
if free_slots.count > 0 and length(objvar_name) <= 50 then
n := free_slots(free_slots.first);
Obj_ObjVars(n).objvar_name := objvar_name;
Obj_ObjVars(n).objvar_type := objvar_type;
Obj_ObjVars(n).objvar_value := objvar_value;
free_slots.delete(n);
isObjModified := TRUE;
else
if deleted_objvars.count > 0 then
oldName := deleted_objvars(deleted_objvars.last);
deleted_objvars.trim(1);
OV_ObjVars(oldName).objvar_name := objvar_name;
OV_ObjVars(oldName).objvar_type := objvar_type;
OV_ObjVars(oldName).objvar_value := objvar_value;
updated_objvars.extend(1);
updated_objvars(updated_objvars.last) := oldName;
else
tempObjVar.object_id := object_id;
tempObjVar.objvar_name := objvar_name;
tempObjVar.objvar_type := objvar_type;
tempObjVar.objvar_value := objvar_value;
tempObjVar.objvar_name_id := objvarNameIdMap(objvar_name);
OV_ObjVars(objvar_name) := tempObjVar;
added_objvars.extend(1);
added_objvars(added_objvars.last) := objvar_name;
end if;
end if;
end if;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in AddObjVar - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in AddObjVar');
end;
procedure DeleteObjVar (objVarName in varchar2)
is
n number;
v varchar2(500);
begin
if slot_map.exists(objVarName) then
if slot_map(objVarName) < 21 then
n := slot_map(objVarName);
if Obj_ObjVars(n).objvar_name = objVarName then
Obj_ObjVars(n).objvar_name := NULL;
Obj_ObjVars(n).objvar_type := NULL;
Obj_ObjVars(n).objvar_value := NULL;
free_slots(n) := n;
isObjModified := TRUE;
end if;
else
if OV_ObjVars(objVarName).objvar_name = objVarName then
OV_ObjVars(objVarName).old_objvar_name_id := OV_ObjVars(objVarName).objvar_name_id;
OV_ObjVars(objVarName).objvar_name := NULL;
OV_ObjVars(objVarName).objvar_type := NULL;
OV_ObjVars(objVarName).objvar_value := NULL;
deleted_objvars.extend(1);
deleted_objvars(deleted_objvars.last) := objVarName;
end if;
end if;
elsif instr(objVarName,'*') > 0 then
n := instr(objVarName,'*') -1;
v := slot_map.first;
while v is not null loop
if substr(v,1,n) = substr(objVarName,1,n) then
DeleteObjVar(v);
end if;
v := slot_map.next(v);
end loop;
end if;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in DeleteObjVar - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in DeleteObjVar');
end;
procedure ModifyObjVar (oldObjVarName varchar2, objvar_name varchar2, objvar_type number, objvar_value varchar2)
is
n number;
begin
if slot_map.exists(oldObjVarName) then
if slot_map(oldObjVarName) < 21 then
n := slot_map(oldObjVarName);
Obj_ObjVars(n).objvar_name := objvar_name;
Obj_ObjVars(n).objvar_type := objvar_type;
Obj_ObjVars(n).objvar_value := objvar_value;
isObjModified := TRUE;
else
OV_ObjVars(oldObjVarName).old_objvar_name_id := OV_ObjVars(oldObjVarName).objvar_name_id;
OV_ObjVars(oldObjVarName).objvar_name := objvar_name;
OV_ObjVars(oldObjVarName).objvar_type := objvar_type;
OV_ObjVars(oldObjVarName).objvar_value := objvar_value;
updated_objvars.extend(1);
updated_objvars(updated_objvars.last) := oldObjVarName;
end if;
end if;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in ModifyObjVar - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in ModifyObjVar');
end;
procedure ModifyObjVar (oldObjVarName varchar2, objvar_name varchar2, objvar_type number, rangeTable rangeTableType)
is
n number;
begin
if slot_map.exists(oldObjVarName) then
if slot_map(oldObjVarName) < 21 then
n := slot_map(oldObjVarName);
Obj_ObjVars(n).objvar_name := objvar_name;
Obj_ObjVars(n).objvar_type := objvar_type;
Obj_ObjVars(n).objvar_value := ConvertValue (to_number(Obj_ObjVars(n).objvar_value), rangeTable);
isObjModified := TRUE;
else
if OV_ObjVars(oldObjVarName).old_objvar_name_id = 0 then
OV_ObjVars(oldObjVarName).old_objvar_name_id := OV_ObjVars(oldObjVarName).objvar_name_id;
end if;
OV_ObjVars(oldObjVarName).objvar_name := objvar_name;
OV_ObjVars(oldObjVarName).objvar_type := objvar_type;
OV_ObjVars(oldObjVarName).objvar_value := ConvertValue (to_number(OV_ObjVars(oldObjVarName).objvar_value), rangeTable);
updated_objvars.extend(1);
updated_objvars(updated_objvars.last) := oldObjVarName;
end if;
end if;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in ModifyObjVar - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in ModifyObjVar');
end;
procedure RenameObjVar (oldObjVarName varchar2, objvar_name varchar2)
is
n number;
begin
if slot_map.exists(oldObjVarName) then
if slot_map(oldObjVarName) < 21 then
n := slot_map(oldObjVarName);
Obj_ObjVars(n).objvar_name := objvar_name;
isObjModified := TRUE;
else
OV_ObjVars(oldObjVarName).old_objvar_name_id := OV_ObjVars(oldObjVarName).objvar_name_id;
OV_ObjVars(oldObjVarName).objvar_name := objvar_name;
updated_objvars.extend(1);
updated_objvars(updated_objvars.last) := oldObjVarName;
end if;
end if;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in ModifyObjVar - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in ModifyObjVar');
end;
function GetObjVarValue (objvar_name varchar2) return varchar2
is
begin
if slot_map.exists(objvar_name) then
if slot_map(objvar_name) < 21 then
return Obj_ObjVars(slot_map(objvar_name)).objvar_value;
else
return OV_ObjVars(objvar_name).objvar_value;
end if;
else
return null;
end if;
end;
procedure AddScript (newScript varchar2)
is
begin
script_list := trim(script_list) || newScript || ':';
isObjModified := TRUE;
end;
procedure RemoveScript (oldScript varchar2)
is
begin
script_list := replace(script_list, oldScript || ':');
isObjModified := TRUE;
end;
procedure SetNewTemplateId (newTemplateId number)
is
begin
new_template_id := newTemplateId;
SetTemplateText (newTemplateId);
end;
procedure SetTemplateText (newTemplateId number)
is
begin
if templateNameText.exists(newTemplateId) then
object_name := null;
name_text := templateNameText(newTemplateId);
if templateNameTable.exists(newTemplateId) then
name_table := templateNameTable(newTemplateId);
end if;
end if;
end;
procedure InvalidateSchematic
is
begin
AddObjVar('ImAnInvalidSchematic',0,1);
isObjModified := TRUE;
end;
procedure AddAttrib (attrib_name varchar2, attrib_value float)
is
oldName varchar2(500);
tempAttrib manfAttributeRowType;
begin
if manf_attributes.exists(attrib_name) then
ModifyAttrib(attrib_name, attrib_name, attrib_value);
else
if deleted_attribs.count >0 then
oldName := deleted_attribs(deleted_attribs.last);
deleted_attribs.trim(1);
manf_attributes(oldName).attribute := attrib_name;
manf_attributes(oldName).value := attrib_value;
updated_attribs.extend(1);
updated_attribs(updated_attribs.last) := oldName;
else
tempAttrib.object_id := object_id;
tempAttrib.attribute := attrib_name;
tempAttrib.value := attrib_value;
manf_attributes(attrib_name) := tempAttrib;
added_attribs.extend(1);
added_attribs(added_attribs.last) := attrib_name;
end if;
end if;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in AddAttrib - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in AddAttrib');
end;
procedure DeleteAttrib (attrib_name in varchar2)
is
n number;
v varchar2(500);
begin
if manf_attributes.exists(attrib_name) then
if manf_attributes(attrib_name).attribute = attrib_name then
manf_attributes(attrib_name).attribute := NULL;
manf_attributes(attrib_name).value := NULL;
deleted_attribs.extend(1);
deleted_attribs(deleted_attribs.last) := attrib_name;
end if;
elsif instr(attrib_name,'*') > 0 then
n := instr(attrib_name,'*') -1;
v := manf_attributes.first;
while v is not null loop
if substr(v,1,n) = substr(attrib_name,1,n) then
DeleteAttrib(v);
end if;
v := manf_attributes.next(v);
end loop;
end if;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in DeleteAttrib - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in DeleteAttrib');
end;
procedure ModifyAttrib (old_attrib_name varchar2, attrib_name varchar2, attrib_value float)
is
n number;
begin
if manf_attributes.exists(attrib_name) then
manf_attributes(old_attrib_name).attribute := attrib_name;
manf_attributes(old_attrib_name).value := attrib_value;
updated_attribs.extend(1);
updated_attribs(updated_attribs.last) := old_attrib_name;
end if;
exception
when others then
err_num := SQLCODE;
dbms_output.put_line('Error in ModifyAttribs - time = ' || to_char(sysdate, 'MM/DD/YY HH24:MI:SS'));
db_error_logger.dblogerror(err_num, 'Error in ModifyAttribs');
end;
procedure DeleteOldArmorObjvars
is
begin
DeleteObjVar('armor.rating');
DeleteObjVar('armor.vulnerability');
DeleteObjVar('armor.encumbrance');
DeleteObjVar('armor.special*');
DeleteObjVar('crafting_components.armor*');
RemoveScript('item.armor.armor');
end;
procedure SetGenProtection(rangeTable rangeTableType)
is
begin
if isFactory= TRUE then
ModifyObjVar('crafting_attributes.crafting:armor_effectiveness','crafting_attributes.crafting:general_protection',2,rangeTable);
else
ModifyObjVar('armor.effectiveness','armor.general_protection',2,rangeTable);
end if;
end;
procedure SetArmorCondLevelCat(condition varchar2, lev varchar2, category varchar2)
is
begin
if isFactory= TRUE then
AddObjVar('crafting_attributes.crafting:condition',2,condition);
AddObjVar('armorLevel',0,lev);
AddObjVar('armorCategory',0,category);
else
AddObjVar('armor.condition',2,condition);
AddObjVar('armor.armorLevel',0,lev);
AddObjVar('armor.armorCategory',0,category);
end if;
end;
procedure SetArmorLevel(lev varchar)
is
begin
if isFactory= TRUE then
AddObjVar('armorLevel',0,lev);
else
AddObjVar('armor.armorLevel',0,lev);
end if;
end;
procedure SetArmorCategory(category varchar2)
is
begin
if isFactory= TRUE then
AddObjVar('armorCategory',0,category);
else
AddObjVar('armor.armorCategory',0,category);
end if;
end;
procedure SetGpAndCond(gp_name varchar2, gp_val varchar2, cond_name varchar2, cond_val varchar2)
is
begin
AddObjVar(gp_name,2,gp_val);
AddObjVar(cond_name,2,cond_val);
end;
procedure DeleteCraftingComponents
is
begin
DeleteObjVar('crafting_components.*');
DeleteObjVar('item_attrib_keys');
DeleteObjVar('item_attrib_values');
end;
procedure CopySchematicAttributes
is
n number;
v varchar2(500);
begin
if (manf_attributes.count = 0) then
v := slot_map.first;
while v is not null loop
if substr(v,1,29) = 'crafting_attributes.crafting:' then
if slot_map(v) < 21 then
n := Obj_ObjVars(slot_map(v)).objvar_value;
else
n := OV_ObjVars(v).objvar_value;
end if;
AddAttrib(substr(v,21), n);
end if;
v := slot_map.next(v);
end loop;
end if;
DeleteObjVar('crafting_attributes.crafting:*');
end;
procedure HandleFoodSchematic
is
begin
CopySchematicAttributes;
ConvertAttribValue('flavor', rangeTableType(rangeType(0,200,0.0,200.0)));
ConvertAttribValue('nutrition', rangeTableType(rangeType(0,200,0.0,200.0)));
DeleteObjVar('item_attrib_keys');
DeleteObjVar('item_attrib_values');
end;
procedure HandleFoodCrate
is
begin
ModifyObjVar('crafting_attributes.crafting:flavor','crafting_attributes.crafting:flavor',2,rangeTableType(rangeType(0,200,0.0,200.0)));
ModifyObjVar('crafting_attributes.crafting:nutrition','crafting_attributes.crafting:nutrition',2,rangeTableType(rangeType(0,200,0.0,200.0)));
end;
procedure ConvertToStimpack(stim_template number,healing_power number, combat_level number)
is
begin
if isSchematic = TRUE then
CopySchematicAttributes;
new_schematic_id := stim_template;
SetTemplateText(SchematicMap(stim_template));
ModifyAttrib('power','power',healing_power);
DeleteObjVar('item_attrib_keys');
DeleteObjVar('item_attrib_values');
script_list := 'systems.crafting.chemistry.crafted_items.crafting_medpack_stimpack_chemistry:';
isObjModified := TRUE;
elsif isFactory = TRUE then
SetTemplateText(SchematicMap(stim_template));
ModifyObjVar('draftSchematic','draftSchematic',0,stim_template);
ModifyObjVar('crafting_attributes.crafting:power','crafting_attributes.crafting:power',2,healing_power);
script_list := 'systems.crafting.chemistry.crafted_items.crafting_medpack_stimpack_chemistry:';
isObjModified := TRUE;
else
SetNewTemplateId (SchematicMap(stim_template));
DeleteObjVar('healing.*');
DeleteObjVar('consumable.*');
AddObjVar('healing.power',0,healing_power);
AddObjVar('healing.combat_level_required',0,combat_level);
RemoveScript('item.comestible.medicine');
AddScript('item.medicine.stimpack');
end if;
end;
procedure ConvertToPetStimpack(stim_template number,healing_power number)
is
begin
if isSchematic = TRUE then
CopySchematicAttributes;
new_schematic_id := stim_template;
SetTemplateText(SchematicMap(stim_template));
ModifyAttrib('power','power',healing_power);
DeleteObjVar('item_attrib_keys');
DeleteObjVar('item_attrib_values');
script_list := 'systems.crafting.bio_engineer.instant_stimpack.crafting_stimpack_pet:';
isObjModified := TRUE;
elsif isFactory = TRUE then
SetTemplateText(SchematicMap(stim_template));
ModifyObjVar('draftSchematic','draftSchematic',0,stim_template);
ModifyObjVar('crafting_attributes.crafting:power','crafting_attributes.crafting:power',2,healing_power);
script_list := 'systems.crafting.bio_engineer.instant_stimpack.crafting_stimpack_pet:';
isObjModified := TRUE;
else
SetNewTemplateId (SchematicMap(stim_template));
DeleteObjVar('healing.*');
DeleteObjVar('consumable.*');
AddObjVar('healing.power',0,healing_power);
RemoveScript('item.comestible.pet_med');
AddScript('item.comestible.pet_med');
end if;
end;
procedure ConvertToEnhancer(enh_template number, enh_name varchar2, enh_power number)
is
begin
if isSchematic = TRUE then
CopySchematicAttributes;
new_schematic_id := enh_template;
SetTemplateText(SchematicMap(enh_template));
ModifyAttrib('power','power',enh_power);
DeleteObjVar('item_attrib_keys');
DeleteObjVar('item_attrib_values');
script_list := 'systems.crafting.chemistry.crafting_enhancers:';
isObjModified := TRUE;
elsif isFactory = TRUE then
SetTemplateText(SchematicMap(enh_template));
ModifyObjVar('draftSchematic','draftSchematic',0,enh_template);
ModifyObjVar('crafting_attributes.crafting:power','crafting_attributes.crafting:power',2,enh_power);
script_list := 'systems.crafting.chemistry.crafting_enhancers:';
isObjModified := TRUE;
else
SetNewTemplateId (SchematicMap(enh_template));
DeleteObjVar('healing.*');
DeleteObjVar('consumable.*');
AddObjVar('commandName',4,enh_name);
AddObjVar('healing.enhancement',2,enh_power);
RemoveScript('item.comestible.medicine');
AddScript('item.medicine.enhancer');
end if;
end;
procedure ConvertSpice(spice_name varchar2)
is
begin
if isSchematic = TRUE then
DeleteObjVar('item_attrib_keys');
DeleteObjVar('item_attrib_values');
elsif isFactory = FALSE then
AddObjVar('spice.name',4,spice_name);
DeleteObjVar('dur');
DeleteObjVar('health');
DeleteObjVar('str');
DeleteObjVar('con');
DeleteObjVar('action');
DeleteObjVar('quick');
DeleteObjVar('stam');
DeleteObjVar('mind');
DeleteObjVar('focus');
DeleteObjVar('will');
RemoveScript('item.comestible.spice');
AddScript('item.spice');
end if;
end;
procedure HandleWeaponDots
is
a varchar2(500);
b varchar2(10);
dmgDelta number;
begin
a := dot_list.first;
while a is not null loop
if (dot_list(a).exists('type') and dot_list(a).exists('attribute') and dot_list(a).exists('strength')) then
dmgDelta := ((weapon_attribs.min_damage +weapon_attribs.max_damage) / 2) *
((to_number(nvl(dot_list(a)('strength').objvar_value,0)) / 1000) *
(DotsMatrix(dot_list(a)('type').objvar_value,
to_number(nvl(dot_list(a)('attribute').objvar_value,-1)) ) / 20));
weapon_attribs.min_damage := weapon_attribs.min_damage + dmgDelta;
weapon_attribs.max_damage := weapon_attribs.max_damage + dmgDelta;
b := dot_list(a).first;
while b is not null loop
DeleteObjVar(dot_list(a)(b).objvar_name);
b := dot_list(a).next(b);
end loop;
end if;
a := dot_list.next(a);
end loop;
-- also remove powerups
DeleteObjVar('powerup.*');
RemoveScript('powerup.weapon');
end;
procedure SetWeaponBaseStats(attack number, acc number, minrange number, maxrange number, damagetype number)
is
begin
SetAttackCost(attack);
SetAccuracy(acc);
SetMinRange(minrange);
SetMaxRange(maxrange);
SetDamageType(damagetype);
end;
procedure SetMinDamage (min_damage number)
is
begin
if isSchematic = TRUE then
AddAttrib('crafting:minDamage', min_damage);
DeleteObjVar('crafting_attributes.crafting:minDamage');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:minDamage',2,min_damage);
elsif isWeaponObj = TRUE then
weapon_attribs.min_damage := min_damage;
else
AddObjVar('crafting_components.minDamage',2,min_damage);
end if;
end;
procedure SetMaxDamage (max_damage number)
is
begin
if isSchematic = TRUE then
AddAttrib('crafting:maxDamage', max_damage);
DeleteObjVar('crafting_attributes.crafting:maxDamage');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:maxDamage',2,max_damage);
elsif isWeaponObj = TRUE then
weapon_attribs.max_damage := max_damage;
else
AddObjVar('crafting_components.maxDamage',2,max_damage);
end if;
end;
procedure SetAttackSpeed (attack_speed number)
is
begin
if isSchematic = TRUE then
AddAttrib('crafting:attackSpeed', attack_speed);
DeleteObjVar('crafting_attributes.crafting:attackSpeed');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:attackSpeed',2,attack_speed);
elsif isWeaponObj = TRUE then
weapon_attribs.attack_speed := attack_speed;
else
AddObjVar('crafting_components.attackSpeed',2,attack_speed);
end if;
end;
procedure SetWoundChance (wound_chance number)
is
begin
if isSchematic = TRUE then
AddAttrib('crafting:woundChance', wound_chance);
DeleteObjVar('crafting_attributes.crafting:woundChance');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:woundChance',2,wound_chance);
elsif isWeaponObj = TRUE then
weapon_attribs.wound_chance := wound_chance;
else
AddObjVar('crafting_components.woundChance',2,wound_chance);
end if;
end;
procedure SetAccuracy (accuracy number)
is
begin
if isSchematic = TRUE then
DeleteAttrib('crafting:zeroRangeMod');
DeleteAttrib('crafting:minRangeMod');
DeleteAttrib('crafting:midRangeMod');
DeleteAttrib('crafting:maxRangeMod');
AddAttrib('crafting:accuracy', accuracy);
DeleteObjVar('crafting_attributes.crafting:minRangeMod');
DeleteObjVar('crafting_attributes.crafting:zeroRangeMod');
DeleteObjVar('crafting_attributes.crafting:midRangeMod');
DeleteObjVar('crafting_attributes.crafting:maxRangeMod');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:accuracy',2,accuracy);
DeleteObjVar('crafting_attributes.crafting:zeroRangeMod');
DeleteObjVar('crafting_attributes.crafting:minRangeMod');
DeleteObjVar('crafting_attributes.crafting:midRangeMod');
DeleteObjVar('crafting_attributes.crafting:maxRangeMod');
elsif isWeaponObj = TRUE then
weapon_attribs.accuracy := accuracy;
else
AddObjVar('crafting_components.accuracy',2,accuracy);
end if;
end;
procedure SetAttackCost (attack_cost number)
is
begin
if isSchematic = TRUE then
AddAttrib('crafting:attackCost', attack_cost);
DeleteAttrib('crafting:attackHealthCost');
DeleteAttrib('crafting:attackActionCost');
DeleteAttrib('crafting:attackMindCost');
DeleteObjVar('crafting_attributes.crafting:attackHealthCost');
DeleteObjVar('crafting_attributes.crafting:attackActionCost');
DeleteObjVar('crafting_attributes.crafting:attackMindCost');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:attackCost',2,attack_cost);
DeleteObjVar('crafting_attributes.crafting:attackHealthCost');
DeleteObjVar('crafting_attributes.crafting:attackActionCost');
DeleteObjVar('crafting_attributes.crafting:attackMindCost');
elsif isWeaponObj = TRUE then
weapon_attribs.attack_cost := attack_cost;
else
AddObjVar('crafting_components.attackCost',2,attack_cost);
end if;
end;
procedure SetMinRange (min_range number)
is
begin
if isSchematic = TRUE then
AddAttrib('crafting:minRange', min_range);
DeleteObjVar('crafting_attributes.crafting:minRange');
DeleteObjVar('crafting_attributes.crafting:midRange');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:minRange',2,min_range);
DeleteObjVar('crafting_attributes.crafting:midRange');
elsif isWeaponObj = TRUE then
weapon_attribs.min_range := min_range;
else
AddObjVar('crafting_components.minRange',2,min_range);
end if;
end;
procedure SetMaxRange (max_range number)
is
begin
if isSchematic = TRUE then
AddAttrib('crafting:maxRange', max_range);
DeleteObjVar('crafting_attributes.crafting:maxRange');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:maxRange',2,max_range);
elsif isWeaponObj = TRUE then
weapon_attribs.max_range := max_range;
else
AddObjVar('crafting_components.maxRange',2,max_range);
end if;
end;
procedure SetDamageType (dmg_type number)
is
begin
if isSchematic = TRUE then
AddAttrib('crafting:damageType', dmg_type);
DeleteObjVar('crafting_attributes.crafting:damageType');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:damageType',2,dmg_type);
elsif isWeaponObj = TRUE then
weapon_attribs.damage_type := dmg_type;
else
AddObjVar('crafting_components.damageType',2,dmg_type);
end if;
end;
procedure SetElementalType (ele_type number)
is
begin
if isSchematic = TRUE then
AddAttrib('crafting:elementalType', ele_type);
DeleteObjVar('crafting_attributes.crafting:elementalType');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:elementalType',2,ele_type);
elsif isWeaponObj = TRUE then
weapon_attribs.elemental_type := ele_type;
else
AddObjVar('crafting_components.elementalType',2,ele_type);
end if;
end;
procedure SetElementalValue (ele_value number)
is
begin
if isSchematic = TRUE then
AddAttrib('crafting:elementalValue', ele_value);
DeleteObjVar('crafting_attributes.crafting:elementalValue');
elsif isFactory = TRUE then
AddObjVar('crafting_attributes.crafting:elementalValue',2,ele_value);
elsif isWeaponObj = TRUE then
weapon_attribs.elemental_value := ele_value;
else
AddObjVar('crafting_components.elementalValue',2,ele_value);
end if;
end;
procedure ConvertAttribValue(attribute varchar2, rangeTable rangeTableType)
is
n number;
begin
if manf_attributes.exists('crafting:' || attribute) then
ModifyAttrib('crafting:' || attribute,'crafting:' || attribute,ConvertValue(manf_attributes('crafting:' || attribute).value, rangeTable));
elsif slot_map.exists('crafting_attributes.crafting:' || attribute) then
if slot_map('crafting_attributes.crafting:' || attribute) < 21 then
n := Obj_ObjVars(slot_map('crafting_attributes.crafting:' || attribute)).objvar_value;
else
n := OV_ObjVars('crafting_attributes.crafting:' || attribute).objvar_value;
end if;
AddAttrib('crafting:' || attribute, ConvertValue(n, rangeTable));
end if;
end;
procedure ConvertMinDamage (rangeTable rangeTableType)
is
begin
if isSchematic = TRUE then
ConvertAttribValue('minDamage', rangeTable);
elsif isFactory = TRUE then
ModifyObjVar('crafting_attributes.crafting:minDamage','crafting_attributes.crafting:minDamage',2,rangeTable);
else
weapon_attribs.min_damage := ConvertValue(weapon_attribs.min_damage, rangeTable);
end if;
end;
procedure ConvertMaxDamage (rangeTable rangeTableType)
is
begin
if isSchematic = TRUE then
ConvertAttribValue('maxDamage', rangeTable);
elsif isFactory = TRUE then
ModifyObjVar('crafting_attributes.crafting:maxDamage','crafting_attributes.crafting:maxDamage',2,rangeTable);
else
weapon_attribs.max_damage := ConvertValue(weapon_attribs.max_damage, rangeTable);
end if;
end;
procedure ConvertAttackSpeed (rangeTable rangeTableType)
is
begin
if isSchematic = TRUE then
ConvertAttribValue('attackSpeed', rangeTable);
elsif isFactory = TRUE then
ModifyObjVar('crafting_attributes.crafting:attackSpeed','crafting_attributes.crafting:attackSpeed',2,rangeTable);
else
weapon_attribs.attack_speed := ConvertValue(weapon_attribs.attack_speed*10, rangeTable)/100;
end if;
end;
procedure ConvertWoundChance (rangeTable rangeTableType)
is
begin
if isSchematic = TRUE then
ConvertAttribValue('woundChance', rangeTable);
elsif isFactory = TRUE then
ModifyObjVar('crafting_attributes.crafting:woundChance','crafting_attributes.crafting:woundChance',2,rangeTable);
else
weapon_attribs.wound_chance := ConvertValue(weapon_attribs.wound_chance, rangeTable);
end if;
end;
procedure ConvertRangedPowerup
is
schematic_id varchar2(50);
oldval number;
bonus number;
penalty number;
bonusObjVar varchar2(50);
penaltyObjVar varchar2(50);
begin
if slot_map.exists('powerup.max_dam') then
schematic_id := 996671491; -- ranged_barrel
oldval := to_number(GetObjVarValue('powerup.max_dam'));
if oldval > 0.33 then oldval := 0.33; end if;
bonus := oldval * 0.9;
penalty := bonus * 0.67;
bonusObjVar := 'powerup.damage';
penaltyObjVar := 'powerup.speed';
elsif slot_map.exists('powerup.min_dam') then
schematic_id := 996671491; -- ranged_barrel
oldval := to_number(GetObjVarValue('powerup.min_dam'));
if oldval > 0.33 then oldval := 0.33; end if;
bonus := oldval * 0.9;
penalty := bonus * 0.67;
bonusObjVar := 'powerup.damage';
penaltyObjVar := 'powerup.speed';
elsif slot_map.exists('powerup.speed') then
schematic_id := -671068023; -- ranged_grip
oldval := to_number(GetObjVarValue('powerup.speed'));
if oldval > 0.33 then oldval := 0.33; end if;
bonus := oldval * -0.9;
penalty := trunc(-134 * bonus);
bonusObjVar := 'powerup.speed';
penaltyObjVar := 'powerup.accuracy';
elsif slot_map.exists('powerup.wound_chance') then
schematic_id := -1092259441; --ranged_muzzle
oldval := to_number(GetObjVarValue('powerup.wound'));
if oldval > 0.33 then oldval := 0.33; end if;
bonus := oldval * 0.9;
penalty := bonus * 0.67;
bonusObjVar := 'powerup.wound';
penaltyObjVar := 'powerup.actionCost';
elsif slot_map.exists('powerup.zero_mod') or slot_map.exists('powerup.mid_mod') or slot_map.exists('powerup.max_mod') then
schematic_id := 917984840; -- ranged_scope
oldval := 0.20;
bonus := 18;
penalty := 0.09;
bonusObjVar := 'powerup.accuracy';
penaltyObjVar := 'powerup.speed';
else
schematic_id := 2108030646; -- ranged_stock
oldval := to_number(nvl(GetObjVarValue('powerup.health_cost'),'0'));
if oldval = 0 then
oldval := to_number(nvl(GetObjVarValue('powerup.action_cost'),'0'));
if oldval = 0 then
oldval := to_number(nvl(GetObjVarValue('powerup.mind_cost'),'0'));
end if;
end if;
if oldval = 0 then
oldval := 0.10;
elsif oldval > 0.33 then
oldval := 0.33;
end if;
bonus := oldval * -0.9;
penalty := trunc(-67 * bonus);
bonusObjVar := 'powerup.actionCost';
penaltyObjVar := 'powerup.accuracy';
end if;
if isSchematic = TRUE then
CopySchematicAttributes;
new_schematic_id := schematic_id;
SetTemplateText(SchematicMap(schematic_id));
DeleteObjVar('powerup.*');
DeleteObjVar('item_attrib_keys');
DeleteObjVar('item_attrib_values');
AddAttrib('crafting:effect', oldval * 300);
AddAttrib('crafting:efficiency', 33);
script_list := 'systems.crafting.item.specific_item.crafting_powerup_item:';
isObjModified := TRUE;
elsif isFactory = TRUE then
SetTemplateText(SchematicMap(schematic_id));
DeleteObjVar('powerup.*');
ModifyObjVar('draftSchematic','draftSchematic',0,schematic_id);
AddObjVar('crafting_attributes.crafting:effect',2,oldval * 300);
AddObjVar('crafting_attributes.crafting:efficiency',2,33);
script_list := 'systems.crafting.item.specific_item.crafting_powerup_item:';
isObjModified := TRUE;
else
SetNewTemplateId(SchematicMap(schematic_id));
DeleteObjVar('powerup.*');
AddObjVar('powerup.effect', 2, oldval * 300);
AddObjVar('powerup.efficiency', 2, 33);
AddObjVar('powerup.usesLeft', 0, 100);
AddObjVar(bonusObjVar, 2, bonus);
AddObjVar(penaltyObjVar, 2, penalty);
end if;
end;
procedure ConvertMeleePowerup
is
schematic_id varchar2(50);
oldval number;
bonus number;
penalty number;
bonusObjVar varchar2(50);
penaltyObjVar varchar2(50);
begin
if slot_map.exists('powerup.max_dam') then
schematic_id := 1380627363; -- inertial_fluctuator
oldval := to_number(GetObjVarValue('powerup.max_dam'));
if oldval > 0.33 then oldval := 0.33; end if;
bonus := oldval * 0.9;
penalty := bonus * 0.67;
bonusObjVar := 'powerup.damage';
penaltyObjVar := 'powerup.speed';
elsif slot_map.exists('powerup.min_dam') then
schematic_id := 1380627363; -- inertial_fluctuator
oldval := to_number(GetObjVarValue('powerup.min_dam'));
if oldval > 0.33 then oldval := 0.33; end if;
bonus := oldval * 0.9;
penalty := bonus * 0.67;
bonusObjVar := 'powerup.damage';
penaltyObjVar := 'powerup.speed';
elsif slot_map.exists('powerup.speed') then
schematic_id := 695657910; -- tactical_grip_modifier
oldval := to_number(GetObjVarValue('powerup.speed'));
if oldval > 0.33 then oldval := 0.33; end if;
bonus := oldval * -0.9;
penalty := trunc(-134 * bonus);
bonusObjVar := 'powerup.speed';
penaltyObjVar := 'powerup.accuracy';
elsif slot_map.exists('powerup.wound_chance') then
schematic_id := -862055522; --surface_serration_kit
oldval := to_number(GetObjVarValue('powerup.wound'));
if oldval > 0.33 then oldval := 0.33; end if;
bonus := oldval * 0.9;
penalty := bonus * 0.67;
bonusObjVar := 'powerup.wound';
penaltyObjVar := 'powerup.actionCost';
elsif slot_map.exists('powerup.zero_mod') or slot_map.exists('powerup.mid_mod') or slot_map.exists('powerup.max_mod') then
schematic_id := 1867435580; -- balancing_weights
oldval := 0.20;
bonus := 18;
penalty := 0.09;
bonusObjVar := 'powerup.accuracy';
penaltyObjVar := 'powerup.speed';
else
schematic_id := -1838768682; -- hilt_reinforcement_kit
oldval := to_number(nvl(GetObjVarValue('powerup.health_cost'),'0'));
if oldval = 0 then
oldval := to_number(nvl(GetObjVarValue('powerup.action_cost'),'0'));
if oldval = 0 then
oldval := to_number(nvl(GetObjVarValue('powerup.mind_cost'),'0'));
end if;
end if;
if oldval = 0 then
oldval := 0.10;
elsif oldval > 0.33 then
oldval := 0.33;
end if;
bonus := oldval * -0.9;
penalty := trunc(-67 * bonus);
bonusObjVar := 'powerup.actionCost';
penaltyObjVar := 'powerup.accuracy';
end if;
if isSchematic = TRUE then
CopySchematicAttributes;
new_schematic_id := schematic_id;
SetTemplateText(SchematicMap(schematic_id));
DeleteObjVar('powerup.*');
DeleteObjVar('item_attrib_keys');
DeleteObjVar('item_attrib_values');
AddAttrib('crafting:effect', oldval * 300);
AddAttrib('crafting:efficiency', 33);
script_list := 'systems.crafting.item.specific_item.crafting_powerup_item:';
isObjModified := TRUE;
elsif isFactory = TRUE then
SetTemplateText(SchematicMap(schematic_id));
ModifyObjVar('draftSchematic','draftSchematic',0,schematic_id);
AddObjVar('crafting_attributes.crafting:effect',2,oldval * 300);
AddObjVar('crafting_attributes.crafting:efficiency',2,33);
script_list := 'systems.crafting.item.specific_item.crafting_powerup_item:';
isObjModified := TRUE;
else
SetNewTemplateId(SchematicMap(schematic_id));
DeleteObjVar('powerup.*');
AddObjVar('powerup.effect', 2, oldval * 300);
AddObjVar('powerup.efficiency', 2, 33);
AddObjVar('powerup.usesLeft', 0, 100);
AddObjVar(bonusObjVar, 2, bonus);
AddObjVar(penaltyObjVar, 2, penalty);
end if;
end;
procedure ConvertMinePowerup
is
oldval number;
begin
if slot_map.exists('powerup.max_dam') then
oldval := to_number(GetObjVarValue('powerup.max_dam'));
elsif slot_map.exists('powerup.min_dam') then
oldval := to_number(GetObjVarValue('powerup.min_dam'));
else
oldval := 0.10;
end if;
if oldval > 0.33 then oldval := 0.33; end if;
if isSchematic = TRUE then
CopySchematicAttributes;
new_schematic_id := -1704666295;
SetTemplateText(-2117547605);
DeleteObjVar('powerup.*');
DeleteObjVar('item_attrib_keys');
DeleteObjVar('item_attrib_values');
AddAttrib('crafting:effect', oldval * 300);
AddAttrib('crafting:efficiency', 33);
script_list := 'systems.crafting.item.specific_item.crafting_powerup_item:';
isObjModified := TRUE;
elsif isFactory = TRUE then
SetTemplateText(-2117547605);
ModifyObjVar('draftSchematic','draftSchematic',0,-1704666295);
AddObjVar('crafting_attributes.crafting:effect',2,oldval * 300);
AddObjVar('crafting_attributes.crafting:efficiency',2,33);
script_list := 'systems.crafting.item.specific_item.crafting_powerup_item:';
isObjModified := TRUE;
else
SetNewTemplateId(-2117547605);
DeleteObjVar('powerup.*');
AddObjVar('powerup.effect', 2, oldval * 300);
AddObjVar('powerup.efficiency', 2, 33);
AddObjVar('powerup.usesLeft', 0, 100);
AddObjVar('powerup.damage', 2, oldval * 0.9);
end if;
end;
function ConvertValue (oldvalue number, rangeTable rangeTableType)
return number
is
retval number;
i number;
begin
retval := rangeTable(rangeTable.first)(3); -- default to min value
if oldvalue >= rangeTable(rangeTable.last)(2) then
retval := rangeTable(rangeTable.last)(4);
else
i := rangeTable.first;
while i is not null loop
if oldvalue >= rangeTable(i)(1) and oldvalue < rangeTable(i)(2) then
retval := (( (oldvalue - rangeTable(i)(1)) *
((rangeTable(i)(4)-rangeTable(i)(3))/(rangeTable(i)(2)-rangeTable(i)(1))) )
+ rangeTable(i)(3) );
exit;
end if;
i := rangeTable.next(i);
end loop;
end if;
return retval;
end;
procedure CheckObjVarForDot (objvar objVarType)
is
dotName varchar2(500);
begin
if substr(objvar.objvar_name,1,4) = 'dot.' and (instr(objvar.objvar_name,'.',-1) > 4) then
dotName := substr(objvar.objvar_name,5,instr(objvar.objvar_name,'.',-1)-5);
dot_list(dotName)(substr(objvar.objvar_name,instr(objvar.objvar_name,'.',1,2)+1,10)) := objvar;
end if;
end;
function DotsMatrix(dot_type varchar2, dot_attrib number)
return number
is
retval number := 0;
begin
if dots_matrix.exists(dot_type) and dots_matrix(dot_type).exists(dot_attrib) then
retval := dots_matrix(dot_type)(dot_attrib);
end if;
return retval;
end;
function SchematicMap(schematic_id number)
return number
is
retval number := 0;
begin
if schematic_map.exists(schematic_id) then
retval := schematic_map(schematic_id);
end if;
return retval;
end;
end;
/
Reference in New Issue View Git Blame Copy Permalink