-------------------------------------------------------- -- File created - Sunday-January-08-2017 -------------------------------------------------------- DROP TABLE "SWG"."ACCOUNTS" cascade constraints; DROP TABLE "SWG"."ACCOUNT_EXTRACT" cascade constraints; DROP TABLE "SWG"."ACCOUNT_INFO" cascade constraints; DROP TABLE "SWG"."ACCOUNT_MAP" cascade constraints; DROP TABLE "SWG"."ACCOUNT_REWARD_EVENTS" cascade constraints; DROP TABLE "SWG"."ACCOUNT_REWARD_ITEMS" cascade constraints; DROP TABLE "SWG"."ARMOR" cascade constraints; DROP TABLE "SWG"."AUCTION_LOCATIONS" cascade constraints; DROP TABLE "SWG"."AUTOMATED_QUERIES" cascade constraints; DROP TABLE "SWG"."BATTLEFIELD_MARKER_OBJECTS" cascade constraints; DROP TABLE "SWG"."BATTLEFIELD_PARTICIPANTS" cascade constraints; DROP TABLE "SWG"."BIOGRAPHIES" cascade constraints; DROP TABLE "SWG"."BOUNTY_HUNTER_TARGETS" cascade constraints; DROP TABLE "SWG"."BUILDING_OBJECTS" cascade constraints; DROP TABLE "SWG"."CELL_OBJECTS" cascade constraints; DROP TABLE "SWG"."CHARACTER_PROFILE" cascade constraints; DROP TABLE "SWG"."CHARACTER_TYPES" cascade constraints; DROP TABLE "SWG"."CITY_OBJECTS" cascade constraints; DROP TABLE "SWG"."CLOCK" cascade constraints; DROP TABLE "SWG"."CLUSTER_LIST" cascade constraints; DROP TABLE "SWG"."CREATURE_OBJECTS" cascade constraints; DROP TABLE "SWG"."DEFAULT_CHARACTER_SLOTS" cascade constraints; DROP TABLE "SWG"."DEFAULT_CHAR_LIMITS" cascade constraints; DROP TABLE "SWG"."DELETE_REASONS" cascade constraints; DROP TABLE "SWG"."ERRORLOG" cascade constraints; DROP TABLE "SWG"."ERRORLOG_LEVEL" cascade constraints; DROP TABLE "SWG"."ERRORLOG_LEVEL_DESC" cascade constraints; DROP TABLE "SWG"."ERRORLOG_RERAISE_LIMITS" cascade constraints; DROP TABLE "SWG"."ERRORLOG_VALUES" cascade constraints; DROP TABLE "SWG"."EXPERIENCE_POINTS" cascade constraints; DROP TABLE "SWG"."EXTRA_CHARACTER_SLOTS" cascade constraints; DROP TABLE "SWG"."FACTORY_OBJECTS" cascade constraints; DROP TABLE "SWG"."FEATURE_ID_TRANSACTIONS" cascade constraints; DROP TABLE "SWG"."FREE_OBJECT_IDS" cascade constraints; DROP TABLE "SWG"."GUILD_OBJECTS" cascade constraints; DROP TABLE "SWG"."HARVESTER_INSTALLATION_OBJECTS" cascade constraints; DROP TABLE "SWG"."INSTALLATION_OBJECTS" cascade constraints; DROP TABLE "SWG"."INTANGIBLE_OBJECTS" cascade constraints; DROP TABLE "SWG"."LOADBEACON_SERVER_MAP" cascade constraints; DROP TABLE "SWG"."LOCATION_LISTS" cascade constraints; DROP TABLE "SWG"."MANF_SCHEMATIC_ATTRIBUTES" cascade constraints; DROP TABLE "SWG"."MANF_SCHEMATIC_OBJECTS" cascade constraints; DROP TABLE "SWG"."MANUFACTURE_INST_OBJECTS" cascade constraints; DROP TABLE "SWG"."MARKET_AUCTIONS" cascade constraints; DROP TABLE "SWG"."MARKET_AUCTION_ATTRIBUTES" cascade constraints; DROP TABLE "SWG"."MARKET_AUCTION_BIDS" cascade constraints; DROP TABLE "SWG"."MESSAGES" cascade constraints; DROP TABLE "SWG"."MISSION_OBJECTS" cascade constraints; DROP TABLE "SWG"."OBJECTS" cascade constraints; DROP TABLE "SWG"."OBJECT_LIST" cascade constraints; DROP TABLE "SWG"."OBJECT_TEMPLATES" cascade constraints; DROP TABLE "SWG"."OBJECT_VARIABLES" cascade constraints; DROP TABLE "SWG"."OBJECT_VARIABLE_NAMES" cascade constraints; DROP TABLE "SWG"."PLANET_OBJECTS" cascade constraints; DROP TABLE "SWG"."PLAYERS" cascade constraints; DROP TABLE "SWG"."PLAYER_OBJECTS" cascade constraints; DROP TABLE "SWG"."PLAYER_QUEST_OBJECTS" cascade constraints; DROP TABLE "SWG"."PROPERTY_LISTS" cascade constraints; DROP TABLE "SWG"."PUBLISH_PLAYER_FIXUP" cascade constraints; DROP TABLE "SWG"."PURGE_ACCOUNTS" cascade constraints; DROP TABLE "SWG"."PURGE_PHASES" cascade constraints; DROP TABLE "SWG"."RESOURCE_CONTAINER_OBJECTS" cascade constraints; DROP TABLE "SWG"."RESOURCE_TYPES" cascade constraints; DROP TABLE "SWG"."SCRIPTS" cascade constraints; DROP TABLE "SWG"."SCRUNCHER" cascade constraints; DROP TABLE "SWG"."SHIP_OBJECTS" cascade constraints; DROP TABLE "SWG"."STATIC_OBJECTS" cascade constraints; DROP TABLE "SWG"."STATUSES" cascade constraints; DROP TABLE "SWG"."SWG_CHARACTERS" cascade constraints; DROP TABLE "SWG"."TANGIBLE_OBJECTS" cascade constraints; DROP TABLE "SWG"."TEMP_CHARACTERS" cascade constraints; DROP TABLE "SWG"."TEMP_FREE_OBJECT_IDS" cascade constraints; DROP TABLE "SWG"."TOKEN_OBJECTS" cascade constraints; DROP TABLE "SWG"."UNIVERSE_OBJECTS" cascade constraints; DROP TABLE "SWG"."VEHICLE_OBJECTS" cascade constraints; DROP TABLE "SWG"."VERSION_NUMBER" cascade constraints; DROP TABLE "SWG"."WAYPOINTS" cascade constraints; DROP TABLE "SWG"."WEAPON_OBJECTS" cascade constraints; DROP SEQUENCE "SWG"."NEXT_OBJECT_VARIABLE_NAME"; DROP SEQUENCE "SWG"."SEQ_ERRORLOG"; DROP SEQUENCE "SWG"."SEQ_QUERIES"; DROP VIEW "SWG"."CHARACTER_VIEW"; DROP VIEW "SWG"."OBJECTS_VIEW"; DROP VIEW "SWG"."OBJECT_VARIABLES_VIEW"; DROP PACKAGE "SWG"."ADMIN"; DROP PACKAGE "SWG"."BIOGRAPHY"; DROP PACKAGE "SWG"."BLOB_DATA_CONVERSION"; DROP PACKAGE "SWG"."CM_LOADER"; DROP PACKAGE "SWG"."CM_PERSISTER"; DROP PACKAGE "SWG"."CUSTSERV_PROCS"; DROP PACKAGE "SWG"."DATALOOKUP"; DROP PACKAGE "SWG"."DATA_CLEANUP"; DROP PACKAGE "SWG"."DB_ERROR_LOGGER"; DROP PACKAGE "SWG"."GOLD_OVERRIDE"; DROP PACKAGE "SWG"."LAZY_DELETER"; DROP PACKAGE "SWG"."LOADER"; DROP PACKAGE "SWG"."LOGIN"; DROP PACKAGE "SWG"."OBJECTIDMANAGER"; DROP PACKAGE "SWG"."OBJVAR_NAMES"; DROP PACKAGE "SWG"."PERSISTER"; DROP PACKAGE "SWG"."PURGE_METHODS"; DROP PACKAGE "SWG"."PURGE_METHODS2"; DROP PACKAGE "SWG"."PURGE_PROCESS"; DROP PACKAGE "SWG"."SERVERCLOCK"; DROP PACKAGE "SWG"."STATION_PLAYERS"; DROP PACKAGE "SWG"."UNDELETE_METHODS"; DROP PACKAGE "SWG"."UTIL"; DROP PACKAGE BODY "SWG"."ADMIN"; DROP PACKAGE BODY "SWG"."BIOGRAPHY"; DROP PACKAGE BODY "SWG"."BLOB_DATA_CONVERSION"; DROP PACKAGE BODY "SWG"."CM_LOADER"; DROP PACKAGE BODY "SWG"."CM_PERSISTER"; DROP PACKAGE BODY "SWG"."CUSTSERV_PROCS"; DROP PACKAGE BODY "SWG"."DATALOOKUP"; DROP PACKAGE BODY "SWG"."DATA_CLEANUP"; DROP PACKAGE BODY "SWG"."DB_ERROR_LOGGER"; DROP PACKAGE BODY "SWG"."GOLD_OVERRIDE"; DROP PACKAGE BODY "SWG"."LAZY_DELETER"; DROP PACKAGE BODY "SWG"."LOADER"; DROP PACKAGE BODY "SWG"."LOGIN"; DROP PACKAGE BODY "SWG"."OBJECTIDMANAGER"; DROP PACKAGE BODY "SWG"."OBJVAR_NAMES"; DROP PACKAGE BODY "SWG"."PERSISTER"; DROP PACKAGE BODY "SWG"."PURGE_METHODS"; DROP PACKAGE BODY "SWG"."PURGE_METHODS2"; DROP PACKAGE BODY "SWG"."PURGE_PROCESS"; DROP PACKAGE BODY "SWG"."SERVERCLOCK"; DROP PACKAGE BODY "SWG"."STATION_PLAYERS"; DROP PACKAGE BODY "SWG"."UNDELETE_METHODS"; DROP PACKAGE BODY "SWG"."UTIL"; DROP TYPE "SWG"."VAOFLONGSTRING"; DROP TYPE "SWG"."VAOFNUMBER"; DROP TYPE "SWG"."VAOFSTRING"; -------------------------------------------------------- -- DDL for Type VAOFLONGSTRING -------------------------------------------------------- CREATE OR REPLACE TYPE "SWG"."VAOFLONGSTRING" is varray(10000) of varchar2(4000); / GRANT EXECUTE ON "SWG"."VAOFLONGSTRING" TO PUBLIC; -------------------------------------------------------- -- DDL for Type VAOFNUMBER -------------------------------------------------------- CREATE OR REPLACE TYPE "SWG"."VAOFNUMBER" is varray(10000) of number; / GRANT EXECUTE ON "SWG"."VAOFNUMBER" TO PUBLIC; -------------------------------------------------------- -- DDL for Type VAOFSTRING -------------------------------------------------------- CREATE OR REPLACE TYPE "SWG"."VAOFSTRING" is varray(10000) of varchar2(1000); / GRANT EXECUTE ON "SWG"."VAOFSTRING" TO PUBLIC; -------------------------------------------------------- -- DDL for Sequence NEXT_OBJECT_VARIABLE_NAME -------------------------------------------------------- CREATE SEQUENCE "SWG"."NEXT_OBJECT_VARIABLE_NAME" MINVALUE 1 MAXVALUE 9999999999999999999999999999 INCREMENT BY 1 START WITH 1 CACHE 20 NOORDER NOCYCLE ; -------------------------------------------------------- -- DDL for Sequence SEQ_ERRORLOG -------------------------------------------------------- CREATE SEQUENCE "SWG"."SEQ_ERRORLOG" MINVALUE 1 MAXVALUE 9999999999999999999999999999 INCREMENT BY 1 START WITH 1 CACHE 20 NOORDER NOCYCLE ; -------------------------------------------------------- -- DDL for Sequence SEQ_QUERIES -------------------------------------------------------- CREATE SEQUENCE "SWG"."SEQ_QUERIES" MINVALUE 1 MAXVALUE 9999999999999999999999999999 INCREMENT BY 1 START WITH 1 NOCACHE NOORDER NOCYCLE ; -------------------------------------------------------- -- DDL for Table ACCOUNTS -------------------------------------------------------- CREATE TABLE "SWG"."ACCOUNTS" ( "STATION_ID" NUMBER(*,0), "NUM_LOTS" NUMBER(*,0), "IS_OUTCAST" CHAR(1 BYTE), "CHEATER_LEVEL" NUMBER(*,0), "MAX_LOTS_ADJUSTMENT" NUMBER(*,0), "HOUSE_ID" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ACCOUNTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ACCOUNT_EXTRACT -------------------------------------------------------- CREATE TABLE "SWG"."ACCOUNT_EXTRACT" ( "USER_ID" NUMBER, "SUBSCRIPTION_ID" NUMBER, "PLAN_ID" NUMBER, "PLAN_DESC" VARCHAR2(255 BYTE), "STATUS" NUMBER, "STATUS_DESC" VARCHAR2(60 BYTE), "CLOSE_DATE" DATE, "TOTAL_ENTITLED_TIME" NUMBER ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ACCOUNT_EXTRACT" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ACCOUNT_INFO -------------------------------------------------------- CREATE TABLE "SWG"."ACCOUNT_INFO" ( "STATION_ID" NUMBER, "COMPLETED_TUTORIAL" CHAR(1 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ACCOUNT_INFO" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ACCOUNT_MAP -------------------------------------------------------- CREATE TABLE "SWG"."ACCOUNT_MAP" ( "PARENT_ID" NUMBER(38,0), "CHILD_ID" NUMBER(38,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ACCOUNT_MAP" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ACCOUNT_REWARD_EVENTS -------------------------------------------------------- CREATE TABLE "SWG"."ACCOUNT_REWARD_EVENTS" ( "STATION_ID" NUMBER, "EVENT_ID" VARCHAR2(255 BYTE), "DATE_CONSUMED" DATE, "CLUSTER_ID" NUMBER, "CHARACTER_ID" NUMBER ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ACCOUNT_REWARD_EVENTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ACCOUNT_REWARD_ITEMS -------------------------------------------------------- CREATE TABLE "SWG"."ACCOUNT_REWARD_ITEMS" ( "STATION_ID" NUMBER, "ITEM_ID" VARCHAR2(255 BYTE), "DATE_CLAIMED" DATE, "CLUSTER_ID" NUMBER, "CHARACTER_ID" NUMBER ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ACCOUNT_REWARD_ITEMS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ARMOR -------------------------------------------------------- CREATE TABLE "SWG"."ARMOR" ( "OBJECT_ID" NUMBER(20,0), "LAYER" NUMBER(*,0), "EFFECTIVENESS" NUMBER(*,0), "INTEGRITY" NUMBER(*,0), "SPECIAL_PROTECTIONS" VARCHAR2(1000 BYTE), "ENCUMBERANCE_0" NUMBER(*,0), "ENCUMBERANCE_1" NUMBER(*,0), "ENCUMBERANCE_2" NUMBER(*,0), "ENCUMBERANCE_3" NUMBER(*,0), "ENCUMBERANCE_4" NUMBER(*,0), "ENCUMBERANCE_5" NUMBER(*,0), "ENCUMBERANCE_6" NUMBER(*,0), "ENCUMBERANCE_7" NUMBER(*,0), "ENCUMBERANCE_8" NUMBER(*,0), "OBJECT_TEMPLATE" VARCHAR2(255 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ARMOR" TO PUBLIC; -------------------------------------------------------- -- DDL for Table AUCTION_LOCATIONS -------------------------------------------------------- CREATE TABLE "SWG"."AUCTION_LOCATIONS" ( "LOCATION_ID" NUMBER(20,0), "OWNER_ID" NUMBER(20,0), "LOCATION_NAME" VARCHAR2(256 BYTE), "SALES_TAX" NUMBER(20,0) DEFAULT 0, "SALES_TAX_BANK_ID" NUMBER(20,0) DEFAULT 0, "EMPTY_DATE" NUMBER(20,0), "LAST_ACCESS_DATE" NUMBER(20,0), "INACTIVE_DATE" NUMBER(20,0), "STATUS" NUMBER(20,0) DEFAULT 0, "SEARCH_ENABLED" CHAR(1 BYTE) DEFAULT 'Y', "ENTRANCE_CHARGE" NUMBER DEFAULT 0 ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."AUCTION_LOCATIONS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table AUTOMATED_QUERIES -------------------------------------------------------- CREATE TABLE "SWG"."AUTOMATED_QUERIES" ( "ID" NUMBER(10,0), "STARTTIME" DATE, "ENDTIME" DATE, "CREATETIME" DATE DEFAULT sysdate, "STATUS" VARCHAR2(30 BYTE) DEFAULT 'ready', "TYPE" VARCHAR2(30 BYTE), "RUN_SERIAL" NUMBER(10,0) DEFAULT 0, "EXEC_ORDER" NUMBER(10,0) DEFAULT 0, "QUERY_TEXT" VARCHAR2(4000 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."AUTOMATED_QUERIES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table BATTLEFIELD_MARKER_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."BATTLEFIELD_MARKER_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "REGION_NAME" VARCHAR2(500 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."BATTLEFIELD_MARKER_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table BATTLEFIELD_PARTICIPANTS -------------------------------------------------------- CREATE TABLE "SWG"."BATTLEFIELD_PARTICIPANTS" ( "REGION_OBJECT_ID" NUMBER, "CHARACTER_OBJECT_ID" NUMBER, "FACTION_ID" NUMBER ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."BATTLEFIELD_PARTICIPANTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table BIOGRAPHIES -------------------------------------------------------- CREATE TABLE "SWG"."BIOGRAPHIES" ( "OBJECT_ID" NUMBER(20,0), "BIOGRAPHY" VARCHAR2(1024 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."BIOGRAPHIES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table BOUNTY_HUNTER_TARGETS -------------------------------------------------------- CREATE TABLE "SWG"."BOUNTY_HUNTER_TARGETS" ( "OBJECT_ID" NUMBER(20,0), "TARGET_ID" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."BOUNTY_HUNTER_TARGETS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table BUILDING_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."BUILDING_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "MAINTENANCE_COST" NUMBER(*,0), "TIME_LAST_CHECKED" FLOAT(126), "IS_PUBLIC" CHAR(1 BYTE), "CITY_ID" NUMBER(*,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."BUILDING_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table CELL_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."CELL_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "CELL_NUMBER" NUMBER(*,0), "IS_PUBLIC" CHAR(1 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."CELL_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table CHARACTER_PROFILE -------------------------------------------------------- CREATE TABLE "SWG"."CHARACTER_PROFILE" ( "CLUSTER_NAME" VARCHAR2(50 BYTE), "CHARACTER_ID" NUMBER(20,0), "CHARACTER_NAME" VARCHAR2(127 BYTE), "OBJECT_NAME" VARCHAR2(127 BYTE), "X" FLOAT(126), "Y" FLOAT(126), "Z" FLOAT(126), "SCENE_ID" VARCHAR2(50 BYTE), "CASH_BALANCE" NUMBER(*,0), "BANK_BALANCE" NUMBER(*,0), "OBJECT_TEMPLATE_NAME" VARCHAR2(500 BYTE), "STATION_ID" NUMBER(20,0), "CONTAINED_BY" NUMBER(20,0), "CREATE_TIME" DATE, "PLAYED_TIME" DATE, "NUM_LOTS" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."CHARACTER_PROFILE" TO PUBLIC; -------------------------------------------------------- -- DDL for Table CHARACTER_TYPES -------------------------------------------------------- CREATE TABLE "SWG"."CHARACTER_TYPES" ( "ID" NUMBER, "DESCRIPTION" VARCHAR2(1000 BYTE) ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."CHARACTER_TYPES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table CITY_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."CITY_OBJECTS" ( "OBJECT_ID" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."CITY_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table CLOCK -------------------------------------------------------- CREATE TABLE "SWG"."CLOCK" ( "LAST_SAVE_TIME" NUMBER(*,0), "LAST_SAVE_TIMESTAMP" DATE ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."CLOCK" TO PUBLIC; -------------------------------------------------------- -- DDL for Table CLUSTER_LIST -------------------------------------------------------- CREATE TABLE "SWG"."CLUSTER_LIST" ( "ID" NUMBER, "NAME" VARCHAR2(255 BYTE), "NUM_CHARACTERS" NUMBER, "ADDRESS" VARCHAR2(255 BYTE), "PORT" NUMBER DEFAULT 44463, "SECRET" CHAR(1 BYTE), "LOCKED" CHAR(1 BYTE), "NOT_RECOMMENDED" CHAR(1 BYTE), "GROUP_ID" NUMBER(*,0) DEFAULT 1, "ONLINE_PLAYER_LIMIT" NUMBER DEFAULT 100, "ONLINE_FREE_TRIAL_LIMIT" NUMBER, "FREE_TRIAL_CAN_CREATE_CHAR" CHAR(1 BYTE), "ONLINE_TUTORIAL_LIMIT" NUMBER DEFAULT 350 ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."CLUSTER_LIST" TO PUBLIC; -------------------------------------------------------- -- DDL for Table CREATURE_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."CREATURE_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "SCALE_FACTOR" FLOAT(126), "STATES" NUMBER(*,0), "POSTURE" NUMBER(*,0), "SHOCK_WOUNDS" NUMBER(*,0), "MASTER_ID" NUMBER(20,0), "RANK" NUMBER(*,0), "BASE_WALK_SPEED" FLOAT(126), "BASE_RUN_SPEED" FLOAT(126), "ATTRIBUTE_0" NUMBER(*,0), "ATTRIBUTE_1" NUMBER(*,0), "ATTRIBUTE_2" NUMBER(*,0), "ATTRIBUTE_3" NUMBER(*,0), "ATTRIBUTE_4" NUMBER(*,0), "ATTRIBUTE_5" NUMBER(*,0), "ATTRIBUTE_6" NUMBER(*,0), "ATTRIBUTE_7" NUMBER(*,0), "ATTRIBUTE_8" NUMBER(*,0), "ATTRIBUTE_9" NUMBER(*,0), "ATTRIBUTE_10" NUMBER(*,0), "ATTRIBUTE_11" NUMBER(*,0), "ATTRIBUTE_12" NUMBER(*,0), "ATTRIBUTE_13" NUMBER(*,0), "ATTRIBUTE_14" NUMBER(*,0), "ATTRIBUTE_15" NUMBER(*,0), "ATTRIBUTE_16" NUMBER(*,0), "ATTRIBUTE_17" NUMBER(*,0), "ATTRIBUTE_18" NUMBER(*,0), "ATTRIBUTE_19" NUMBER(*,0), "ATTRIBUTE_20" NUMBER(*,0), "ATTRIBUTE_21" NUMBER(*,0), "ATTRIBUTE_22" NUMBER(*,0), "ATTRIBUTE_23" NUMBER(*,0), "ATTRIBUTE_24" NUMBER(*,0), "ATTRIBUTE_25" NUMBER(*,0), "ATTRIBUTE_26" NUMBER(*,0), "PERSISTED_BUFFS" VARCHAR2(1000 BYTE), "WS_X" FLOAT(126), "WS_Y" FLOAT(126), "WS_Z" FLOAT(126) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."CREATURE_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table DEFAULT_CHARACTER_SLOTS -------------------------------------------------------- CREATE TABLE "SWG"."DEFAULT_CHARACTER_SLOTS" ( "CHARACTER_TYPE_ID" NUMBER, "NUM_SLOTS" NUMBER ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."DEFAULT_CHARACTER_SLOTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table DEFAULT_CHAR_LIMITS -------------------------------------------------------- CREATE TABLE "SWG"."DEFAULT_CHAR_LIMITS" ( "ACCOUNT_LIMIT" NUMBER, "CLUSTER_LIMIT" NUMBER ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."DEFAULT_CHAR_LIMITS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table DELETE_REASONS -------------------------------------------------------- CREATE TABLE "SWG"."DELETE_REASONS" ( "REASON_CODE" NUMBER, "TAG" VARCHAR2(100 BYTE), "DESCRIPTION" VARCHAR2(1000 BYTE) ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."DELETE_REASONS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ERRORLOG -------------------------------------------------------- CREATE TABLE "SWG"."ERRORLOG" ( "ERROR_ID" NUMBER(20,0), "TIMESTAMP" DATE DEFAULT SYSDATE, "ORA_ERRNO" NUMBER(10,0), "ORA_ERRMSG" VARCHAR2(255 BYTE), "SCHEMA_NAME" VARCHAR2(30 BYTE), "MODULE_NAME" VARCHAR2(80 BYTE), "NOTES" VARCHAR2(4000 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ERRORLOG" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ERRORLOG_LEVEL -------------------------------------------------------- CREATE TABLE "SWG"."ERRORLOG_LEVEL" ( "LEVELID" NUMBER(10,0) DEFAULT 0 ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ERRORLOG_LEVEL" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ERRORLOG_LEVEL_DESC -------------------------------------------------------- CREATE TABLE "SWG"."ERRORLOG_LEVEL_DESC" ( "LEVELID" NUMBER(10,0) DEFAULT 0, "DESCRIP" VARCHAR2(50 BYTE) ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ERRORLOG_LEVEL_DESC" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ERRORLOG_RERAISE_LIMITS -------------------------------------------------------- CREATE TABLE "SWG"."ERRORLOG_RERAISE_LIMITS" ( "PACKAGE" VARCHAR2(30 BYTE), "PROCEDURE" VARCHAR2(30 BYTE), "ERRORLIMIT" NUMBER(10,0) DEFAULT 0, "ERRORCOUNT" NUMBER(10,0) DEFAULT 0, "UNLIMITED_FLAG" NUMBER(10,0) DEFAULT 0 ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ERRORLOG_RERAISE_LIMITS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table ERRORLOG_VALUES -------------------------------------------------------- CREATE TABLE "SWG"."ERRORLOG_VALUES" ( "ERROR_ID" NUMBER(20,0), "ELEMENT_OWNER" VARCHAR2(30 BYTE), "ELEMENT_NAME" VARCHAR2(30 BYTE), "ELEMENT_TYPE" VARCHAR2(30 BYTE), "ELEMENT_VALUE" VARCHAR2(4000 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."ERRORLOG_VALUES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table EXPERIENCE_POINTS -------------------------------------------------------- CREATE TABLE "SWG"."EXPERIENCE_POINTS" ( "OBJECT_ID" NUMBER, "EXPERIENCE_TYPE" VARCHAR2(500 BYTE), "POINTS" NUMBER ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."EXPERIENCE_POINTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table EXTRA_CHARACTER_SLOTS -------------------------------------------------------- CREATE TABLE "SWG"."EXTRA_CHARACTER_SLOTS" ( "STATION_ID" NUMBER, "CLUSTER_ID" NUMBER, "CHARACTER_TYPE_ID" NUMBER, "NUM_EXTRA_SLOTS" NUMBER ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."EXTRA_CHARACTER_SLOTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table FACTORY_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."FACTORY_OBJECTS" ( "OBJECT_ID" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."FACTORY_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table FEATURE_ID_TRANSACTIONS -------------------------------------------------------- CREATE TABLE "SWG"."FEATURE_ID_TRANSACTIONS" ( "STATION_ID" NUMBER, "CLUSTER_ID" NUMBER, "CHARACTER_ID" NUMBER, "ITEM_ID" VARCHAR2(255 BYTE), "DATE_UPDATED" DATE, "COUNT" NUMBER ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."FEATURE_ID_TRANSACTIONS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table FREE_OBJECT_IDS -------------------------------------------------------- CREATE TABLE "SWG"."FREE_OBJECT_IDS" ( "START_ID" NUMBER(*,0), "END_ID" NUMBER(*,0) ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."FREE_OBJECT_IDS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table GUILD_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."GUILD_OBJECTS" ( "OBJECT_ID" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."GUILD_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table HARVESTER_INSTALLATION_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."HARVESTER_INSTALLATION_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "INSTALLED_EFFICIENCY" FLOAT(126), "MAX_EXTRACTION_RATE" NUMBER(*,0), "CURRENT_EXTRACTION_RATE" FLOAT(126), "MAX_HOPPER_AMOUNT" NUMBER(*,0), "HOPPER_RESOURCE" NUMBER(20,0), "HOPPER_AMOUNT" FLOAT(126), "RESOURCE_TYPE" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."HARVESTER_INSTALLATION_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table INSTALLATION_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."INSTALLATION_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "INSTALLATION_TYPE" NUMBER(*,0), "ACTIVATED" CHAR(1 BYTE), "TICK_COUNT" FLOAT(126), "ACTIVATE_START_TIME" FLOAT(126), "POWER" FLOAT(126), "POWER_RATE" FLOAT(126) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."INSTALLATION_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table INTANGIBLE_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."INTANGIBLE_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "COUNT" NUMBER(*,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."INTANGIBLE_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table LOADBEACON_SERVER_MAP -------------------------------------------------------- CREATE TABLE "SWG"."LOADBEACON_SERVER_MAP" ( "OBJECT_TEMPLATE" VARCHAR2(255 BYTE), "SERVER_ID" NUMBER(*,0), "SECONDARY_SERVER_ID" NUMBER(*,0) ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."LOADBEACON_SERVER_MAP" TO PUBLIC; -------------------------------------------------------- -- DDL for Table LOCATION_LISTS -------------------------------------------------------- CREATE TABLE "SWG"."LOCATION_LISTS" ( "OBJECT_ID" NUMBER, "LIST_ID" NUMBER, "SEQUENCE_NUMBER" NUMBER, "NAME" VARCHAR2(255 BYTE), "SCENE" VARCHAR2(50 BYTE), "X" NUMBER, "Y" NUMBER, "Z" NUMBER, "RADIUS" NUMBER ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."LOCATION_LISTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table MANF_SCHEMATIC_ATTRIBUTES -------------------------------------------------------- CREATE TABLE "SWG"."MANF_SCHEMATIC_ATTRIBUTES" ( "OBJECT_ID" NUMBER(20,0), "ATTRIBUTE_TYPE" VARCHAR2(500 BYTE), "VALUE" FLOAT(126) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."MANF_SCHEMATIC_ATTRIBUTES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table MANF_SCHEMATIC_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."MANF_SCHEMATIC_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "CREATOR_ID" NUMBER, "CREATOR_NAME" VARCHAR2(127 BYTE), "ITEMS_PER_CONTAINER" NUMBER(*,0), "MANUFACTURE_TIME" FLOAT(126), "DRAFT_SCHEMATIC" NUMBER(*,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."MANF_SCHEMATIC_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table MANUFACTURE_INST_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."MANUFACTURE_INST_OBJECTS" ( "OBJECT_ID" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."MANUFACTURE_INST_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table MARKET_AUCTIONS -------------------------------------------------------- CREATE TABLE "SWG"."MARKET_AUCTIONS" ( "ITEM_ID" NUMBER(20,0), "LOCATION_ID" NUMBER(20,0), "CREATOR_ID" NUMBER(20,0), "OWNER_ID" NUMBER(20,0), "MIN_BID" NUMBER(20,0), "BUY_NOW_PRICE" NUMBER(20,0), "AUCTION_TIMER" NUMBER(20,0), "USER_DESCRIPTION" VARCHAR2(4000 BYTE), "ITEM_NAME" VARCHAR2(4000 BYTE), "OOB" VARCHAR2(4000 BYTE), "CATEGORY" NUMBER(20,0), "ITEM_TIMER" NUMBER(20,0), "ACTIVE" NUMBER(20,0), "ITEM_SIZE" NUMBER(20,0) DEFAULT 1, "OBJECT_TEMPLATE_ID" NUMBER(*,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."MARKET_AUCTIONS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table MARKET_AUCTION_ATTRIBUTES -------------------------------------------------------- CREATE TABLE "SWG"."MARKET_AUCTION_ATTRIBUTES" ( "ITEM_ID" NUMBER(20,0), "ATTRIBUTE_NAME" VARCHAR2(1000 BYTE), "ATTRIBUTE_VALUE" VARCHAR2(1000 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."MARKET_AUCTION_ATTRIBUTES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table MARKET_AUCTION_BIDS -------------------------------------------------------- CREATE TABLE "SWG"."MARKET_AUCTION_BIDS" ( "ITEM_ID" NUMBER(20,0), "BIDDER_ID" NUMBER(20,0), "BID" NUMBER(20,0), "MAX_PROXY_BID" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."MARKET_AUCTION_BIDS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table MESSAGES -------------------------------------------------------- CREATE TABLE "SWG"."MESSAGES" ( "MESSAGE_ID" NUMBER(*,0), "TARGET" NUMBER(*,0), "METHOD" VARCHAR2(50 BYTE), "DATA" VARCHAR2(4000 BYTE), "CALL_TIME" NUMBER(*,0), "GUARANTEED" CHAR(1 BYTE), "DELIVERY_TYPE" NUMBER(*,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."MESSAGES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table MISSION_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."MISSION_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "DIFFICULTY" NUMBER(*,0), "END_X" FLOAT(126), "END_Y" FLOAT(126), "END_Z" FLOAT(126), "END_CELL" NUMBER(20,0), "END_SCENE" NUMBER(*,0), "MISSION_CREATOR" VARCHAR2(127 BYTE), "REWARD" NUMBER(*,0), "ROOT_SCRIPT_NAME" VARCHAR2(100 BYTE), "START_X" FLOAT(126), "START_Y" FLOAT(126), "START_Z" FLOAT(126), "START_CELL" NUMBER(20,0), "START_SCENE" NUMBER(*,0), "DESCRIPTION_TABLE" VARCHAR2(100 BYTE), "DESCRIPTION_TEXT" VARCHAR2(100 BYTE), "TITLE_TABLE" VARCHAR2(100 BYTE), "TITLE_TEXT" VARCHAR2(100 BYTE), "MISSION_HOLDER_ID" NUMBER(20,0), "STATUS" NUMBER(*,0), "MISSION_TYPE" NUMBER(*,0), "TARGET_APPEARANCE" NUMBER(*,0), "TARGET_NAME" VARCHAR2(127 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."MISSION_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "X" FLOAT(126), "Y" FLOAT(126), "Z" FLOAT(126), "QUATERNION_W" FLOAT(126), "QUATERNION_X" FLOAT(126), "QUATERNION_Y" FLOAT(126), "QUATERNION_Z" FLOAT(126), "NODE_X" NUMBER(*,0), "NODE_Y" NUMBER(*,0), "NODE_Z" NUMBER(*,0), "TYPE_ID" NUMBER(*,0), "SCENE_ID" VARCHAR2(50 BYTE), "CONTROLLER_TYPE" NUMBER(*,0), "DELETED" NUMBER(*,0), "OBJECT_NAME" VARCHAR2(127 BYTE), "VOLUME" NUMBER(*,0), "CONTAINED_BY" NUMBER(20,0), "SLOT_ARRANGEMENT" NUMBER(*,0), "PLAYER_CONTROLLED" CHAR(1 BYTE), "CACHE_VERSION" NUMBER(*,0), "LOAD_CONTENTS" CHAR(1 BYTE), "CASH_BALANCE" NUMBER(*,0), "BANK_BALANCE" NUMBER(*,0), "COMPLEXITY" FLOAT(126), "NAME_STRING_TABLE" VARCHAR2(500 BYTE), "NAME_STRING_TEXT" VARCHAR2(500 BYTE), "OBJECT_TEMPLATE_ID" NUMBER(*,0), "STATIC_ITEM_NAME" VARCHAR2(128 BYTE), "STATIC_ITEM_VERSION" NUMBER(*,0), "CONVERSION_ID" NUMBER(*,0), "DELETED_DATE" DATE, "LOAD_WITH" NUMBER(20,0), "OBJVAR_0_NAME" VARCHAR2(50 BYTE), "OBJVAR_0_TYPE" NUMBER(*,0), "OBJVAR_0_VALUE" VARCHAR2(50 BYTE), "OBJVAR_1_NAME" VARCHAR2(50 BYTE), "OBJVAR_1_TYPE" NUMBER(*,0), "OBJVAR_1_VALUE" VARCHAR2(50 BYTE), "OBJVAR_2_NAME" VARCHAR2(50 BYTE), "OBJVAR_2_TYPE" NUMBER(*,0), "OBJVAR_2_VALUE" VARCHAR2(50 BYTE), "OBJVAR_3_NAME" VARCHAR2(50 BYTE), "OBJVAR_3_TYPE" NUMBER(*,0), "OBJVAR_3_VALUE" VARCHAR2(50 BYTE), "OBJVAR_4_NAME" VARCHAR2(50 BYTE), "OBJVAR_4_TYPE" NUMBER(*,0), "OBJVAR_4_VALUE" VARCHAR2(50 BYTE), "OBJVAR_5_NAME" VARCHAR2(50 BYTE), "OBJVAR_5_TYPE" NUMBER(*,0), "OBJVAR_5_VALUE" VARCHAR2(50 BYTE), "OBJVAR_6_NAME" VARCHAR2(50 BYTE), "OBJVAR_6_TYPE" NUMBER(*,0), "OBJVAR_6_VALUE" VARCHAR2(50 BYTE), "OBJVAR_7_NAME" VARCHAR2(50 BYTE), "OBJVAR_7_TYPE" NUMBER(*,0), "OBJVAR_7_VALUE" VARCHAR2(50 BYTE), "OBJVAR_8_NAME" VARCHAR2(50 BYTE), "OBJVAR_8_TYPE" NUMBER(*,0), "OBJVAR_8_VALUE" VARCHAR2(50 BYTE), "OBJVAR_9_NAME" VARCHAR2(50 BYTE), "OBJVAR_9_TYPE" NUMBER(*,0), "OBJVAR_9_VALUE" VARCHAR2(50 BYTE), "OBJVAR_10_NAME" VARCHAR2(50 BYTE), "OBJVAR_10_TYPE" NUMBER(*,0), "OBJVAR_10_VALUE" VARCHAR2(50 BYTE), "OBJVAR_11_NAME" VARCHAR2(50 BYTE), "OBJVAR_11_TYPE" NUMBER(*,0), "OBJVAR_11_VALUE" VARCHAR2(50 BYTE), "OBJVAR_12_NAME" VARCHAR2(50 BYTE), "OBJVAR_12_TYPE" NUMBER(*,0), "OBJVAR_12_VALUE" VARCHAR2(50 BYTE), "OBJVAR_13_NAME" VARCHAR2(50 BYTE), "OBJVAR_13_TYPE" NUMBER(*,0), "OBJVAR_13_VALUE" VARCHAR2(50 BYTE), "OBJVAR_14_NAME" VARCHAR2(50 BYTE), "OBJVAR_14_TYPE" NUMBER(*,0), "OBJVAR_14_VALUE" VARCHAR2(50 BYTE), "OBJVAR_15_NAME" VARCHAR2(50 BYTE), "OBJVAR_15_TYPE" NUMBER(*,0), "OBJVAR_15_VALUE" VARCHAR2(50 BYTE), "OBJVAR_16_NAME" VARCHAR2(50 BYTE), "OBJVAR_16_TYPE" NUMBER(*,0), "OBJVAR_16_VALUE" VARCHAR2(50 BYTE), "OBJVAR_17_NAME" VARCHAR2(50 BYTE), "OBJVAR_17_TYPE" NUMBER(*,0), "OBJVAR_17_VALUE" VARCHAR2(50 BYTE), "OBJVAR_18_NAME" VARCHAR2(50 BYTE), "OBJVAR_18_TYPE" NUMBER(*,0), "OBJVAR_18_VALUE" VARCHAR2(50 BYTE), "OBJVAR_19_NAME" VARCHAR2(50 BYTE), "OBJVAR_19_TYPE" NUMBER(*,0), "OBJVAR_19_VALUE" VARCHAR2(50 BYTE), "SCRIPT_LIST" VARCHAR2(2000 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table OBJECT_LIST -------------------------------------------------------- CREATE GLOBAL TEMPORARY TABLE "SWG"."OBJECT_LIST" ( "OBJECT_ID" NUMBER(20,0), "CONTAINER_LEVEL" NUMBER ) ON COMMIT DELETE ROWS ; GRANT ALTER, DELETE, INDEX, INSERT, SELECT, UPDATE, REFERENCES, ON COMMIT REFRESH, QUERY REWRITE, DEBUG, FLASHBACK ON "SWG"."OBJECT_LIST" TO PUBLIC; -------------------------------------------------------- -- DDL for Table OBJECT_TEMPLATES -------------------------------------------------------- CREATE TABLE "SWG"."OBJECT_TEMPLATES" ( "ID" NUMBER, "NAME" VARCHAR2(255 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."OBJECT_TEMPLATES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table OBJECT_VARIABLES -------------------------------------------------------- CREATE TABLE "SWG"."OBJECT_VARIABLES" ( "OBJECT_ID" NUMBER(20,0), "NAME_ID" NUMBER, "TYPE" NUMBER(*,0), "VALUE" VARCHAR2(1000 BYTE), "DETACHED" NUMBER(*,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."OBJECT_VARIABLES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table OBJECT_VARIABLE_NAMES -------------------------------------------------------- CREATE TABLE "SWG"."OBJECT_VARIABLE_NAMES" ( "ID" NUMBER(20,0), "NAME" VARCHAR2(500 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."OBJECT_VARIABLE_NAMES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table PLANET_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."PLANET_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "PLANET_NAME" VARCHAR2(100 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."PLANET_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table PLAYERS -------------------------------------------------------- CREATE TABLE "SWG"."PLAYERS" ( "CHARACTER_OBJECT" NUMBER(*,0), "STATION_ID" NUMBER(*,0), "UC_CHARACTER_NAME" VARCHAR2(127 BYTE), "CHARACTER_FULL_NAME" VARCHAR2(127 BYTE), "CREATE_TIME" DATE, "LAST_LOGIN_TIME" DATE DEFAULT sysdate ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."PLAYERS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table PLAYER_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."PLAYER_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "STATION_ID" NUMBER(*,0), "PERSONAL_PROFILE_ID" VARCHAR2(200 BYTE), "CHARACTER_PROFILE_ID" VARCHAR2(200 BYTE), "SKILL_TITLE" VARCHAR2(200 BYTE), "BORN_DATE" NUMBER(*,0), "PLAYED_TIME" NUMBER(*,0), "FORCE_REGEN_RATE" FLOAT(126), "FORCE_POWER" NUMBER(*,0), "MAX_FORCE_POWER" NUMBER(*,0), "NUM_LOTS" NUMBER(*,0), "ACTIVE_QUESTS" VARCHAR2(512 BYTE), "COMPLETED_QUESTS" VARCHAR2(512 BYTE), "CURRENT_QUEST" NUMBER(*,0), "QUESTS" VARCHAR2(4000 BYTE), "ROLE_ICON_CHOICE" NUMBER(*,0), "QUESTS2" VARCHAR2(4000 BYTE), "QUESTS3" VARCHAR2(4000 BYTE), "QUESTS4" VARCHAR2(4000 BYTE), "SKILL_TEMPLATE" VARCHAR2(200 BYTE), "WORKING_SKILL" VARCHAR2(200 BYTE), "CURRENT_GCW_POINTS" NUMBER(*,0), "CURRENT_GCW_RATING" NUMBER(*,0), "CURRENT_PVP_KILLS" NUMBER(*,0), "LIFETIME_GCW_POINTS" NUMBER(*,0), "MAX_GCW_IMPERIAL_RATING" NUMBER(*,0), "MAX_GCW_REBEL_RATING" NUMBER(*,0), "LIFETIME_PVP_KILLS" NUMBER(*,0), "NEXT_GCW_RATING_CALC_TIME" NUMBER(*,0), "COLLECTIONS" VARCHAR2(4000 BYTE), "SHOW_BACKPACK" CHAR(1 BYTE), "SHOW_HELMET" CHAR(1 BYTE), "COLLECTIONS2" VARCHAR2(4000 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."PLAYER_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table PLAYER_QUEST_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."PLAYER_QUEST_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "TITLE" VARCHAR2(256 BYTE), "DESCRIPTION" VARCHAR2(4000 BYTE), "CREATOR" NUMBER(20,0), "TOTAL_TASKS" NUMBER(*,0), "DIFFICULTY" NUMBER(*,0), "TASK_TITLE1" VARCHAR2(128 BYTE), "TASK_DESCRIPTION1" VARCHAR2(4000 BYTE), "TASK_TITLE2" VARCHAR2(128 BYTE), "TASK_DESCRIPTION2" VARCHAR2(4000 BYTE), "TASK_TITLE3" VARCHAR2(128 BYTE), "TASK_DESCRIPTION3" VARCHAR2(4000 BYTE), "TASK_TITLE4" VARCHAR2(128 BYTE), "TASK_DESCRIPTION4" VARCHAR2(4000 BYTE), "TASK_TITLE5" VARCHAR2(128 BYTE), "TASK_DESCRIPTION5" VARCHAR2(4000 BYTE), "TASK_TITLE6" VARCHAR2(128 BYTE), "TASK_DESCRIPTION6" VARCHAR2(4000 BYTE), "TASK_TITLE7" VARCHAR2(128 BYTE), "TASK_DESCRIPTION7" VARCHAR2(4000 BYTE), "TASK_TITLE8" VARCHAR2(128 BYTE), "TASK_DESCRIPTION8" VARCHAR2(4000 BYTE), "TASK_TITLE9" VARCHAR2(128 BYTE), "TASK_DESCRIPTION9" VARCHAR2(4000 BYTE), "TASK_TITLE10" VARCHAR2(128 BYTE), "TASK_DESCRIPTION10" VARCHAR2(4000 BYTE), "TASK_TITLE11" VARCHAR2(128 BYTE), "TASK_DESCRIPTION11" VARCHAR2(4000 BYTE), "TASK_TITLE12" VARCHAR2(128 BYTE), "TASK_DESCRIPTION12" VARCHAR2(4000 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."PLAYER_QUEST_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table PROPERTY_LISTS -------------------------------------------------------- CREATE TABLE "SWG"."PROPERTY_LISTS" ( "OBJECT_ID" NUMBER(20,0), "LIST_ID" NUMBER(*,0), "VALUE" VARCHAR2(500 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."PROPERTY_LISTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table PUBLISH_PLAYER_FIXUP -------------------------------------------------------- CREATE TABLE "SWG"."PUBLISH_PLAYER_FIXUP" ( "PLAYER_OBJECT_ID" NUMBER(20,0), "X" NUMBER, "Y" NUMBER, "Z" NUMBER ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."PUBLISH_PLAYER_FIXUP" TO PUBLIC; -------------------------------------------------------- -- DDL for Table PURGE_ACCOUNTS -------------------------------------------------------- CREATE TABLE "SWG"."PURGE_ACCOUNTS" ( "STATION_ID" NUMBER, "PURGE_PHASE" NUMBER, "PURGE_START_DATE" DATE, "PURGE_PHASE_DATE" DATE, "PURGE_LOCK" DATE ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."PURGE_ACCOUNTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table PURGE_PHASES -------------------------------------------------------- CREATE TABLE "SWG"."PURGE_PHASES" ( "ID" NUMBER, "DESCRIPTION" VARCHAR2(200 BYTE) ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."PURGE_PHASES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table RESOURCE_CONTAINER_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."RESOURCE_CONTAINER_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "RESOURCE_TYPE" NUMBER(20,0), "QUANTITY" NUMBER(*,0), "SOURCE" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."RESOURCE_CONTAINER_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table RESOURCE_TYPES -------------------------------------------------------- CREATE TABLE "SWG"."RESOURCE_TYPES" ( "RESOURCE_ID" NUMBER(20,0), "RESOURCE_NAME" VARCHAR2(100 BYTE), "RESOURCE_CLASS" VARCHAR2(100 BYTE), "ATTRIBUTES" VARCHAR2(1024 BYTE), "FRACTAL_SEEDS" VARCHAR2(1024 BYTE), "DEPLETED_TIMESTAMP" NUMBER(*,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."RESOURCE_TYPES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table SCRIPTS -------------------------------------------------------- CREATE TABLE "SWG"."SCRIPTS" ( "OBJECT_ID" NUMBER(20,0), "SEQUENCE_NO" NUMBER(*,0), "SCRIPT" VARCHAR2(100 BYTE), "DETACHED" NUMBER(*,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."SCRIPTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table SCRUNCHER -------------------------------------------------------- CREATE TABLE "SWG"."SCRUNCHER" ( "NEW_OBJECT_ID" NUMBER(20,0), "OLD_OBJECT_ID" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."SCRUNCHER" TO PUBLIC; -------------------------------------------------------- -- DDL for Table SHIP_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."SHIP_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "SLIDE_DAMPENER" FLOAT(126), "CURRENT_CHASSIS_HIT_POINTS" FLOAT(126), "MAXIMUM_CHASSIS_HIT_POINTS" FLOAT(126), "CHASSIS_TYPE" NUMBER(*,0), "CMP_ARMOR_HP_MAXIMUM" VARCHAR2(400 BYTE), "CMP_ARMOR_HP_CURRENT" VARCHAR2(400 BYTE), "CMP_EFFICIENCY_GENERAL" VARCHAR2(400 BYTE), "CMP_EFFICIENCY_ENG" VARCHAR2(400 BYTE), "CMP_ENG_MAINTENANCE" VARCHAR2(400 BYTE), "CMP_MASS" VARCHAR2(400 BYTE), "CMP_CRC" VARCHAR2(500 BYTE), "CMP_HP_CURRENT" VARCHAR2(400 BYTE), "CMP_HP_MAXIMUM" VARCHAR2(400 BYTE), "CMP_FLAGS" VARCHAR2(400 BYTE), "CMP_NAMES" VARCHAR2(4000 BYTE), "WEAPON_DAMAGE_MAXIMUM" VARCHAR2(400 BYTE), "WEAPON_DAMAGE_MINIMUM" VARCHAR2(400 BYTE), "WEAPON_EFFECTIVENESS_SHIELDS" VARCHAR2(400 BYTE), "WEAPON_EFFECTIVENESS_ARMOR" VARCHAR2(400 BYTE), "WEAPON_ENG_PER_SHOT" VARCHAR2(400 BYTE), "WEAPON_REFIRE_RATE" VARCHAR2(400 BYTE), "WEAPON_AMMO_CURRENT" VARCHAR2(400 BYTE), "WEAPON_AMMO_MAXIMUM" VARCHAR2(400 BYTE), "WEAPON_AMMO_TYPE" VARCHAR2(400 BYTE), "SHIELD_HP_FRONT_MAXIMUM" FLOAT(126), "SHIELD_HP_BACK_MAXIMUM" FLOAT(126), "SHIELD_RECHARGE_RATE" FLOAT(126), "CAPACITOR_ENG_MAXIMUM" FLOAT(126), "CAPACITOR_ENG_RECHARGE_RATE" FLOAT(126), "ENGINE_ACC_RATE" FLOAT(126), "ENGINE_DECELERATION_RATE" FLOAT(126), "ENGINE_PITCH_ACC_RATE" FLOAT(126), "ENGINE_YAW_ACC_RATE" FLOAT(126), "ENGINE_ROLL_ACC_RATE" FLOAT(126), "ENGINE_PITCH_RATE_MAXIMUM" FLOAT(126), "ENGINE_YAW_RATE_MAXIMUM" FLOAT(126), "ENGINE_ROLL_RATE_MAXIMUM" FLOAT(126), "ENGINE_SPEED_MAXIMUM" FLOAT(126), "REACTOR_ENG_GENERATION_RATE" FLOAT(126), "BOOSTER_ENG_MAXIMUM" FLOAT(126), "BOOSTER_ENG_RECHARGE_RATE" FLOAT(126), "BOOSTER_ENG_CONSUMPTION_RATE" FLOAT(126), "BOOSTER_ACC" FLOAT(126), "BOOSTER_SPEED_MAXIMUM" FLOAT(126), "DROID_IF_CMD_SPEED" FLOAT(126), "INSTALLED_DCD" NUMBER(20,0), "CHASSIS_CMP_MASS_MAXIMUM" FLOAT(126), "CMP_CREATORS" VARCHAR2(400 BYTE), "CARGO_HOLD_CONTENTS_MAXIMUM" NUMBER, "CARGO_HOLD_CONTENTS_CURRENT" NUMBER, "CARGO_HOLD_CONTENTS" VARCHAR2(500 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."SHIP_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table STATIC_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."STATIC_OBJECTS" ( "OBJECT_ID" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."STATIC_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table STATUSES -------------------------------------------------------- CREATE TABLE "SWG"."STATUSES" ( "ID" NUMBER, "DESCRIPTION" VARCHAR2(200 BYTE), "DO_PURGE" CHAR(1 BYTE), "REVIEWED" CHAR(1 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."STATUSES" TO PUBLIC; -------------------------------------------------------- -- DDL for Table SWG_CHARACTERS -------------------------------------------------------- CREATE TABLE "SWG"."SWG_CHARACTERS" ( "STATION_ID" NUMBER, "CLUSTER_ID" NUMBER, "CHARACTER_NAME" VARCHAR2(127 BYTE), "OBJECT_ID" NUMBER, "CHARACTER_TYPE" NUMBER, "TEMPLATE_ID" NUMBER, "ENABLED" CHAR(1 BYTE) DEFAULT 'Y' ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."SWG_CHARACTERS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table TANGIBLE_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."TANGIBLE_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "MAX_HIT_POINTS" NUMBER(*,0), "OWNER_ID" NUMBER(*,0), "VISIBLE" CHAR(1 BYTE), "APPEARANCE_DATA" VARCHAR2(2000 BYTE), "INTEREST_RADIUS" NUMBER(*,0), "PVP_TYPE" NUMBER(*,0), "PVP_FACTION" NUMBER(*,0), "DAMAGE_TAKEN" NUMBER(*,0), "CUSTOM_APPEARANCE" VARCHAR2(2000 BYTE), "COUNT" NUMBER(*,0), "CONDITION" NUMBER(*,0), "CREATOR_ID" NUMBER(20,0), "SOURCE_DRAFT_SCHEMATIC" NUMBER(*,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."TANGIBLE_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table TEMP_CHARACTERS -------------------------------------------------------- CREATE TABLE "SWG"."TEMP_CHARACTERS" ( "TRANSACTION_TYPE" NUMBER, "STATION_ID" NUMBER, "CLUSTER_NAME" VARCHAR2(120 BYTE), "CHARACTER_NAME" VARCHAR2(30 BYTE), "OBJECT_ID" NUMBER, "TEMPLATE_NAME" VARCHAR2(120 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."TEMP_CHARACTERS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table TEMP_FREE_OBJECT_IDS -------------------------------------------------------- CREATE GLOBAL TEMPORARY TABLE "SWG"."TEMP_FREE_OBJECT_IDS" ( "START_ID" NUMBER(*,0), "END_ID" NUMBER(*,0) ) ON COMMIT DELETE ROWS ; GRANT SELECT ON "SWG"."TEMP_FREE_OBJECT_IDS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table TOKEN_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."TOKEN_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "REFERENCE" NUMBER(20,0), "TARGET_SERVER_TEMPLATE_NAME" VARCHAR2(500 BYTE), "TARGET_SHARED_TEMPLATE_NAME" VARCHAR2(500 BYTE), "WAYPOINT" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."TOKEN_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table UNIVERSE_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."UNIVERSE_OBJECTS" ( "OBJECT_ID" NUMBER(20,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."UNIVERSE_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table VEHICLE_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."VEHICLE_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "BOGUS" NUMBER(*,0) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."VEHICLE_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table VERSION_NUMBER -------------------------------------------------------- CREATE TABLE "SWG"."VERSION_NUMBER" ( "VERSION_NUMBER" NUMBER(*,0), "MIN_VERSION_NUMBER" NUMBER(*,0), "GOLDDATA" VARCHAR2(100 BYTE), "BRANCH_NAME" VARCHAR2(30 BYTE) ) SEGMENT CREATION IMMEDIATE PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."VERSION_NUMBER" TO PUBLIC; -------------------------------------------------------- -- DDL for Table WAYPOINTS -------------------------------------------------------- CREATE TABLE "SWG"."WAYPOINTS" ( "OBJECT_ID" NUMBER(20,0), "WAYPOINT_ID" NUMBER(20,0), "APPEARANCE_NAME_CRC" NUMBER(*,0), "LOCATION_X" FLOAT(126), "LOCATION_Y" FLOAT(126), "LOCATION_Z" FLOAT(126), "LOCATION_CELL" NUMBER(20,0), "LOCATION_SCENE" NUMBER(*,0), "NAME" VARCHAR2(512 BYTE), "COLOR" NUMBER(*,0), "ACTIVE" CHAR(1 BYTE) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."WAYPOINTS" TO PUBLIC; -------------------------------------------------------- -- DDL for Table WEAPON_OBJECTS -------------------------------------------------------- CREATE TABLE "SWG"."WEAPON_OBJECTS" ( "OBJECT_ID" NUMBER(20,0), "MIN_DAMAGE" NUMBER(*,0), "MAX_DAMAGE" NUMBER(*,0), "DAMAGE_TYPE" NUMBER(*,0), "ELEMENTAL_TYPE" NUMBER(*,0), "ELEMENTAL_VALUE" NUMBER(*,0), "ATTACK_SPEED" FLOAT(126), "WOUND_CHANCE" FLOAT(126), "ACCURACY" NUMBER(*,0), "ATTACK_COST" NUMBER(*,0), "DAMAGE_RADIUS" FLOAT(126), "MIN_RANGE" FLOAT(126), "MAX_RANGE" FLOAT(126) ) SEGMENT CREATION DEFERRED PCTFREE 10 PCTUSED 40 INITRANS 1 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; GRANT SELECT ON "SWG"."WEAPON_OBJECTS" TO PUBLIC; -------------------------------------------------------- -- DDL for View CHARACTER_VIEW -------------------------------------------------------- CREATE OR REPLACE FORCE VIEW "SWG"."CHARACTER_VIEW" ("STATION_ID", "CHARACTER_OBJECT", "OBJECT_TEMPLATE_ID", "SCENE_ID", "OBJECT_NAME", "CONTAINER", "X", "Y", "Z") AS select p.station_id, p.character_object, o.object_template_id, o.scene_id, o.object_name, (select object_id from objects where contained_by=0 start with object_id=character_object connect by prior contained_by=object_id) container, (select x from objects where contained_by=0 start with object_id=character_object connect by prior contained_by=object_id) x, (select y from objects where contained_by=0 start with object_id=character_object connect by prior contained_by=object_id) y, (select z from objects where contained_by=0 start with object_id=character_object connect by prior contained_by=object_id) z from players p, objects o where p.character_object = o.object_id and o.deleted = 0; -------------------------------------------------------- -- DDL for View OBJECTS_VIEW -------------------------------------------------------- CREATE OR REPLACE FORCE VIEW "SWG"."OBJECTS_VIEW" ("OBJECT_ID", "X", "Y", "Z", "QUATERNION_W", "QUATERNION_X", "QUATERNION_Y", "QUATERNION_Z", "NODE_X", "NODE_Y", "NODE_Z", "TYPE_ID", "SCENE_ID", "CONTROLLER_TYPE", "DELETED", "OBJECT_NAME", "VOLUME", "CONTAINED_BY", "SLOT_ARRANGEMENT", "PLAYER_CONTROLLED", "CACHE_VERSION", "LOAD_CONTENTS", "CASH_BALANCE", "BANK_BALANCE", "COMPLEXITY", "NAME_STRING_TABLE", "NAME_STRING_TEXT", "OBJECT_TEMPLATE_ID", "STATIC_ITEM_NAME", "STATIC_ITEM_VERSION", "CONVERSION_ID", "DELETED_DATE", "LOAD_WITH", "OBJVAR_0_NAME", "OBJVAR_0_TYPE", "OBJVAR_0_VALUE", "OBJVAR_1_NAME", "OBJVAR_1_TYPE", "OBJVAR_1_VALUE", "OBJVAR_2_NAME", "OBJVAR_2_TYPE", "OBJVAR_2_VALUE", "OBJVAR_3_NAME", "OBJVAR_3_TYPE", "OBJVAR_3_VALUE", "OBJVAR_4_NAME", "OBJVAR_4_TYPE", "OBJVAR_4_VALUE", "OBJVAR_5_NAME", "OBJVAR_5_TYPE", "OBJVAR_5_VALUE", "OBJVAR_6_NAME", "OBJVAR_6_TYPE", "OBJVAR_6_VALUE", "OBJVAR_7_NAME", "OBJVAR_7_TYPE", "OBJVAR_7_VALUE", "OBJVAR_8_NAME", "OBJVAR_8_TYPE", "OBJVAR_8_VALUE", "OBJVAR_9_NAME", "OBJVAR_9_TYPE", "OBJVAR_9_VALUE", "OBJVAR_10_NAME", "OBJVAR_10_TYPE", "OBJVAR_10_VALUE", "OBJVAR_11_NAME", "OBJVAR_11_TYPE", "OBJVAR_11_VALUE", "OBJVAR_12_NAME", "OBJVAR_12_TYPE", "OBJVAR_12_VALUE", "OBJVAR_13_NAME", "OBJVAR_13_TYPE", "OBJVAR_13_VALUE", "OBJVAR_14_NAME", "OBJVAR_14_TYPE", "OBJVAR_14_VALUE", "OBJVAR_15_NAME", "OBJVAR_15_TYPE", "OBJVAR_15_VALUE", "OBJVAR_16_NAME", "OBJVAR_16_TYPE", "OBJVAR_16_VALUE", "OBJVAR_17_NAME", "OBJVAR_17_TYPE", "OBJVAR_17_VALUE", "OBJVAR_18_NAME", "OBJVAR_18_TYPE", "OBJVAR_18_VALUE", "OBJVAR_19_NAME", "OBJVAR_19_TYPE", "OBJVAR_19_VALUE", "SCRIPT_LIST", "OBJECT_TEMPLATE") AS select o."OBJECT_ID",o."X",o."Y",o."Z",o."QUATERNION_W",o."QUATERNION_X",o."QUATERNION_Y",o."QUATERNION_Z",o."NODE_X",o."NODE_Y",o."NODE_Z",o."TYPE_ID",o."SCENE_ID",o."CONTROLLER_TYPE",o."DELETED",o."OBJECT_NAME",o."VOLUME",o."CONTAINED_BY",o."SLOT_ARRANGEMENT",o."PLAYER_CONTROLLED",o."CACHE_VERSION",o."LOAD_CONTENTS",o."CASH_BALANCE",o."BANK_BALANCE",o."COMPLEXITY",o."NAME_STRING_TABLE",o."NAME_STRING_TEXT",o."OBJECT_TEMPLATE_ID",o."STATIC_ITEM_NAME",o."STATIC_ITEM_VERSION",o."CONVERSION_ID",o."DELETED_DATE",o."LOAD_WITH",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",o."SCRIPT_LIST", t.name object_template from objects o, object_templates t where o.object_template_id = t.id; -------------------------------------------------------- -- DDL for View OBJECT_VARIABLES_VIEW -------------------------------------------------------- CREATE OR REPLACE FORCE VIEW "SWG"."OBJECT_VARIABLES_VIEW" ("OBJECT_ID", "NAME", "TYPE", "VALUE", "PACKED") AS select v.object_id, n.name, v.type, v.value, -1 packed from object_variables v, object_variable_names n where v.name_id = n.id and v.detached = 0 union all select o.object_id, o.objvar_0_name, o.objvar_0_type, o.objvar_0_value, 0 from objects o where o.objvar_0_type >= 0 union all select o.object_id, o.objvar_1_name, o.objvar_1_type, o.objvar_1_value, 1 from objects o where o.objvar_1_type >= 0 union all select o.object_id, o.objvar_2_name, o.objvar_2_type, o.objvar_2_value, 2 from objects o where o.objvar_2_type >= 0 union all select o.object_id, o.objvar_3_name, o.objvar_3_type, o.objvar_3_value, 3 from objects o where o.objvar_3_type >= 0 union all select o.object_id, o.objvar_4_name, o.objvar_4_type, o.objvar_4_value, 4 from objects o where o.objvar_4_type >= 0 union all select o.object_id, o.objvar_5_name, o.objvar_5_type, o.objvar_5_value, 5 from objects o where o.objvar_5_type >= 0 union all select o.object_id, o.objvar_6_name, o.objvar_6_type, o.objvar_6_value, 6 from objects o where o.objvar_6_type >= 0 union all select o.object_id, o.objvar_7_name, o.objvar_7_type, o.objvar_7_value, 7 from objects o where o.objvar_7_type >= 0 union all select o.object_id, o.objvar_8_name, o.objvar_8_type, o.objvar_8_value, 8 from objects o where o.objvar_8_type >= 0 union all select o.object_id, o.objvar_9_name, o.objvar_9_type, o.objvar_9_value, 9 from objects o where o.objvar_9_type >= 0 union all select o.object_id, o.objvar_10_name, o.objvar_10_type, o.objvar_10_value, 10 from objects o where o.objvar_10_type >= 0 union all select o.object_id, o.objvar_11_name, o.objvar_11_type, o.objvar_11_value, 11 from objects o where o.objvar_11_type >= 0 union all select o.object_id, o.objvar_12_name, o.objvar_12_type, o.objvar_12_value, 12 from objects o where o.objvar_12_type >= 0 union all select o.object_id, o.objvar_13_name, o.objvar_13_type, o.objvar_13_value, 13 from objects o where o.objvar_13_type >= 0 union all select o.object_id, o.objvar_14_name, o.objvar_14_type, o.objvar_14_value, 14 from objects o where o.objvar_14_type >= 0 union all select o.object_id, o.objvar_15_name, o.objvar_15_type, o.objvar_15_value, 15 from objects o where o.objvar_15_type >= 0 union all select o.object_id, o.objvar_16_name, o.objvar_16_type, o.objvar_16_value, 16 from objects o where o.objvar_16_type >= 0 union all select o.object_id, o.objvar_17_name, o.objvar_17_type, o.objvar_17_value, 17 from objects o where o.objvar_17_type >= 0 union all select o.object_id, o.objvar_18_name, o.objvar_18_type, o.objvar_18_value, 18 from objects o where o.objvar_18_type >= 0 union all select o.object_id, o.objvar_19_name, o.objvar_19_type, o.objvar_19_value, 19 from objects o where o.objvar_19_type >= 0; -------------------------------------------------------- -- DDL for Index PK_WAYPOINTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_WAYPOINTS" ON "SWG"."WAYPOINTS" ("WAYPOINT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_DELETE_REASONS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_DELETE_REASONS" ON "SWG"."DELETE_REASONS" ("REASON_CODE") PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_BIOGRAPHIES -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_BIOGRAPHIES" ON "SWG"."BIOGRAPHIES" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_PLAYER_QUEST_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_PLAYER_QUEST_OBJECTS" ON "SWG"."PLAYER_QUEST_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_WEAPON_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_WEAPON_OBJECTS" ON "SWG"."WEAPON_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_TANGIBLE_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_TANGIBLE_OBJECTS" ON "SWG"."TANGIBLE_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_MARKET_AUCTION_ATTRIBUTES -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_MARKET_AUCTION_ATTRIBUTES" ON "SWG"."MARKET_AUCTION_ATTRIBUTES" ("ITEM_ID", "ATTRIBUTE_NAME") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_ACCOUNT_REWARD_EVENTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_ACCOUNT_REWARD_EVENTS" ON "SWG"."ACCOUNT_REWARD_EVENTS" ("STATION_ID", "EVENT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_PROPERTY_LISTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_PROPERTY_LISTS" ON "SWG"."PROPERTY_LISTS" ("OBJECT_ID", "LIST_ID", "VALUE") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index OBJECT_IDX -------------------------------------------------------- CREATE INDEX "SWG"."OBJECT_IDX" ON "SWG"."MESSAGES" ("TARGET") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_MANF_SCHEMATIC_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_MANF_SCHEMATIC_OBJECTS" ON "SWG"."MANF_SCHEMATIC_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_CLOCK -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_CLOCK" ON "SWG"."CLOCK" ("LAST_SAVE_TIME") PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_OBJECT_VARIABLES -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_OBJECT_VARIABLES" ON "SWG"."OBJECT_VARIABLES" ("OBJECT_ID", "NAME_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_ACCOUNT_REWARD_ITEMS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_ACCOUNT_REWARD_ITEMS" ON "SWG"."ACCOUNT_REWARD_ITEMS" ("STATION_ID", "ITEM_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index OBJECT_VARIABLE_NAME_INDEX -------------------------------------------------------- CREATE INDEX "SWG"."OBJECT_VARIABLE_NAME_INDEX" ON "SWG"."OBJECT_VARIABLE_NAMES" ("NAME") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_RERAISE_LIMITS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_RERAISE_LIMITS" ON "SWG"."ERRORLOG_RERAISE_LIMITS" ("PACKAGE", "PROCEDURE") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_LOADBEACON_SERVER_MAP -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_LOADBEACON_SERVER_MAP" ON "SWG"."LOADBEACON_SERVER_MAP" ("OBJECT_TEMPLATE") PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index CONTAINER_IDX -------------------------------------------------------- CREATE INDEX "SWG"."CONTAINER_IDX" ON "SWG"."OBJECTS" ("CONTAINED_BY") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_FACTORY_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_FACTORY_OBJECTS" ON "SWG"."FACTORY_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_ACCOUNTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_ACCOUNTS" ON "SWG"."ACCOUNTS" ("STATION_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index ACCOUNT_MAP_INDEX1 -------------------------------------------------------- CREATE INDEX "SWG"."ACCOUNT_MAP_INDEX1" ON "SWG"."ACCOUNT_MAP" ("CHILD_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index AUCTION_LOCATION_NAME_IDX -------------------------------------------------------- CREATE INDEX "SWG"."AUCTION_LOCATION_NAME_IDX" ON "SWG"."AUCTION_LOCATIONS" ("LOCATION_NAME") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_PLAYER_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_PLAYER_OBJECTS" ON "SWG"."PLAYER_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index ACCOUNT_INFO_PK -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."ACCOUNT_INFO_PK" ON "SWG"."ACCOUNT_INFO" ("STATION_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_SWG_CHARACTER -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_SWG_CHARACTER" ON "SWG"."SWG_CHARACTERS" ("STATION_ID", "CLUSTER_ID", "CHARACTER_NAME") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_FREE_OBJECT_IDS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_FREE_OBJECT_IDS" ON "SWG"."FREE_OBJECT_IDS" ("START_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PLAYERS_STATION_ID_IDX -------------------------------------------------------- CREATE INDEX "SWG"."PLAYERS_STATION_ID_IDX" ON "SWG"."PLAYERS" ("STATION_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_MARKET_AUCTIONS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_MARKET_AUCTIONS" ON "SWG"."MARKET_AUCTIONS" ("ITEM_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_ERRORLOG -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_ERRORLOG" ON "SWG"."ERRORLOG" ("ERROR_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_MANUFACTURE_INST_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_MANUFACTURE_INST_OBJECTS" ON "SWG"."MANUFACTURE_INST_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_PLAYERS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_PLAYERS" ON "SWG"."PLAYERS" ("CHARACTER_OBJECT") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_LOCATION_LISTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_LOCATION_LISTS" ON "SWG"."LOCATION_LISTS" ("OBJECT_ID", "LIST_ID", "SEQUENCE_NUMBER") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_RESOURCE_TYPES -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_RESOURCE_TYPES" ON "SWG"."RESOURCE_TYPES" ("RESOURCE_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index OBJECT_TEMPLATES_NAME_IDX -------------------------------------------------------- CREATE INDEX "SWG"."OBJECT_TEMPLATES_NAME_IDX" ON "SWG"."OBJECT_TEMPLATES" ("NAME") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index CHUNK_IDX -------------------------------------------------------- CREATE INDEX "SWG"."CHUNK_IDX" ON "SWG"."OBJECTS" ("NODE_X", "NODE_Z", "SCENE_ID", "DELETED", "CONTAINED_BY", "PLAYER_CONTROLLED", "LOAD_CONTENTS") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index OWNER_ID_IDX -------------------------------------------------------- CREATE INDEX "SWG"."OWNER_ID_IDX" ON "SWG"."TANGIBLE_OBJECTS" ("OWNER_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_SCRUNCHER -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_SCRUNCHER" ON "SWG"."SCRUNCHER" ("OLD_OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_BATTLEFIELD_PARTICIPANTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_BATTLEFIELD_PARTICIPANTS" ON "SWG"."BATTLEFIELD_PARTICIPANTS" ("REGION_OBJECT_ID", "CHARACTER_OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_AUCTION_LOCATIONS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_AUCTION_LOCATIONS" ON "SWG"."AUCTION_LOCATIONS" ("LOCATION_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_BOUNTY_HUNTER_TARGETS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_BOUNTY_HUNTER_TARGETS" ON "SWG"."BOUNTY_HUNTER_TARGETS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_INTANGIBLE_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_INTANGIBLE_OBJECTS" ON "SWG"."INTANGIBLE_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_CLUSTER_LIST -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_CLUSTER_LIST" ON "SWG"."CLUSTER_LIST" ("ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PURGE_PHASES_PK -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PURGE_PHASES_PK" ON "SWG"."PURGE_PHASES" ("ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index REGION_NAME_IDX -------------------------------------------------------- CREATE INDEX "SWG"."REGION_NAME_IDX" ON "SWG"."BATTLEFIELD_MARKER_OBJECTS" ("REGION_NAME") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_EXPERIENCE_POINTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_EXPERIENCE_POINTS" ON "SWG"."EXPERIENCE_POINTS" ("OBJECT_ID", "EXPERIENCE_TYPE") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index ACCOUNT_EXTRACT_PK -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."ACCOUNT_EXTRACT_PK" ON "SWG"."ACCOUNT_EXTRACT" ("USER_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_OBJECTS" ON "SWG"."OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_MARKET_AUCTION_BIDS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_MARKET_AUCTION_BIDS" ON "SWG"."MARKET_AUCTION_BIDS" ("ITEM_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index DELETED_OBJECT_IDX -------------------------------------------------------- CREATE INDEX "SWG"."DELETED_OBJECT_IDX" ON "SWG"."OBJECTS" ("DELETED_DATE") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_MISSION_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_MISSION_OBJECTS" ON "SWG"."MISSION_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index TIMESTAMP_IDX -------------------------------------------------------- CREATE INDEX "SWG"."TIMESTAMP_IDX" ON "SWG"."ERRORLOG" ("TIMESTAMP") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_PUBLISH_PLAYER_FIXUP -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_PUBLISH_PLAYER_FIXUP" ON "SWG"."PUBLISH_PLAYER_FIXUP" ("PLAYER_OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_ARMOR -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_ARMOR" ON "SWG"."ARMOR" ("OBJECT_ID", "LAYER") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_SHIP_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_SHIP_OBJECTS" ON "SWG"."SHIP_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index WAYPOINT_LOAD_IDX -------------------------------------------------------- CREATE INDEX "SWG"."WAYPOINT_LOAD_IDX" ON "SWG"."WAYPOINTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index ACCOUNT_MAP_INDEX2 -------------------------------------------------------- CREATE INDEX "SWG"."ACCOUNT_MAP_INDEX2" ON "SWG"."ACCOUNT_MAP" ("CHILD_ID", "PARENT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_DEFAULT_CHARACTER_SLOTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_DEFAULT_CHARACTER_SLOTS" ON "SWG"."DEFAULT_CHARACTER_SLOTS" ("CHARACTER_TYPE_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_MANF_SCHEMATIC_ATTRIBUTES -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_MANF_SCHEMATIC_ATTRIBUTES" ON "SWG"."MANF_SCHEMATIC_ATTRIBUTES" ("OBJECT_ID", "ATTRIBUTE_TYPE") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_HARVESTER_INST_OBJECTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_HARVESTER_INST_OBJECTS" ON "SWG"."HARVESTER_INSTALLATION_OBJECTS" ("OBJECT_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_CHARACTER_PROFILE -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_CHARACTER_PROFILE" ON "SWG"."CHARACTER_PROFILE" ("CLUSTER_NAME", "CHARACTER_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index LOAD_WITH_IDX -------------------------------------------------------- CREATE INDEX "SWG"."LOAD_WITH_IDX" ON "SWG"."OBJECTS" ("LOAD_WITH") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_FEATURE_ID_TRANSACTIONS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_FEATURE_ID_TRANSACTIONS" ON "SWG"."FEATURE_ID_TRANSACTIONS" ("STATION_ID", "CLUSTER_ID", "CHARACTER_ID", "ITEM_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_CHARACTER_TYPES -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_CHARACTER_TYPES" ON "SWG"."CHARACTER_TYPES" ("ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index FK_ERRORLOG_VALUES_IDX -------------------------------------------------------- CREATE INDEX "SWG"."FK_ERRORLOG_VALUES_IDX" ON "SWG"."ERRORLOG_VALUES" ("ERROR_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_OBJECT_VARIABLE_NAMES -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_OBJECT_VARIABLE_NAMES" ON "SWG"."OBJECT_VARIABLE_NAMES" ("ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_OBJECT_TEMPLATES -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_OBJECT_TEMPLATES" ON "SWG"."OBJECT_TEMPLATES" ("ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PK_EXTRA_CHARACTER_SLOTS -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PK_EXTRA_CHARACTER_SLOTS" ON "SWG"."EXTRA_CHARACTER_SLOTS" ("STATION_ID", "CLUSTER_ID", "CHARACTER_TYPE_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index PURGE_ACCOUNTS_PK -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."PURGE_ACCOUNTS_PK" ON "SWG"."PURGE_ACCOUNTS" ("STATION_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index STATUSES_PK -------------------------------------------------------- CREATE UNIQUE INDEX "SWG"."STATUSES_PK" ON "SWG"."STATUSES" ("ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- DDL for Index MARKET_AUCTION_LOCATION_IDX -------------------------------------------------------- CREATE INDEX "SWG"."MARKET_AUCTION_LOCATION_IDX" ON "SWG"."MARKET_AUCTIONS" ("LOCATION_ID") PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ; -------------------------------------------------------- -- Constraints for Table PURGE_PHASES -------------------------------------------------------- ALTER TABLE "SWG"."PURGE_PHASES" ADD CONSTRAINT "PURGE_PHASES_PK" PRIMARY KEY ("ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table ERRORLOG_LEVEL -------------------------------------------------------- ALTER TABLE "SWG"."ERRORLOG_LEVEL" MODIFY ("LEVELID" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table HARVESTER_INSTALLATION_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."HARVESTER_INSTALLATION_OBJECTS" ADD CONSTRAINT "PK_HARVESTER_INST_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table SCRUNCHER -------------------------------------------------------- ALTER TABLE "SWG"."SCRUNCHER" ADD CONSTRAINT "PK_SCRUNCHER" PRIMARY KEY ("OLD_OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table ERRORLOG_LEVEL_DESC -------------------------------------------------------- ALTER TABLE "SWG"."ERRORLOG_LEVEL_DESC" MODIFY ("LEVELID" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG_LEVEL_DESC" MODIFY ("DESCRIP" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table VEHICLE_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."VEHICLE_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table PROPERTY_LISTS -------------------------------------------------------- ALTER TABLE "SWG"."PROPERTY_LISTS" ADD CONSTRAINT "PK_PROPERTY_LISTS" PRIMARY KEY ("OBJECT_ID", "LIST_ID", "VALUE") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table LOCATION_LISTS -------------------------------------------------------- ALTER TABLE "SWG"."LOCATION_LISTS" ADD CONSTRAINT "PK_LOCATION_LISTS" PRIMARY KEY ("OBJECT_ID", "LIST_ID", "SEQUENCE_NUMBER") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table WEAPON_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."WEAPON_OBJECTS" ADD CONSTRAINT "PK_WEAPON_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table OBJECT_VARIABLE_NAMES -------------------------------------------------------- ALTER TABLE "SWG"."OBJECT_VARIABLE_NAMES" ADD CONSTRAINT "PK_OBJECT_VARIABLE_NAMES" PRIMARY KEY ("ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table ERRORLOG -------------------------------------------------------- ALTER TABLE "SWG"."ERRORLOG" ADD CONSTRAINT "PK_ERRORLOG" PRIMARY KEY ("ERROR_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."ERRORLOG" MODIFY ("ERROR_ID" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG" MODIFY ("TIMESTAMP" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG" MODIFY ("ORA_ERRNO" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG" MODIFY ("ORA_ERRMSG" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG" MODIFY ("SCHEMA_NAME" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG" MODIFY ("MODULE_NAME" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table ACCOUNT_MAP -------------------------------------------------------- ALTER TABLE "SWG"."ACCOUNT_MAP" ADD CONSTRAINT "ACCOUNT_MAP_UK1" UNIQUE ("CHILD_ID", "PARENT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."ACCOUNT_MAP" ADD CONSTRAINT "ACCOUNT_MAP_UK2" UNIQUE ("CHILD_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."ACCOUNT_MAP" MODIFY ("PARENT_ID" NOT NULL ENABLE); ALTER TABLE "SWG"."ACCOUNT_MAP" MODIFY ("CHILD_ID" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table WAYPOINTS -------------------------------------------------------- ALTER TABLE "SWG"."WAYPOINTS" ADD CONSTRAINT "PK_WAYPOINTS" PRIMARY KEY ("WAYPOINT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table PLAYER_QUEST_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."PLAYER_QUEST_OBJECTS" ADD CONSTRAINT "PK_PLAYER_QUEST_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table LOADBEACON_SERVER_MAP -------------------------------------------------------- ALTER TABLE "SWG"."LOADBEACON_SERVER_MAP" ADD CONSTRAINT "PK_LOADBEACON_SERVER_MAP" PRIMARY KEY ("OBJECT_TEMPLATE") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table MESSAGES -------------------------------------------------------- ALTER TABLE "SWG"."MESSAGES" ADD PRIMARY KEY ("MESSAGE_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table ACCOUNT_REWARD_EVENTS -------------------------------------------------------- ALTER TABLE "SWG"."ACCOUNT_REWARD_EVENTS" ADD CONSTRAINT "PK_ACCOUNT_REWARD_EVENTS" PRIMARY KEY ("STATION_ID", "EVENT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table GUILD_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."GUILD_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table VERSION_NUMBER -------------------------------------------------------- ALTER TABLE "SWG"."VERSION_NUMBER" ADD PRIMARY KEY ("VERSION_NUMBER") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table CELL_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."CELL_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table PLANET_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."PLANET_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table INSTALLATION_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."INSTALLATION_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table ACCOUNT_INFO -------------------------------------------------------- ALTER TABLE "SWG"."ACCOUNT_INFO" ADD CONSTRAINT "ACCOUNT_INFO_PK" PRIMARY KEY ("STATION_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."ACCOUNT_INFO" MODIFY ("STATION_ID" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table CLOCK -------------------------------------------------------- ALTER TABLE "SWG"."CLOCK" ADD CONSTRAINT "PK_CLOCK" PRIMARY KEY ("LAST_SAVE_TIME") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table ACCOUNT_EXTRACT -------------------------------------------------------- ALTER TABLE "SWG"."ACCOUNT_EXTRACT" ADD CONSTRAINT "ACCOUNT_EXTRACT_PK" PRIMARY KEY ("USER_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table AUCTION_LOCATIONS -------------------------------------------------------- ALTER TABLE "SWG"."AUCTION_LOCATIONS" ADD CONSTRAINT "PK_AUCTION_LOCATIONS" PRIMARY KEY ("LOCATION_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."AUCTION_LOCATIONS" MODIFY ("EMPTY_DATE" NOT NULL ENABLE); ALTER TABLE "SWG"."AUCTION_LOCATIONS" MODIFY ("LAST_ACCESS_DATE" NOT NULL ENABLE); ALTER TABLE "SWG"."AUCTION_LOCATIONS" MODIFY ("INACTIVE_DATE" NOT NULL ENABLE); ALTER TABLE "SWG"."AUCTION_LOCATIONS" MODIFY ("STATUS" NOT NULL ENABLE); ALTER TABLE "SWG"."AUCTION_LOCATIONS" MODIFY ("ENTRANCE_CHARGE" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table CITY_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."CITY_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table TOKEN_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."TOKEN_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table TANGIBLE_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."TANGIBLE_OBJECTS" ADD CONSTRAINT "PK_TANGIBLE_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table ERRORLOG_RERAISE_LIMITS -------------------------------------------------------- ALTER TABLE "SWG"."ERRORLOG_RERAISE_LIMITS" ADD CONSTRAINT "PK_RERAISE_LIMITS" PRIMARY KEY ("PACKAGE", "PROCEDURE") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."ERRORLOG_RERAISE_LIMITS" MODIFY ("PACKAGE" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG_RERAISE_LIMITS" MODIFY ("PROCEDURE" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG_RERAISE_LIMITS" MODIFY ("ERRORLIMIT" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG_RERAISE_LIMITS" MODIFY ("ERRORCOUNT" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG_RERAISE_LIMITS" MODIFY ("UNLIMITED_FLAG" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table INTANGIBLE_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."INTANGIBLE_OBJECTS" ADD CONSTRAINT "PK_INTANGIBLE_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table STATIC_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."STATIC_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table EXTRA_CHARACTER_SLOTS -------------------------------------------------------- ALTER TABLE "SWG"."EXTRA_CHARACTER_SLOTS" ADD CONSTRAINT "PK_EXTRA_CHARACTER_SLOTS" PRIMARY KEY ("STATION_ID", "CLUSTER_ID", "CHARACTER_TYPE_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."EXTRA_CHARACTER_SLOTS" MODIFY ("STATION_ID" NOT NULL ENABLE); ALTER TABLE "SWG"."EXTRA_CHARACTER_SLOTS" MODIFY ("CLUSTER_ID" NOT NULL ENABLE); ALTER TABLE "SWG"."EXTRA_CHARACTER_SLOTS" MODIFY ("CHARACTER_TYPE_ID" NOT NULL ENABLE); ALTER TABLE "SWG"."EXTRA_CHARACTER_SLOTS" MODIFY ("NUM_EXTRA_SLOTS" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table ACCOUNT_REWARD_ITEMS -------------------------------------------------------- ALTER TABLE "SWG"."ACCOUNT_REWARD_ITEMS" ADD CONSTRAINT "PK_ACCOUNT_REWARD_ITEMS" PRIMARY KEY ("STATION_ID", "ITEM_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table BATTLEFIELD_PARTICIPANTS -------------------------------------------------------- ALTER TABLE "SWG"."BATTLEFIELD_PARTICIPANTS" ADD CONSTRAINT "PK_BATTLEFIELD_PARTICIPANTS" PRIMARY KEY ("REGION_OBJECT_ID", "CHARACTER_OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table FREE_OBJECT_IDS -------------------------------------------------------- ALTER TABLE "SWG"."FREE_OBJECT_IDS" ADD CONSTRAINT "PK_FREE_OBJECT_IDS" PRIMARY KEY ("START_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table EXPERIENCE_POINTS -------------------------------------------------------- ALTER TABLE "SWG"."EXPERIENCE_POINTS" ADD CONSTRAINT "PK_EXPERIENCE_POINTS" PRIMARY KEY ("OBJECT_ID", "EXPERIENCE_TYPE") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table SCRIPTS -------------------------------------------------------- ALTER TABLE "SWG"."SCRIPTS" ADD PRIMARY KEY ("OBJECT_ID", "SEQUENCE_NO") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table UNIVERSE_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."UNIVERSE_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table CHARACTER_TYPES -------------------------------------------------------- ALTER TABLE "SWG"."CHARACTER_TYPES" ADD CONSTRAINT "PK_CHARACTER_TYPES" PRIMARY KEY ("ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."CHARACTER_TYPES" MODIFY ("ID" NOT NULL ENABLE); ALTER TABLE "SWG"."CHARACTER_TYPES" MODIFY ("DESCRIPTION" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table SHIP_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."SHIP_OBJECTS" ADD CONSTRAINT "PK_SHIP_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table BIOGRAPHIES -------------------------------------------------------- ALTER TABLE "SWG"."BIOGRAPHIES" ADD CONSTRAINT "PK_BIOGRAPHIES" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table RESOURCE_CONTAINER_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."RESOURCE_CONTAINER_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table MANF_SCHEMATIC_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."MANF_SCHEMATIC_OBJECTS" ADD CONSTRAINT "PK_MANF_SCHEMATIC_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."OBJECTS" ADD CONSTRAINT "PK_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table ERRORLOG_VALUES -------------------------------------------------------- ALTER TABLE "SWG"."ERRORLOG_VALUES" MODIFY ("ERROR_ID" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG_VALUES" MODIFY ("ELEMENT_OWNER" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG_VALUES" MODIFY ("ELEMENT_NAME" NOT NULL ENABLE); ALTER TABLE "SWG"."ERRORLOG_VALUES" MODIFY ("ELEMENT_TYPE" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table RESOURCE_TYPES -------------------------------------------------------- ALTER TABLE "SWG"."RESOURCE_TYPES" ADD CONSTRAINT "PK_RESOURCE_TYPES" PRIMARY KEY ("RESOURCE_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table DEFAULT_CHARACTER_SLOTS -------------------------------------------------------- ALTER TABLE "SWG"."DEFAULT_CHARACTER_SLOTS" ADD CONSTRAINT "PK_DEFAULT_CHARACTER_SLOTS" PRIMARY KEY ("CHARACTER_TYPE_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."DEFAULT_CHARACTER_SLOTS" MODIFY ("CHARACTER_TYPE_ID" NOT NULL ENABLE); ALTER TABLE "SWG"."DEFAULT_CHARACTER_SLOTS" MODIFY ("NUM_SLOTS" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table BATTLEFIELD_MARKER_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."BATTLEFIELD_MARKER_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table BUILDING_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."BUILDING_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table AUTOMATED_QUERIES -------------------------------------------------------- ALTER TABLE "SWG"."AUTOMATED_QUERIES" MODIFY ("ID" NOT NULL ENABLE); ALTER TABLE "SWG"."AUTOMATED_QUERIES" MODIFY ("CREATETIME" NOT NULL ENABLE); ALTER TABLE "SWG"."AUTOMATED_QUERIES" MODIFY ("STATUS" NOT NULL ENABLE); ALTER TABLE "SWG"."AUTOMATED_QUERIES" MODIFY ("TYPE" NOT NULL ENABLE); ALTER TABLE "SWG"."AUTOMATED_QUERIES" MODIFY ("RUN_SERIAL" NOT NULL ENABLE); ALTER TABLE "SWG"."AUTOMATED_QUERIES" MODIFY ("QUERY_TEXT" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table FEATURE_ID_TRANSACTIONS -------------------------------------------------------- ALTER TABLE "SWG"."FEATURE_ID_TRANSACTIONS" ADD CONSTRAINT "PK_FEATURE_ID_TRANSACTIONS" PRIMARY KEY ("STATION_ID", "CLUSTER_ID", "CHARACTER_ID", "ITEM_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table PLAYER_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."PLAYER_OBJECTS" ADD CONSTRAINT "PK_PLAYER_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table DEFAULT_CHAR_LIMITS -------------------------------------------------------- ALTER TABLE "SWG"."DEFAULT_CHAR_LIMITS" MODIFY ("ACCOUNT_LIMIT" NOT NULL ENABLE); ALTER TABLE "SWG"."DEFAULT_CHAR_LIMITS" MODIFY ("CLUSTER_LIMIT" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table BOUNTY_HUNTER_TARGETS -------------------------------------------------------- ALTER TABLE "SWG"."BOUNTY_HUNTER_TARGETS" ADD CONSTRAINT "PK_BOUNTY_HUNTER_TARGETS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."BOUNTY_HUNTER_TARGETS" MODIFY ("OBJECT_ID" NOT NULL ENABLE); ALTER TABLE "SWG"."BOUNTY_HUNTER_TARGETS" MODIFY ("TARGET_ID" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table SWG_CHARACTERS -------------------------------------------------------- ALTER TABLE "SWG"."SWG_CHARACTERS" ADD CONSTRAINT "PK_SWG_CHARACTER" PRIMARY KEY ("STATION_ID", "CLUSTER_ID", "CHARACTER_NAME") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 COMPUTE STATISTICS NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."SWG_CHARACTERS" MODIFY ("STATION_ID" NOT NULL ENABLE); ALTER TABLE "SWG"."SWG_CHARACTERS" MODIFY ("CLUSTER_ID" NOT NULL ENABLE); ALTER TABLE "SWG"."SWG_CHARACTERS" MODIFY ("CHARACTER_NAME" NOT NULL ENABLE); ALTER TABLE "SWG"."SWG_CHARACTERS" MODIFY ("ENABLED" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table OBJECT_VARIABLES -------------------------------------------------------- ALTER TABLE "SWG"."OBJECT_VARIABLES" ADD CONSTRAINT "PK_OBJECT_VARIABLES" PRIMARY KEY ("OBJECT_ID", "NAME_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table PLAYERS -------------------------------------------------------- ALTER TABLE "SWG"."PLAYERS" ADD CONSTRAINT "PK_PLAYERS" PRIMARY KEY ("CHARACTER_OBJECT") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table OBJECT_TEMPLATES -------------------------------------------------------- ALTER TABLE "SWG"."OBJECT_TEMPLATES" ADD CONSTRAINT "PK_OBJECT_TEMPLATES" PRIMARY KEY ("ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table MARKET_AUCTION_BIDS -------------------------------------------------------- ALTER TABLE "SWG"."MARKET_AUCTION_BIDS" ADD CONSTRAINT "PK_MARKET_AUCTION_BIDS" PRIMARY KEY ("ITEM_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table MISSION_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."MISSION_OBJECTS" ADD CONSTRAINT "PK_MISSION_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table CLUSTER_LIST -------------------------------------------------------- ALTER TABLE "SWG"."CLUSTER_LIST" ADD CONSTRAINT "PK_CLUSTER_LIST" PRIMARY KEY ("ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."CLUSTER_LIST" MODIFY ("GROUP_ID" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table PUBLISH_PLAYER_FIXUP -------------------------------------------------------- ALTER TABLE "SWG"."PUBLISH_PLAYER_FIXUP" ADD CONSTRAINT "PK_PUBLISH_PLAYER_FIXUP" PRIMARY KEY ("PLAYER_OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table MARKET_AUCTIONS -------------------------------------------------------- ALTER TABLE "SWG"."MARKET_AUCTIONS" ADD CONSTRAINT "PK_MARKET_AUCTIONS" PRIMARY KEY ("ITEM_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."MARKET_AUCTIONS" MODIFY ("ITEM_SIZE" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table ACCOUNTS -------------------------------------------------------- ALTER TABLE "SWG"."ACCOUNTS" ADD CONSTRAINT "PK_ACCOUNTS" PRIMARY KEY ("STATION_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table CHARACTER_PROFILE -------------------------------------------------------- ALTER TABLE "SWG"."CHARACTER_PROFILE" ADD CONSTRAINT "PK_CHARACTER_PROFILE" PRIMARY KEY ("CLUSTER_NAME", "CHARACTER_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; ALTER TABLE "SWG"."CHARACTER_PROFILE" MODIFY ("CLUSTER_NAME" NOT NULL ENABLE); ALTER TABLE "SWG"."CHARACTER_PROFILE" MODIFY ("CHARACTER_ID" NOT NULL ENABLE); -------------------------------------------------------- -- Constraints for Table ARMOR -------------------------------------------------------- ALTER TABLE "SWG"."ARMOR" ADD CONSTRAINT "PK_ARMOR" PRIMARY KEY ("OBJECT_ID", "LAYER") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table MANUFACTURE_INST_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."MANUFACTURE_INST_OBJECTS" ADD CONSTRAINT "PK_MANUFACTURE_INST_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table PURGE_ACCOUNTS -------------------------------------------------------- ALTER TABLE "SWG"."PURGE_ACCOUNTS" ADD CONSTRAINT "PURGE_ACCOUNTS_PK" PRIMARY KEY ("STATION_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table STATUSES -------------------------------------------------------- ALTER TABLE "SWG"."STATUSES" ADD CONSTRAINT "STATUSES_PK" PRIMARY KEY ("ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table FACTORY_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."FACTORY_OBJECTS" ADD CONSTRAINT "PK_FACTORY_OBJECTS" PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table CREATURE_OBJECTS -------------------------------------------------------- ALTER TABLE "SWG"."CREATURE_OBJECTS" ADD PRIMARY KEY ("OBJECT_ID") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table DELETE_REASONS -------------------------------------------------------- ALTER TABLE "SWG"."DELETE_REASONS" ADD CONSTRAINT "PK_DELETE_REASONS" PRIMARY KEY ("REASON_CODE") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 STORAGE(INITIAL 65536 NEXT 1048576 MINEXTENTS 1 MAXEXTENTS 2147483645 PCTINCREASE 0 FREELISTS 1 FREELIST GROUPS 1 BUFFER_POOL DEFAULT FLASH_CACHE DEFAULT CELL_FLASH_CACHE DEFAULT) TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table MARKET_AUCTION_ATTRIBUTES -------------------------------------------------------- ALTER TABLE "SWG"."MARKET_AUCTION_ATTRIBUTES" ADD CONSTRAINT "PK_MARKET_AUCTION_ATTRIBUTES" PRIMARY KEY ("ITEM_ID", "ATTRIBUTE_NAME") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Constraints for Table MANF_SCHEMATIC_ATTRIBUTES -------------------------------------------------------- ALTER TABLE "SWG"."MANF_SCHEMATIC_ATTRIBUTES" ADD CONSTRAINT "PK_MANF_SCHEMATIC_ATTRIBUTES" PRIMARY KEY ("OBJECT_ID", "ATTRIBUTE_TYPE") USING INDEX PCTFREE 10 INITRANS 2 MAXTRANS 255 NOCOMPRESS LOGGING TABLESPACE "SWG" ENABLE; -------------------------------------------------------- -- Ref Constraints for Table ERRORLOG_VALUES -------------------------------------------------------- ALTER TABLE "SWG"."ERRORLOG_VALUES" ADD CONSTRAINT "FK_ERRORLOG" FOREIGN KEY ("ERROR_ID") REFERENCES "SWG"."ERRORLOG" ("ERROR_ID") ENABLE; -------------------------------------------------------- -- Ref Constraints for Table MARKET_AUCTIONS -------------------------------------------------------- ALTER TABLE "SWG"."MARKET_AUCTIONS" ADD CONSTRAINT "MARKET_AUCTIONS_LOCATION_ID_FK" FOREIGN KEY ("LOCATION_ID") REFERENCES "SWG"."AUCTION_LOCATIONS" ("LOCATION_ID") ON DELETE CASCADE ENABLE; -------------------------------------------------------- -- Ref Constraints for Table MARKET_AUCTION_ATTRIBUTES -------------------------------------------------------- ALTER TABLE "SWG"."MARKET_AUCTION_ATTRIBUTES" ADD CONSTRAINT "MARKET_ATTRIBUTES_ITEM_ID_FK" FOREIGN KEY ("ITEM_ID") REFERENCES "SWG"."MARKET_AUCTIONS" ("ITEM_ID") ON DELETE CASCADE ENABLE; -------------------------------------------------------- -- Ref Constraints for Table MARKET_AUCTION_BIDS -------------------------------------------------------- ALTER TABLE "SWG"."MARKET_AUCTION_BIDS" ADD CONSTRAINT "MARKET_AUCTION_BIDS_ITEM_ID_FK" FOREIGN KEY ("ITEM_ID") REFERENCES "SWG"."MARKET_AUCTIONS" ("ITEM_ID") ON DELETE CASCADE ENABLE; -------------------------------------------------------- -- DDL for Package ADMIN -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."ADMIN" as type refcursor is ref cursor; subtype objectid is number; procedure move_to_player (p_object_id objectid, p_target_player objectid); procedure move_to_player_bank (p_object_id objectid, p_target_player objectid); procedure move_to_player_datapad (p_object_id objectid, p_target_player objectid, p_max_depth number); procedure move_to_container (p_object_id objectid, p_target_container objectid, p_target_load_with objectid); procedure move_to_container_depth (p_object_id objectid, p_target_container objectid, p_target_load_with objectid, p_max_depth number); function get_inventory_for_player (p_player_id objectid) return objectid; function get_bank_for_player (p_player_id objectid) return objectid; function get_datapad_for_player (p_player_id objectid) return objectid; function get_player_for_player (p_player_id objectid) return objectid; function get_container_for_object(p_object_id objectid) return objectid; function get_object_template_id (p_object_id objectid) return number; function restore_house (p_house_id objectid) return number; function restore_character (p_player_id objectid, p_name out varchar2, p_account out number, p_template_id out number) return number; function undelete_item (p_item_id objectid) return number; function move_item_to_player (p_object_id objectid, p_target_player objectid) return number; procedure fix_load_with (p_topmost_object objectid, p_starting_loadwith objectid); procedure fix_load_with_depth (p_topmost_object objectid, p_starting_loadwith objectid, p_max_depth number); end; / GRANT EXECUTE ON "SWG"."ADMIN" TO PUBLIC; -------------------------------------------------------- -- DDL for Package BIOGRAPHY -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."BIOGRAPHY" as type refcursor is ref cursor; subtype objectid is number; procedure set_biography (p_owner objectid, p_biography varchar2); function get_biography (p_owner objectid) return refcursor; end; / GRANT EXECUTE ON "SWG"."BIOGRAPHY" TO PUBLIC; -------------------------------------------------------- -- DDL for Package BLOB_DATA_CONVERSION -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."BLOB_DATA_CONVERSION" as function blob_encodeoob (v_blob blob) return varchar2; function blob_hexdump (v_blob blob) return varchar2; function blob_encodeoob_old (v_blob blob) return varchar2; function blob_to_string (v_blob blob) return varchar2; function string_hexdump (v_string varchar2) return varchar2; procedure convert_blob_data(v_item_id number); end; / GRANT EXECUTE ON "SWG"."BLOB_DATA_CONVERSION" TO PUBLIC; -------------------------------------------------------- -- DDL for Package CM_LOADER -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."CM_LOADER" is TYPE swg_cur IS REF CURSOR; FUNCTION get_location_list return swg_cur; -- -- -- FUNCTION get_bid_list return swg_cur; -- -- -- FUNCTION get_auction_list return swg_cur; -- -- -- FUNCTION get_auction_attributes RETURN swg_cur; end cm_loader; / GRANT EXECUTE ON "SWG"."CM_LOADER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package CM_PERSISTER -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."CM_PERSISTER" as type refcursor is ref cursor; subtype objectid is number; procedure update_auction_locations (p_location_id VAOFSTRING, p_location_name VAOFSTRING, p_owner_id VAOFSTRING, p_sales_tax VAOFNUMBER, p_sales_tax_bank_id VAOFSTRING, p_empty_date VAOFNUMBER, p_last_access_date VAOFNUMBER, p_inactive_date VAOFNUMBER, p_status VAOFNUMBER, p_search_enabled VAOFSTRING, p_entrance_charge VAOFNUMBER, p_chunk_size number); procedure insert_auction_locations (p_location_id VAOFSTRING, p_location_name VAOFSTRING, p_owner_id VAOFSTRING, p_sales_tax VAOFNUMBER, p_sales_tax_bank_id VAOFSTRING, p_empty_date VAOFNUMBER, p_last_access_date VAOFNUMBER, p_inactive_date VAOFNUMBER, p_status VAOFNUMBER, p_search_enabled VAOFSTRING, p_entrance_charge VAOFNUMBER, p_chunk_size number); procedure delete_auction_locations (p_location_id VAOFSTRING, p_chunk_size number); procedure insert_market_auction_bids (p_item_id VAOFSTRING, p_bidder_id VAOFSTRING, p_bid VAOFNUMBER, p_max_proxy_bid VAOFNUMBER, p_chunk_size number); procedure update_market_auctions (p_item_id VAOFSTRING, p_owner_id VAOFSTRING, p_active VAOFNUMBER, p_chunk_size number); procedure insert_market_auctions (p_item_id VAOFSTRING, p_owner_id VAOFSTRING, p_creator_id VAOFSTRING, p_location_id VAOFSTRING, p_min_bid VAOFNUMBER, p_buy_now_price VAOFNUMBER, p_auction_timer VAOFNUMBER, p_oob VAOFLONGSTRING, p_user_description VAOFLONGSTRING, p_category VAOFNUMBER, p_item_name VAOFLONGSTRING, p_item_timer VAOFNUMBER, p_active VAOFNUMBER, p_item_size VAOFNUMBER, p_object_template_id VAOFNUMBER, p_chunk_size number); procedure delete_market_auctions (p_item_id VAOFSTRING, p_chunk_size number); procedure insert_auction_attributes (p_item_id VAOFSTRING, p_attribute_name VAOFSTRING, p_attribute_value VAOFSTRING, p_chunk_size number); end; / GRANT EXECUTE ON "SWG"."CM_PERSISTER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package CUSTSERV_PROCS -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."CUSTSERV_PROCS" as type cursortype is ref cursor; function get_characters_for_account ( station_id_in IN players.station_id%TYPE ) return cursortype; function get_deleted_items ( character_id_in IN objects.load_with%TYPE, start_page_in IN number ) return cursortype; function get_structures ( character_id_in IN objects.object_id%TYPE ) return cursortype; function get_player_id ( character_name_in IN players.uc_character_name%TYPE ) return cursortype; procedure move_player ( character_id_in IN objects.object_id%TYPE, x_in IN objects.x%TYPE, y_in IN objects.y%TYPE, z_in IN objects.z%TYPE, scene_in IN objects.scene_id%TYPE ); procedure undelete_item ( character_id_in IN objects.object_id%TYPE, object_in IN objects.object_id%TYPE, move_in IN number ); end custserv_procs; / GRANT EXECUTE ON "SWG"."CUSTSERV_PROCS" TO PUBLIC; -------------------------------------------------------- -- DDL for Package DATALOOKUP -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."DATALOOKUP" as type refcursor is ref cursor; function check_character_name(p_name varchar2) return number; function get_structures_for_purge(p_station_id number) return refcursor; function get_vendors_for_purge(p_station_id number) return refcursor; end; / GRANT EXECUTE ON "SWG"."DATALOOKUP" TO PUBLIC; -------------------------------------------------------- -- DDL for Package DATA_CLEANUP -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."DATA_CLEANUP" as type cursortype is ref cursor; subtype objectid is number; procedure run_fix_bad_cells; procedure run_fix_houses_w_bad_cells; function getObjectsWithExpMessages return cursortype; function getExperienceGrants(p_object_id objectid) return cursortype; procedure delete_experience(p_object_id objectid); procedure grant_experience(p_object_id objectid, p_experience_data varchar2); function object_variable_name_cleanup return number; function orphaned_object_cleanup return number; function market_attributes_cleanup return number; function messages_cleanup return number; function vendor_object_cleanup return number; function broken_object_cleanup return number; end; / GRANT EXECUTE ON "SWG"."DATA_CLEANUP" TO PUBLIC; -------------------------------------------------------- -- DDL for Package DB_ERROR_LOGGER -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."DB_ERROR_LOGGER" as procedure dblogerror( p_ora_errno number, p_notes varchar2 default NULL); procedure dblogerror_values( p_owner varchar2, p_name varchar2, p_type varchar2, p_value varchar2); procedure stack_search ( i_search in integer, o_schema out varchar2, o_module out varchar2 ); function getloglevel RETURN INTEGER; function reraisecheck ( p_package varchar2 default NULL, p_procedure varchar2 default NULL) return INTEGER; end; / GRANT EXECUTE ON "SWG"."DB_ERROR_LOGGER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package GOLD_OVERRIDE -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."GOLD_OVERRIDE" as type cursortype is ref cursor; function load_objvar_overrides(p_schema varchar2) return cursortype; end; / GRANT EXECUTE ON "SWG"."GOLD_OVERRIDE" TO PUBLIC; -------------------------------------------------------- -- DDL for Package LAZY_DELETER -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."LAZY_DELETER" as procedure purge_one_object(object_in in number); procedure purge_objects_bulk(p_object_id VAOFSTRING, p_chunk_size number, p_enable_db_logging number); end lazy_deleter; / GRANT EXECUTE ON "SWG"."LAZY_DELETER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package LOADER -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."LOADER" as type cursortype is ref cursor; function get_character_name_list return cursortype; procedure get_version_number(current_version in out number, min_version in out number); function get_characters (p_station_id number) return cursortype; function verify_containment_chain(p_start_with_object_id in number) return number; function fix_player_containment_chain(p_start_with_object_id in number) return number; procedure verify_character (p_station_id in number, p_character_id in number, p_gold_schema in varchar2, p_approved out varchar2, p_character_name out varchar2, p_scene_id out varchar2, p_container_id out number, p_x out number, p_y out number, p_z out number, p_containment_check out number); function locate_player (p_object_id number) return number; procedure locate_universe; procedure locate_contained_object (p_container_id number, p_object_id number); function locate_by_loadwith_batch (p_loadwiths vaofstring, p_chunk_size number) return number; procedure locate_contents (p_container_id number); function load_chunk_object_list (p_scene_id varchar, p_node_x float, p_node_z float) return number; procedure locate_structure (p_object_id number, p_x out number, p_z out number, p_scene_id out varchar2, p_found out number); function load_armor return cursortype; function load_battlefield_participants return cursortype; function load_property_lists return cursortype; function load_experience return cursortype; function load_location return cursortype; function load_manf_schematic_attributes return cursortype; function load_messages return cursortype; function load_object_variables return cursortype; function load_scripts return cursortype; function load_object return cursortype; function load_waypoint return cursortype; function load_player_object return cursortype; function load_resource_types return cursortype; function load_bounty_hunter_targets return cursortype; -- GENERATED PLSQL FOLLOWS -- generated by makeloader.pl function load_battlefield_marker_object return cursortype; function load_building_object return cursortype; function load_cell_object return cursortype; function load_city_object return cursortype; function load_creature_object return cursortype; function load_factory_object return cursortype; function load_guild_object return cursortype; function load_harvester_inst_object return cursortype; function load_installation_object return cursortype; function load_intangible_object return cursortype; function load_manf_schematic_object return cursortype; function load_manufacture_inst_object return cursortype; function load_mission_object return cursortype; function load_planet_object return cursortype; function load_resource_container_object return cursortype; function load_ship_object return cursortype; function load_static_object return cursortype; function load_tangible_object return cursortype; function load_token_object return cursortype; function load_universe_object return cursortype; function load_vehicle_object return cursortype; function load_weapon_object return cursortype; function load_player_quest_object return cursortype; end; / GRANT EXECUTE ON "SWG"."LOADER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package LOGIN -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."LOGIN" as type refcursor is ref cursor; subtype objectid is number; procedure register_new_cluster(p_cluster_name in varchar2, p_address in varchar2, p_cluster_id out number); function get_cluster_list(p_group in number) return refcursor; function get_avatar_list (p_station_id number, p_cluster_group number) return refcursor; function get_open_character_slots(p_station_id number, p_cluster_id number) return refcursor; function get_only_open_character_slots(p_station_id number, p_cluster_id number) return refcursor; function is_cluster_at_limit(p_cluster_id number) return number; function is_account_at_limit(p_station_id number) return number; procedure delete_character(p_cluster_id number, p_character_id number, p_station_id number); procedure rename_character(p_cluster_id number, p_character_id number, p_new_name varchar2); procedure create_character(p_cluster_id number, p_station_id number, p_character_name varchar2, p_character_id number, p_template_id number, p_character_type number); function restore_character(p_cluster_id number, p_station_id number, p_character_name varchar2, p_character_id number, p_template_id number, p_character_type number) return number; procedure set_character_slots(p_cluster_id number, p_station_id number, p_slot_type number, p_num_slots number); procedure set_character_type(p_cluster_id number, p_station_id number, p_character_id number, p_slot_type number); function has_extra_character_slot(p_station_id number, p_character_type number) return number; procedure toggle_disable_character(p_cluster_id number, p_character_id number, p_station_id number, p_enabled varchar2); function enable_disable_character(p_station_id number, p_character_id number, p_enabled varchar2) return number; function get_completed_tutorial(p_station_id number) return refcursor; procedure toggle_completed_tutorial(p_station_id number, p_completed varchar2); function get_consumed_reward_events(p_station_id number) return refcursor; function get_claimed_reward_items(p_station_id number) return refcursor; function consume_reward_event(p_station_id number, p_character_id number, p_cluster_id number, p_event_id varchar2) return number; function claim_reward_item(p_station_id number, p_character_id number, p_cluster_id number, p_item_id varchar2) return number; function get_feature_id_transactions(p_station_id in number, p_cluster_id in number, p_character_id in number) return refcursor; function update_feature_id_transaction(p_station_id in number, p_cluster_id in number, p_character_id in number, p_item_id in varchar2, p_count_adjustment in number) return number; end; / GRANT EXECUTE ON "SWG"."LOGIN" TO PUBLIC; -------------------------------------------------------- -- DDL for Package OBJECTIDMANAGER -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."OBJECTIDMANAGER" as type cursortype is ref cursor; procedure get_ids(how_many in out number, block_start_id out number, block_end_id out number); function get_contiguous_ids(min_count number) return number; function get_single_id return number; procedure rebuild_freelist; end; / GRANT EXECUTE ON "SWG"."OBJECTIDMANAGER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package OBJVAR_NAMES -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."OBJVAR_NAMES" as type cursortype is ref cursor; procedure add_name (p_id number, p_name varchar2); function get_name_list return cursortype; end; / GRANT EXECUTE ON "SWG"."OBJVAR_NAMES" TO PUBLIC; -------------------------------------------------------- -- DDL for Package PERSISTER -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."PERSISTER" as type refcursor is ref cursor; subtype objectid is number; procedure set_clock (p_time number); procedure add_player (p_station_id number, p_character_object objectid, p_character_name varchar2, p_normalized_name varchar2); function delete_character (p_station_id number, p_character_id number, p_delete_minutes number) return number; procedure update_object_variable_batch (p_object_id vaofstring, p_name_id vaofnumber, p_type vaofnumber, p_value vaofstring, p_chunk_size number); procedure add_object_variable_batch (p_object_id vaofstring, p_name_id vaofnumber, p_type vaofnumber, p_value vaofstring, p_chunk_size number); procedure remove_object_variable_batch (p_object_id vaofstring, p_name_id vaofnumber, p_chunk_size number); procedure clear_scripts (p_object_id objectid); procedure save_message (p_message_id number, p_object_id objectid, p_method varchar, p_data varchar, p_call_time number, p_guaranteed varchar, p_delivery_type int); procedure save_message_batch (p_message_id VAOFSTRING, p_object_id VAOFSTRING, p_method VAOFSTRING, p_data VAOFLONGSTRING, p_call_time VAOFNUMBER, p_guaranteed VAOFSTRING, p_delivery_type VAOFNUMBER, p_chunk_size number, p_enable_db_logging number ); procedure acknowledge_message (p_message_id number); procedure acknowledge_message_batch (p_message_id VAOFSTRING, p_chunk_size number, p_enable_db_logging number ); procedure save_object ( p_x VAOFNUMBER, p_y VAOFNUMBER, p_z VAOFNUMBER, p_quaternion_w VAOFNUMBER, p_quaternion_x VAOFNUMBER, p_quaternion_y VAOFNUMBER, p_quaternion_z VAOFNUMBER, p_node_x VAOFNUMBER, p_node_y VAOFNUMBER, p_node_z VAOFNUMBER, p_object_template_id VAOFNUMBER, p_type_id VAOFNUMBER, p_scene_id VAOFSTRING, p_controller_type VAOFNUMBER, p_deleted VAOFNUMBER, p_object_name VAOFSTRING, p_volume VAOFNUMBER, p_contained_by VAOFSTRING, p_slot_arrangement VAOFNUMBER, p_player_controlled VAOFSTRING, p_cache_version VAOFNUMBER, p_load_contents VAOFSTRING, p_cash_balance VAOFNUMBER, p_bank_balance VAOFNUMBER, p_complexity VAOFNUMBER, p_name_string_table VAOFSTRING, p_name_string_text VAOFSTRING, p_static_item_name VAOFSTRING, p_static_item_version VAOFNUMBER, p_conversion_id VAOFNUMBER, p_load_with VAOFSTRING, p_objvar_0_name VAOFSTRING,p_objvar_0_type VAOFNUMBER,p_objvar_0_value VAOFSTRING,p_objvar_1_name VAOFSTRING,p_objvar_1_type VAOFNUMBER,p_objvar_1_value VAOFSTRING,p_objvar_2_name VAOFSTRING,p_objvar_2_type VAOFNUMBER,p_objvar_2_value VAOFSTRING,p_objvar_3_name VAOFSTRING,p_objvar_3_type VAOFNUMBER,p_objvar_3_value VAOFSTRING,p_objvar_4_name VAOFSTRING,p_objvar_4_type VAOFNUMBER,p_objvar_4_value VAOFSTRING,p_objvar_5_name VAOFSTRING,p_objvar_5_type VAOFNUMBER,p_objvar_5_value VAOFSTRING,p_objvar_6_name VAOFSTRING,p_objvar_6_type VAOFNUMBER,p_objvar_6_value VAOFSTRING,p_objvar_7_name VAOFSTRING,p_objvar_7_type VAOFNUMBER,p_objvar_7_value VAOFSTRING,p_objvar_8_name VAOFSTRING,p_objvar_8_type VAOFNUMBER,p_objvar_8_value VAOFSTRING,p_objvar_9_name VAOFSTRING,p_objvar_9_type VAOFNUMBER,p_objvar_9_value VAOFSTRING, p_objvar_10_name VAOFSTRING,p_objvar_10_type VAOFNUMBER,p_objvar_10_value VAOFSTRING,p_objvar_11_name VAOFSTRING,p_objvar_11_type VAOFNUMBER,p_objvar_11_value VAOFSTRING,p_objvar_12_name VAOFSTRING,p_objvar_12_type VAOFNUMBER,p_objvar_12_value VAOFSTRING,p_objvar_13_name VAOFSTRING,p_objvar_13_type VAOFNUMBER,p_objvar_13_value VAOFSTRING,p_objvar_14_name VAOFSTRING,p_objvar_14_type VAOFNUMBER,p_objvar_14_value VAOFSTRING,p_objvar_15_name VAOFSTRING,p_objvar_15_type VAOFNUMBER,p_objvar_15_value VAOFSTRING,p_objvar_16_name VAOFSTRING,p_objvar_16_type VAOFNUMBER,p_objvar_16_value VAOFSTRING,p_objvar_17_name VAOFSTRING,p_objvar_17_type VAOFNUMBER,p_objvar_17_value VAOFSTRING,p_objvar_18_name VAOFSTRING,p_objvar_18_type VAOFNUMBER,p_objvar_18_value VAOFSTRING,p_objvar_19_name VAOFSTRING,p_objvar_19_type VAOFNUMBER,p_objvar_19_value VAOFSTRING, p_script_list VAOFLONGSTRING, p_object_id VAOFSTRING, p_chunk_size number); procedure add_object ( p_x VAOFNUMBER, p_y VAOFNUMBER, p_z VAOFNUMBER, p_quaternion_w VAOFNUMBER, p_quaternion_x VAOFNUMBER, p_quaternion_y VAOFNUMBER, p_quaternion_z VAOFNUMBER, p_node_x VAOFNUMBER, p_node_y VAOFNUMBER, p_node_z VAOFNUMBER, p_object_template_id VAOFNUMBER, p_type_id VAOFNUMBER, p_scene_id VAOFSTRING, p_controller_type VAOFNUMBER, p_deleted VAOFNUMBER, p_object_name VAOFSTRING, p_volume VAOFNUMBER, p_contained_by VAOFSTRING, p_slot_arrangement VAOFNUMBER, p_player_controlled VAOFSTRING, p_cache_version VAOFNUMBER, p_load_contents VAOFSTRING, p_cash_balance VAOFNUMBER, p_bank_balance VAOFNUMBER, p_complexity VAOFNUMBER, p_name_string_table VAOFSTRING, p_name_string_text VAOFSTRING, p_static_item_name VAOFSTRING, p_static_item_version VAOFNUMBER, p_conversion_id VAOFNUMBER, p_load_with VAOFSTRING, p_objvar_0_name VAOFSTRING,p_objvar_0_type VAOFNUMBER,p_objvar_0_value VAOFSTRING,p_objvar_1_name VAOFSTRING,p_objvar_1_type VAOFNUMBER,p_objvar_1_value VAOFSTRING,p_objvar_2_name VAOFSTRING,p_objvar_2_type VAOFNUMBER,p_objvar_2_value VAOFSTRING,p_objvar_3_name VAOFSTRING,p_objvar_3_type VAOFNUMBER,p_objvar_3_value VAOFSTRING,p_objvar_4_name VAOFSTRING,p_objvar_4_type VAOFNUMBER,p_objvar_4_value VAOFSTRING,p_objvar_5_name VAOFSTRING,p_objvar_5_type VAOFNUMBER,p_objvar_5_value VAOFSTRING,p_objvar_6_name VAOFSTRING,p_objvar_6_type VAOFNUMBER,p_objvar_6_value VAOFSTRING,p_objvar_7_name VAOFSTRING,p_objvar_7_type VAOFNUMBER,p_objvar_7_value VAOFSTRING,p_objvar_8_name VAOFSTRING,p_objvar_8_type VAOFNUMBER,p_objvar_8_value VAOFSTRING,p_objvar_9_name VAOFSTRING,p_objvar_9_type VAOFNUMBER,p_objvar_9_value VAOFSTRING, p_objvar_10_name VAOFSTRING,p_objvar_10_type VAOFNUMBER,p_objvar_10_value VAOFSTRING,p_objvar_11_name VAOFSTRING,p_objvar_11_type VAOFNUMBER,p_objvar_11_value VAOFSTRING,p_objvar_12_name VAOFSTRING,p_objvar_12_type VAOFNUMBER,p_objvar_12_value VAOFSTRING,p_objvar_13_name VAOFSTRING,p_objvar_13_type VAOFNUMBER,p_objvar_13_value VAOFSTRING,p_objvar_14_name VAOFSTRING,p_objvar_14_type VAOFNUMBER,p_objvar_14_value VAOFSTRING,p_objvar_15_name VAOFSTRING,p_objvar_15_type VAOFNUMBER,p_objvar_15_value VAOFSTRING,p_objvar_16_name VAOFSTRING,p_objvar_16_type VAOFNUMBER,p_objvar_16_value VAOFSTRING,p_objvar_17_name VAOFSTRING,p_objvar_17_type VAOFNUMBER,p_objvar_17_value VAOFSTRING,p_objvar_18_name VAOFSTRING,p_objvar_18_type VAOFNUMBER,p_objvar_18_value VAOFSTRING,p_objvar_19_name VAOFSTRING,p_objvar_19_type VAOFNUMBER,p_objvar_19_value VAOFSTRING, p_script_list VAOFLONGSTRING, p_object_id VAOFSTRING, p_chunk_size number); procedure remove_object ( p_object_id VAOFSTRING, p_chunk_size number); procedure save_manf_schem_attribute (p_action number, p_object_id objectid, p_attribute_type varchar2, p_value number); procedure update_property_list (p_object_id objectid, p_list_id number, p_operation number, p_value varchar2); procedure update_property_list_batch (p_object_id VAOFSTRING, p_list_id VAOFNUMBER, p_operation number, p_value VAOFSTRING, p_chunk_size number, p_enable_db_logging number ); procedure save_armor (p_object_template varchar2, p_effectiveness number, p_integrity number, p_special_protections varchar2, p_encumberance_0 number, p_encumberance_1 number, p_encumberance_2 number, p_encumberance_3 number, p_encumberance_4 number, p_encumberance_5 number, p_encumberance_6 number, p_encumberance_7 number, p_encumberance_8 number, p_layer number, p_object_id objectid); procedure add_armor (p_object_template varchar2, p_effectiveness number, p_integrity number, p_special_protections varchar2, p_encumberance_0 number, p_encumberance_1 number, p_encumberance_2 number, p_encumberance_3 number, p_encumberance_4 number, p_encumberance_5 number, p_encumberance_6 number, p_encumberance_7 number, p_encumberance_8 number, p_layer number, p_object_id objectid); procedure save_location ( p_object_id number, p_list_id number, p_sequence_number number, p_operation number, p_name varchar2, p_scene varchar2, p_x number, p_y number, p_z number, p_radius number); procedure save_experience ( p_points number, p_experience_type varchar2, p_object_id number ); procedure save_battlefield_participants ( p_faction_id number, p_character_object_id number, p_region_object_id number ); function rename_character( p_character_id objectid, p_new_name varchar2, p_normalized_name varchar2) return number; procedure save_waypoint(p_object_id objectid, p_waypoint_id objectid, p_appearance_name_crc number, p_location_x number, p_location_y number, p_location_z number, p_location_cell number, p_location_scene number, p_name varchar2, p_color number, p_active char, p_detached char); procedure save_player_obj( p_object_id VAOFSTRING, p_station_id VAOFNUMBER, p_house_id VAOFSTRING, p_account_num_lots VAOFNUMBER, p_account_is_outcast VAOFSTRING, p_account_cheater_level VAOFNUMBER, p_account_max_lots_adjustment VAOFNUMBER, p_personal_profile_id VAOFSTRING, p_character_profile_id VAOFSTRING, p_skill_title VAOFSTRING, p_born_date VAOFNUMBER, p_played_time VAOFNUMBER, p_force_regen_rate VAOFNUMBER, p_force_power VAOFNUMBER, p_max_force_power VAOFNUMBER, p_active_quests VAOFSTRING, p_completed_quests VAOFSTRING, p_current_quest VAOFNUMBER, p_quests VAOFLONGSTRING, p_role_icon_choice VAOFNUMBER, p_quests2 VAOFLONGSTRING, p_quests3 VAOFLONGSTRING, p_quests4 VAOFLONGSTRING, p_skill_template VAOFSTRING, p_working_skill VAOFSTRING, p_current_gcw_points VAOFNUMBER, p_current_gcw_rating VAOFNUMBER, p_current_pvp_kills VAOFNUMBER, p_lifetime_gcw_points VAOFNUMBER, p_max_gcw_imperial_rating VAOFNUMBER, p_max_gcw_rebel_rating VAOFNUMBER, p_lifetime_pvp_kills VAOFNUMBER, p_next_gcw_rating_calc_time VAOFNUMBER, p_collections VAOFLONGSTRING, p_show_backpack VAOFSTRING, p_show_helmet VAOFSTRING, p_collections2 VAOFLONGSTRING, p_chunk_size number ); procedure add_player_obj( p_object_id VAOFSTRING, p_station_id VAOFNUMBER, p_house_id VAOFSTRING, p_account_num_lots VAOFNUMBER, p_account_is_outcast VAOFSTRING, p_account_cheater_level VAOFNUMBER, p_account_max_lots_adjustment VAOFNUMBER, p_personal_profile_id VAOFSTRING, p_character_profile_id VAOFSTRING, p_skill_title VAOFSTRING, p_born_date VAOFNUMBER, p_played_time VAOFNUMBER, p_force_regen_rate VAOFNUMBER, p_force_power VAOFNUMBER, p_max_force_power VAOFNUMBER, p_active_quests VAOFSTRING, p_completed_quests VAOFSTRING, p_current_quest VAOFNUMBER, p_quests VAOFLONGSTRING, p_role_icon_choice VAOFNUMBER, p_quests2 VAOFLONGSTRING, p_quests3 VAOFLONGSTRING, p_quests4 VAOFLONGSTRING, p_skill_template VAOFSTRING, p_working_skill VAOFSTRING, p_current_gcw_points VAOFNUMBER, p_current_gcw_rating VAOFNUMBER, p_current_pvp_kills VAOFNUMBER, p_lifetime_gcw_points VAOFNUMBER, p_max_gcw_imperial_rating VAOFNUMBER, p_max_gcw_rebel_rating VAOFNUMBER, p_lifetime_pvp_kills VAOFNUMBER, p_next_gcw_rating_calc_time VAOFNUMBER, p_collections VAOFLONGSTRING, p_show_backpack VAOFSTRING, p_show_helmet VAOFSTRING, p_collections2 VAOFLONGSTRING, p_chunk_size number ); procedure remove_player_obj( p_object_id VAOFSTRING, p_chunk_size number ); procedure delete_demand_container( p_object_id VAOFSTRING, p_reason VAOFNUMBER, p_chunk_size number ); procedure save_resource_type(p_resource_id VAOFSTRING, p_resource_name VAOFSTRING, p_resource_class VAOFSTRING, p_attributes VAOFSTRING, p_fractal_seeds VAOFSTRING, p_depleted_timestamp VAOFNUMBER, p_chunk_size number); procedure save_bounty_hunter_target(p_object_id VAOFSTRING, p_target_id VAOFSTRING, p_chunk_size number); function subtract_money_from_object(p_object_id number, p_amount number) return char; -- GENERATED PLSQL FOLLOWS -- generated by makepersister.pl procedure save_battlefield_marker_obj(p_object_id VAOFSTRING, p_region_name VAOFSTRING, p_chunk_size number); procedure add_battlefield_marker_obj(p_object_id VAOFSTRING, p_region_name VAOFSTRING, p_chunk_size number); procedure remove_battlefield_marker_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_building_obj(p_object_id VAOFSTRING, p_maintenance_cost VAOFNUMBER, p_time_last_checked VAOFNUMBER, p_is_public VAOFSTRING, p_city_id VAOFNUMBER, p_chunk_size number); procedure add_building_obj(p_object_id VAOFSTRING, p_maintenance_cost VAOFNUMBER, p_time_last_checked VAOFNUMBER, p_is_public VAOFSTRING, p_city_id VAOFNUMBER, p_chunk_size number); procedure remove_building_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_cell_obj(p_object_id VAOFSTRING, p_cell_number VAOFNUMBER, p_is_public VAOFSTRING, p_chunk_size number); procedure add_cell_obj(p_object_id VAOFSTRING, p_cell_number VAOFNUMBER, p_is_public VAOFSTRING, p_chunk_size number); procedure remove_cell_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_city_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure add_city_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure remove_city_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_creature_obj(p_object_id VAOFSTRING, p_scale_factor VAOFNUMBER, p_states VAOFNUMBER, p_posture VAOFNUMBER, p_shock_wounds VAOFNUMBER, p_master_id VAOFSTRING, p_rank VAOFNUMBER, p_base_walk_speed VAOFNUMBER, p_base_run_speed VAOFNUMBER, p_attribute_0 VAOFNUMBER, p_attribute_1 VAOFNUMBER, p_attribute_2 VAOFNUMBER, p_attribute_3 VAOFNUMBER, p_attribute_4 VAOFNUMBER, p_attribute_5 VAOFNUMBER, p_attribute_6 VAOFNUMBER, p_attribute_7 VAOFNUMBER, p_attribute_8 VAOFNUMBER, p_attribute_9 VAOFNUMBER, p_attribute_10 VAOFNUMBER, p_attribute_11 VAOFNUMBER, p_attribute_12 VAOFNUMBER, p_attribute_13 VAOFNUMBER, p_attribute_14 VAOFNUMBER, p_attribute_15 VAOFNUMBER, p_attribute_16 VAOFNUMBER, p_attribute_17 VAOFNUMBER, p_attribute_18 VAOFNUMBER, p_attribute_19 VAOFNUMBER, p_attribute_20 VAOFNUMBER, p_attribute_21 VAOFNUMBER, p_attribute_22 VAOFNUMBER, p_attribute_23 VAOFNUMBER, p_attribute_24 VAOFNUMBER, p_attribute_25 VAOFNUMBER, p_attribute_26 VAOFNUMBER, p_persisted_buffs VAOFSTRING, p_ws_x VAOFNUMBER, p_ws_y VAOFNUMBER, p_ws_z VAOFNUMBER, p_chunk_size number); procedure add_creature_obj(p_object_id VAOFSTRING, p_scale_factor VAOFNUMBER, p_states VAOFNUMBER, p_posture VAOFNUMBER, p_shock_wounds VAOFNUMBER, p_master_id VAOFSTRING, p_rank VAOFNUMBER, p_base_walk_speed VAOFNUMBER, p_base_run_speed VAOFNUMBER, p_attribute_0 VAOFNUMBER, p_attribute_1 VAOFNUMBER, p_attribute_2 VAOFNUMBER, p_attribute_3 VAOFNUMBER, p_attribute_4 VAOFNUMBER, p_attribute_5 VAOFNUMBER, p_attribute_6 VAOFNUMBER, p_attribute_7 VAOFNUMBER, p_attribute_8 VAOFNUMBER, p_attribute_9 VAOFNUMBER, p_attribute_10 VAOFNUMBER, p_attribute_11 VAOFNUMBER, p_attribute_12 VAOFNUMBER, p_attribute_13 VAOFNUMBER, p_attribute_14 VAOFNUMBER, p_attribute_15 VAOFNUMBER, p_attribute_16 VAOFNUMBER, p_attribute_17 VAOFNUMBER, p_attribute_18 VAOFNUMBER, p_attribute_19 VAOFNUMBER, p_attribute_20 VAOFNUMBER, p_attribute_21 VAOFNUMBER, p_attribute_22 VAOFNUMBER, p_attribute_23 VAOFNUMBER, p_attribute_24 VAOFNUMBER, p_attribute_25 VAOFNUMBER, p_attribute_26 VAOFNUMBER, p_persisted_buffs VAOFSTRING, p_ws_x VAOFNUMBER, p_ws_y VAOFNUMBER, p_ws_z VAOFNUMBER, p_chunk_size number); procedure remove_creature_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_factory_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure add_factory_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure remove_factory_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_guild_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure add_guild_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure remove_guild_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_harvester_inst_obj(p_object_id VAOFSTRING, p_installed_efficiency VAOFNUMBER, p_max_extraction_rate VAOFNUMBER, p_current_extraction_rate VAOFNUMBER, p_max_hopper_amount VAOFNUMBER, p_hopper_resource VAOFSTRING, p_hopper_amount VAOFNUMBER, p_resource_type VAOFSTRING, p_chunk_size number); procedure add_harvester_inst_obj(p_object_id VAOFSTRING, p_installed_efficiency VAOFNUMBER, p_max_extraction_rate VAOFNUMBER, p_current_extraction_rate VAOFNUMBER, p_max_hopper_amount VAOFNUMBER, p_hopper_resource VAOFSTRING, p_hopper_amount VAOFNUMBER, p_resource_type VAOFSTRING, p_chunk_size number); procedure remove_harvester_inst_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_installation_obj(p_object_id VAOFSTRING, p_installation_type VAOFNUMBER, p_activated VAOFSTRING, p_tick_count VAOFNUMBER, p_activate_start_time VAOFNUMBER, p_power VAOFNUMBER, p_power_rate VAOFNUMBER, p_chunk_size number); procedure add_installation_obj(p_object_id VAOFSTRING, p_installation_type VAOFNUMBER, p_activated VAOFSTRING, p_tick_count VAOFNUMBER, p_activate_start_time VAOFNUMBER, p_power VAOFNUMBER, p_power_rate VAOFNUMBER, p_chunk_size number); procedure remove_installation_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_intangible_obj(p_object_id VAOFSTRING, p_count VAOFNUMBER, p_chunk_size number); procedure add_intangible_obj(p_object_id VAOFSTRING, p_count VAOFNUMBER, p_chunk_size number); procedure remove_intangible_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_manf_schematic_obj(p_object_id VAOFSTRING, p_creator_id VAOFSTRING, p_creator_name VAOFSTRING, p_items_per_container VAOFNUMBER, p_manufacture_time VAOFNUMBER, p_draft_schematic VAOFNUMBER, p_chunk_size number); procedure add_manf_schematic_obj(p_object_id VAOFSTRING, p_creator_id VAOFSTRING, p_creator_name VAOFSTRING, p_items_per_container VAOFNUMBER, p_manufacture_time VAOFNUMBER, p_draft_schematic VAOFNUMBER, p_chunk_size number); procedure remove_manf_schematic_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_manufacture_inst_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure add_manufacture_inst_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure remove_manufacture_inst_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_mission_obj(p_object_id VAOFSTRING, p_difficulty VAOFNUMBER, p_end_x VAOFNUMBER, p_end_y VAOFNUMBER, p_end_z VAOFNUMBER, p_end_cell VAOFSTRING, p_end_scene VAOFNUMBER, p_mission_creator VAOFSTRING, p_reward VAOFNUMBER, p_root_script_name VAOFSTRING, p_start_x VAOFNUMBER, p_start_y VAOFNUMBER, p_start_z VAOFNUMBER, p_start_cell VAOFSTRING, p_start_scene VAOFNUMBER, p_description_table VAOFSTRING, p_description_text VAOFSTRING, p_title_table VAOFSTRING, p_title_text VAOFSTRING, p_mission_holder_id VAOFSTRING, p_status VAOFNUMBER, p_mission_type VAOFNUMBER, p_target_appearance VAOFNUMBER, p_target_name VAOFSTRING, p_chunk_size number); procedure add_mission_obj(p_object_id VAOFSTRING, p_difficulty VAOFNUMBER, p_end_x VAOFNUMBER, p_end_y VAOFNUMBER, p_end_z VAOFNUMBER, p_end_cell VAOFSTRING, p_end_scene VAOFNUMBER, p_mission_creator VAOFSTRING, p_reward VAOFNUMBER, p_root_script_name VAOFSTRING, p_start_x VAOFNUMBER, p_start_y VAOFNUMBER, p_start_z VAOFNUMBER, p_start_cell VAOFSTRING, p_start_scene VAOFNUMBER, p_description_table VAOFSTRING, p_description_text VAOFSTRING, p_title_table VAOFSTRING, p_title_text VAOFSTRING, p_mission_holder_id VAOFSTRING, p_status VAOFNUMBER, p_mission_type VAOFNUMBER, p_target_appearance VAOFNUMBER, p_target_name VAOFSTRING, p_chunk_size number); procedure remove_mission_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_planet_obj(p_object_id VAOFSTRING, p_planet_name VAOFSTRING, p_chunk_size number); procedure add_planet_obj(p_object_id VAOFSTRING, p_planet_name VAOFSTRING, p_chunk_size number); procedure remove_planet_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_resource_container_obj(p_object_id VAOFSTRING, p_resource_type VAOFSTRING, p_quantity VAOFNUMBER, p_source VAOFSTRING, p_chunk_size number); procedure add_resource_container_obj(p_object_id VAOFSTRING, p_resource_type VAOFSTRING, p_quantity VAOFNUMBER, p_source VAOFSTRING, p_chunk_size number); procedure remove_resource_container_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_ship_obj(p_object_id VAOFSTRING, p_slide_dampener VAOFNUMBER, p_current_chassis_hit_points VAOFNUMBER, p_maximum_chassis_hit_points VAOFNUMBER, p_chassis_type VAOFNUMBER, p_cmp_armor_hp_maximum VAOFSTRING, p_cmp_armor_hp_current VAOFSTRING, p_cmp_efficiency_general VAOFSTRING, p_cmp_efficiency_eng VAOFSTRING, p_cmp_eng_maintenance VAOFSTRING, p_cmp_mass VAOFSTRING, p_cmp_crc VAOFSTRING, p_cmp_hp_current VAOFSTRING, p_cmp_hp_maximum VAOFSTRING, p_cmp_flags VAOFSTRING, p_cmp_names VAOFLONGSTRING, p_weapon_damage_maximum VAOFSTRING, p_weapon_damage_minimum VAOFSTRING, p_weapon_effectiveness_shields VAOFSTRING, p_weapon_effectiveness_armor VAOFSTRING, p_weapon_eng_per_shot VAOFSTRING, p_weapon_refire_rate VAOFSTRING, p_weapon_ammo_current VAOFSTRING, p_weapon_ammo_maximum VAOFSTRING, p_weapon_ammo_type VAOFSTRING, p_shield_hp_front_maximum VAOFNUMBER, p_shield_hp_back_maximum VAOFNUMBER, p_shield_recharge_rate VAOFNUMBER, p_capacitor_eng_maximum VAOFNUMBER, p_capacitor_eng_recharge_rate VAOFNUMBER, p_engine_acc_rate VAOFNUMBER, p_engine_deceleration_rate VAOFNUMBER, p_engine_pitch_acc_rate VAOFNUMBER, p_engine_yaw_acc_rate VAOFNUMBER, p_engine_roll_acc_rate VAOFNUMBER, p_engine_pitch_rate_maximum VAOFNUMBER, p_engine_yaw_rate_maximum VAOFNUMBER, p_engine_roll_rate_maximum VAOFNUMBER, p_engine_speed_maximum VAOFNUMBER, p_reactor_eng_generation_rate VAOFNUMBER, p_booster_eng_maximum VAOFNUMBER, p_booster_eng_recharge_rate VAOFNUMBER, p_booster_eng_consumption_rate VAOFNUMBER, p_booster_acc VAOFNUMBER, p_booster_speed_maximum VAOFNUMBER, p_droid_if_cmd_speed VAOFNUMBER, p_installed_dcd VAOFSTRING, p_chassis_cmp_mass_maximum VAOFNUMBER, p_cmp_creators VAOFSTRING, p_cargo_hold_contents_maximum VAOFNUMBER, p_cargo_hold_contents_current VAOFNUMBER, p_cargo_hold_contents VAOFSTRING, p_chunk_size number); procedure add_ship_obj(p_object_id VAOFSTRING, p_slide_dampener VAOFNUMBER, p_current_chassis_hit_points VAOFNUMBER, p_maximum_chassis_hit_points VAOFNUMBER, p_chassis_type VAOFNUMBER, p_cmp_armor_hp_maximum VAOFSTRING, p_cmp_armor_hp_current VAOFSTRING, p_cmp_efficiency_general VAOFSTRING, p_cmp_efficiency_eng VAOFSTRING, p_cmp_eng_maintenance VAOFSTRING, p_cmp_mass VAOFSTRING, p_cmp_crc VAOFSTRING, p_cmp_hp_current VAOFSTRING, p_cmp_hp_maximum VAOFSTRING, p_cmp_flags VAOFSTRING, p_cmp_names VAOFLONGSTRING, p_weapon_damage_maximum VAOFSTRING, p_weapon_damage_minimum VAOFSTRING, p_weapon_effectiveness_shields VAOFSTRING, p_weapon_effectiveness_armor VAOFSTRING, p_weapon_eng_per_shot VAOFSTRING, p_weapon_refire_rate VAOFSTRING, p_weapon_ammo_current VAOFSTRING, p_weapon_ammo_maximum VAOFSTRING, p_weapon_ammo_type VAOFSTRING, p_shield_hp_front_maximum VAOFNUMBER, p_shield_hp_back_maximum VAOFNUMBER, p_shield_recharge_rate VAOFNUMBER, p_capacitor_eng_maximum VAOFNUMBER, p_capacitor_eng_recharge_rate VAOFNUMBER, p_engine_acc_rate VAOFNUMBER, p_engine_deceleration_rate VAOFNUMBER, p_engine_pitch_acc_rate VAOFNUMBER, p_engine_yaw_acc_rate VAOFNUMBER, p_engine_roll_acc_rate VAOFNUMBER, p_engine_pitch_rate_maximum VAOFNUMBER, p_engine_yaw_rate_maximum VAOFNUMBER, p_engine_roll_rate_maximum VAOFNUMBER, p_engine_speed_maximum VAOFNUMBER, p_reactor_eng_generation_rate VAOFNUMBER, p_booster_eng_maximum VAOFNUMBER, p_booster_eng_recharge_rate VAOFNUMBER, p_booster_eng_consumption_rate VAOFNUMBER, p_booster_acc VAOFNUMBER, p_booster_speed_maximum VAOFNUMBER, p_droid_if_cmd_speed VAOFNUMBER, p_installed_dcd VAOFSTRING, p_chassis_cmp_mass_maximum VAOFNUMBER, p_cmp_creators VAOFSTRING, p_cargo_hold_contents_maximum VAOFNUMBER, p_cargo_hold_contents_current VAOFNUMBER, p_cargo_hold_contents VAOFSTRING, p_chunk_size number); procedure remove_ship_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_static_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure add_static_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure remove_static_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_tangible_obj(p_object_id VAOFSTRING, p_max_hit_points VAOFNUMBER, p_owner_id VAOFSTRING, p_visible VAOFSTRING, p_appearance_data VAOFSTRING, p_interest_radius VAOFNUMBER, p_pvp_type VAOFNUMBER, p_pvp_faction VAOFNUMBER, p_damage_taken VAOFNUMBER, p_custom_appearance VAOFSTRING, p_count VAOFNUMBER, p_condition VAOFNUMBER, p_creator_id VAOFSTRING, p_source_draft_schematic VAOFNUMBER, p_chunk_size number); procedure add_tangible_obj(p_object_id VAOFSTRING, p_max_hit_points VAOFNUMBER, p_owner_id VAOFSTRING, p_visible VAOFSTRING, p_appearance_data VAOFSTRING, p_interest_radius VAOFNUMBER, p_pvp_type VAOFNUMBER, p_pvp_faction VAOFNUMBER, p_damage_taken VAOFNUMBER, p_custom_appearance VAOFSTRING, p_count VAOFNUMBER, p_condition VAOFNUMBER, p_creator_id VAOFSTRING, p_source_draft_schematic VAOFNUMBER, p_chunk_size number); procedure remove_tangible_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_token_obj(p_object_id VAOFSTRING, p_reference VAOFSTRING, p_target_server_template_name VAOFSTRING, p_target_shared_template_name VAOFSTRING, p_waypoint VAOFSTRING, p_chunk_size number); procedure add_token_obj(p_object_id VAOFSTRING, p_reference VAOFSTRING, p_target_server_template_name VAOFSTRING, p_target_shared_template_name VAOFSTRING, p_waypoint VAOFSTRING, p_chunk_size number); procedure remove_token_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_universe_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure add_universe_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure remove_universe_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_vehicle_obj(p_object_id VAOFSTRING, p_bogus VAOFNUMBER, p_chunk_size number); procedure add_vehicle_obj(p_object_id VAOFSTRING, p_bogus VAOFNUMBER, p_chunk_size number); procedure remove_vehicle_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_weapon_obj(p_object_id VAOFSTRING, p_min_damage VAOFNUMBER, p_max_damage VAOFNUMBER, p_damage_type VAOFNUMBER, p_elemental_type VAOFNUMBER, p_elemental_value VAOFNUMBER, p_attack_speed VAOFNUMBER, p_wound_chance VAOFNUMBER, p_accuracy VAOFNUMBER, p_attack_cost VAOFNUMBER, p_damage_radius VAOFNUMBER, p_min_range VAOFNUMBER, p_max_range VAOFNUMBER, p_chunk_size number); procedure add_weapon_obj(p_object_id VAOFSTRING, p_min_damage VAOFNUMBER, p_max_damage VAOFNUMBER, p_damage_type VAOFNUMBER, p_elemental_type VAOFNUMBER, p_elemental_value VAOFNUMBER, p_attack_speed VAOFNUMBER, p_wound_chance VAOFNUMBER, p_accuracy VAOFNUMBER, p_attack_cost VAOFNUMBER, p_damage_radius VAOFNUMBER, p_min_range VAOFNUMBER, p_max_range VAOFNUMBER, p_chunk_size number); procedure remove_weapon_obj(p_object_id VAOFSTRING, p_chunk_size number); procedure save_player_quest_obj( p_object_id VAOFSTRING, p_title VAOFSTRING, p_description VAOFSTRING, p_creator VAOFSTRING, p_total_tasks VAOFNUMBER, p_difficulty VAOFNUMBER, p_task_title1 VAOFSTRING, p_task_description1 VAOFSTRING, p_task_title2 VAOFSTRING, p_task_description2 VAOFSTRING, p_task_title3 VAOFSTRING, p_task_description3 VAOFSTRING, p_task_title4 VAOFSTRING, p_task_description4 VAOFSTRING, p_task_title5 VAOFSTRING, p_task_description5 VAOFSTRING, p_task_title6 VAOFSTRING, p_task_description6 VAOFSTRING, p_task_title7 VAOFSTRING, p_task_description7 VAOFSTRING, p_task_title8 VAOFSTRING, p_task_description8 VAOFSTRING, p_task_title9 VAOFSTRING, p_task_description9 VAOFSTRING, p_task_title10 VAOFSTRING, p_task_description10 VAOFSTRING, p_task_title11 VAOFSTRING, p_task_description11 VAOFSTRING, p_task_title12 VAOFSTRING, p_task_description12 VAOFSTRING, p_chunk_size number ); procedure add_player_quest_obj( p_object_id VAOFSTRING, p_title VAOFSTRING, p_description VAOFSTRING, p_creator VAOFSTRING, p_total_tasks VAOFNUMBER, p_difficulty VAOFNUMBER, p_task_title1 VAOFSTRING, p_task_description1 VAOFSTRING, p_task_title2 VAOFSTRING, p_task_description2 VAOFSTRING, p_task_title3 VAOFSTRING, p_task_description3 VAOFSTRING, p_task_title4 VAOFSTRING, p_task_description4 VAOFSTRING, p_task_title5 VAOFSTRING, p_task_description5 VAOFSTRING, p_task_title6 VAOFSTRING, p_task_description6 VAOFSTRING, p_task_title7 VAOFSTRING, p_task_description7 VAOFSTRING, p_task_title8 VAOFSTRING, p_task_description8 VAOFSTRING, p_task_title9 VAOFSTRING, p_task_description9 VAOFSTRING, p_task_title10 VAOFSTRING, p_task_description10 VAOFSTRING, p_task_title11 VAOFSTRING, p_task_description11 VAOFSTRING, p_task_title12 VAOFSTRING, p_task_description12 VAOFSTRING, p_chunk_size number ); procedure remove_player_quest_obj( p_object_id VAOFSTRING, p_chunk_size number); end; / GRANT EXECUTE ON "SWG"."PERSISTER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package PURGE_METHODS -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."PURGE_METHODS" is -- Author : AVALDES -- Created : 19-Jun-03 4:59:49 PM FUNCTION Purge_objects (date_in in objects.deleted_date%type) RETURN NUMBER; -- -- -- FUNCTION time_purge (date_in IN VARCHAR2) RETURN INTEGER; end purge_methods; / GRANT EXECUTE ON "SWG"."PURGE_METHODS" TO PUBLIC; -------------------------------------------------------- -- DDL for Package PURGE_METHODS2 -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."PURGE_METHODS2" is -- Author : AVALDES -- Created : 19-Jun-03 4:59:49 PM -- Modified: 07/23/2003, DDM - changed to use bulk deleting and variable chunk size -- Notes: 07/29/2003 testing completed against a copy of SDKSWG04 on sdk-devdb -- Tested running purge_objects from SYSDATE back on ~675k parent objects -- -test run 1: ~40 min to delete all child and parent obj in batches of 10K -- -test run 2: ~2.5 hours to do the same with rman running -- Tested run purge_consumables from SYSDATE back on ~300k parent objects -- -test run 1: ~50 min to delete all child and parent obj in batches of 10K -- -test run 2: crashed with snap to old error - restarted and it finished the rest -- -- Progress can be gauged by looking in the Logger table. There is a logging system being -- used to track deletion progress. It can be disabled pro commentting out references to -- the 'LOGGING' package. This package is not necessary for the purge program to run but is -- nice to be able to monitor progress. If used, the logger table should be cleared periodically. -- number of records to delete in a bulk chunk chunk_size CONSTANT PLS_INTEGER := 10000; -- collections for bulk deleting, # elements must be the same as chunk_size TYPE Obj_list_t IS VARRAY(10000) of objects.object_id%type; -- for child table with object ids TYPE Obj_rowid_list_t IS VARRAY(10000) of ROWID; -- for parent table (rowid lookups are faster) FUNCTION Purge_objects (date_in in objects.deleted_date%type) RETURN PLS_INTEGER; PROCEDURE Purge_objects_work (Obj_list IN Obj_list_t); -- -- -- FUNCTION time_purge (date_in IN VARCHAR2) RETURN PLS_INTEGER; FUNCTION Purge_consumables (start_date_in in objects.deleted_date%type, end_date_in in objects.deleted_date%type) RETURN PLS_INTEGER; PROCEDURE Purge_consumables_work (Obj_list IN Obj_list_t); -- -- -- FUNCTION time_purge_consumables (start_date_in in objects.deleted_date%type, end_date_in in objects.deleted_date%type) RETURN PLS_INTEGER; end purge_methods2; / GRANT EXECUTE ON "SWG"."PURGE_METHODS2" TO PUBLIC; -------------------------------------------------------- -- DDL for Package PURGE_PROCESS -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."PURGE_PROCESS" as type refcursor is ref cursor; subtype objectid is number; procedure update_account_list (source_table varchar2); function get_account_for_purge(p_purge_phase number, p_min_age number) return number; procedure set_purge_status(p_station_id number, p_new_phase number); end; / GRANT EXECUTE ON "SWG"."PURGE_PROCESS" TO PUBLIC; -------------------------------------------------------- -- DDL for Package SERVERCLOCK -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."SERVERCLOCK" as function get_last_save_time return number; end; / GRANT EXECUTE ON "SWG"."SERVERCLOCK" TO PUBLIC; -------------------------------------------------------- -- DDL for Package STATION_PLAYERS -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."STATION_PLAYERS" as type refcursor is ref cursor; subtype networkid is number(20); procedure update_character(p_clusterName in varchar2 ,p_characterId in networkid, p_characterName in varchar2, p_objectName in varchar2, p_x in number, p_y in number, p_z in number, p_sceneId in varchar2, p_cash_balance in number, p_bank_balance in number, p_objectTemplateName in varchar2, p_stationId in networkid, p_containedBy in networkid, p_createTime in number, p_playedTime in number , p_numLots in number); end; / GRANT EXECUTE ON "SWG"."STATION_PLAYERS" TO PUBLIC; -------------------------------------------------------- -- DDL for Package UNDELETE_METHODS -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."UNDELETE_METHODS" is -- Author : AVALDES -- Created : 17-Jun-03 3:35:25 PM FUNCTION restore_object (object_id_in IN objects.object_id%TYPE) RETURN NUMBER; end undelete_methods; / GRANT EXECUTE ON "SWG"."UNDELETE_METHODS" TO PUBLIC; -------------------------------------------------------- -- DDL for Package UTIL -------------------------------------------------------- CREATE OR REPLACE PACKAGE "SWG"."UTIL" as type refcursor is ref cursor; subtype networkid is number(20); function unix_time_2_oracle_date_PDT(p_unix_time in number) return date; function unix_time_2_oracle_date_PST(p_unix_time in number) return date; function unix_time_2_oracle_date_CDT(p_unix_time in number) return date; function unix_time_2_oracle_date_CST(p_unix_time in number) return date; function unix_time_2_oracle_date(p_unix_time in number, p_timezone_offset in number) return date; function unix_to_oracle_date(p_unix_time in number, p_timezone_offset in number) return date; end; / GRANT EXECUTE ON "SWG"."UTIL" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body ADMIN -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."ADMIN" as procedure move_to_player (p_object_id objectid, p_target_player objectid) as l_target_inventory objectid; begin l_target_inventory := admin.get_inventory_for_player(p_target_player); if (l_target_inventory <> 0) then move_to_container(p_object_id, l_target_inventory, p_target_player); end if; end; procedure move_to_player_bank (p_object_id objectid, p_target_player objectid) as l_target_bank objectid; begin l_target_bank := admin.get_bank_for_player(p_target_player); if (l_target_bank <> 0) then move_to_container(p_object_id, l_target_bank, l_target_bank); end if; end; procedure move_to_player_datapad (p_object_id objectid, p_target_player objectid, p_max_depth number) as l_target_datapad objectid; begin l_target_datapad := admin.get_datapad_for_player(p_target_player); if (l_target_datapad <> 0) then move_to_container_depth(p_object_id, l_target_datapad, p_target_player, p_max_depth); end if; exception when others then NULL; end; procedure move_to_container_depth (p_object_id objectid, p_target_container objectid, p_target_load_with objectid, p_max_depth number) as begin update objects set contained_by = p_target_container, load_with = p_target_load_with, x = 0, y = 0, z = 0, node_x = 0, node_z = 0 where object_id = p_object_id; delete market_auctions where item_id = p_object_id; fix_load_with_depth(p_object_id, p_target_load_with, p_max_depth); end; procedure move_to_container (p_object_id objectid, p_target_container objectid, p_target_load_with objectid) as begin move_to_container_depth(p_object_id, p_target_container, p_target_load_with, -1); end; function get_inventory_for_player (p_player_id objectid) return objectid as result objectid; begin select object_id into result from objects where contained_by = p_player_id and object_template_id = 2007924155 and deleted = 0; return result; exception when others then return 0; end; function get_bank_for_player (p_player_id objectid) return objectid as result objectid; begin select object_id into result from objects where contained_by = p_player_id and object_template_id = -172438875 and deleted = 0; return result; exception when others then return 0; end; function get_datapad_for_player (p_player_id objectid) return objectid as result objectid; begin select object_id into result from objects where contained_by = p_player_id and object_template_id = -1783727815 and deleted = 0; return result; exception when others then return 0; end; function get_player_for_player (p_player_id objectid) return objectid as result objectid; begin select object_id into result from objects where contained_by = p_player_id and object_template_id = -640104330 and deleted = 0; return result; exception when others then return 0; end; function get_container_for_object (p_object_id objectid) return objectid as result objectid; begin select contained_by into result from objects where object_id = p_object_id; return result; exception when others then return 0; end; function get_object_template_id (p_object_id objectid) return number as result number; begin select object_template_id into result from objects where object_id = p_object_id; return result; exception when others then return 0; end; function restore_house (p_house_id objectid) return number -- 1=success, 2=no such object or not deleted -- result codes: -- 1 = success -- 2 = not a character or not deleted -- 3 = database error as cells number; begin select count(*) into cells from objects where contained_by = p_house_id; if (cells = 0) then return 3; end if; update objects set deleted = 0, deleted_date = NULL, bank_balance = bank_balance + 1000 -- roughly 1 day maintenance where object_id = p_house_id and deleted <> 0; if (sql%rowcount <> 1) then return 2; end if; update tangible_objects set damage_taken = 0 where object_id = p_house_id; update objects set deleted = 0, deleted_date = NULL where object_id in ( select object_id from objects start with object_id = p_house_id connect by prior object_id = contained_by) and deleted in (select reason_code from delete_reasons where tag in ('House', 'ContainerDeleted')); fix_load_with (p_house_id, p_house_id); return 1; exception when others then return 3; end; function restore_character (p_player_id objectid, p_name out varchar2, p_account out number, p_template_id out number) return number -- result codes: -- 1 = success -- 2 = not a character or not deleted -- 3 = database error as character_reason number; begin select reason_code into character_reason from delete_reasons where tag='CharacterDeleted'; begin select station_id, object_name, object_template_id into p_account, p_name, p_template_id from players p, objects o where p.character_object = p_player_id and o.object_id = p_player_id and o.object_id = p.character_object; exception when no_data_found then return 2; end; update objects set deleted = 0, deleted_date = NULL where object_id in ( select object_id from objects start with object_id = p_player_id connect by prior object_id = contained_by and deleted = character_reason); return 1; exception when others then return 3; end; function undelete_item (p_item_id objectid) return number -- 1=success, 2=no such object or not deleted -- result codes: -- 1 = success -- 2 = not exist -- 3 = database error -- 4 = success, items needs to be loaded as cnt number; l_type_id number; l_name varchar2(4000); l_account number; l_template_id number; l_load_with number; l_result number; begin select count(*) into cnt from objects where object_id = p_item_id; if (cnt = 0) then return 2; end if; select count(*) into cnt from objects where object_id = p_item_id and (deleted <> 0 or deleted_date is not null); if (cnt = 0) then return 1; end if; select type_id into l_type_id from objects where object_id = p_item_id; select count(*) into cnt from players where character_object = p_item_id; if (l_type_id = 1112885583) then -- 0x4255494f = 'BUIO', building objects l_result := restore_house(p_item_id); if (l_result = 1) then return 4; else return l_result; end if; else if (l_type_id = 1129465167 and cnt > 0) then -- 0x4352454f = 'CREO', creture objects and has a row in players table -- This is a player return restore_character(p_item_id, l_name, l_account, l_template_id); else update objects set deleted = 0, deleted_date = null where object_id in ( select object_id from objects start with object_id = p_item_id connect by prior object_id = contained_by); -- find out the top most load_with begin select count(*) into cnt from objects where (contained_by = 0 or load_contents = 'N') and rownum = 1 start with object_id = p_item_id connect by object_id = prior contained_by; if (cnt > 0) then select object_id into l_load_with from objects where (contained_by = 0 or load_contents = 'N') and rownum = 1 start with object_id = p_item_id connect by object_id = prior contained_by; fix_load_with(p_item_id, l_load_with); else fix_load_with(p_item_id, p_item_id); end if; exception when others then return 2; end; end if; end if; select count(*) into cnt from objects where object_id = p_item_id and type_id in (1112885583, -- BuildingObject 1212763727, -- HarvesterInstallationObject 1229869903, -- InstallationObject 1296649807); -- ManufactureInstallationObject if (cnt = 0) then return 1; else return 4; end if; exception when others then return 2; end; /** * move an object to a player parameters: p_object_id item object id to move p_target_player target player id result: 1: success 2: cannot find player's inventory 3: object not found 4: unknown database error 5: object is a player if you add an item type here, also add it to ConsoleCommandParserObject::performParsing() 6: failed because object_template_id is 2007924155 (object/tangible/inventory/character_inventory.iff) 7: failed because object_template_id is -1436615854 (object/tangible/mission_bag/mission_bag.iff) 8: failed because object_template_id is -1783727815 (object/tangible/datapad/character_datapad.iff) 9: failed because object_template_id is -172438875 (object/tangible/bank/character_bank.iff) 10: failed because object_template_id is 2131722719 (object/weapon/melee/unarmed/unarmed_default_player.iff) 11: failed because object_template_id is -640104330 (object/player/player.iff) 12: failed because object_template_id is -1388112109 (object/cell/cell.iff) 13: failed because object_template_id is -1324492681 (object/tangible/inventory/vendor_inventory.iff) 14: failed because direct parent is a datapad object. 15: failed because object is a building object (has an entry in the building_objects table) 16: failed because object is an installation object (has an entry in the installation_objects table) 17: failed because object is a ship object (has an entry in the ship_objects table) */ function move_item_to_player (p_object_id objectid, p_target_player objectid) return number as l_target_inventory objectid; l_object_player objectid; l_object_template_id number; l_container_id number; l_container_template_id number; l_row_count number; begin l_object_template_id := admin.get_object_template_id(p_object_id); l_object_player := admin.get_player_for_player(p_object_id); l_target_inventory := admin.get_inventory_for_player(p_target_player); if (l_object_player <> 0) then return 5; end if; if (l_object_template_id = 2007924155) then return 6; end if; if (l_object_template_id = -1436615854) then return 7; end if; if (l_object_template_id = -1783727815) then return 8; end if; if (l_object_template_id = -172438875) then return 9; end if; if (l_object_template_id = 2131722719) then return 10; end if; if (l_object_template_id = -640104330) then return 11; end if; if (l_object_template_id = -1388112109) then return 12; end if; if (l_object_template_id = -1324492681) then return 13; end if; -- check to see if our parent is a datapad. l_container_id := admin.get_container_for_object(p_object_id); l_container_template_id := get_object_template_id(l_container_id); if (l_container_template_id = -1783727815) then return 14; end if; -- check to see if we are a building select count(*) into l_row_count from building_objects where object_id = p_object_id; if (l_row_count > 0) then return 15; end if; select count(*) into l_row_count from installation_objects where object_id = p_object_id; if (l_row_count > 0) then return 16; end if; -- check to see if we're trying to move a ship object. select count(*) into l_row_count from ship_objects where object_id = p_object_id; if (l_row_count >0) then return 17; end if; if (l_target_inventory <> 0) then update objects set contained_by = l_target_inventory, load_with = p_target_player, x = 0, y = 0, z = 0, node_x = 0, node_z = 0 where object_id = p_object_id; if (sql%rowcount = 0) then return 3; end if; delete market_auctions where item_id = p_object_id; fix_load_with(p_object_id, p_target_player); else return 2; end if; return 1; exception when others then return 4; end; /** * Fix the load_with values for anything contained by the specified object with a max depth or unlimited if max depth = -1 */ procedure fix_load_with_depth (p_topmost_object objectid, p_starting_loadwith objectid, p_max_depth number) as oid_stack vaofnumber := vaofnumber(p_topmost_object); -- objects to look at load_with_stack vaofnumber := vaofnumber(p_starting_loadwith); -- the load_with to inherit from these objects stack_top number := 1; parent_object number := 0; parent_load_with number := 0; current_load_with number := 0; inherit_load_with number := 0; stack_top_depth vaofnumber := vaofnumber(0); -- the depth of the object at the top of the stack current_depth number := 0; topmost_load_contents char(1) := ''; begin -- Depth-first search update objects set load_with = p_starting_loadwith where object_id = p_topmost_object; -- if the first object being fixed is demand loaded, set child object load_with values to this object if (sql%rowcount = 1) then select load_contents into topmost_load_contents from objects where object_id = p_topmost_object; if (topmost_load_contents = 'N') then load_with_stack(stack_top) := p_topmost_object; end if; end if; while (stack_top <> 0) loop parent_object := oid_stack(stack_top); parent_load_with := load_with_stack(stack_top); current_depth := stack_top_depth(stack_top) + 1; stack_top := stack_top - 1; oid_stack.trim; load_with_stack.trim; -- keep adding children unless at max depth if (p_max_depth = -1 or current_depth <= p_max_depth) then for x in (select object_id, player_controlled, deleted, load_contents from objects where contained_by = parent_object) loop -- look at child objects and set their load_withs current_load_with := parent_load_with; inherit_load_with := parent_load_with; -- load_with defaults to the parent's load with, except in special cases: if (x.deleted <> 0 ) then -- deleted, load with is 0 for this and all its contents current_load_with := NULL; inherit_load_with := NULL; else if (x.player_controlled = 'Y') then -- player. load with = self for this and contents, even if container is deleted current_load_with := x.object_id; inherit_load_with := x.object_id; else if (x.load_contents = 'N' and current_load_with IS NOT NULL) then -- demand-load container. contents get this as their load_with except if a parent is deleted inherit_load_with := x.object_id; end if; end if; end if; stack_top := stack_top + 1; oid_stack.extend; load_with_stack.extend; stack_top_depth.extend; oid_stack(stack_top) := x.object_id; load_with_stack(stack_top) := inherit_load_with; stack_top_depth(stack_top) := current_depth; update objects set load_with = current_load_with where object_id = x.object_id; end loop; end if; end loop; end; /** * Fix the load_with values for anything contained by the specified object */ procedure fix_load_with (p_topmost_object objectid, p_starting_loadwith objectid) as begin fix_load_with_depth(p_topmost_object, p_starting_loadwith, -1); end; end; / GRANT EXECUTE ON "SWG"."ADMIN" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body BIOGRAPHY -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."BIOGRAPHY" as procedure set_biography (p_owner objectid, p_biography varchar2) as m_enable_db_logging INTEGER := 0; begin if (p_biography is not null) then update biographies set biography = p_biography where object_id = p_owner; if (sql%rowcount = 0) then insert into biographies (object_id, biography) values (p_owner, p_biography); end if; else delete biographies where object_id = p_owner; end if; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'biography.set_biography : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('biography.set_biography','objectid','number',p_owner); db_error_logger.dblogerror_values('biography.set_biography','biography','varchar2',p_biography); END IF; END IF; IF (db_error_logger.reraisecheck('biography','set_biography') = 1) THEN -- RAISE; NULL; END IF; end; end; function get_biography (p_owner objectid) return refcursor as rc refcursor; begin open rc for select biography from biographies where object_id = p_owner; return rc; end; end; / GRANT EXECUTE ON "SWG"."BIOGRAPHY" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body BLOB_DATA_CONVERSION -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."BLOB_DATA_CONVERSION" as function blob_encodeoob_old(v_blob blob) return varchar2 is retstring varchar2(4000); b binary_integer; begin if utl_raw.length(v_blob) > 1 then for i in 1..trunc(utl_raw.length(v_blob)/2) loop begin b := utl_raw.CAST_TO_BINARY_INTEGER(utl_raw.SUBSTR(v_blob,(i*2)-1,2),2); if b = 0 then retstring := retstring || chr(15712191) || chr(1); elsif b = 65535 then retstring := retstring || chr(15712191) || chr(2); elsif b = 27 then retstring := retstring || chr(15712191) || chr(3); elsif b > 2048 then -- 3-byte encoding retstring := retstring || chr(((224 + mod(trunc(b / 4096), 16)) * 65536) + ((128 + mod(trunc(b / 64),64)) * 256) + (128 + mod(b, 64))); elsif b > 127 then -- 2-byte encoding retstring := retstring || chr((mod(trunc(b / 64),32) + 192) * 256 + (mod(b, 64) + 128)); else retstring := retstring || chr(b); end if; exception when others then retstring := retstring || ' '; end; exit when length(retstring) >= 3996; end loop; retstring := retstring || chr(15712191) || chr(4); return retstring; else return null; end if; exception when others then return null; end; function blob_encodeoob(v_blob blob) return varchar2 is retstring varchar2(4000); b binary_integer; buf1 raw(10); buf2 raw(10); buf raw(10); begin if utl_raw.length(v_blob) > 1 then for i in 1..trunc(utl_raw.length(v_blob)/2) loop b := utl_raw.CAST_TO_BINARY_INTEGER(utl_raw.SUBSTR(v_blob,(i*2)-1,2),2); retstring := retstring || substr(to_char(b, '0XXXX'), 3); exit when length(retstring) >= 3998; end loop; return retstring; else return null; end if; exception when others then return null; end; function blob_hexdump(v_blob blob) return varchar2 is retstring varchar2(4000); b binary_integer; begin if utl_raw.length(v_blob) > 0 then for i in 1..utl_raw.length(v_blob) loop b := utl_raw.CAST_TO_BINARY_INTEGER(utl_raw.SUBSTR(v_blob,i,1)); retstring := retstring || to_char(b, '0x'); end loop; return retstring; else return null; end if; exception when others then return null; end; function blob_to_string(v_blob blob) return varchar2 is retstring varchar2(2000); c char; b binary_integer; begin if utl_raw.length(v_blob) > 0 then -- assumes blob is in UTF16 for i in 1..trunc(utl_raw.length(v_blob)/2) loop b := utl_raw.CAST_TO_BINARY_INTEGER(utl_raw.SUBSTR(v_blob,(i*2)-1,2),2); if b > 2048 then -- 3-byte encoding retstring := retstring || chr(((224 + mod(trunc(b / 4096), 16)) * 65536) + ((128 + mod(trunc(b / 64),64)) * 256) + (128 + mod(b, 64))); elsif b > 127 then -- 2-byte encoding retstring := retstring || chr((mod(trunc(b / 64),32) + 192) * 256 + (mod(b, 64) + 128)); else retstring := retstring || chr(b); end if; end loop; return retstring; else return null; end if; exception when others then return null; end; function string_hexdump(v_string varchar2) return varchar2 is begin return blob_hexdump(utl_raw.CAST_TO_RAW(v_string)); exception when others then return null; end; procedure convert_blob_data(v_item_id number) is i number; begin -- update market_auctions -- set new_oob = blob_encodeoob(oob), -- new_item_name = blob_to_string(item_name), -- new_user_desc = blob_to_string(user_description) -- where item_id = v_item_id; -- commit; i := 0; end; end; / GRANT EXECUTE ON "SWG"."BLOB_DATA_CONVERSION" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body CM_LOADER -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."CM_LOADER" is FUNCTION get_location_list RETURN swg_cur IS swg_cur_out swg_cur; BEGIN -- Clean up orphaned vendors DELETE from Auction_Locations WHERE owner_id > 0 and not exists (select 1 from objects where object_id = location_id and deleted = 0); commit; OPEN swg_cur_out FOR SELECT location_id, owner_id, location_name, sales_tax, sales_tax_bank_id, empty_date, last_access_date, inactive_date, status, search_enabled, entrance_charge FROM auction_locations; RETURN swg_cur_out; END get_location_list; FUNCTION get_bid_list RETURN swg_cur IS swg_cur_out swg_cur; BEGIN OPEN swg_cur_out FOR SELECT item_id, bidder_id, bid, max_proxy_bid FROM market_auction_bids; RETURN swg_cur_out; END get_bid_list; FUNCTION get_auction_list RETURN swg_cur IS swg_cur_out swg_cur; BEGIN OPEN swg_cur_out FOR SELECT creator_id, min_bid, auction_timer, buy_now_price, user_description, oob, location_id, item_id, category, item_timer, item_name, owner_id, active, item_size, object_template_id FROM market_auctions WHERE object_template_id IS NOT NULL; RETURN swg_cur_out; END get_auction_list; FUNCTION get_auction_attributes RETURN swg_cur IS swg_cur_out swg_cur; BEGIN OPEN swg_cur_out FOR SELECT item_id, attribute_name, attribute_value FROM market_auction_attributes; RETURN swg_cur_out; END get_auction_attributes; end cm_loader; / GRANT EXECUTE ON "SWG"."CM_LOADER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body CM_PERSISTER -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."CM_PERSISTER" as procedure update_auction_locations (p_location_id VAOFSTRING, p_location_name VAOFSTRING, p_owner_id VAOFSTRING, p_sales_tax VAOFNUMBER, p_sales_tax_bank_id VAOFSTRING, p_empty_date VAOFNUMBER, p_last_access_date VAOFNUMBER, p_inactive_date VAOFNUMBER, p_status VAOFNUMBER, p_search_enabled VAOFSTRING, p_entrance_charge VAOFNUMBER, p_chunk_size number) as errors number; dml_errors EXCEPTION; PRAGMA exception_init(dml_errors, -24381); begin FORALL i in 1..p_chunk_size save exceptions UPDATE AUCTION_LOCATIONS Set location_name = DECODE(p_location_name(i), NULL, location_name, p_location_name(i)), owner_id = DECODE(p_owner_id(i), NULL, owner_id, p_owner_id(i)), sales_tax = DECODE(p_sales_tax(i), NULL, sales_tax, p_sales_tax(i)), sales_tax_bank_id = DECODE(p_sales_tax_bank_id(i), NULL, sales_tax_bank_id, p_sales_tax_bank_id(i)), empty_date = DECODE(p_empty_date(i), NULL, empty_date, p_empty_date(i)), last_access_date = DECODE(p_last_access_date(i), NULL, last_access_date, p_last_access_date(i)), inactive_date = DECODE(p_inactive_date(i), NULL, inactive_date, p_inactive_date(i)), status = DECODE(p_status(i), NULL, status, p_status(i)), search_enabled = DECODE(p_search_enabled(i), NULL, search_enabled, p_search_enabled(i)), entrance_charge = DECODE(p_entrance_charge(i), NULL, entrance_charge, p_entrance_charge(i)) WHERE location_id = p_location_id(i); exception when dml_errors then errors := SQL%BULK_EXCEPTIONS.count; end; procedure insert_auction_locations (p_location_id VAOFSTRING, p_location_name VAOFSTRING, p_owner_id VAOFSTRING, p_sales_tax VAOFNUMBER, p_sales_tax_bank_id VAOFSTRING, p_empty_date VAOFNUMBER, p_last_access_date VAOFNUMBER, p_inactive_date VAOFNUMBER, p_status VAOFNUMBER, p_search_enabled VAOFSTRING, p_entrance_charge VAOFNUMBER, p_chunk_size number) as errors number; k number; dml_errors EXCEPTION; PRAGMA exception_init(dml_errors, -24381); begin FORALL i in 1..p_chunk_size save exceptions INSERT into auction_locations ( location_id, location_name, owner_id, sales_tax, sales_tax_bank_id, empty_date, last_access_date, inactive_date, status, search_enabled, entrance_charge ) VALUES ( p_location_id(i), p_location_name(i), p_owner_id(i), p_sales_tax(i), p_sales_tax_bank_id(i), p_empty_date(i), p_last_access_date(i), p_inactive_date(i), p_status(i), p_search_enabled(i), p_entrance_charge(i) ); exception when dml_errors then errors := SQL%BULK_EXCEPTIONS.count; for j in 1..errors loop k := SQL%BULK_EXCEPTIONS(j).ERROR_INDEX; UPDATE auction_locations Set location_name = p_location_name(k), owner_id = p_owner_id(k), sales_tax = p_sales_tax(k), sales_tax_bank_id = p_sales_tax_bank_id(k), empty_date = p_empty_date(k), last_access_date = p_last_access_date(k), inactive_date = p_inactive_date(k), status = p_status(k), search_enabled = p_search_enabled(k), entrance_charge = p_entrance_charge(k) WHERE location_id = p_location_id(k); end loop; end; procedure delete_auction_locations (p_location_id VAOFSTRING, p_chunk_size number) as errors number; dml_errors EXCEPTION; PRAGMA exception_init(dml_errors, -24381); begin FORALL i in 1..p_chunk_size save exceptions delete from auction_locations where location_id = p_location_id(i); exception when dml_errors then errors := SQL%BULK_EXCEPTIONS.count; end; procedure insert_market_auction_bids (p_item_id VAOFSTRING, p_bidder_id VAOFSTRING, p_bid VAOFNUMBER, p_max_proxy_bid VAOFNUMBER, p_chunk_size number) as errors number; k number; dml_errors EXCEPTION; PRAGMA exception_init(dml_errors, -24381); begin FORALL i in 1..p_chunk_size save exceptions INSERT into market_auction_bids ( item_id, bidder_id, bid, max_proxy_bid ) VALUES ( p_item_id(i), p_bidder_id(i), p_bid(i), p_max_proxy_bid(i) ); exception when dml_errors then errors := SQL%BULK_EXCEPTIONS.count; for j in 1..errors loop k := SQL%BULK_EXCEPTIONS(j).ERROR_INDEX; UPDATE market_auction_bids Set bidder_id = p_bidder_id(k), bid = p_bid(k), max_proxy_bid = p_max_proxy_bid(k) WHERE item_id = p_item_id(k); end loop; end; procedure update_market_auctions (p_item_id VAOFSTRING, p_owner_id VAOFSTRING, p_active VAOFNUMBER, p_chunk_size number) as errors number; dml_errors EXCEPTION; PRAGMA exception_init(dml_errors, -24381); begin FORALL i in 1..p_chunk_size save exceptions UPDATE market_auctions Set owner_id = DECODE(p_owner_id(i), NULL, owner_id, p_owner_id(i)), active = DECODE(p_active(i), NULL, active, p_active(i)) WHERE item_id = p_item_id(i); exception when dml_errors then errors := SQL%BULK_EXCEPTIONS.count; end; procedure insert_market_auctions (p_item_id VAOFSTRING, p_owner_id VAOFSTRING, p_creator_id VAOFSTRING, p_location_id VAOFSTRING, p_min_bid VAOFNUMBER, p_buy_now_price VAOFNUMBER, p_auction_timer VAOFNUMBER, p_oob VAOFLONGSTRING, p_user_description VAOFLONGSTRING, p_category VAOFNUMBER, p_item_name VAOFLONGSTRING, p_item_timer VAOFNUMBER, p_active VAOFNUMBER, p_item_size VAOFNUMBER, p_object_template_id VAOFNUMBER, p_chunk_size number) as errors number; k number; dml_errors EXCEPTION; PRAGMA exception_init(dml_errors, -24381); begin FORALL i in 1..p_chunk_size save exceptions INSERT into market_auctions ( item_id, owner_id, creator_id, location_id, min_bid, buy_now_price, auction_timer, oob, user_description, category, item_name, item_timer, active, item_size, object_template_id ) VALUES ( p_item_id(i), p_owner_id(i), p_creator_id(i), p_location_id(i), p_min_bid(i), p_buy_now_price(i), p_auction_timer(i), p_oob(i), p_user_description(i), p_category(i), p_item_name(i), p_item_timer(i), p_active(i), p_item_size(i), p_object_template_id(i) ); exception when dml_errors then errors := SQL%BULK_EXCEPTIONS.count; for j in 1..errors loop k := SQL%BULK_EXCEPTIONS(j).ERROR_INDEX; UPDATE market_auctions Set owner_id = p_owner_id(k), creator_id = p_creator_id(k), location_id = p_location_id(k), min_bid = p_min_bid(k), buy_now_price = p_buy_now_price(k), auction_timer = p_auction_timer(k), oob = p_oob(k), user_description = p_user_description(k), category = p_category(k), item_name = p_item_name(k), item_timer = p_item_timer(k), active = p_active(k), item_size = p_item_size(k), object_template_id = p_object_template_id(k) WHERE item_id = p_item_id(k); end loop; end; procedure delete_market_auctions (p_item_id VAOFSTRING, p_chunk_size number) as errors number; dml_errors EXCEPTION; PRAGMA exception_init(dml_errors, -24381); begin FORALL i in 1..p_chunk_size save exceptions delete from market_auction_attributes where item_id = p_item_id(i); FORALL i in 1..p_chunk_size save exceptions delete from market_auctions where item_id = p_item_id(i); --exception --when dml_errors then --errors := SQL%BULK_EXCEPTIONS.count; end; procedure insert_auction_attributes (p_item_id VAOFSTRING, p_attribute_name VAOFSTRING, p_attribute_value VAOFSTRING, p_chunk_size number) as dml_errors EXCEPTION; PRAGMA exception_init(dml_errors, -24381); begin FORALL i in 1..p_chunk_size save exceptions insert into market_auction_attributes (item_id, attribute_name, attribute_value) values (p_item_id(i), p_attribute_name(i), p_attribute_value(i)); exception when dml_errors then null; end; end; / GRANT EXECUTE ON "SWG"."CM_PERSISTER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body CUSTSERV_PROCS -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."CUSTSERV_PROCS" as function get_characters_for_account ( station_id_in IN players.station_id%TYPE ) return cursortype is result cursortype; begin open result for select character_object, uc_character_name from players where station_id = station_id_in; return result; end get_characters_for_account; function get_deleted_items ( character_id_in IN objects.load_with%TYPE, start_page_in IN number ) return cursortype is result cursortype; begin open result for select * from (select a.*, rownum RN from ( select o.object_id, name_string_table, name_string_text, object_name from objects o, (select object_id from objects where contained_by = character_id_in and object_template_id = -1783727815) datapad, (select object_id from tangible_objects where owner_id = character_id_in) tangibles where ( deleted > 0 ) and ( o.object_id = tangibles.object_id or contained_by = datapad.object_id) order by deleted_date desc ) a where rownum <= start_page_in * 20 + 20) where rn >= start_page_in * 20; return result; end get_deleted_items; function get_structures ( character_id_in IN objects.object_id%TYPE ) return cursortype is result cursortype; begin open result for select o.object_id as object_id, o.x as x, o.y as y, o.z as z, o.scene_id as scene_id, o.name_string_text as object_template, o.deleted as deleted from objects o, tangible_objects tan where tan.owner_id = character_id_in and tan.object_id = o.object_id and ( (o.object_id in (select object_id from building_objects ) ) or ( o.object_id in (select object_id from installation_objects) ) ); return result; end get_structures; function get_player_id ( character_name_in IN players.uc_character_name%TYPE ) return cursortype is result cursortype; begin open result for select character_object, station_id from players where upper(uc_character_name) = upper(character_name_in); return result; end get_player_id; procedure move_player ( character_id_in IN objects.object_id%TYPE, x_in IN objects.x%TYPE, y_in IN objects.y%TYPE, z_in IN objects.z%TYPE, scene_in IN objects.scene_id%TYPE ) as begin update objects set x = x_in, y = y_in, z = z_in, scene_id = scene_in where object_id = character_id_in; end move_player; procedure undelete_item ( character_id_in IN objects.object_id%TYPE, object_in IN objects.object_id%TYPE, move_in IN number ) as restore_result number; begin restore_result := admin.undelete_item(object_in); if ((restore_result != 1) and (restore_result != 4)) then return; end if; if (move_in > 0) then restore_result := admin.move_item_to_player(object_in, character_id_in); end if; return; exception when others then return; end undelete_item; end custserv_procs; / GRANT EXECUTE ON "SWG"."CUSTSERV_PROCS" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body DATALOOKUP -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."DATALOOKUP" as function check_character_name(p_name varchar2) return number as obj_id number; begin select character_object into obj_id from players where uc_character_name = p_name; if (obj_id is null) then return 0; else return 1; end if; exception when no_data_found then return 0; when too_many_rows then return 1; end; function get_structures_for_purge(p_station_id number) return refcursor as result_cursor refcursor; begin open result_cursor for select o.object_id, t.owner_id from players p, tangible_objects t, objects o where p.station_id = p_station_id and p.character_object = t.owner_id and t.object_id = o.object_id and o.contained_by = 0 and o.deleted = 0 and o.type_id in (1112885583, 1212763727, 1296649807) --house, harvester, factory -- exclude city halls and faction hqs and o.object_template_id not in (2104917241, -1402078881, -1650739949, 1078805016, -1085193189, -2036447549, -1503538066, 1083153409, -1889839602, 2103485856, -1318727266, -447776542, -278088733, 456016075, 2103180392, -1782254683, 1221154416, 943757712, 344955127, -1651881206, -1428516812, 121334480, -1391658348, 585958560, 1568866170, -970221632, 1490696786, -274776875, 1419804026, -1907246, -714325274, -2102543938, -382786695); return result_cursor; end; function get_vendors_for_purge(p_station_id number) return refcursor as result_cursor refcursor; begin open result_cursor for -- get all vendors owned by this station_id select o.object_id, t.owner_id, o.object_name from players p, tangible_objects t, objects o where p.station_id = p_station_id and p.character_object = t.owner_id and t.object_id = o.object_id and o.deleted = 0 and o.script_list like '%terminal.vendor:%' union -- plus all vendors in purge structures owned by this station_id select t.object_id, t.owner_id, o.object_name from tangible_objects t, objects o where t.object_id in ( select object_id from objects where deleted = 0 and script_list like '%terminal.vendor:%' start with object_id in ( select o.object_id from players p, tangible_objects t, objects o where p.station_id = p_station_id and p.character_object = t.owner_id and t.object_id = o.object_id and o.deleted = 0 and o.type_id in (1112885583, 1212763727, 1296649807) --house, harvester, factory -- exclude city halls and faction hqs and o.object_template_id not in (2104917241, -1402078881, -1650739949, 1078805016, -1085193189, -2036447549, -1503538066, 1083153409, -1889839602, 2103485856, -1318727266, -447776542, -278088733, 456016075, 2103180392, -1782254683, 1221154416, 943757712, 344955127, -1651881206, -1428516812, 121334480, -1391658348, 585958560, 1568866170, -970221632, 1490696786, -274776875, 1419804026, -1907246, -714325274, -2102543938, -382786695) ) connect by contained_by = prior object_id ) and t.object_id = o.object_id; return result_cursor; end; end; / GRANT EXECUTE ON "SWG"."DATALOOKUP" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body DATA_CLEANUP -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."DATA_CLEANUP" as procedure run_cleanup as begin delete messages where not exists ( select 1 from objects where objects.object_id = messages.target); end; procedure run_fix_bad_cells as v_count PLS_INTEGER := 0; begin FOR x IN ( SELECT * from ( SELECT a.object_id, a.contained_by, a.load_with, a.deleted, (select contained_by from objects where object_id = a.contained_by) contained_by_value FROM objects a, cell_objects b WHERE a.object_id = b.object_id ) where contained_by_value = 0 and contained_by != load_with ) LOOP UPDATE objects SET load_with = x.contained_by where object_id = x.object_id; v_count := v_count + 1; IF (MOD(v_count, 1000) = 0) then COMMIT; END IF; END LOOP; COMMIT; run_fix_houses_w_bad_cells; end; procedure run_fix_houses_w_bad_cells as v_count PLS_INTEGER := 0; v_last_contained_by NUMBER := -1; v_current_contained_by NUMBER := 0; v_retval NUMBER; begin FOR x IN ( select o1.object_id, o1.contained_by from cell_objects c, objects o1, objects o2 where c.object_id = o1.object_id and o1.deleted > 0 and o2.object_id = o1.contained_by and o2.deleted = 0 order by o1.contained_by ) LOOP v_current_contained_by := x.contained_by; UPDATE objects SET deleted = 13, deleted_date = SYSDATE + 100 where object_id = x.object_id; IF (((v_current_contained_by != v_last_contained_by) and v_last_contained_by >=0)) THEN UPDATE objects SET deleted = 13, deleted_date = SYSDATE + 100 where object_id = v_last_contained_by; v_retval := admin.restore_house (v_last_contained_by); -- result codes: -- 1 = success -- 2 = not a character or not deleted -- 3 = database error END IF; v_count := v_count + 1; IF (MOD(v_count, 1000) = 0) then COMMIT; END IF; v_last_contained_by := v_current_contained_by; END LOOP; UPDATE objects SET deleted = 13, deleted_date = SYSDATE + 100 where object_id = v_last_contained_by; v_retval := admin.restore_house (v_last_contained_by); COMMIT; end; function getObjectsWithExpMessages return cursortype as result_cursor cursortype; begin open result_cursor for select target from messages where method='C++experience' group by target having count(*) > 100 order by count(*) desc; return result_cursor; end; function getExperienceGrants(p_object_id objectid) return cursortype as result_cursor cursortype; begin open result_cursor for select data from messages where target=p_object_id and method='C++experience'; return result_cursor; end; procedure delete_experience(p_object_id objectid) as begin delete messages where target=p_object_id and method='C++experience'; end; procedure grant_experience(p_object_id objectid, p_experience_data varchar2) as begin insert into messages (message_id, target, method, data, call_time, guaranteed, delivery_type) values (objectidmanager.get_single_id(), p_object_id, 'C++experience', p_experience_data, 0, 'Y', 0); end; -- Delete 10,000 unused object variables at a time function object_variable_name_cleanup return number as begin delete from object_variable_names where id not in (select name_id from object_variables group by name_id) and rownum < 10000; commit; return sql%rowcount; end; -- Delete 25,000 orphaned rows at a time function orphaned_object_cleanup return number as begin update objects set deleted = 7 where contained_by != 0 and contained_by not in (select object_id from objects) and deleted = 0 and rownum < 25000; commit; return sql%rowcount; end; -- Delete 10,000 orphaned attribute rows at a time function market_attributes_cleanup return number as begin delete from market_auction_attributes where market_auction_attributes.ITEM_ID not in (select market_auctions.ITEM_ID from market_auctions group by market_auctions.ITEM_ID) and rownum < 10000; commit; return sql%rowcount; end; -- Delete 50,000 orphaned message rows at a time function messages_cleanup return number as begin delete messages where not exists ( select 1 from objects where objects.object_id = messages.target) and rownum < 50000; commit; return sql%rowcount; end; -- Delete 25,000 orphaned vendor object rows at a time function vendor_object_cleanup return number as begin update objects set deleted = 9 where deleted = 0 and object_id not in (select item_id from market_auctions) and contained_by in (select object_id from objects where script_list like '%terminal.vendor:%') and rownum < 25000; commit; return sql%rowcount; end; -- Delete 10,000 broken object rows at a time function broken_object_cleanup return number as numrows number; begin numrows := 0; delete from building_objects where not exists ( select 1 from objects where objects.object_id = building_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from cell_objects where not exists ( select 1 from objects where objects.object_id = cell_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from city_objects where not exists ( select 1 from objects where objects.object_id = city_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from creature_objects where not exists ( select 1 from objects where objects.object_id = creature_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from factory_objects where not exists ( select 1 from objects where objects.object_id = factory_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from harvester_installation_objects where not exists ( select 1 from objects where objects.object_id = harvester_installation_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from installation_objects where not exists ( select 1 from objects where objects.object_id = installation_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from intangible_objects where not exists ( select 1 from objects where objects.object_id = intangible_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from manf_schematic_objects where not exists ( select 1 from objects where objects.object_id = manf_schematic_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from manufacture_inst_objects where not exists ( select 1 from objects where objects.object_id = manufacture_inst_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from mission_objects where not exists ( select 1 from objects where objects.object_id = mission_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from planet_objects where not exists ( select 1 from objects where objects.object_id = planet_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from player_objects where not exists ( select 1 from objects where objects.object_id = player_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from ship_objects where not exists ( select 1 from objects where objects.object_id = ship_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from static_objects where not exists ( select 1 from objects where objects.object_id = static_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from tangible_objects where not exists ( select 1 from objects where objects.object_id = tangible_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from token_objects where not exists ( select 1 from objects where objects.object_id = token_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from universe_objects where not exists ( select 1 from objects where objects.object_id = universe_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from vehicle_objects where not exists ( select 1 from objects where objects.object_id = vehicle_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; delete from weapon_objects where not exists ( select 1 from objects where objects.object_id = weapon_objects.object_id ) and rownum < 10000; commit; numrows := numrows + sql%rowcount; return numrows; end; end; / GRANT EXECUTE ON "SWG"."DATA_CLEANUP" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body DB_ERROR_LOGGER -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."DB_ERROR_LOGGER" as procedure dblogerror( p_ora_errno number, p_notes varchar2 default NULL) as PRAGMA AUTONOMOUS_TRANSACTION; v_ora_errmsg varchar2(255); v_schema varchar2(30); v_module varchar2(80); v_notes varchar2(4000); begin v_ora_errmsg := SQLERRM(p_ora_errno); stack_search(2, v_schema, v_module); if length(p_notes) > 4000 then v_notes := substr(p_notes,1,4000); else v_notes := p_notes; end if; insert into errorlog ( error_id, ora_errno, ora_errmsg, schema_name, module_name, notes ) values ( seq_errorlog.nextval, p_ora_errno, v_ora_errmsg, v_schema, v_module, v_notes ); COMMIT; exception when others then NULL; end; procedure dblogerror_values( p_owner varchar2, p_name varchar2, p_type varchar2, p_value varchar2) as PRAGMA AUTONOMOUS_TRANSACTION; v_value varchar2(4000); begin if length(p_value) > 4000 then v_value := substr(p_value,1,4000); else v_value := p_value; end if; insert into errorlog_values ( error_id, element_owner, element_name, element_type, element_value ) values ( seq_errorlog.currval, p_owner, p_name, p_type, v_value ); COMMIT; exception when others then NULL; end; procedure stack_search ( i_search in integer, o_schema out varchar2, o_module out varchar2 ) ----- -- Returns the schema and module of the specified stack level -- (specified by i_search). Stack level 0 is this proc. -- Stack level 1 is this proc's caller. Level 2 is THEIR -- caller. And so on. ----- as call_stack varchar2(4096) default dbms_utility.format_call_stack; n number; m_found_stack boolean default false; m_line varchar2(255); m_count number := 0; m_start integer := 1; m_end integer := -1; begin o_schema := 'Not found'; o_module := 'Not found'; loop m_end := instr( call_stack, chr(10), m_start ); exit when ( m_count > i_search or m_end is NULL or m_end = 0 ); m_line := ltrim(substr( call_stack, m_start + 20, m_end - (m_start + 20 ))); m_start := m_end + 1; -- Remove formatted stack header if ( NOT m_found_stack ) then if ( m_line like 'name%' ) then m_found_stack := TRUE; end if; else if ( m_count = i_search ) then if ( m_line like 'pr%' ) then n := length( 'procedure ' ); elsif ( m_line like 'fun%' ) then n := length( 'function ' ); elsif ( m_line like 'package body%' ) then n := length( 'package body ' ); elsif ( m_line like 'pack%' ) then n := length( 'package ' ); else n := length( 'anonymous block ' ); end if; m_line := substr( m_line, n ); n := instr( m_line, '.' ); o_schema := ltrim(rtrim(substr( m_line, 1, n-1 ))); o_module := ltrim(rtrim(substr( m_line, n+1 ))); end if; m_count := m_count + 1; end if; end loop; end stack_search; function getloglevel RETURN INTEGER as m_level INTEGER; begin select levelid into m_level from errorlog_level; return m_level; exception when others then return 0; end getloglevel; function reraisecheck ( p_package varchar2 default NULL, p_procedure varchar2 default NULL) return INTEGER as PRAGMA AUTONOMOUS_TRANSACTION; m_unlimited_errors INTEGER; m_errorlimit INTEGER; m_errorcount INTEGER; begin if (p_package IS NULL or p_procedure IS NULL) then return 1; else update errorlog_reraise_limits set errorcount = errorcount + 1 where package = p_package and procedure = p_procedure; commit; if (sql%rowcount = 0) then return 1; else select unlimited_flag, errorlimit, errorcount into m_unlimited_errors, m_errorlimit, m_errorcount from errorlog_reraise_limits where package = p_package and procedure = p_procedure; if (m_unlimited_errors = 1) then return 0; else if (m_errorcount <= m_errorlimit) then return 0; end if; end if; end if; end if; return 1; exception when others then return 1; end reraisecheck; end; / GRANT EXECUTE ON "SWG"."DB_ERROR_LOGGER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body GOLD_OVERRIDE -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."GOLD_OVERRIDE" as function load_objvar_overrides(p_schema varchar2) return cursortype as result_cursor cursortype; begin open result_cursor for 'select /*+ ORDERED USE_NL(T)*/ ' || 't.object_id, t.name_id, t.type, t.value ' || 'from ' || p_schema || 'object_list l, ' || 'object_variables t ' || 'where l.object_id = t.object_id ' || 'and nvl(t.detached,0) = 0'; return result_cursor; end; end; / GRANT EXECUTE ON "SWG"."GOLD_OVERRIDE" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body LAZY_DELETER -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."LAZY_DELETER" as procedure purge_one_object (object_in in number) as BEGIN DELETE FROM armor WHERE object_id = object_in; DELETE FROM battlefield_marker_objects WHERE object_id = object_in; DELETE FROM battlefield_participants WHERE region_object_id = object_in; DELETE FROM battlefield_participants WHERE character_object_id = object_in; DELETE FROM biographies WHERE object_id = object_in; DELETE FROM building_objects WHERE object_id = object_in; DELETE FROM cell_objects WHERE object_id = object_in; DELETE FROM city_objects WHERE object_id = object_in; DELETE FROM creature_objects WHERE object_id = object_in; DELETE FROM experience_points WHERE object_id = object_in; DELETE FROM factory_objects WHERE object_id = object_in; DELETE FROM guild_objects WHERE object_id = object_in; DELETE FROM harvester_installation_objects WHERE object_id = object_in; DELETE FROM installation_objects WHERE object_id = object_in; DELETE FROM intangible_objects WHERE object_id = object_in; DELETE FROM location_lists WHERE object_id = object_in; DELETE FROM manf_schematic_attributes WHERE object_id = object_in; DELETE FROM manf_schematic_objects WHERE object_id = object_in; DELETE FROM manufacture_inst_objects WHERE object_id = object_in; DELETE FROM mission_objects WHERE object_id = object_in; DELETE FROM object_variables WHERE object_id = object_in; DELETE FROM planet_objects WHERE object_id = object_in; DELETE FROM player_objects WHERE object_id = object_in; DELETE FROM player_quest_objects WHERE object_id = object_in; DELETE FROM property_lists WHERE object_id = object_in; DELETE FROM resource_container_objects WHERE object_id = object_in; DELETE FROM scripts WHERE object_id = object_in; DELETE FROM ship_objects WHERE object_id = object_in; DELETE FROM static_objects WHERE object_id = object_in; DELETE FROM swg_characters WHERE object_id = object_in; DELETE FROM tangible_objects WHERE object_id = object_in; DELETE FROM temp_characters WHERE object_id = object_in; DELETE FROM token_objects WHERE object_id = object_in; DELETE FROM universe_objects WHERE object_id = object_in; DELETE FROM vehicle_objects WHERE object_id = object_in; DELETE FROM waypoints WHERE object_id = object_in; DELETE FROM weapon_objects WHERE object_id = object_in; DELETE FROM messages WHERE target = object_in; DELETE FROM objects WHERE object_id = object_in; END purge_one_object; procedure purge_objects_bulk(p_object_id VAOFSTRING, p_chunk_size number, p_enable_db_logging number ) as errors NUMBER; begin FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM armor WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM battlefield_marker_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM battlefield_participants WHERE region_object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM battlefield_participants WHERE character_object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM biographies WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM building_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM cell_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM city_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM creature_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM experience_points WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM factory_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM guild_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM harvester_installation_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM installation_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM intangible_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM location_lists WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM manf_schematic_attributes WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM manf_schematic_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM manufacture_inst_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM mission_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM object_variables WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM planet_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM player_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM player_quest_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM property_lists WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM resource_container_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM scripts WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM static_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM swg_characters WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM tangible_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM temp_characters WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM token_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM universe_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM vehicle_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM waypoints WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM weapon_objects WHERE object_id = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM messages WHERE target = p_object_id(i); FORALL i in 1..p_chunk_size SAVE EXCEPTIONS DELETE FROM objects WHERE object_id = p_object_id(i); exception when others then if ( p_enable_db_logging > 0 ) then errors:=SQL%BULK_EXCEPTIONS.COUNT; FOR x IN 1..errors LOOP db_error_logger.dblogerror( -SQL%BULK_EXCEPTIONS(x).ERROR_CODE, 'procedure purge_objects_bulk: error occurred in FORALL DELETE during iteration: ' || SQL%BULK_EXCEPTIONS(x).ERROR_INDEX ); if ( p_enable_db_logging > 1 ) then db_error_logger.dblogerror_values( 'lazy deleter', 'object_id' , 'number', p_object_id(to_number(SQL%BULK_EXCEPTIONS(x).ERROR_INDEX))); end if; END LOOP; else NULL; end if; end; end lazy_deleter; / GRANT EXECUTE ON "SWG"."LAZY_DELETER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body LOADER -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."LOADER" as procedure get_version_number(current_version in out number, min_version in out number) as begin select version_number, min_version_number into current_version, min_version from version_number; end; function get_character_name_list return cursortype as result_cursor cursortype; begin -- free up names that aren't in use anymore delete from players where not exists (select 1 from objects where objects.object_id = character_object); open result_cursor for select character_object, station_id, uc_character_name, character_full_name, (create_time - to_date('01/01/1970', 'MM/DD/YYYY')) * 24 * 3600, (last_login_time - to_date('01/01/1970', 'MM/DD/YYYY')) * 24 * 3600 from players; return result_cursor; end; function locate_player (p_object_id number) return number as begin insert into object_list (object_id, container_level) select object_id, 100 from objects where load_with = p_object_id and deleted = 0; return sql%rowcount; end; procedure locate_universe as begin insert into object_list (object_id) select o.object_id from objects o, universe_objects u where o.object_id = u.object_id and o.deleted=0; end; procedure locate_contained_object (p_container_id number, p_object_id number) as begin insert into object_list (object_id, container_level) select object_id, 100 from objects o start with o.object_id = p_object_id and o.contained_by = p_container_id and o.deleted = 0 connect by prior o.object_id = o.contained_by and o.deleted = 0; end; function locate_by_loadwith_batch (p_loadwiths vaofstring, p_chunk_size number) return number as begin forall i in 1..p_chunk_size insert into object_list (object_id) select o.object_id from objects o where o.load_with = p_loadwiths(i) and o.deleted = 0; return sql%rowcount; end; procedure locate_contents (p_container_id number) as begin insert into object_list (object_id, container_level) select object_id, 100 from objects o where o.load_with = p_container_id and o.deleted = 0; end; procedure locate_structure (p_object_id number, p_x out number, p_z out number, p_scene_id out varchar2, p_found out number) as begin select x, z, scene_id, 1 into p_x, p_z, p_scene_id, p_found from objects where object_id = p_object_id and deleted = 0 and type_id in (1112885583, -- BuildingObject 1212763727, -- HarvesterInstallationObject 1229869903, -- InstallationObject 1296649807); -- ManufactureInstallationObject exception when no_data_found then p_found := 0; end; function get_characters (p_station_id number) return cursortype as result_cursor cursortype; begin open result_cursor for select character_object, object_template_id, scene_id, object_name, container, x, y, z from character_view where station_id = p_station_id; return result_cursor; end; function load_chunk_object_list (p_scene_id varchar, p_node_x float, p_node_z float) return number as num number; begin select count(*) into num from objects where node_x = p_node_x and node_z = p_node_z and scene_id = p_scene_id and deleted = 0; if (num > 0) then insert into object_list (object_id, container_level) select object_id, level from objects start with node_x = p_node_x and node_z = p_node_z and scene_id = p_scene_id and deleted = 0 and contained_by = 0 and player_controlled = 'N' connect by prior object_id = contained_by and deleted = 0 and player_controlled='N' and prior load_contents='Y'; return sql%rowcount; else return 0; end if; end; function load_manf_schematic_attributes return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.attribute_type, t.value from object_list l, manf_schematic_attributes t where t.object_id = l.object_id; return result_cursor; end; function load_armor return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.layer, t.object_template, t.effectiveness, t.integrity, t.special_protections, t.encumberance_0, t.encumberance_1, t.encumberance_2, t.encumberance_3, t.encumberance_4, t.encumberance_5, t.encumberance_6, t.encumberance_7, t.encumberance_8 from object_list l, armor t where t.object_id = l.object_id; return result_cursor; end; function load_scripts return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T)*/ t.object_id, t.script, t.sequence_no from object_list l, scripts t where t.object_id = l.object_id; return result_cursor; end; function load_object_variables return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T)*/ t.object_id, t.name_id, t.type, t.value from object_list l, object_variables t where l.object_id = t.object_id and nvl(t.detached,0) = 0; return result_cursor; end; function load_property_lists return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.list_id, t.value from object_list l, property_lists t where t.object_id = l.object_id; return result_cursor; end; function load_experience return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.experience_type, t.points from object_list l, experience_points t where t.object_id = l.object_id; return result_cursor; end; function load_battlefield_participants return cursortype as result_cursor cursortype; begin open result_cursor for select t.region_object_id, t.character_object_id, t.faction_id /*+ ORDERED USE_NL(T) */ from object_list l, battlefield_participants t where t.region_object_id = l.object_id; -- order does not matter return result_cursor; end; function load_messages return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(MESSAGES) */ target, message_id, method, data, call_time, guaranteed, delivery_type from object_list, messages where target =object_list.object_id; return result_cursor; end; function load_location return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.list_id, t.sequence_number, t.name, t.scene, t.x, t.y, t.z, t.radius from object_list l, location_lists t where t.object_id = l.object_id; return result_cursor; end; function load_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, x, y, z, quaternion_w, quaternion_x, quaternion_y, quaternion_z, node_x, node_y, node_z, object_template_id, type_id, scene_id, controller_type, deleted, object_name, volume, contained_by, slot_arrangement, player_controlled, cache_version, load_contents, cash_balance, bank_balance, complexity, name_string_table, name_string_text, static_item_name, nvl(static_item_version,0), nvl(conversion_id,0), load_with, objvar_0_name, objvar_0_type, objvar_0_value, objvar_1_name, objvar_1_type, objvar_1_value, objvar_2_name, objvar_2_type, objvar_2_value, objvar_3_name, objvar_3_type, objvar_3_value, objvar_4_name, objvar_4_type, objvar_4_value, objvar_5_name, objvar_5_type, objvar_5_value, objvar_6_name, objvar_6_type, objvar_6_value, objvar_7_name, objvar_7_type, objvar_7_value, objvar_8_name, objvar_8_type, objvar_8_value, objvar_9_name, objvar_9_type, objvar_9_value, objvar_10_name, objvar_10_type, objvar_10_value, objvar_11_name, objvar_11_type, objvar_11_value, objvar_12_name, objvar_12_type, objvar_12_value, objvar_13_name, objvar_13_type, objvar_13_value, objvar_14_name, objvar_14_type, objvar_14_value, objvar_15_name, objvar_15_type, objvar_15_value, objvar_16_name, objvar_16_type, objvar_16_value, objvar_17_name, objvar_17_type, objvar_17_value, objvar_18_name, objvar_18_type, objvar_18_value, objvar_19_name, objvar_19_type, objvar_19_value, script_list, l.container_level from object_list l, objects t where t.object_id=l.object_id; return result_cursor; end; function verify_containment_chain(p_start_with_object_id in number) return number as -- result codes: -- 1 = containment chain is recursive and is in starting(character) object chain -- (can be fixed by placing the object in the world if its a character) -- 2 = containment chain is recursive but not in starting object chain (this must be fixed manually) -- 3 = no recursion in containment chain m_retval pls_integer; m_temp pls_integer; begin /* m_retval := 2; select count(*) into m_temp from objects start with object_id = p_start_with_object_id connect by prior object_id = contained_by and object_id != p_start_with_object_id; */ m_retval := 1; select count(*) into m_temp from objects start with object_id = p_start_with_object_id connect by object_id = prior contained_by; m_retval := 3; return m_retval; exception when others then return m_retval; end; function fix_player_containment_chain(p_start_with_object_id in number) return number as -- result codes: -- 0 = database error -- 4 = success fix player containment issues PRAGMA AUTONOMOUS_TRANSACTION; begin update objects set contained_by = 0 where object_id = p_start_with_object_id; admin.fix_load_with(p_start_with_object_id, p_start_with_object_id); commit; return 4; exception when others then return 0; end; procedure verify_character (p_station_id in number, p_character_id in number, p_gold_schema in varchar2, p_approved out varchar2, p_character_name out varchar2, p_scene_id out varchar2, p_container_id out number, p_x out number, p_y out number, p_z out number, p_containment_check out number) as -- p_containment_check is a flag indicating the containment stautus to be used for logging on the C sid -- 0 = there was a database error trying to fix containment -- 1 = there is a recursive containment error in the character object chain that wasn't fixed -- 2 = there is a recursive containment error in the containment chain not in the character chain -- 3 = the containment chain is ok -- 4 = there was a recursive containment error in the character object chain that was fixed m_containment_ok pls_integer; wsx number := null; wsy number := null; wsz number := null; begin -- check containment chain m_containment_ok := verify_containment_chain(p_character_id); -- if containment is bad for the character object try to fix it if (m_containment_ok = 1) then m_containment_ok := fix_player_containment_chain(p_character_id); end if; p_containment_check := m_containment_ok; if (m_containment_ok >= 3) then select object_name, scene_id, contained_by, x, y, z, ws_x, ws_y, ws_z into p_character_name, p_scene_id, p_container_id, p_x, p_y, p_z, wsx, wsy, wsz from players p, objects o, creature_objects c where p.station_id = p_station_id and p.character_object = p_character_id and o.object_id = p.character_object and c.object_id = o.object_id and o.deleted = 0; if (p_container_id = 0) then begin p_container_id := p_character_id; p_approved := 'Y'; end; else begin select object_id, x,y,z,'Y' into p_container_id, p_x, p_y, p_z, p_approved from objects where contained_by=0 start with object_id = p_character_id connect by prior contained_by=object_id and prior scene_id=scene_id and player_controlled = 'N'; exception when no_data_found then -- might be in a gold building if (p_gold_schema is not null) then begin execute immediate 'select object_id, x,y,z,''Y'' ' || 'from ' || p_gold_schema || 'objects ' || 'where contained_by=0 ' || 'start with object_id = :container_id ' || 'connect by prior contained_by=object_id' into p_container_id, p_x, p_y, p_z, p_approved using p_container_id; exception when no_data_found then select object_id, x,y,z,'Y' into p_container_id, p_x, p_y, p_z, p_approved from objects where object_id = p_character_id; end; else select object_id, x,y,z,'Y' into p_container_id, p_x, p_y, p_z, p_approved from objects where object_id = p_character_id; end if; end; end if; else select 'N' into p_approved from dual; end if; if ( wsx is not null ) then begin p_x := wsx; p_y := wsy; p_z := wsz; end; end if; update players set last_login_time = sysdate where station_id = p_station_id and character_object = p_character_id; exception when no_data_found then select 'N' into p_approved from dual; when too_many_rows then select 'N' into p_approved from dual; when others then select 'N' into p_approved from dual; end; function load_waypoint return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.waypoint_id, t.appearance_name_crc, t.location_x, t.location_y, t.location_z, t.location_cell, t.location_scene, t.name, t.color, t.active from object_list l, waypoints t where t.object_id=l.object_id; return result_cursor; end; function load_player_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) USE_NL(A)*/ t.object_id, t.station_id, a.house_id, t.num_lots, a.is_outcast, a.cheater_level, a.max_lots_adjustment, t.personal_profile_id, t.character_profile_id, t.skill_title, t.born_date, t.played_time, t.force_regen_rate, t.force_power, t.max_force_power, t.active_quests, t.completed_quests, t.current_quest, t.quests, t.role_icon_choice, t.quests2, t.quests3, t.quests4, t.skill_template, t.working_skill, nvl(t.current_gcw_points,0), nvl(t.current_gcw_rating,-1), nvl(t.current_pvp_kills,0), nvl(t.lifetime_gcw_points,0), nvl(t.max_gcw_imperial_rating,-1), nvl(t.max_gcw_rebel_rating,-1), nvl(t.lifetime_pvp_kills,0), nvl(t.next_gcw_rating_calc_time,0), t.collections, nvl(t.show_backpack,'Y'), nvl(t.show_helmet,'Y'), t.collections2 from object_list l, player_objects t, accounts a where t.station_id = a.station_id and t.object_id=l.object_id; return result_cursor; end; function load_resource_types return cursortype as result_cursor cursortype; begin open result_cursor for select resource_id, resource_name, resource_class, attributes, fractal_seeds, depleted_timestamp from resource_types; return result_cursor; end; function load_bounty_hunter_targets return cursortype as result_cursor cursortype; begin open result_cursor for select object_id, target_id from bounty_hunter_targets where target_id <> 0; return result_cursor; end; -- GENERATED PLSQL FOLLOWS -- generated by makeloader.pl function load_battlefield_marker_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.region_name from object_list l, battlefield_marker_objects t where t.object_id=l.object_id; return result_cursor; end; function load_building_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.maintenance_cost, t.time_last_checked, t.is_public, t.city_id from object_list l, building_objects t where t.object_id=l.object_id; return result_cursor; end; function load_cell_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.cell_number, t.is_public from object_list l, cell_objects t where t.object_id=l.object_id; return result_cursor; end; function load_city_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id from object_list l, city_objects t where t.object_id=l.object_id; return result_cursor; end; function load_creature_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.scale_factor, t.states, t.posture, t.shock_wounds, t.master_id, t.rank, t.base_walk_speed, t.base_run_speed, t.attribute_0, t.attribute_1, t.attribute_2, t.attribute_3, t.attribute_4, t.attribute_5, t.attribute_6, t.attribute_7, t.attribute_8, t.attribute_9, t.attribute_10, t.attribute_11, t.attribute_12, t.attribute_13, t.attribute_14, t.attribute_15, t.attribute_16, t.attribute_17, t.attribute_18, t.attribute_19, t.attribute_20, t.attribute_21, t.attribute_22, t.attribute_23, t.attribute_24, t.attribute_25, t.attribute_26, t.persisted_buffs, t.ws_x, t.ws_y, t.ws_z from object_list l, creature_objects t where t.object_id=l.object_id; return result_cursor; end; function load_factory_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id from object_list l, factory_objects t where t.object_id=l.object_id; return result_cursor; end; function load_guild_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id from object_list l, guild_objects t where t.object_id=l.object_id; return result_cursor; end; function load_harvester_inst_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.installed_efficiency, t.max_extraction_rate, t.current_extraction_rate, t.max_hopper_amount, t.hopper_resource, t.hopper_amount, t.resource_type from object_list l, harvester_installation_objects t where t.object_id=l.object_id; return result_cursor; end; function load_installation_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.installation_type, t.activated, t.tick_count, t.activate_start_time, t.power, t.power_rate from object_list l, installation_objects t where t.object_id=l.object_id; return result_cursor; end; function load_intangible_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.count from object_list l, intangible_objects t where t.object_id=l.object_id; return result_cursor; end; function load_manf_schematic_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.creator_id, t.creator_name, t.items_per_container, t.manufacture_time, t.draft_schematic from object_list l, manf_schematic_objects t where t.object_id=l.object_id; return result_cursor; end; function load_manufacture_inst_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id from object_list l, manufacture_inst_objects t where t.object_id=l.object_id; return result_cursor; end; function load_mission_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.difficulty, t.end_x, t.end_y, t.end_z, t.end_cell, t.end_scene, t.mission_creator, t.reward, t.root_script_name, t.start_x, t.start_y, t.start_z, t.start_cell, t.start_scene, t.description_table, t.description_text, t.title_table, t.title_text, t.mission_holder_id, t.status, t.mission_type, t.target_appearance, t.target_name from object_list l, mission_objects t where t.object_id=l.object_id; return result_cursor; end; function load_planet_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.planet_name from object_list l, planet_objects t where t.object_id=l.object_id; return result_cursor; end; function load_resource_container_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.resource_type, t.quantity, t.source from object_list l, resource_container_objects t where t.object_id=l.object_id; return result_cursor; end; function load_ship_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.slide_dampener, t.current_chassis_hit_points, t.maximum_chassis_hit_points, t.chassis_type, t.cmp_armor_hp_maximum, t.cmp_armor_hp_current, t.cmp_efficiency_general, t.cmp_efficiency_eng, t.cmp_eng_maintenance, t.cmp_mass, t.cmp_crc, t.cmp_hp_current, t.cmp_hp_maximum, t.cmp_flags, t.cmp_names, t.weapon_damage_maximum, t.weapon_damage_minimum, t.weapon_effectiveness_shields, t.weapon_effectiveness_armor, t.weapon_eng_per_shot, t.weapon_refire_rate, t.weapon_ammo_current, t.weapon_ammo_maximum, t.weapon_ammo_type, t.shield_hp_front_maximum, t.shield_hp_back_maximum, t.shield_recharge_rate, t.capacitor_eng_maximum, t.capacitor_eng_recharge_rate, t.engine_acc_rate, t.engine_deceleration_rate, t.engine_pitch_acc_rate, t.engine_yaw_acc_rate, t.engine_roll_acc_rate, t.engine_pitch_rate_maximum, t.engine_yaw_rate_maximum, t.engine_roll_rate_maximum, t.engine_speed_maximum, t.reactor_eng_generation_rate, t.booster_eng_maximum, t.booster_eng_recharge_rate, t.booster_eng_consumption_rate, t.booster_acc, t.booster_speed_maximum, t.droid_if_cmd_speed, t.installed_dcd, t.chassis_cmp_mass_maximum, t.cmp_creators, t.cargo_hold_contents_maximum, t.cargo_hold_contents_current, t.cargo_hold_contents from object_list l, ship_objects t where t.object_id=l.object_id; return result_cursor; end; function load_static_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id from object_list l, static_objects t where t.object_id=l.object_id; return result_cursor; end; function load_tangible_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.max_hit_points, t.owner_id, t.visible, t.appearance_data, t.interest_radius, t.pvp_type, t.pvp_faction, t.damage_taken, t.custom_appearance, t.count, t.condition, t.creator_id, t.source_draft_schematic from object_list l, tangible_objects t where t.object_id=l.object_id; return result_cursor; end; function load_token_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.reference, t.target_server_template_name, t.target_shared_template_name, t.waypoint from object_list l, token_objects t where t.object_id=l.object_id; return result_cursor; end; function load_universe_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id from object_list l, universe_objects t where t.object_id=l.object_id; return result_cursor; end; function load_vehicle_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.bogus from object_list l, vehicle_objects t where t.object_id=l.object_id; return result_cursor; end; function load_weapon_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.min_damage, t.max_damage, t.damage_type, t.elemental_type, t.elemental_value, t.attack_speed, t.wound_chance, t.accuracy, t.attack_cost, t.damage_radius, t.min_range, t.max_range from object_list l, weapon_objects t where t.object_id=l.object_id; return result_cursor; end; function load_player_quest_object return cursortype as result_cursor cursortype; begin open result_cursor for select /*+ ORDERED USE_NL(T) */ t.object_id, t.title, t.description, t.creator, t.total_tasks, t.difficulty, t.task_title1, t.task_description1, t.task_title2, t.task_description2, t.task_title3, t.task_description3, t.task_title4, t.task_description4, t.task_title5, t.task_description5, t.task_title6, t.task_description6, t.task_title7, t.task_description7, t.task_title8, t.task_description8, t.task_title9, t.task_description9, t.task_title10, t.task_description10, t.task_title11, t.task_description11, t.task_title12, t.task_description12 from object_list l, player_quest_objects t where t.object_id=l.object_id; return result_cursor; end; end; / GRANT EXECUTE ON "SWG"."LOADER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body LOGIN -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."LOGIN" as procedure register_new_cluster(p_cluster_name in varchar2, p_address in varchar2, p_cluster_id out number) as begin select id into p_cluster_id from cluster_list where name = p_cluster_name; exception when no_data_found then insert into cluster_list (id,name,address,secret,locked, not_recommended,group_id, online_player_limit,online_free_trial_limit,free_trial_can_create_char, online_tutorial_limit) select nvl(max(id)+1,1), p_cluster_name,p_address,'N','N','N',1, 2500,250,'Y',350 from cluster_list; select id into p_cluster_id from cluster_list where name = p_cluster_name; end; function get_cluster_list (p_group in number) return refcursor as result_cursor refcursor; maxCharacterPerAccount number; begin select account_limit into maxCharacterPerAccount from default_char_limits; open result_cursor for select id, name, address, port, secret, locked, not_recommended, maxCharacterPerAccount, online_player_limit,online_free_trial_limit,free_trial_can_create_char,online_tutorial_limit from cluster_list where group_id = p_group; return result_cursor; end; function get_avatar_list (p_station_id number, p_cluster_group number) return refcursor as result refcursor; begin open result for select c.character_name, c.template_id, c.object_id, c.cluster_id, c.character_type from swg_characters c, cluster_list l where c.cluster_id = l.id and l.group_id = p_cluster_group and station_id = p_station_id and enabled = 'Y'; return result; end; function get_open_character_slots(p_station_id number, p_cluster_id number) return refcursor as result_cursor refcursor; over_account_limit number; over_cluster_limit number; begin -- does the account have too many characters, or does the cluster have too many characters? select account_limit - account_counter.num, cluster_limit - cluster_list.num_characters into over_account_limit, over_cluster_limit from (select count(*) num from swg_characters where (station_id = p_station_id OR station_id IN (SELECT CASE WHEN child_id = p_station_id THEN parent_id ELSE child_id END as station_id FROM account_map WHERE parent_id = p_station_id OR child_id = p_station_id)) and enabled ='Y') account_counter, default_char_limits, cluster_list where cluster_list.id = p_cluster_id; if (over_account_limit <= 0 or over_cluster_limit <= 0) then open result_cursor for select 0 character_type_id, 0 remaining_slots from dual where 1=2; return result_cursor; end if; -- if not, return the number of each type of character we're allowed to create open result_cursor for select limits.character_type_id, limits.limit - nvl(existing.num,0) remaining_slots from (select def.character_type_id, def.num_slots + nvl(cls.num_extra_slots,0) limit from extra_character_slots cls, default_character_slots def where def.character_type_id = cls.character_type_id (+) and cls.station_id (+) = p_station_id and cls.cluster_id (+) = p_cluster_id) limits, (select character_type, count(*) num from swg_characters where station_id = p_station_id and cluster_id = p_cluster_id and enabled = 'Y' group by character_type) existing where limits.character_type_id = existing.character_type (+); return result_cursor; end; -- unlike get_open_character_slots, this function ignores account and cluster limits function get_only_open_character_slots(p_station_id number, p_cluster_id number) return refcursor as result_cursor refcursor; begin -- return the number of each type of character we're allowed to create open result_cursor for select limits.character_type_id, limits.limit - nvl(existing.num,0) remaining_slots from (select def.character_type_id, def.num_slots + nvl(cls.num_extra_slots,0) limit from extra_character_slots cls, default_character_slots def where def.character_type_id = cls.character_type_id (+) and cls.station_id (+) = p_station_id and cls.cluster_id (+) = p_cluster_id) limits, (select character_type, count(*) num from swg_characters where station_id = p_station_id and cluster_id = p_cluster_id and enabled = 'Y' group by character_type) existing where limits.character_type_id = existing.character_type (+); return result_cursor; end; function is_cluster_at_limit(p_cluster_id number) return number as v_cluster_limit number; v_num_characters number; begin select cluster_limit into v_cluster_limit from default_char_limits; select num_characters into v_num_characters from cluster_list where id = p_cluster_id; if (v_num_characters >= v_cluster_limit) then return 1; else return 0; end if; exception when others then return 0; end; function is_account_at_limit(p_station_id number) return number as v_account_limit number; v_num_characters number; begin select account_limit into v_account_limit from default_char_limits; select count(*) into v_num_characters from swg_characters where station_id = p_station_id and enabled ='Y' and cluster_id not in (select id from cluster_list where name in ('Corbantis', 'Europe-Infinity', 'Intrepid', 'Kauri', 'Kettemoor', 'Lowca', 'Naritus', 'Scylla', 'Tarquinas', 'Tempest', 'Valcyn', 'Wanderhome', 'Japan-Katana', 'Japan-Harla')); if (v_num_characters >= v_account_limit) then return 1; else return 0; end if; exception when others then return 0; end; procedure delete_character(p_cluster_id number, p_character_id number, p_station_id number) as begin delete from swg_characters where station_id = p_station_id and cluster_id = p_cluster_id and object_id = p_character_id; update cluster_list set num_characters = num_characters - 1 where cluster_list.id = p_cluster_id; end; procedure rename_character(p_cluster_id number, p_character_id number, p_new_name varchar2) as begin update swg_characters set character_name = p_new_name where cluster_id = p_cluster_id and object_id = p_character_id; end; procedure create_character(p_cluster_id number, p_station_id number, p_character_name varchar2, p_character_id number, p_template_id number, p_character_type number) as begin insert into swg_characters (station_id, cluster_id, character_name, object_id, template_id, character_type) values (p_station_id, p_cluster_id, p_character_name, p_character_id, p_template_id, p_character_type); update cluster_list set num_characters = nvl(num_characters,0) + 1 where cluster_list.id = p_cluster_id; exception when DUP_VAL_ON_INDEX then update swg_characters set object_id = p_character_id, template_id = p_template_id, character_type = p_character_type where cluster_id = p_cluster_id and station_id = p_station_id and character_name = p_character_name; end; function restore_character(p_cluster_id number, p_station_id number, p_character_name varchar2, p_character_id number, p_template_id number, p_character_type number) return number -- Return codes: -- 1: restored -- 2: restored, but too many characters on the account now -- 3: database error as l_num_characters number; l_limit number; begin begin insert into swg_characters (station_id, cluster_id, character_name, object_id, template_id, character_type) values (p_station_id, p_cluster_id, p_character_name, p_character_id, p_template_id, p_character_type); update cluster_list set num_characters = nvl(num_characters,0) + 1 where cluster_list.id = p_cluster_id; exception when DUP_VAL_ON_INDEX then null; -- already restored when others then return 3; end; -- Check the account against the limits select count(*) into l_num_characters from swg_characters where station_id = p_station_id and character_type = p_character_type and enabled = 'Y' and cluster_id not in (select id from cluster_list where name in ('Corbantis', 'Europe-Infinity', 'Intrepid', 'Kauri', 'Kettemoor', 'Lowca', 'Naritus', 'Scylla', 'Tarquinas', 'Tempest', 'Valcyn', 'Wanderhome', 'Japan-Katana', 'Japan-Harla')); select def.num_slots + nvl(cls.num_extra_slots,0) into l_limit from extra_character_slots cls, default_character_slots def where def.character_type_id = cls.character_type_id (+) and cls.station_id (+) = p_station_id and cls.cluster_id (+) = p_cluster_id and def.character_type_id = p_character_type; if (l_num_characters > l_limit) then return 2; else return 1; end if; exception when others then return 3; end; procedure set_character_slots(p_cluster_id number, p_station_id number, p_slot_type number, p_num_slots number) as begin update extra_character_slots set num_extra_slots = p_num_slots where cluster_id = p_cluster_id and station_id = p_station_id and character_type_id = p_slot_type; if (sql%rowcount = 0) then insert into extra_character_slots (station_id, cluster_id, character_type_id, num_extra_slots) values (p_station_id, p_cluster_id, p_slot_type, p_num_slots); end if; end; procedure set_character_type(p_cluster_id number, p_station_id number, p_character_id number, p_slot_type number) as begin update swg_characters set character_type = p_slot_type where station_id = p_station_id and cluster_id = p_cluster_id and object_id = p_character_id; end; function has_extra_character_slot(p_station_id number, p_character_type number) return number as rows number; total number; begin select count(*), sum(num_extra_slots) into rows, total from extra_character_slots where station_id = p_station_id and character_type_id = p_character_type; if (rows <= 0 or total < 0) then total := 0; end if; return total; exception when others then return 0; end; procedure toggle_disable_character(p_cluster_id number, p_character_id number, p_station_id number, p_enabled varchar2) as begin update swg_characters set enabled = p_enabled where station_id = p_station_id and cluster_id = p_cluster_id and object_id = p_character_id; end; function enable_disable_character(p_station_id number, p_character_id number, p_enabled varchar2) return number as begin update swg_characters set enabled = p_enabled where station_id = p_station_id and object_id = p_character_id; if (sql%rowcount > 0) then return 1; else return 2; end if; exception when others then return 3; end; function get_completed_tutorial(p_station_id number) return refcursor as cnt number; result_cursor refcursor; begin select count (*) into cnt from account_info where station_id = p_station_id; if (cnt = 0) then insert into account_info (station_id, completed_tutorial) values (p_station_id, 'N'); end if; open result_cursor for select completed_tutorial from account_info where station_id = p_station_id; return result_cursor; end; procedure toggle_completed_tutorial(p_station_id number, p_completed varchar2) as begin update account_info set completed_tutorial = p_completed where station_id = p_station_id; end; function get_consumed_reward_events(p_station_id number) return refcursor as result_cursor refcursor; begin open result_cursor for select event_id, cluster_id, character_id from account_reward_events where station_id = p_station_id; return result_cursor; end; function get_claimed_reward_items(p_station_id number) return refcursor as result_cursor refcursor; begin open result_cursor for select item_id, cluster_id, character_id from account_reward_items where station_id = p_station_id; return result_cursor; end; function consume_reward_event(p_station_id number, p_character_id number, p_cluster_id number, p_event_id varchar2) return number as begin insert into account_reward_events (station_id, event_id, date_consumed, cluster_id, character_id) values (p_station_id, p_event_id, sysdate, p_cluster_id, p_character_id); return 1; exception when dup_val_on_index then -- Check whether previous claim was from the same character and cluster, if so, allow it declare previous_claim_cluster number; previous_claim_character number; begin select cluster_id, character_id into previous_claim_cluster, previous_claim_character from account_reward_events where station_id = p_station_id and event_id = p_event_id; if ((p_cluster_id=previous_claim_cluster) and (p_character_id=previous_claim_character)) then return 1; end if; return 0; end; when others then return 0; end; function claim_reward_item(p_station_id number, p_character_id number, p_cluster_id number, p_item_id varchar2) return number as begin insert into account_reward_items (station_id, item_id, date_claimed, cluster_id, character_id) values (p_station_id, p_item_id, sysdate, p_cluster_id, p_character_id); return 1; exception when dup_val_on_index then -- Check whether previous claim was from the same character and cluster, if so, allow it declare previous_claim_cluster number; previous_claim_character number; begin select cluster_id, character_id into previous_claim_cluster, previous_claim_character from account_reward_items where station_id = p_station_id and item_id = p_item_id; if ((p_cluster_id=previous_claim_cluster) and (p_character_id=previous_claim_character)) then return 1; end if; return 0; exception when others then return 0; end; when others then return 0; end; function get_feature_id_transactions(p_station_id in number, p_cluster_id in number, p_character_id in number) return refcursor as result_cursor refcursor; begin open result_cursor for select item_id, count from feature_id_transactions where station_id = p_station_id and cluster_id = p_cluster_id and character_id = p_character_id; return result_cursor; end; function update_feature_id_transaction(p_station_id in number, p_cluster_id in number, p_character_id in number, p_item_id in varchar2, p_count_adjustment in number) return number as begin update feature_id_transactions set date_updated = sysdate, count = count + p_count_adjustment where station_id = p_station_id and cluster_id = p_cluster_id and character_id = p_character_id and item_id = p_item_id; if (sql%rowcount = 0) then insert into feature_id_transactions (station_id, cluster_id, character_id, item_id, date_updated, count) values (p_station_id, p_cluster_id, p_character_id, p_item_id, sysdate, p_count_adjustment); end if; return 1; exception when others then return 0; end; end; / GRANT EXECUTE ON "SWG"."LOGIN" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body OBJECTIDMANAGER -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."OBJECTIDMANAGER" as procedure get_ids(how_many in out number, block_start_id out number, block_end_id out number) as result_cursor cursortype; begin delete free_object_ids where end_id is not null and rownum=1 returning start_id, end_id into block_start_id, block_end_id; if (sql%rowcount = 0) then update free_object_ids set start_id = start_id + how_many where end_id is null returning start_id - how_many, start_id - 1 into block_start_id, block_end_id; end if; how_many := block_end_id - block_start_id + 1; end; -- same as get_ids, except guarantees the ids are all contiguous -- (therefore it can return just the starting id) function get_contiguous_ids(min_count number) return number as result_cursor cursortype; block_start_id number; block_end_id number; begin update free_object_ids set start_id = start_id + min_count where (end_id - start_id + 1 >= min_count or end_id is null) and rownum < 2 returning start_id - min_count, start_id - 1 into block_start_id, block_end_id; if (block_start_id > block_end_id) then -- entire block was consumed delete free_object_ids where start_id = block_start_id; end if; return block_start_id; end; -- get only one id function get_single_id return number as block_start_id number; block_end_id number; begin update free_object_ids set start_id = start_id + 1 where rownum=1 returning start_id, end_id into block_start_id, block_end_id; if (block_start_id > block_end_id) then -- entire block was consumed delete free_object_ids where start_id = block_start_id; end if; return block_start_id - 1; end; procedure rebuild_freelist as message_count number; message_id_block number; begin delete free_object_ids; -- following is not legal in PL/SQL, so it must be "execute immediated" execute immediate 'insert into free_object_ids (end_id, start_id) '|| 'select o1.object_id-1 end_id, (select max(o2.object_id) from objects o2 where o1.object_id > o2.object_id)+1 start_id ' || 'from objects o1 ' || 'where o1.object_id > (select max(o2.object_id)+1 from objects o2 where o1.object_id > o2.object_id)'; insert into free_object_ids (start_id, end_id) select * from (select 1,min(object_id)-1 from objects) where not exists (select * from objects where object_id = 1); insert into free_object_ids (start_id, end_id) select * from (select max(object_id)+1,NULL from objects) where exists (select * from objects); --easier to ignore messages while finding free object ids and then fix them up at the end: select count(*) into message_count from messages where rownum = 1; if (message_count <> 0) then message_id_block := get_contiguous_ids(message_count); update messages set message_id = rownum + message_id_block - 1; end if; end; end; / GRANT EXECUTE ON "SWG"."OBJECTIDMANAGER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body OBJVAR_NAMES -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."OBJVAR_NAMES" as procedure add_name (p_id number, p_name varchar2) as begin insert into object_variable_names (id,name) values (p_id, p_name); end; function get_name_list return cursortype as result_cursor cursortype; begin open result_cursor for select id, name from object_variable_names; return result_cursor; end; end; / GRANT EXECUTE ON "SWG"."OBJVAR_NAMES" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body PERSISTER -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."PERSISTER" as procedure set_clock (p_time number) as begin update clock set last_save_time = p_time, last_save_timestamp = sysdate; end; procedure add_player (p_station_id number, p_character_object objectid, p_character_name varchar2, p_normalized_name varchar2) as rc number; begin insert into players (station_id, character_object,uc_character_name, character_full_name, create_time) values (p_station_id, p_character_object, p_normalized_name, p_character_name, sysdate); end; function delete_character (p_station_id number, p_character_id number, p_delete_minutes number) return number as valid_check number; l_deleted_name number; begin l_deleted_name := 0; select count(*) into valid_check from players where players.character_object = p_character_id and players.station_id = p_station_id; if (valid_check = 1) then -- recursive query needed in order to get bank box contents, etc. update objects set deleted = (select reason_code from delete_reasons where tag='CharacterDeleted'), deleted_date = sysdate where object_id in (select object_id from objects where deleted = 0 start with load_with = p_character_id connect by prior object_id = load_with and prior load_with <> load_with); -- remove character record if the character is new enough (so that players can experiment creating new characters -- and deleting them right away) delete players where players.character_object = p_character_id and players.station_id = p_station_id and (sysdate - create_time) * (1440) < p_delete_minutes; if (sql%rowcount > 0) then l_deleted_name := 1; end if; -- Add a message for all deleted buildings owned by this character. The game will delete the buildings -- and run appropriate cleanup the next time the buildings are loaded. for oid in (select o.object_id from objects o, tangible_objects t, building_objects b where o.object_id = t.object_id and o.object_id = b.object_id and t.object_id = b.object_id and t.owner_id = p_character_id and o.deleted = 0) loop save_message (objectidmanager.get_single_id(), oid.object_id, 'msgDestroyStructure',NULL,0,'Y',1); end loop; for oid1 in (select o.object_id from objects o, tangible_objects t, installation_objects b where o.object_id = t.object_id and o.object_id = b.object_id and t.owner_id = p_character_id and o.deleted = 0) loop save_message (objectidmanager.get_single_id(), oid1.object_id, 'msgDestroyStructure',NULL,0,'Y',1); end loop; if (l_deleted_name=0) then return 0; else return 2; end if; else return 1; end if; end; procedure update_object_variable_batch (p_object_id vaofstring, p_name_id VAOFNUMBER, p_type VAOFNUMBER, p_value VAOFSTRING, p_chunk_size number) as begin FORALL i in 1..p_chunk_size UPDATE OBJECT_VARIABLES Set type = p_type(i), value = p_value(i), detached = 0 WHERE object_id = p_object_id(i) and name_id = p_name_id(i); end; procedure add_object_variable_batch (p_object_id vaofstring, p_name_id VAOFNUMBER, p_type VAOFNUMBER, p_value VAOFSTRING, p_chunk_size number) as errors number; error_index number; begin FORALL i in 1..p_chunk_size INSERT into OBJECT_VARIABLES ( object_id, name_id, type, value, detached ) VALUES ( p_object_id(i), p_name_id(i), p_type(i), p_value(i), 0 ); exception when DUP_VAL_ON_INDEX then for i in 1..p_chunk_size loop UPDATE OBJECT_VARIABLES Set type = p_type(i), value = p_value(i), detached = 0 WHERE object_id = p_object_id(i) and name_id = p_name_id(i); if SQL%ROWCOUNT=0 then INSERT into OBJECT_VARIABLES ( object_id, name_id, type, value, detached ) VALUES ( p_object_id(i), p_name_id(i), p_type(i), p_value(i), 0 ); end if; end loop; end; procedure remove_object_variable_batch (p_object_id vaofstring, p_name_id VAOFNUMBER, p_chunk_size number) as begin FORALL i in 1..p_chunk_size delete from object_variables where object_id = p_object_id(i) and name_id = p_name_id(i); end; procedure clear_scripts (p_object_id objectid) as begin delete from scripts where object_id = p_object_id; end; procedure save_message (p_message_id number, p_object_id objectid, p_method varchar, p_data varchar, p_call_time number, p_guaranteed varchar, p_delivery_type int) as begin insert into messages (message_id, target, method, data, call_time, guaranteed, delivery_type) values (p_message_id, p_object_id, p_method, p_data, p_call_time, p_guaranteed, p_delivery_type); end; procedure save_message_batch (p_message_id VAOFSTRING, p_object_id VAOFSTRING, p_method VAOFSTRING, p_data VAOFLONGSTRING, p_call_time VAOFNUMBER, p_guaranteed VAOFSTRING, p_delivery_type VAOFNUMBER, p_chunk_size number, p_enable_db_logging number ) as begin forall i in 1..p_chunk_size insert into messages (message_id, target, method, data, call_time, guaranteed, delivery_type) values (p_message_id(i), p_object_id(i), p_method(i), p_data(i), p_call_time(i), p_guaranteed(i), p_delivery_type(i)); exception when dup_val_on_index then for i in 1..p_chunk_size loop begin insert into messages (message_id, target, method, data, call_time, guaranteed, delivery_type) values (p_message_id(i), p_object_id(i), p_method(i), p_data(i), p_call_time(i), p_guaranteed(i), p_delivery_type(i)); exception when dup_val_on_index then if ( p_enable_db_logging > 0 ) then db_error_logger.dblogerror( SQLCODE, 'procedure save_message_batch: duplicate rows were sent to the message buffer that resulted in a dup_val_on_index error.'); if ( p_enable_db_logging > 1 ) then db_error_logger.dblogerror_values( 'messages', 'message_id' , 'number', p_message_id(i)); db_error_logger.dblogerror_values( 'messages', 'target' , 'number', p_object_id(i)); db_error_logger.dblogerror_values( 'messages', 'method' , 'varchar2', p_method(i)); db_error_logger.dblogerror_values( 'messages', 'data' , 'varchar2', p_data(i)); db_error_logger.dblogerror_values( 'messages', 'call_time' , 'number', to_char(p_call_time(i))); db_error_logger.dblogerror_values( 'messages', 'guaranteed' , 'varchar2', p_guaranteed(i)); db_error_logger.dblogerror_values( 'messages', 'delivery_type' , 'number', to_char(p_delivery_type(i))); end if; else NULL; end if; end; end loop; end; procedure acknowledge_message(p_message_id number) as begin delete from messages where message_id = p_message_id; end; procedure acknowledge_message_batch (p_message_id VAOFSTRING, p_chunk_size number, p_enable_db_logging number) as begin forall i in 1..p_chunk_size delete from messages where message_id = p_message_id(i); exception when dup_val_on_index then for i in 1..p_chunk_size loop begin delete from messages where message_id = p_message_id(i); exception when dup_val_on_index then if ( p_enable_db_logging > 0 ) then db_error_logger.dblogerror( SQLCODE, 'procedure acknowledge_message_batch: duplicate rows were sent to the message buffer that resulted in a dup_val_on_index error.'); if ( p_enable_db_logging > 1 ) then db_error_logger.dblogerror_values( 'messages', 'message_id' , 'number', p_message_id(i)); end if; else NULL; end if; end; end loop; end; procedure save_object ( p_x VAOFNUMBER, p_y VAOFNUMBER, p_z VAOFNUMBER, p_quaternion_w VAOFNUMBER, p_quaternion_x VAOFNUMBER, p_quaternion_y VAOFNUMBER, p_quaternion_z VAOFNUMBER, p_node_x VAOFNUMBER, p_node_y VAOFNUMBER, p_node_z VAOFNUMBER, p_object_template_id VAOFNUMBER, p_type_id VAOFNUMBER, p_scene_id VAOFSTRING, p_controller_type VAOFNUMBER, p_deleted VAOFNUMBER, p_object_name VAOFSTRING, p_volume VAOFNUMBER, p_contained_by VAOFSTRING, p_slot_arrangement VAOFNUMBER, p_player_controlled VAOFSTRING, p_cache_version VAOFNUMBER, p_load_contents VAOFSTRING, p_cash_balance VAOFNUMBER, p_bank_balance VAOFNUMBER, p_complexity VAOFNUMBER, p_name_string_table VAOFSTRING, p_name_string_text VAOFSTRING, p_static_item_name VAOFSTRING, p_static_item_version VAOFNUMBER, p_conversion_id VAOFNUMBER, p_load_with VAOFSTRING, p_objvar_0_name VAOFSTRING,p_objvar_0_type VAOFNUMBER,p_objvar_0_value VAOFSTRING,p_objvar_1_name VAOFSTRING,p_objvar_1_type VAOFNUMBER,p_objvar_1_value VAOFSTRING,p_objvar_2_name VAOFSTRING,p_objvar_2_type VAOFNUMBER,p_objvar_2_value VAOFSTRING,p_objvar_3_name VAOFSTRING,p_objvar_3_type VAOFNUMBER,p_objvar_3_value VAOFSTRING,p_objvar_4_name VAOFSTRING,p_objvar_4_type VAOFNUMBER,p_objvar_4_value VAOFSTRING,p_objvar_5_name VAOFSTRING,p_objvar_5_type VAOFNUMBER,p_objvar_5_value VAOFSTRING,p_objvar_6_name VAOFSTRING,p_objvar_6_type VAOFNUMBER,p_objvar_6_value VAOFSTRING,p_objvar_7_name VAOFSTRING,p_objvar_7_type VAOFNUMBER,p_objvar_7_value VAOFSTRING,p_objvar_8_name VAOFSTRING,p_objvar_8_type VAOFNUMBER,p_objvar_8_value VAOFSTRING,p_objvar_9_name VAOFSTRING,p_objvar_9_type VAOFNUMBER,p_objvar_9_value VAOFSTRING, p_objvar_10_name VAOFSTRING,p_objvar_10_type VAOFNUMBER,p_objvar_10_value VAOFSTRING,p_objvar_11_name VAOFSTRING,p_objvar_11_type VAOFNUMBER,p_objvar_11_value VAOFSTRING,p_objvar_12_name VAOFSTRING,p_objvar_12_type VAOFNUMBER,p_objvar_12_value VAOFSTRING,p_objvar_13_name VAOFSTRING,p_objvar_13_type VAOFNUMBER,p_objvar_13_value VAOFSTRING,p_objvar_14_name VAOFSTRING,p_objvar_14_type VAOFNUMBER,p_objvar_14_value VAOFSTRING,p_objvar_15_name VAOFSTRING,p_objvar_15_type VAOFNUMBER,p_objvar_15_value VAOFSTRING,p_objvar_16_name VAOFSTRING,p_objvar_16_type VAOFNUMBER,p_objvar_16_value VAOFSTRING,p_objvar_17_name VAOFSTRING,p_objvar_17_type VAOFNUMBER,p_objvar_17_value VAOFSTRING,p_objvar_18_name VAOFSTRING,p_objvar_18_type VAOFNUMBER,p_objvar_18_value VAOFSTRING,p_objvar_19_name VAOFSTRING,p_objvar_19_type VAOFNUMBER,p_objvar_19_value VAOFSTRING, p_script_list VAOFLONGSTRING, p_object_id VAOFSTRING, p_chunk_size number) as cache_update VAOFNUMBER; begin cache_update := VAOFNUMBER(); -- initialize VARRAY object cache_update.extend(p_chunk_size); -- allocate VARRAY object memory to chunk size -- create cache_update array for use in bulk update FOR i IN 1..p_chunk_size LOOP if ((p_x(i) is not null) or (p_y(i) is not null) or (p_z(i) is not null) or (p_quaternion_w(i) is not null) or (p_quaternion_x(i) is not null) or (p_quaternion_y(i) is not null) or (p_quaternion_z(i) is not null) or (p_contained_by(i) is not null) or (p_cache_version(i) is not null)) then cache_update(i) := 0; else cache_update(i) := NULL; end if; END LOOP; -- process deletes FORALL i IN 1..p_chunk_size update objects set deleted = p_deleted(i), deleted_date = sysdate, load_with = NULL where object_id = p_object_id(i) and p_deleted(i) <> 0; -- process updates FORALL i IN 1..p_chunk_size update objects set x = nvl(p_x(i),x), y = nvl(p_y(i),y), z = nvl(p_z(i),z), quaternion_w = nvl(p_quaternion_w(i),quaternion_w), quaternion_x = nvl(p_quaternion_x(i),quaternion_x), quaternion_y = nvl(p_quaternion_y(i),quaternion_y), quaternion_z = nvl(p_quaternion_z(i),quaternion_z), node_x = nvl(p_node_x(i),node_x), node_y = nvl(p_node_y(i),node_y), node_z = nvl(p_node_z(i),node_z), object_template_id = nvl(p_object_template_id(i),object_template_id), type_id = nvl(p_type_id(i),type_id), scene_id = nvl(p_scene_id(i),scene_id), controller_type = nvl(p_controller_type(i),controller_type), deleted = nvl(p_deleted(i),deleted), object_name = nvl(p_object_name(i),object_name), volume = nvl(p_volume(i),volume), contained_by = nvl(p_contained_by(i),contained_by), slot_arrangement = nvl(p_slot_arrangement(i),slot_arrangement), player_controlled = nvl(p_player_controlled(i),player_controlled), cache_version = nvl(cache_update(i),cache_version), load_contents = nvl(p_load_contents(i),load_contents), cash_balance = nvl(p_cash_balance(i),cash_balance), bank_balance = nvl(p_bank_balance(i),bank_balance), complexity = nvl(p_complexity(i),complexity), name_string_table = nvl(p_name_string_table(i),name_string_table), name_string_text = nvl(p_name_string_text(i),name_string_text), static_item_name = nvl(p_static_item_name(i),static_item_name), static_item_version = nvl(p_static_item_version(i),static_item_version), conversion_id = nvl(p_conversion_id(i),conversion_id), load_with = nvl(p_load_with(i),load_with), objvar_0_name = nvl(p_objvar_0_name(i), objvar_0_name), objvar_0_type = nvl(p_objvar_0_type(i), objvar_0_type), objvar_0_value= nvl(p_objvar_0_value(i),objvar_0_value), objvar_1_name = nvl(p_objvar_1_name(i), objvar_1_name), objvar_1_type = nvl(p_objvar_1_type(i), objvar_1_type), objvar_1_value= nvl(p_objvar_1_value(i),objvar_1_value), objvar_2_name = nvl(p_objvar_2_name(i), objvar_2_name), objvar_2_type = nvl(p_objvar_2_type(i), objvar_2_type), objvar_2_value= nvl(p_objvar_2_value(i),objvar_2_value), objvar_3_name = nvl(p_objvar_3_name(i), objvar_3_name), objvar_3_type = nvl(p_objvar_3_type(i), objvar_3_type), objvar_3_value= nvl(p_objvar_3_value(i),objvar_3_value), objvar_4_name = nvl(p_objvar_4_name(i), objvar_4_name), objvar_4_type = nvl(p_objvar_4_type(i), objvar_4_type), objvar_4_value= nvl(p_objvar_4_value(i),objvar_4_value), objvar_5_name = nvl(p_objvar_5_name(i), objvar_5_name), objvar_5_type = nvl(p_objvar_5_type(i), objvar_5_type), objvar_5_value= nvl(p_objvar_5_value(i),objvar_5_value), objvar_6_name = nvl(p_objvar_6_name(i), objvar_6_name), objvar_6_type = nvl(p_objvar_6_type(i), objvar_6_type), objvar_6_value= nvl(p_objvar_6_value(i),objvar_6_value), objvar_7_name = nvl(p_objvar_7_name(i), objvar_7_name), objvar_7_type = nvl(p_objvar_7_type(i), objvar_7_type), objvar_7_value= nvl(p_objvar_7_value(i),objvar_7_value), objvar_8_name = nvl(p_objvar_8_name(i), objvar_8_name), objvar_8_type = nvl(p_objvar_8_type(i), objvar_8_type), objvar_8_value= nvl(p_objvar_8_value(i),objvar_8_value), objvar_9_name = nvl(p_objvar_9_name(i), objvar_9_name), objvar_9_type = nvl(p_objvar_9_type(i), objvar_9_type), objvar_9_value= nvl(p_objvar_9_value(i),objvar_9_value), objvar_10_name = nvl(p_objvar_10_name(i), objvar_10_name), objvar_10_type = nvl(p_objvar_10_type(i), objvar_10_type), objvar_10_value= nvl(p_objvar_10_value(i),objvar_10_value), objvar_11_name = nvl(p_objvar_11_name(i), objvar_11_name), objvar_11_type = nvl(p_objvar_11_type(i), objvar_11_type), objvar_11_value= nvl(p_objvar_11_value(i),objvar_11_value), objvar_12_name = nvl(p_objvar_12_name(i), objvar_12_name), objvar_12_type = nvl(p_objvar_12_type(i), objvar_12_type), objvar_12_value= nvl(p_objvar_12_value(i),objvar_12_value), objvar_13_name = nvl(p_objvar_13_name(i), objvar_13_name), objvar_13_type = nvl(p_objvar_13_type(i), objvar_13_type), objvar_13_value= nvl(p_objvar_13_value(i),objvar_13_value), objvar_14_name = nvl(p_objvar_14_name(i), objvar_14_name), objvar_14_type = nvl(p_objvar_14_type(i), objvar_14_type), objvar_14_value= nvl(p_objvar_14_value(i),objvar_14_value), objvar_15_name = nvl(p_objvar_15_name(i), objvar_15_name), objvar_15_type = nvl(p_objvar_15_type(i), objvar_15_type), objvar_15_value= nvl(p_objvar_15_value(i),objvar_15_value), objvar_16_name = nvl(p_objvar_16_name(i), objvar_16_name), objvar_16_type = nvl(p_objvar_16_type(i), objvar_16_type), objvar_16_value= nvl(p_objvar_16_value(i),objvar_16_value), objvar_17_name = nvl(p_objvar_17_name(i), objvar_17_name), objvar_17_type = nvl(p_objvar_17_type(i), objvar_17_type), objvar_17_value= nvl(p_objvar_17_value(i),objvar_17_value), objvar_18_name = nvl(p_objvar_18_name(i), objvar_18_name), objvar_18_type = nvl(p_objvar_18_type(i), objvar_18_type), objvar_18_value= nvl(p_objvar_18_value(i),objvar_18_value), objvar_19_name = nvl(p_objvar_19_name(i), objvar_19_name), objvar_19_type = nvl(p_objvar_19_type(i), objvar_19_type), objvar_19_value= nvl(p_objvar_19_value(i),objvar_19_value), script_list = nvl(p_script_list(i),script_list) where object_id=p_object_id(i) and (p_deleted(i) = 0 or p_deleted(i) is null); cache_update.delete; -- cleanup - delete VARRAY list end; procedure add_object ( p_x VAOFNUMBER, p_y VAOFNUMBER, p_z VAOFNUMBER, p_quaternion_w VAOFNUMBER, p_quaternion_x VAOFNUMBER, p_quaternion_y VAOFNUMBER, p_quaternion_z VAOFNUMBER, p_node_x VAOFNUMBER, p_node_y VAOFNUMBER, p_node_z VAOFNUMBER, p_object_template_id VAOFNUMBER, p_type_id VAOFNUMBER, p_scene_id VAOFSTRING, p_controller_type VAOFNUMBER, p_deleted VAOFNUMBER, p_object_name VAOFSTRING, p_volume VAOFNUMBER, p_contained_by VAOFSTRING, p_slot_arrangement VAOFNUMBER, p_player_controlled VAOFSTRING, p_cache_version VAOFNUMBER, p_load_contents VAOFSTRING, p_cash_balance VAOFNUMBER, p_bank_balance VAOFNUMBER, p_complexity VAOFNUMBER, p_name_string_table VAOFSTRING, p_name_string_text VAOFSTRING, p_static_item_name VAOFSTRING, p_static_item_version VAOFNUMBER, p_conversion_id VAOFNUMBER, p_load_with VAOFSTRING, p_objvar_0_name VAOFSTRING,p_objvar_0_type VAOFNUMBER,p_objvar_0_value VAOFSTRING,p_objvar_1_name VAOFSTRING,p_objvar_1_type VAOFNUMBER,p_objvar_1_value VAOFSTRING,p_objvar_2_name VAOFSTRING,p_objvar_2_type VAOFNUMBER,p_objvar_2_value VAOFSTRING,p_objvar_3_name VAOFSTRING,p_objvar_3_type VAOFNUMBER,p_objvar_3_value VAOFSTRING,p_objvar_4_name VAOFSTRING,p_objvar_4_type VAOFNUMBER,p_objvar_4_value VAOFSTRING,p_objvar_5_name VAOFSTRING,p_objvar_5_type VAOFNUMBER,p_objvar_5_value VAOFSTRING,p_objvar_6_name VAOFSTRING,p_objvar_6_type VAOFNUMBER,p_objvar_6_value VAOFSTRING,p_objvar_7_name VAOFSTRING,p_objvar_7_type VAOFNUMBER,p_objvar_7_value VAOFSTRING,p_objvar_8_name VAOFSTRING,p_objvar_8_type VAOFNUMBER,p_objvar_8_value VAOFSTRING,p_objvar_9_name VAOFSTRING,p_objvar_9_type VAOFNUMBER,p_objvar_9_value VAOFSTRING, p_objvar_10_name VAOFSTRING,p_objvar_10_type VAOFNUMBER,p_objvar_10_value VAOFSTRING,p_objvar_11_name VAOFSTRING,p_objvar_11_type VAOFNUMBER,p_objvar_11_value VAOFSTRING,p_objvar_12_name VAOFSTRING,p_objvar_12_type VAOFNUMBER,p_objvar_12_value VAOFSTRING,p_objvar_13_name VAOFSTRING,p_objvar_13_type VAOFNUMBER,p_objvar_13_value VAOFSTRING,p_objvar_14_name VAOFSTRING,p_objvar_14_type VAOFNUMBER,p_objvar_14_value VAOFSTRING,p_objvar_15_name VAOFSTRING,p_objvar_15_type VAOFNUMBER,p_objvar_15_value VAOFSTRING,p_objvar_16_name VAOFSTRING,p_objvar_16_type VAOFNUMBER,p_objvar_16_value VAOFSTRING,p_objvar_17_name VAOFSTRING,p_objvar_17_type VAOFNUMBER,p_objvar_17_value VAOFSTRING,p_objvar_18_name VAOFSTRING,p_objvar_18_type VAOFNUMBER,p_objvar_18_value VAOFSTRING,p_objvar_19_name VAOFSTRING,p_objvar_19_type VAOFNUMBER,p_objvar_19_value VAOFSTRING, p_script_list VAOFLONGSTRING, p_object_id VAOFSTRING, p_chunk_size number) as p_cache_update NUMBER; begin FORALL i IN 1..p_chunk_size insert into objects ( x, y, z, quaternion_w, quaternion_x, quaternion_y, quaternion_z, node_x, node_y, node_z, object_template_id, type_id, scene_id, controller_type, deleted, object_name, volume, contained_by, slot_arrangement, player_controlled, cache_version, load_contents, cash_balance, bank_balance, complexity, name_string_table, name_string_text, static_item_name, static_item_version, conversion_id, load_with, objvar_0_name, objvar_0_type, objvar_0_value, objvar_1_name, objvar_1_type, objvar_1_value, objvar_2_name, objvar_2_type, objvar_2_value, objvar_3_name, objvar_3_type, objvar_3_value, objvar_4_name, objvar_4_type, objvar_4_value, objvar_5_name, objvar_5_type, objvar_5_value, objvar_6_name, objvar_6_type, objvar_6_value, objvar_7_name, objvar_7_type, objvar_7_value, objvar_8_name, objvar_8_type, objvar_8_value, objvar_9_name, objvar_9_type, objvar_9_value, objvar_10_name, objvar_10_type, objvar_10_value, objvar_11_name, objvar_11_type, objvar_11_value, objvar_12_name, objvar_12_type, objvar_12_value, objvar_13_name, objvar_13_type, objvar_13_value, objvar_14_name, objvar_14_type, objvar_14_value, objvar_15_name, objvar_15_type, objvar_15_value, objvar_16_name, objvar_16_type, objvar_16_value, objvar_17_name, objvar_17_type, objvar_17_value, objvar_18_name, objvar_18_type, objvar_18_value, objvar_19_name, objvar_19_type, objvar_19_value, script_list, object_id ) values ( p_x(i), p_y(i), p_z(i), p_quaternion_w(i), p_quaternion_x(i), p_quaternion_y(i), p_quaternion_z(i), p_node_x(i), p_node_y(i), p_node_z(i), p_object_template_id(i), p_type_id(i), p_scene_id(i), p_controller_type(i), p_deleted(i), p_object_name(i), p_volume(i), p_contained_by(i), p_slot_arrangement(i), p_player_controlled(i), 0, p_load_contents(i), p_cash_balance(i), p_bank_balance(i), p_complexity(i), p_name_string_table(i), p_name_string_text(i), p_static_item_name(i), p_static_item_version(i), p_conversion_id(i), p_load_with(i), p_objvar_0_name(i), p_objvar_0_type(i), p_objvar_0_value(i), p_objvar_1_name(i), p_objvar_1_type(i), p_objvar_1_value(i), p_objvar_2_name(i), p_objvar_2_type(i), p_objvar_2_value(i), p_objvar_3_name(i), p_objvar_3_type(i), p_objvar_3_value(i), p_objvar_4_name(i), p_objvar_4_type(i), p_objvar_4_value(i), p_objvar_5_name(i), p_objvar_5_type(i), p_objvar_5_value(i), p_objvar_6_name(i), p_objvar_6_type(i), p_objvar_6_value(i), p_objvar_7_name(i), p_objvar_7_type(i), p_objvar_7_value(i), p_objvar_8_name(i), p_objvar_8_type(i), p_objvar_8_value(i), p_objvar_9_name(i), p_objvar_9_type(i), p_objvar_9_value(i), p_objvar_10_name(i), p_objvar_10_type(i), p_objvar_10_value(i), p_objvar_11_name(i), p_objvar_11_type(i), p_objvar_11_value(i), p_objvar_12_name(i), p_objvar_12_type(i), p_objvar_12_value(i), p_objvar_13_name(i), p_objvar_13_type(i), p_objvar_13_value(i), p_objvar_14_name(i), p_objvar_14_type(i), p_objvar_14_value(i), p_objvar_15_name(i), p_objvar_15_type(i), p_objvar_15_value(i), p_objvar_16_name(i), p_objvar_16_type(i), p_objvar_16_value(i), p_objvar_17_name(i), p_objvar_17_type(i), p_objvar_17_value(i), p_objvar_18_name(i), p_objvar_18_type(i), p_objvar_18_value(i), p_objvar_19_name(i), p_objvar_19_type(i), p_objvar_19_value(i), p_script_list(i), p_object_id(i) ); exception when dup_val_on_index then for i in 1..p_chunk_size loop if ((p_x(i) is not null) or (p_y(i) is not null) or (p_z(i) is not null) or (p_quaternion_w(i) is not null) or (p_quaternion_x(i) is not null) or (p_quaternion_y(i) is not null) or (p_quaternion_z(i) is not null) or (p_contained_by(i) is not null) or (p_cache_version(i) is not null)) then p_cache_update := 0; else p_cache_update := NULL; end if; UPDATE OBJECTS Set x = nvl(p_x(i),x), y = nvl(p_y(i),y), z = nvl(p_z(i),z), quaternion_w = nvl(p_quaternion_w(i),quaternion_w), quaternion_x = nvl(p_quaternion_x(i),quaternion_x), quaternion_y = nvl(p_quaternion_y(i),quaternion_y), quaternion_z = nvl(p_quaternion_z(i),quaternion_z), node_x = nvl(p_node_x(i),node_x), node_y = nvl(p_node_y(i),node_y), node_z = nvl(p_node_z(i),node_z), object_template_id = nvl(p_object_template_id(i),object_template_id), type_id = nvl(p_type_id(i),type_id), scene_id = nvl(p_scene_id(i),scene_id), controller_type = nvl(p_controller_type(i),controller_type), deleted = nvl(p_deleted(i),deleted), object_name = nvl(p_object_name(i),object_name), volume = nvl(p_volume(i),volume), contained_by = nvl(p_contained_by(i),contained_by), slot_arrangement = nvl(p_slot_arrangement(i),slot_arrangement), player_controlled = nvl(p_player_controlled(i),player_controlled), cache_version = nvl(p_cache_update,cache_version), load_contents = nvl(p_load_contents(i),load_contents), cash_balance = nvl(p_cash_balance(i),cash_balance), bank_balance = nvl(p_bank_balance(i),bank_balance), complexity = nvl(p_complexity(i),complexity), name_string_table = nvl(p_name_string_table(i),name_string_table), name_string_text = nvl(p_name_string_text(i),name_string_text), static_item_name = nvl(p_static_item_name(i),static_item_name), static_item_version = nvl(p_static_item_version(i),static_item_version), conversion_id = nvl(p_conversion_id(i),conversion_id), load_with = nvl(p_load_with(i),load_with), objvar_0_name = nvl(p_objvar_0_name(i), objvar_0_name), objvar_0_type = nvl(p_objvar_0_type(i), objvar_0_type), objvar_0_value= nvl(p_objvar_0_value(i),objvar_0_value), objvar_1_name = nvl(p_objvar_1_name(i), objvar_1_name), objvar_1_type = nvl(p_objvar_1_type(i), objvar_1_type), objvar_1_value= nvl(p_objvar_1_value(i),objvar_1_value), objvar_2_name = nvl(p_objvar_2_name(i), objvar_2_name), objvar_2_type = nvl(p_objvar_2_type(i), objvar_2_type), objvar_2_value= nvl(p_objvar_2_value(i),objvar_2_value), objvar_3_name = nvl(p_objvar_3_name(i), objvar_3_name), objvar_3_type = nvl(p_objvar_3_type(i), objvar_3_type), objvar_3_value= nvl(p_objvar_3_value(i),objvar_3_value), objvar_4_name = nvl(p_objvar_4_name(i), objvar_4_name), objvar_4_type = nvl(p_objvar_4_type(i), objvar_4_type), objvar_4_value= nvl(p_objvar_4_value(i),objvar_4_value), objvar_5_name = nvl(p_objvar_5_name(i), objvar_5_name), objvar_5_type = nvl(p_objvar_5_type(i), objvar_5_type), objvar_5_value= nvl(p_objvar_5_value(i),objvar_5_value), objvar_6_name = nvl(p_objvar_6_name(i), objvar_6_name), objvar_6_type = nvl(p_objvar_6_type(i), objvar_6_type), objvar_6_value= nvl(p_objvar_6_value(i),objvar_6_value), objvar_7_name = nvl(p_objvar_7_name(i), objvar_7_name), objvar_7_type = nvl(p_objvar_7_type(i), objvar_7_type), objvar_7_value= nvl(p_objvar_7_value(i),objvar_7_value), objvar_8_name = nvl(p_objvar_8_name(i), objvar_8_name), objvar_8_type = nvl(p_objvar_8_type(i), objvar_8_type), objvar_8_value= nvl(p_objvar_8_value(i),objvar_8_value), objvar_9_name = nvl(p_objvar_9_name(i), objvar_9_name), objvar_9_type = nvl(p_objvar_9_type(i), objvar_9_type), objvar_9_value= nvl(p_objvar_9_value(i),objvar_9_value), objvar_10_name = nvl(p_objvar_10_name(i), objvar_10_name), objvar_10_type = nvl(p_objvar_10_type(i), objvar_10_type), objvar_10_value= nvl(p_objvar_10_value(i),objvar_10_value), objvar_11_name = nvl(p_objvar_11_name(i), objvar_11_name), objvar_11_type = nvl(p_objvar_11_type(i), objvar_11_type), objvar_11_value= nvl(p_objvar_11_value(i),objvar_11_value), objvar_12_name = nvl(p_objvar_12_name(i), objvar_12_name), objvar_12_type = nvl(p_objvar_12_type(i), objvar_12_type), objvar_12_value= nvl(p_objvar_12_value(i),objvar_12_value), objvar_13_name = nvl(p_objvar_13_name(i), objvar_13_name), objvar_13_type = nvl(p_objvar_13_type(i), objvar_13_type), objvar_13_value= nvl(p_objvar_13_value(i),objvar_13_value), objvar_14_name = nvl(p_objvar_14_name(i), objvar_14_name), objvar_14_type = nvl(p_objvar_14_type(i), objvar_14_type), objvar_14_value= nvl(p_objvar_14_value(i),objvar_14_value), objvar_15_name = nvl(p_objvar_15_name(i), objvar_15_name), objvar_15_type = nvl(p_objvar_15_type(i), objvar_15_type), objvar_15_value= nvl(p_objvar_15_value(i),objvar_15_value), objvar_16_name = nvl(p_objvar_16_name(i), objvar_16_name), objvar_16_type = nvl(p_objvar_16_type(i), objvar_16_type), objvar_16_value= nvl(p_objvar_16_value(i),objvar_16_value), objvar_17_name = nvl(p_objvar_17_name(i), objvar_17_name), objvar_17_type = nvl(p_objvar_17_type(i), objvar_17_type), objvar_17_value= nvl(p_objvar_17_value(i),objvar_17_value), objvar_18_name = nvl(p_objvar_18_name(i), objvar_18_name), objvar_18_type = nvl(p_objvar_18_type(i), objvar_18_type), objvar_18_value= nvl(p_objvar_18_value(i),objvar_18_value), objvar_19_name = nvl(p_objvar_19_name(i), objvar_19_name), objvar_19_type = nvl(p_objvar_19_type(i), objvar_19_type), objvar_19_value= nvl(p_objvar_19_value(i),objvar_19_value), script_list = nvl(p_script_list(i), script_list) WHERE object_id=p_object_id(i) and p_deleted(i) = 0; if SQL%ROWCOUNT=0 then insert into objects ( x, y, z, quaternion_w, quaternion_x, quaternion_y, quaternion_z, node_x, node_y, node_z, object_template_id, type_id, scene_id, controller_type, deleted, object_name, volume, contained_by, slot_arrangement, player_controlled, cache_version, load_contents, cash_balance, bank_balance, complexity, name_string_table, name_string_text, static_item_name, static_item_version, conversion_id, load_with, objvar_0_name, objvar_0_type, objvar_0_value, objvar_1_name, objvar_1_type, objvar_1_value, objvar_2_name, objvar_2_type, objvar_2_value, objvar_3_name, objvar_3_type, objvar_3_value, objvar_4_name, objvar_4_type, objvar_4_value, objvar_5_name, objvar_5_type, objvar_5_value, objvar_6_name, objvar_6_type, objvar_6_value, objvar_7_name, objvar_7_type, objvar_7_value, objvar_8_name, objvar_8_type, objvar_8_value, objvar_9_name, objvar_9_type, objvar_9_value, objvar_10_name, objvar_10_type, objvar_10_value, objvar_11_name, objvar_11_type, objvar_11_value, objvar_12_name, objvar_12_type, objvar_12_value, objvar_13_name, objvar_13_type, objvar_13_value, objvar_14_name, objvar_14_type, objvar_14_value, objvar_15_name, objvar_15_type, objvar_15_value, objvar_16_name, objvar_16_type, objvar_16_value, objvar_17_name, objvar_17_type, objvar_17_value, objvar_18_name, objvar_18_type, objvar_18_value, objvar_19_name, objvar_19_type, objvar_19_value, script_list, object_id ) values ( p_x(i), p_y(i), p_z(i), p_quaternion_w(i), p_quaternion_x(i), p_quaternion_y(i), p_quaternion_z(i), p_node_x(i), p_node_y(i), p_node_z(i), p_object_template_id(i), p_type_id(i), p_scene_id(i), p_controller_type(i), p_deleted(i), p_object_name(i), p_volume(i), p_contained_by(i), p_slot_arrangement(i), p_player_controlled(i), 0, p_load_contents(i), p_cash_balance(i), p_bank_balance(i), p_complexity(i), p_name_string_table(i), p_name_string_text(i), p_static_item_name(i), p_static_item_version(i), p_conversion_id(i), p_load_with(i), p_objvar_0_name(i), p_objvar_0_type(i), p_objvar_0_value(i), p_objvar_1_name(i), p_objvar_1_type(i), p_objvar_1_value(i), p_objvar_2_name(i), p_objvar_2_type(i), p_objvar_2_value(i), p_objvar_3_name(i), p_objvar_3_type(i), p_objvar_3_value(i), p_objvar_4_name(i), p_objvar_4_type(i), p_objvar_4_value(i), p_objvar_5_name(i), p_objvar_5_type(i), p_objvar_5_value(i), p_objvar_6_name(i), p_objvar_6_type(i), p_objvar_6_value(i), p_objvar_7_name(i), p_objvar_7_type(i), p_objvar_7_value(i), p_objvar_8_name(i), p_objvar_8_type(i), p_objvar_8_value(i), p_objvar_9_name(i), p_objvar_9_type(i), p_objvar_9_value(i), p_objvar_10_name(i), p_objvar_10_type(i), p_objvar_10_value(i), p_objvar_11_name(i), p_objvar_11_type(i), p_objvar_11_value(i), p_objvar_12_name(i), p_objvar_12_type(i), p_objvar_12_value(i), p_objvar_13_name(i), p_objvar_13_type(i), p_objvar_13_value(i), p_objvar_14_name(i), p_objvar_14_type(i), p_objvar_14_value(i), p_objvar_15_name(i), p_objvar_15_type(i), p_objvar_15_value(i), p_objvar_16_name(i), p_objvar_16_type(i), p_objvar_16_value(i), p_objvar_17_name(i), p_objvar_17_type(i), p_objvar_17_value(i), p_objvar_18_name(i), p_objvar_18_type(i), p_objvar_18_value(i), p_objvar_19_name(i), p_objvar_19_type(i), p_objvar_19_value(i), p_script_list(i), p_object_id(i) ); end if; end loop; end; procedure remove_object ( p_object_id VAOFSTRING, p_chunk_size number) as begin FORALL i IN 1..p_chunk_size delete from objects where object_id = p_object_id(i); end; procedure save_manf_schem_attribute ( p_action number, p_object_id objectid, p_attribute_type varchar2, p_value number ) as begin if (p_action = 0) then delete manf_schematic_attributes where object_id = p_object_id and attribute_type = p_attribute_type; else update manf_schematic_attributes set value = p_value where object_id = p_object_id and attribute_type = p_attribute_type; if (sql%rowcount = 0) then insert into manf_schematic_attributes (object_id, attribute_type, value) values (p_object_id, p_attribute_type, p_value); end if; end if; end; procedure update_property_list ( p_object_id objectid, p_list_id number, p_operation number, p_value varchar2 ) as begin -- Operations: -- 0=ERASE -- 1=INSERT -- 2=CLEAR IF p_operation = 0 THEN delete from property_lists where object_id = p_object_id and list_id = p_list_id and value = p_value; ELSIF p_operation = 1 THEN insert into property_lists (object_id, list_id, value) values (p_object_id, p_list_id, p_value); ELSIF p_operation = 2 THEN delete from property_lists where object_id = p_object_id and list_id = p_list_id; ELSE raise_application_error(-20000,'Invalid operation code passed to update_command.'); END IF; exception when dup_val_on_index then null; end; procedure update_property_list_batch (p_object_id VAOFSTRING, p_list_id VAOFNUMBER, p_operation number, p_value VAOFSTRING, p_chunk_size number, p_enable_db_logging number ) as begin -- Operations: -- 0=ERASE -- 1=INSERT -- 2=CLEAR if (p_operation = 0) THEN FORALL i IN 1.. p_chunk_size delete from property_lists where object_id = p_object_id(i) and list_id = p_list_id(i) and value = p_value(i); ELSIF (p_operation = 1) THEN FORALL i IN 1.. p_chunk_size insert into property_lists (object_id, list_id, value) values (p_object_id(i), p_list_id(i), p_value(i)); ELSIF (p_operation = 2) THEN FORALL i IN 1.. p_chunk_size delete from property_lists where object_id = p_object_id(i) and list_id = p_list_id(i); ELSE raise_application_error(-20000,'Invalid operation code passed to update_command.'); END IF; exception when dup_val_on_index then for i in 1..p_chunk_size loop begin insert into property_lists ( property_lists.list_id, property_lists.value, property_lists.object_id ) VALUES ( p_list_id(i), p_value(i), p_object_id(i) ); exception when dup_val_on_index then if ( p_enable_db_logging > 0 ) then db_error_logger.dblogerror( SQLCODE, 'procedure update_property_list_batch: duplicate rows were sent to the property list buffer that resulted in a dup_val_on_index error.'); if ( p_enable_db_logging > 1 ) then db_error_logger.dblogerror_values( 'property_lists', 'object_id' , 'number', p_object_id(i)); db_error_logger.dblogerror_values( 'property_lists', 'list_id' , 'number', to_char(p_list_id(i))); db_error_logger.dblogerror_values( 'property_lists', 'value' , 'varchar2', p_value(i)); end if; else NULL; end if; end; end loop; end; procedure save_armor ( p_object_template varchar2, p_effectiveness number, p_integrity number, p_special_protections varchar2, p_encumberance_0 number, p_encumberance_1 number, p_encumberance_2 number, p_encumberance_3 number, p_encumberance_4 number, p_encumberance_5 number, p_encumberance_6 number, p_encumberance_7 number, p_encumberance_8 number, p_layer number, p_object_id objectid ) as begin -- Note: armor always updates all properties update armor set object_template = p_object_template, effectiveness = p_effectiveness, integrity = p_integrity, special_protections = p_special_protections, encumberance_0 = p_encumberance_0, encumberance_1 = p_encumberance_1, encumberance_2 = p_encumberance_2, encumberance_3 = p_encumberance_3, encumberance_4 = p_encumberance_4, encumberance_5 = p_encumberance_5, encumberance_6 = p_encumberance_6, encumberance_7 = p_encumberance_7, encumberance_8 = p_encumberance_8 where layer = p_layer and object_id = p_object_id; end; procedure add_armor ( p_object_template varchar2, p_effectiveness number, p_integrity number, p_special_protections varchar2, p_encumberance_0 number, p_encumberance_1 number, p_encumberance_2 number, p_encumberance_3 number, p_encumberance_4 number, p_encumberance_5 number, p_encumberance_6 number, p_encumberance_7 number, p_encumberance_8 number, p_layer number, p_object_id objectid ) as begin insert into armor ( object_template, effectiveness, integrity, special_protections, encumberance_0, encumberance_1, encumberance_2, encumberance_3, encumberance_4, encumberance_5, encumberance_6, encumberance_7, encumberance_8, layer, object_id ) values ( p_object_template, p_effectiveness, p_integrity, p_special_protections, p_encumberance_0, p_encumberance_1, p_encumberance_2, p_encumberance_3, p_encumberance_4, p_encumberance_5, p_encumberance_6, p_encumberance_7, p_encumberance_8, p_layer, p_object_id ); exception when dup_val_on_index then null; end; procedure save_location ( p_object_id number, p_list_id number, p_sequence_number number, p_operation number, p_name varchar2, p_scene varchar2, p_x number, p_y number, p_z number, p_radius number ) as begin -- Operations: -- 0=INSERT -- 1=DELETE -- 2=SET IF p_operation = 0 THEN insert into location_lists (object_id, list_id, sequence_number, name, scene, x, y, z, radius) select p_object_id, p_list_id, p_sequence_number, p_name, p_scene, p_x, p_y, p_z, p_radius from dual where not exists (select * from location_lists where object_id = p_object_id and list_id = p_list_id and sequence_number = p_sequence_number); ELSIF p_operation = 1 THEN delete from location_lists where object_id = p_object_id and list_id = p_list_id and sequence_number = p_sequence_number; update location_lists set sequence_number = sequence_number - 1 where object_id = p_object_id and list_id = p_list_id and sequence_number > p_sequence_number; ELSIF p_operation = 2 THEN update location_lists set name = p_name, scene = p_scene, x = p_x, y = p_y, z = p_z, radius = p_radius where object_id = p_object_id and list_id = p_list_id and sequence_number = p_sequence_number; ELSE raise_application_error(-20000,'Invalid operation code passed to update_skill.'); END IF; end; procedure save_experience ( p_points number, p_experience_type varchar2, p_object_id number ) as begin update experience_points set points = p_points where object_id = p_object_id and experience_type = p_experience_type; if sql%rowcount = 0 then insert into experience_points (object_id, experience_type, points) values (p_object_id, p_experience_type, p_points); end if; end; procedure save_battlefield_participants ( p_faction_id number, p_character_object_id number, p_region_object_id number ) as begin if (p_faction_id <> 0) then update battlefield_participants set faction_id = p_faction_id where region_object_id = p_region_object_id and character_object_id = p_character_object_id; if sql%rowcount = 0 then insert into battlefield_participants (region_object_id, character_object_id, faction_id) values (p_region_object_id, p_character_object_id, p_faction_id); end if; else delete battlefield_participants where region_object_id = p_region_object_id and character_object_id = p_character_object_id; end if; end; function rename_character( p_character_id objectid, p_new_name varchar2, p_normalized_name varchar2) return number as l_existing_object_with_name objectid; begin select character_object into l_existing_object_with_name from players where uc_character_name = p_normalized_name; if (l_existing_object_with_name = p_character_id) then update objects set object_name = p_new_name where object_id = p_character_id; if (sql%rowcount=1) then update players set uc_character_name = p_normalized_name, character_full_name = p_new_name where character_object = p_character_id; return 1; else return 0; end if; else return 0; end if; exception when no_data_found then update objects set object_name = p_new_name where object_id = p_character_id; if (sql%rowcount=1) then update players set uc_character_name = p_normalized_name, character_full_name = p_new_name where character_object = p_character_id; return 1; else return 0; end if; when others then return 0; end; procedure save_waypoint ( p_object_id objectid, p_waypoint_id objectid, p_appearance_name_crc number, p_location_x number, p_location_y number, p_location_z number, p_location_cell number, p_location_scene number, p_name varchar2, p_color number, p_active char, p_detached char ) as begin if p_detached='N' then update waypoints set appearance_name_crc = p_appearance_name_crc, location_x = p_location_x, location_y = p_location_y, location_z = p_location_z, location_cell = p_location_cell, location_scene = p_location_scene, name = p_name, color = p_color, active = p_active where waypoint_id = p_waypoint_id; if (sql%rowcount=0) then insert into waypoints ( object_id, waypoint_id, appearance_name_crc, location_x, location_y, location_z, location_cell, location_scene, name, color, active ) values ( p_object_id, p_waypoint_id, p_appearance_name_crc, p_location_x, p_location_y, p_location_z, p_location_cell, p_location_scene, p_name, p_color, p_active ); end if; else -- p_detached <> 'N' delete waypoints where waypoint_id = p_waypoint_id; end if; EXCEPTION WHEN OTHERS THEN BEGIN Db_Error_Logger.dblogerror( SQLCODE, 'procedure save_waypoint: attempting to find numeric overflow error.'); Db_Error_Logger.dblogerror_values( 'waypoints', 'object_id' , 'number', p_object_id); Db_Error_Logger.dblogerror_values( 'waypoints', 'waypoint_id' , 'number', p_waypoint_id); Db_Error_Logger.dblogerror_values( 'waypoints', 'appearance_name_crc' , 'number', TO_CHAR(p_appearance_name_crc)); Db_Error_Logger.dblogerror_values( 'waypoints', 'location_x' , 'number', TO_CHAR(p_location_x)); Db_Error_Logger.dblogerror_values( 'waypoints', 'location_y' , 'number', TO_CHAR(p_location_y)); Db_Error_Logger.dblogerror_values( 'waypoints', 'location_z' , 'number', TO_CHAR(p_location_z)); Db_Error_Logger.dblogerror_values( 'waypoints', 'location_cell' , 'number', TO_CHAR(p_location_cell)); Db_Error_Logger.dblogerror_values( 'waypoints', 'location_scene' , 'number', TO_CHAR(p_location_scene)); Db_Error_Logger.dblogerror_values( 'waypoints', 'name' , 'varchar2', p_name); Db_Error_Logger.dblogerror_values( 'waypoints', 'color' , 'char', p_color); Db_Error_Logger.dblogerror_values( 'waypoints', 'active' , 'char', p_active); EXCEPTION WHEN OTHERS THEN NULL; END; end; procedure save_player_obj( p_object_id VAOFSTRING, p_station_id VAOFNUMBER, p_house_id VAOFSTRING, p_account_num_lots VAOFNUMBER, p_account_is_outcast VAOFSTRING, p_account_cheater_level VAOFNUMBER, p_account_max_lots_adjustment VAOFNUMBER, p_personal_profile_id VAOFSTRING, p_character_profile_id VAOFSTRING, p_skill_title VAOFSTRING, p_born_date VAOFNUMBER, p_played_time VAOFNUMBER, p_force_regen_rate VAOFNUMBER, p_force_power VAOFNUMBER, p_max_force_power VAOFNUMBER, p_active_quests VAOFSTRING, p_completed_quests VAOFSTRING, p_current_quest VAOFNUMBER, p_quests VAOFLONGSTRING, p_role_icon_choice VAOFNUMBER, p_quests2 VAOFLONGSTRING, p_quests3 VAOFLONGSTRING, p_quests4 VAOFLONGSTRING, p_skill_template VAOFSTRING, p_working_skill VAOFSTRING, p_current_gcw_points VAOFNUMBER, p_current_gcw_rating VAOFNUMBER, p_current_pvp_kills VAOFNUMBER, p_lifetime_gcw_points VAOFNUMBER, p_max_gcw_imperial_rating VAOFNUMBER, p_max_gcw_rebel_rating VAOFNUMBER, p_lifetime_pvp_kills VAOFNUMBER, p_next_gcw_rating_calc_time VAOFNUMBER, p_collections VAOFLONGSTRING, p_show_backpack VAOFSTRING, p_show_helmet VAOFSTRING, p_collections2 VAOFLONGSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size update player_objects set player_objects.station_id = nvl(p_station_id(i),player_objects.station_id), player_objects.personal_profile_id = nvl(p_personal_profile_id(i),player_objects.personal_profile_id), player_objects.character_profile_id = nvl(p_character_profile_id(i),player_objects.character_profile_id), player_objects.skill_title = nvl(p_skill_title(i),player_objects.skill_title), player_objects.born_date = nvl(p_born_date(i),player_objects.born_date), player_objects.played_time = nvl(p_played_time(i),player_objects.played_time), player_objects.force_regen_rate = nvl(p_force_regen_rate(i),player_objects.force_regen_rate), player_objects.force_power = nvl(p_force_power(i),player_objects.force_power), player_objects.max_force_power = nvl(p_max_force_power(i),player_objects.max_force_power), player_objects.active_quests = nvl(p_active_quests(i),player_objects.active_quests), player_objects.completed_quests = nvl(p_completed_quests(i),player_objects.completed_quests), player_objects.current_quest = nvl(p_current_quest(i),player_objects.current_quest), player_objects.quests = nvl(p_quests(i),player_objects.quests), player_objects.role_icon_choice = nvl(p_role_icon_choice(i),player_objects.role_icon_choice), player_objects.quests2 = nvl(p_quests2(i),player_objects.quests2), player_objects.quests3 = nvl(p_quests3(i),player_objects.quests3), player_objects.quests4 = nvl(p_quests4(i),player_objects.quests4), player_objects.skill_template = nvl(p_skill_template(i),player_objects.skill_template), player_objects.working_skill = nvl(p_working_skill(i),player_objects.working_skill), player_objects.current_gcw_points = nvl(p_current_gcw_points(i),player_objects.current_gcw_points), player_objects.current_gcw_rating = nvl(p_current_gcw_rating(i),player_objects.current_gcw_rating), player_objects.current_pvp_kills = nvl(p_current_pvp_kills(i),player_objects.current_pvp_kills), player_objects.lifetime_gcw_points = nvl(p_lifetime_gcw_points(i),player_objects.lifetime_gcw_points), player_objects.max_gcw_imperial_rating = nvl(p_max_gcw_imperial_rating(i),player_objects.max_gcw_imperial_rating), player_objects.max_gcw_rebel_rating = nvl(p_max_gcw_rebel_rating(i),player_objects.max_gcw_rebel_rating), player_objects.lifetime_pvp_kills = nvl(p_lifetime_pvp_kills(i),player_objects.lifetime_pvp_kills), player_objects.next_gcw_rating_calc_time = nvl(p_next_gcw_rating_calc_time(i),player_objects.next_gcw_rating_calc_time), player_objects.collections = nvl(p_collections(i),player_objects.collections), player_objects.show_backpack = nvl(p_show_backpack(i),player_objects.show_backpack), player_objects.show_helmet = nvl(p_show_helmet(i),player_objects.show_helmet), player_objects.collections2 = nvl(p_collections2(i),player_objects.collections2), num_lots = nvl(p_account_num_lots(i), num_lots) where player_objects.object_id=p_object_id(i); FOR i IN 1.. p_chunk_size LOOP if (p_station_id(i) is not null) then begin insert into accounts (station_id, is_outcast, cheater_level) values (p_station_id(i), 0,0); exception when dup_val_on_index then null; end; end if; end LOOP; FORALL i IN 1..p_chunk_size update accounts set is_outcast = nvl(p_account_is_outcast(i), is_outcast), cheater_level = nvl(p_account_cheater_level(i), cheater_level), max_lots_adjustment = nvl(p_account_max_lots_adjustment(i), max_lots_adjustment), house_id = nvl(p_house_id(i), house_id) where station_id = (select station_id from player_objects where object_id = p_object_id(i)); end; procedure add_player_obj( p_object_id VAOFSTRING, p_station_id VAOFNUMBER, p_house_id VAOFSTRING, p_account_num_lots VAOFNUMBER, p_account_is_outcast VAOFSTRING, p_account_cheater_level VAOFNUMBER, p_account_max_lots_adjustment VAOFNUMBER, p_personal_profile_id VAOFSTRING, p_character_profile_id VAOFSTRING, p_skill_title VAOFSTRING, p_born_date VAOFNUMBER, p_played_time VAOFNUMBER, p_force_regen_rate VAOFNUMBER, p_force_power VAOFNUMBER, p_max_force_power VAOFNUMBER, p_active_quests VAOFSTRING, p_completed_quests VAOFSTRING, p_current_quest VAOFNUMBER, p_quests VAOFLONGSTRING, p_role_icon_choice VAOFNUMBER, p_quests2 VAOFLONGSTRING, p_quests3 VAOFLONGSTRING, p_quests4 VAOFLONGSTRING, p_skill_template VAOFSTRING, p_working_skill VAOFSTRING, p_current_gcw_points VAOFNUMBER, p_current_gcw_rating VAOFNUMBER, p_current_pvp_kills VAOFNUMBER, p_lifetime_gcw_points VAOFNUMBER, p_max_gcw_imperial_rating VAOFNUMBER, p_max_gcw_rebel_rating VAOFNUMBER, p_lifetime_pvp_kills VAOFNUMBER, p_next_gcw_rating_calc_time VAOFNUMBER, p_collections VAOFLONGSTRING, p_show_backpack VAOFSTRING, p_show_helmet VAOFSTRING, p_collections2 VAOFLONGSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size insert into player_objects ( player_objects.station_id, player_objects.personal_profile_id, player_objects.character_profile_id, player_objects.skill_title, player_objects.born_date, player_objects.played_time, player_objects.force_regen_rate, player_objects.force_power, player_objects.max_force_power, player_objects.num_lots, player_objects.object_id, player_objects.active_quests, player_objects.completed_quests, player_objects.current_quest, player_objects.quests, player_objects.role_icon_choice, player_objects.quests2, player_objects.quests3, player_objects.quests4, player_objects.skill_template, player_objects.working_skill, player_objects.current_gcw_points, player_objects.current_gcw_rating, player_objects.current_pvp_kills, player_objects.lifetime_gcw_points, player_objects.max_gcw_imperial_rating, player_objects.max_gcw_rebel_rating, player_objects.lifetime_pvp_kills, player_objects.next_gcw_rating_calc_time, player_objects.collections, player_objects.show_backpack, player_objects.show_helmet, player_objects.collections2 ) VALUES ( p_station_id(i), p_personal_profile_id(i), p_character_profile_id(i), p_skill_title(i), p_born_date(i), p_played_time(i), p_force_regen_rate(i), p_force_power(i), p_max_force_power(i), p_account_num_lots(i), p_object_id(i), p_active_quests(i), p_completed_quests(i), p_current_quest(i), p_quests(i), p_role_icon_choice(i), p_quests2(i), p_quests3(i), p_quests4(i), p_skill_template(i), p_working_skill(i), p_current_gcw_points(i), p_current_gcw_rating(i), p_current_pvp_kills(i), p_lifetime_gcw_points(i), p_max_gcw_imperial_rating(i), p_max_gcw_rebel_rating(i), p_lifetime_pvp_kills(i), p_next_gcw_rating_calc_time(i), p_collections(i), p_show_backpack(i), p_show_helmet(i), p_collections2(i) ); FOR i IN 1.. p_chunk_size LOOP if (p_station_id(i) is not null) then begin insert into accounts (station_id, is_outcast, cheater_level, max_lots_adjustment, house_id) values (p_station_id(i), p_account_is_outcast(i), p_account_cheater_level(i), p_account_max_lots_adjustment(i), p_house_id(i)); exception when dup_val_on_index then null; end; end if; end LOOP; exception when dup_val_on_index then for i in 1..p_chunk_size loop UPDATE player_objects Set player_objects.station_id = nvl(p_station_id(i),player_objects.station_id), player_objects.personal_profile_id = nvl(p_personal_profile_id(i),player_objects.personal_profile_id), player_objects.character_profile_id = nvl(p_character_profile_id(i),player_objects.character_profile_id), player_objects.skill_title = nvl(p_skill_title(i),player_objects.skill_title), player_objects.born_date = nvl(p_born_date(i),player_objects.born_date), player_objects.played_time = nvl(p_played_time(i),player_objects.played_time), player_objects.force_regen_rate = nvl(p_force_regen_rate(i),player_objects.force_regen_rate), player_objects.force_power = nvl(p_force_power(i),player_objects.force_power), player_objects.max_force_power = nvl(p_max_force_power(i),player_objects.max_force_power), player_objects.num_lots = nvl(p_account_num_lots(i), num_lots), player_objects.active_quests = nvl(p_active_quests(i),player_objects.active_quests), player_objects.completed_quests = nvl(p_completed_quests(i),player_objects.completed_quests), player_objects.current_quest = nvl(p_current_quest(i),player_objects.current_quest), player_objects.quests = nvl(p_quests(i),player_objects.quests), player_objects.role_icon_choice = nvl(p_role_icon_choice(i),player_objects.role_icon_choice), player_objects.quests2 = nvl(p_quests(i),player_objects.quests2), player_objects.quests3 = nvl(p_quests(i),player_objects.quests3), player_objects.quests4 = nvl(p_quests(i),player_objects.quests4), player_objects.skill_template = nvl(p_skill_template(i),player_objects.skill_template), player_objects.working_skill = nvl(p_working_skill(i),player_objects.working_skill), player_objects.current_gcw_points = nvl(p_current_gcw_points(i),player_objects.current_gcw_points), player_objects.current_gcw_rating = nvl(p_current_gcw_rating(i),player_objects.current_gcw_rating), player_objects.current_pvp_kills = nvl(p_current_pvp_kills(i),player_objects.current_pvp_kills), player_objects.lifetime_gcw_points = nvl(p_lifetime_gcw_points(i),player_objects.lifetime_gcw_points), player_objects.max_gcw_imperial_rating = nvl(p_max_gcw_imperial_rating(i),player_objects.max_gcw_imperial_rating), player_objects.max_gcw_rebel_rating = nvl(p_max_gcw_rebel_rating(i),player_objects.max_gcw_rebel_rating), player_objects.lifetime_pvp_kills = nvl(p_lifetime_pvp_kills(i),player_objects.lifetime_pvp_kills), player_objects.next_gcw_rating_calc_time = nvl(p_next_gcw_rating_calc_time(i),player_objects.next_gcw_rating_calc_time), player_objects.collections = nvl(p_collections(i),player_objects.collections), player_objects.show_backpack = nvl(p_show_backpack(i),player_objects.show_backpack), player_objects.show_helmet = nvl(p_show_helmet(i),player_objects.show_helmet), player_objects.collections2 = nvl(p_collections2(i),player_objects.collections2) where player_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into player_objects ( player_objects.station_id, player_objects.personal_profile_id, player_objects.character_profile_id, player_objects.skill_title, player_objects.born_date, player_objects.played_time, player_objects.force_regen_rate, player_objects.force_power, player_objects.max_force_power, player_objects.num_lots, player_objects.object_id, player_objects.active_quests, player_objects.completed_quests, player_objects.current_quest, player_objects.quests, player_objects.role_icon_choice, player_objects.quests2, player_objects.quests3, player_objects.quests4, player_objects.skill_template, player_objects.working_skill, player_objects.current_gcw_points, player_objects.current_gcw_rating, player_objects.current_pvp_kills, player_objects.lifetime_gcw_points, player_objects.max_gcw_imperial_rating, player_objects.max_gcw_rebel_rating, player_objects.lifetime_pvp_kills, player_objects.next_gcw_rating_calc_time, player_objects.collections, player_objects.show_backpack, player_objects.show_helmet, player_objects.collections2 ) VALUES ( p_station_id(i), p_personal_profile_id(i), p_character_profile_id(i), p_skill_title(i), p_born_date(i), p_played_time(i), p_force_regen_rate(i), p_force_power(i), p_max_force_power(i), p_account_num_lots(i), p_object_id(i), p_active_quests(i), p_completed_quests(i), p_current_quest(i), p_quests(i), p_role_icon_choice(i), p_quests2(i), p_quests3(i), p_quests4(i), p_skill_template(i), p_working_skill(i), p_current_gcw_points(i), p_current_gcw_rating(i), p_current_pvp_kills(i), p_lifetime_gcw_points(i), p_max_gcw_imperial_rating(i), p_max_gcw_rebel_rating(i), p_lifetime_pvp_kills(i), p_next_gcw_rating_calc_time(i), p_collections(i), p_show_backpack(i), p_show_helmet(i), p_collections2(i) ); end if; end loop; FOR i IN 1.. p_chunk_size LOOP if (p_station_id(i) is not null) then begin insert into accounts (station_id, is_outcast, cheater_level, max_lots_adjustment, house_id) values (p_station_id(i), p_account_is_outcast(i), p_account_cheater_level(i), p_account_max_lots_adjustment(i), p_house_id(i)); exception when dup_val_on_index then null; end; end if; end LOOP; end; procedure remove_player_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete player_objects where object_id=p_object_id(i); end; procedure delete_demand_container( p_object_id VAOFSTRING, p_reason VAOFNUMBER, p_chunk_size number ) as l_delete_reason number; begin select reason_code into l_delete_reason from delete_reasons where tag='ContainerDeleted'; FOR i IN 1.. p_chunk_size LOOP update objects set deleted = decode(p_reason(i),0,l_delete_reason,p_reason(i)), -- use reason if specified, otherwise use 'ContainerDeleted' if it is 0 load_with = null, deleted_date = sysdate where load_with = p_object_id(i); end LOOP; end; procedure save_resource_type(p_resource_id VAOFSTRING, p_resource_name VAOFSTRING, p_resource_class VAOFSTRING, p_attributes VAOFSTRING, p_fractal_seeds VAOFSTRING, p_depleted_timestamp VAOFNUMBER, p_chunk_size number) as begin forall i in 1..p_chunk_size insert into resource_types ( resource_id, resource_name, resource_class, attributes, fractal_seeds, depleted_timestamp ) values ( p_resource_id(i), p_resource_name(i), p_resource_class(i), p_attributes(i), p_fractal_seeds(i), p_depleted_timestamp(i) ); exception when dup_val_on_index then for i in 1..p_chunk_size loop update resource_types set resource_name = p_resource_name(i), resource_class = p_resource_class(i), attributes = p_attributes(i), fractal_seeds = p_fractal_seeds(i), depleted_timestamp = p_depleted_timestamp(i) where resource_id=p_resource_id(i); if SQL%ROWCOUNT=0 then insert into resource_types ( resource_id, resource_name, resource_class, attributes, fractal_seeds, depleted_timestamp ) values ( p_resource_id(i), p_resource_name(i), p_resource_class(i), p_attributes(i), p_fractal_seeds(i), p_depleted_timestamp(i) ); end if; end loop; end; procedure save_bounty_hunter_target(p_object_id VAOFSTRING, p_target_id VAOFSTRING, p_chunk_size number) as begin forall i in 1..p_chunk_size insert into bounty_hunter_targets ( object_id, target_id ) values ( p_object_id(i), p_target_id(i) ); delete bounty_hunter_targets where target_id = 0; exception when dup_val_on_index then begin for i in 1..p_chunk_size loop update bounty_hunter_targets set target_id = p_target_id(i) where object_id = p_object_id(i); if SQL%ROWCOUNT=0 then insert into bounty_hunter_targets ( object_id, target_id ) values ( p_object_id(i), p_target_id(i) ); end if; end loop; delete bounty_hunter_targets where target_id = 0; end; end; function subtract_money_from_object(p_object_id number, p_amount number) return char as new_bank_balance number; new_cash_balance number; begin select bank_balance, cash_balance into new_bank_balance, new_cash_balance from objects where object_id = p_object_id for update; if (new_bank_balance + new_cash_balance < p_amount) then return 'N'; end if; new_bank_balance := new_bank_balance - p_amount; if (new_bank_balance < 0) then new_cash_balance := new_cash_balance + new_bank_balance; new_bank_balance := 0; end if; update objects set bank_balance = new_bank_balance, cash_balance = new_cash_balance where object_id = p_object_id; return 'Y'; exception when others then return 'N'; end; -- GENERATED PLSQL FOLLOWS -- generated by makepersister.pl procedure save_battlefield_marker_obj( p_object_id VAOFSTRING, p_region_name VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update battlefield_marker_objects set battlefield_marker_objects.region_name = nvl(p_region_name(i),battlefield_marker_objects.region_name) where battlefield_marker_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update battlefield_marker_objects set battlefield_marker_objects.region_name = nvl(p_region_name(i),battlefield_marker_objects.region_name) where battlefield_marker_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_battlefield_marker_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_battlefield_marker_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_battlefield_marker_obj','region_name','varchar2',p_region_name(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_battlefield_marker_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_battlefield_marker_obj( p_object_id VAOFSTRING, p_region_name VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into battlefield_marker_objects ( battlefield_marker_objects.region_name, battlefield_marker_objects.object_id ) VALUES ( p_region_name(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_battlefield_marker_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE battlefield_marker_objects Set battlefield_marker_objects.region_name = nvl(p_region_name(i),battlefield_marker_objects.region_name) where battlefield_marker_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into battlefield_marker_objects ( battlefield_marker_objects.region_name, battlefield_marker_objects.object_id ) VALUES ( p_region_name(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into battlefield_marker_objects ( battlefield_marker_objects.region_name, battlefield_marker_objects.object_id ) VALUES ( p_region_name(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_battlefield_marker_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_battlefield_marker_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_battlefield_marker_obj','region_name','varchar2',p_region_name(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_battlefield_marker_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_battlefield_marker_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete battlefield_marker_objects where object_id=p_object_id(i); end; procedure save_building_obj( p_object_id VAOFSTRING, p_maintenance_cost VAOFNUMBER, p_time_last_checked VAOFNUMBER, p_is_public VAOFSTRING, p_city_id VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update building_objects set building_objects.maintenance_cost = nvl(p_maintenance_cost(i),building_objects.maintenance_cost), building_objects.time_last_checked = nvl(p_time_last_checked(i),building_objects.time_last_checked), building_objects.is_public = nvl(p_is_public(i),building_objects.is_public), building_objects.city_id = nvl(p_city_id(i),building_objects.city_id) where building_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update building_objects set building_objects.maintenance_cost = nvl(p_maintenance_cost(i),building_objects.maintenance_cost), building_objects.time_last_checked = nvl(p_time_last_checked(i),building_objects.time_last_checked), building_objects.is_public = nvl(p_is_public(i),building_objects.is_public), building_objects.city_id = nvl(p_city_id(i),building_objects.city_id) where building_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_building_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_building_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_building_obj','maintenance_cost','int',to_char(p_maintenance_cost(m_error_index))); db_error_logger.dblogerror_values('persister.save_building_obj','time_last_checked','float',to_char(p_time_last_checked(m_error_index))); db_error_logger.dblogerror_values('persister.save_building_obj','is_public','char',p_is_public(m_error_index)); db_error_logger.dblogerror_values('persister.save_building_obj','city_id','int',to_char(p_city_id(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_building_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_building_obj( p_object_id VAOFSTRING, p_maintenance_cost VAOFNUMBER, p_time_last_checked VAOFNUMBER, p_is_public VAOFSTRING, p_city_id VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into building_objects ( building_objects.maintenance_cost, building_objects.time_last_checked, building_objects.is_public, building_objects.city_id, building_objects.object_id ) VALUES ( p_maintenance_cost(i), p_time_last_checked(i), p_is_public(i), p_city_id(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_building_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE building_objects Set building_objects.maintenance_cost = nvl(p_maintenance_cost(i),building_objects.maintenance_cost), building_objects.time_last_checked = nvl(p_time_last_checked(i),building_objects.time_last_checked), building_objects.is_public = nvl(p_is_public(i),building_objects.is_public), building_objects.city_id = nvl(p_city_id(i),building_objects.city_id) where building_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into building_objects ( building_objects.maintenance_cost, building_objects.time_last_checked, building_objects.is_public, building_objects.city_id, building_objects.object_id ) VALUES ( p_maintenance_cost(i), p_time_last_checked(i), p_is_public(i), p_city_id(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into building_objects ( building_objects.maintenance_cost, building_objects.time_last_checked, building_objects.is_public, building_objects.city_id, building_objects.object_id ) VALUES ( p_maintenance_cost(i), p_time_last_checked(i), p_is_public(i), p_city_id(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_building_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_building_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_building_obj','maintenance_cost','int',to_char(p_maintenance_cost(m_error_index))); db_error_logger.dblogerror_values('persister.add_building_obj','time_last_checked','float',to_char(p_time_last_checked(m_error_index))); db_error_logger.dblogerror_values('persister.add_building_obj','is_public','char',p_is_public(m_error_index)); db_error_logger.dblogerror_values('persister.add_building_obj','city_id','int',to_char(p_city_id(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_building_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_building_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete building_objects where object_id=p_object_id(i); end; procedure save_cell_obj( p_object_id VAOFSTRING, p_cell_number VAOFNUMBER, p_is_public VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update cell_objects set cell_objects.cell_number = nvl(p_cell_number(i),cell_objects.cell_number), cell_objects.is_public = nvl(p_is_public(i),cell_objects.is_public) where cell_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update cell_objects set cell_objects.cell_number = nvl(p_cell_number(i),cell_objects.cell_number), cell_objects.is_public = nvl(p_is_public(i),cell_objects.is_public) where cell_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_cell_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_cell_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_cell_obj','cell_number','int',to_char(p_cell_number(m_error_index))); db_error_logger.dblogerror_values('persister.save_cell_obj','is_public','char',p_is_public(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_cell_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_cell_obj( p_object_id VAOFSTRING, p_cell_number VAOFNUMBER, p_is_public VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into cell_objects ( cell_objects.cell_number, cell_objects.is_public, cell_objects.object_id ) VALUES ( p_cell_number(i), p_is_public(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_cell_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE cell_objects Set cell_objects.cell_number = nvl(p_cell_number(i),cell_objects.cell_number), cell_objects.is_public = nvl(p_is_public(i),cell_objects.is_public) where cell_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into cell_objects ( cell_objects.cell_number, cell_objects.is_public, cell_objects.object_id ) VALUES ( p_cell_number(i), p_is_public(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into cell_objects ( cell_objects.cell_number, cell_objects.is_public, cell_objects.object_id ) VALUES ( p_cell_number(i), p_is_public(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_cell_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_cell_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_cell_obj','cell_number','int',to_char(p_cell_number(m_error_index))); db_error_logger.dblogerror_values('persister.add_cell_obj','is_public','char',p_is_public(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_cell_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_cell_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete cell_objects where object_id=p_object_id(i); end; procedure save_city_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin null; end; procedure add_city_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into city_objects ( city_objects.object_id ) VALUES ( p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_city_obj : dup_val_on_index error.'); END IF; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into city_objects ( city_objects.object_id ) VALUES ( p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_city_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_city_obj','object_id','number',p_object_id(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_city_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_city_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin null; end; procedure save_creature_obj( p_object_id VAOFSTRING, p_scale_factor VAOFNUMBER, p_states VAOFNUMBER, p_posture VAOFNUMBER, p_shock_wounds VAOFNUMBER, p_master_id VAOFSTRING, p_rank VAOFNUMBER, p_base_walk_speed VAOFNUMBER, p_base_run_speed VAOFNUMBER, p_attribute_0 VAOFNUMBER, p_attribute_1 VAOFNUMBER, p_attribute_2 VAOFNUMBER, p_attribute_3 VAOFNUMBER, p_attribute_4 VAOFNUMBER, p_attribute_5 VAOFNUMBER, p_attribute_6 VAOFNUMBER, p_attribute_7 VAOFNUMBER, p_attribute_8 VAOFNUMBER, p_attribute_9 VAOFNUMBER, p_attribute_10 VAOFNUMBER, p_attribute_11 VAOFNUMBER, p_attribute_12 VAOFNUMBER, p_attribute_13 VAOFNUMBER, p_attribute_14 VAOFNUMBER, p_attribute_15 VAOFNUMBER, p_attribute_16 VAOFNUMBER, p_attribute_17 VAOFNUMBER, p_attribute_18 VAOFNUMBER, p_attribute_19 VAOFNUMBER, p_attribute_20 VAOFNUMBER, p_attribute_21 VAOFNUMBER, p_attribute_22 VAOFNUMBER, p_attribute_23 VAOFNUMBER, p_attribute_24 VAOFNUMBER, p_attribute_25 VAOFNUMBER, p_attribute_26 VAOFNUMBER, p_persisted_buffs VAOFSTRING, p_ws_x VAOFNUMBER, p_ws_y VAOFNUMBER, p_ws_z VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update creature_objects set creature_objects.scale_factor = nvl(p_scale_factor(i),creature_objects.scale_factor), creature_objects.states = nvl(p_states(i),creature_objects.states), creature_objects.posture = nvl(p_posture(i),creature_objects.posture), creature_objects.shock_wounds = nvl(p_shock_wounds(i),creature_objects.shock_wounds), creature_objects.master_id = nvl(p_master_id(i),creature_objects.master_id), creature_objects.rank = nvl(p_rank(i),creature_objects.rank), creature_objects.base_walk_speed = nvl(p_base_walk_speed(i),creature_objects.base_walk_speed), creature_objects.base_run_speed = nvl(p_base_run_speed(i),creature_objects.base_run_speed), creature_objects.attribute_0 = nvl(p_attribute_0(i),creature_objects.attribute_0), creature_objects.attribute_1 = nvl(p_attribute_1(i),creature_objects.attribute_1), creature_objects.attribute_2 = nvl(p_attribute_2(i),creature_objects.attribute_2), creature_objects.attribute_3 = nvl(p_attribute_3(i),creature_objects.attribute_3), creature_objects.attribute_4 = nvl(p_attribute_4(i),creature_objects.attribute_4), creature_objects.attribute_5 = nvl(p_attribute_5(i),creature_objects.attribute_5), creature_objects.attribute_6 = nvl(p_attribute_6(i),creature_objects.attribute_6), creature_objects.attribute_7 = nvl(p_attribute_7(i),creature_objects.attribute_7), creature_objects.attribute_8 = nvl(p_attribute_8(i),creature_objects.attribute_8), creature_objects.attribute_9 = nvl(p_attribute_9(i),creature_objects.attribute_9), creature_objects.attribute_10 = nvl(p_attribute_10(i),creature_objects.attribute_10), creature_objects.attribute_11 = nvl(p_attribute_11(i),creature_objects.attribute_11), creature_objects.attribute_12 = nvl(p_attribute_12(i),creature_objects.attribute_12), creature_objects.attribute_13 = nvl(p_attribute_13(i),creature_objects.attribute_13), creature_objects.attribute_14 = nvl(p_attribute_14(i),creature_objects.attribute_14), creature_objects.attribute_15 = nvl(p_attribute_15(i),creature_objects.attribute_15), creature_objects.attribute_16 = nvl(p_attribute_16(i),creature_objects.attribute_16), creature_objects.attribute_17 = nvl(p_attribute_17(i),creature_objects.attribute_17), creature_objects.attribute_18 = nvl(p_attribute_18(i),creature_objects.attribute_18), creature_objects.attribute_19 = nvl(p_attribute_19(i),creature_objects.attribute_19), creature_objects.attribute_20 = nvl(p_attribute_20(i),creature_objects.attribute_20), creature_objects.attribute_21 = nvl(p_attribute_21(i),creature_objects.attribute_21), creature_objects.attribute_22 = nvl(p_attribute_22(i),creature_objects.attribute_22), creature_objects.attribute_23 = nvl(p_attribute_23(i),creature_objects.attribute_23), creature_objects.attribute_24 = nvl(p_attribute_24(i),creature_objects.attribute_24), creature_objects.attribute_25 = nvl(p_attribute_25(i),creature_objects.attribute_25), creature_objects.attribute_26 = nvl(p_attribute_26(i),creature_objects.attribute_26), creature_objects.persisted_buffs = nvl(p_persisted_buffs(i),creature_objects.persisted_buffs), creature_objects.ws_x = nvl(p_ws_x(i),creature_objects.ws_x), creature_objects.ws_y = nvl(p_ws_y(i),creature_objects.ws_y), creature_objects.ws_z = nvl(p_ws_z(i),creature_objects.ws_z) where creature_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update creature_objects set creature_objects.scale_factor = nvl(p_scale_factor(i),creature_objects.scale_factor), creature_objects.states = nvl(p_states(i),creature_objects.states), creature_objects.posture = nvl(p_posture(i),creature_objects.posture), creature_objects.shock_wounds = nvl(p_shock_wounds(i),creature_objects.shock_wounds), creature_objects.master_id = nvl(p_master_id(i),creature_objects.master_id), creature_objects.rank = nvl(p_rank(i),creature_objects.rank), creature_objects.base_walk_speed = nvl(p_base_walk_speed(i),creature_objects.base_walk_speed), creature_objects.base_run_speed = nvl(p_base_run_speed(i),creature_objects.base_run_speed), creature_objects.attribute_0 = nvl(p_attribute_0(i),creature_objects.attribute_0), creature_objects.attribute_1 = nvl(p_attribute_1(i),creature_objects.attribute_1), creature_objects.attribute_2 = nvl(p_attribute_2(i),creature_objects.attribute_2), creature_objects.attribute_3 = nvl(p_attribute_3(i),creature_objects.attribute_3), creature_objects.attribute_4 = nvl(p_attribute_4(i),creature_objects.attribute_4), creature_objects.attribute_5 = nvl(p_attribute_5(i),creature_objects.attribute_5), creature_objects.attribute_6 = nvl(p_attribute_6(i),creature_objects.attribute_6), creature_objects.attribute_7 = nvl(p_attribute_7(i),creature_objects.attribute_7), creature_objects.attribute_8 = nvl(p_attribute_8(i),creature_objects.attribute_8), creature_objects.attribute_9 = nvl(p_attribute_9(i),creature_objects.attribute_9), creature_objects.attribute_10 = nvl(p_attribute_10(i),creature_objects.attribute_10), creature_objects.attribute_11 = nvl(p_attribute_11(i),creature_objects.attribute_11), creature_objects.attribute_12 = nvl(p_attribute_12(i),creature_objects.attribute_12), creature_objects.attribute_13 = nvl(p_attribute_13(i),creature_objects.attribute_13), creature_objects.attribute_14 = nvl(p_attribute_14(i),creature_objects.attribute_14), creature_objects.attribute_15 = nvl(p_attribute_15(i),creature_objects.attribute_15), creature_objects.attribute_16 = nvl(p_attribute_16(i),creature_objects.attribute_16), creature_objects.attribute_17 = nvl(p_attribute_17(i),creature_objects.attribute_17), creature_objects.attribute_18 = nvl(p_attribute_18(i),creature_objects.attribute_18), creature_objects.attribute_19 = nvl(p_attribute_19(i),creature_objects.attribute_19), creature_objects.attribute_20 = nvl(p_attribute_20(i),creature_objects.attribute_20), creature_objects.attribute_21 = nvl(p_attribute_21(i),creature_objects.attribute_21), creature_objects.attribute_22 = nvl(p_attribute_22(i),creature_objects.attribute_22), creature_objects.attribute_23 = nvl(p_attribute_23(i),creature_objects.attribute_23), creature_objects.attribute_24 = nvl(p_attribute_24(i),creature_objects.attribute_24), creature_objects.attribute_25 = nvl(p_attribute_25(i),creature_objects.attribute_25), creature_objects.attribute_26 = nvl(p_attribute_26(i),creature_objects.attribute_26), creature_objects.persisted_buffs = nvl(p_persisted_buffs(i),creature_objects.persisted_buffs), creature_objects.ws_x = nvl(p_ws_x(i),creature_objects.ws_x), creature_objects.ws_y = nvl(p_ws_y(i),creature_objects.ws_y), creature_objects.ws_z = nvl(p_ws_z(i),creature_objects.ws_z) where creature_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_creature_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_creature_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_creature_obj','scale_factor','float',to_char(p_scale_factor(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','states','int',to_char(p_states(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','posture','int',to_char(p_posture(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','shock_wounds','int',to_char(p_shock_wounds(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','master_id','number',p_master_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_creature_obj','rank','int',to_char(p_rank(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','base_walk_speed','float',to_char(p_base_walk_speed(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','base_run_speed','float',to_char(p_base_run_speed(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_0','int',to_char(p_attribute_0(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_1','int',to_char(p_attribute_1(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_2','int',to_char(p_attribute_2(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_3','int',to_char(p_attribute_3(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_4','int',to_char(p_attribute_4(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_5','int',to_char(p_attribute_5(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_6','int',to_char(p_attribute_6(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_7','int',to_char(p_attribute_7(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_8','int',to_char(p_attribute_8(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_9','int',to_char(p_attribute_9(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_10','int',to_char(p_attribute_10(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_11','int',to_char(p_attribute_11(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_12','int',to_char(p_attribute_12(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_13','int',to_char(p_attribute_13(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_14','int',to_char(p_attribute_14(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_15','int',to_char(p_attribute_15(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_16','int',to_char(p_attribute_16(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_17','int',to_char(p_attribute_17(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_18','int',to_char(p_attribute_18(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_19','int',to_char(p_attribute_19(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_20','int',to_char(p_attribute_20(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_21','int',to_char(p_attribute_21(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_22','int',to_char(p_attribute_22(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_23','int',to_char(p_attribute_23(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_24','int',to_char(p_attribute_24(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_25','int',to_char(p_attribute_25(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','attribute_26','int',to_char(p_attribute_26(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','persisted_buffs','varchar2',p_persisted_buffs(m_error_index)); db_error_logger.dblogerror_values('persister.save_creature_obj','ws_x','float',to_char(p_ws_x(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','ws_y','float',to_char(p_ws_y(m_error_index))); db_error_logger.dblogerror_values('persister.save_creature_obj','ws_z','float',to_char(p_ws_z(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_creature_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_creature_obj( p_object_id VAOFSTRING, p_scale_factor VAOFNUMBER, p_states VAOFNUMBER, p_posture VAOFNUMBER, p_shock_wounds VAOFNUMBER, p_master_id VAOFSTRING, p_rank VAOFNUMBER, p_base_walk_speed VAOFNUMBER, p_base_run_speed VAOFNUMBER, p_attribute_0 VAOFNUMBER, p_attribute_1 VAOFNUMBER, p_attribute_2 VAOFNUMBER, p_attribute_3 VAOFNUMBER, p_attribute_4 VAOFNUMBER, p_attribute_5 VAOFNUMBER, p_attribute_6 VAOFNUMBER, p_attribute_7 VAOFNUMBER, p_attribute_8 VAOFNUMBER, p_attribute_9 VAOFNUMBER, p_attribute_10 VAOFNUMBER, p_attribute_11 VAOFNUMBER, p_attribute_12 VAOFNUMBER, p_attribute_13 VAOFNUMBER, p_attribute_14 VAOFNUMBER, p_attribute_15 VAOFNUMBER, p_attribute_16 VAOFNUMBER, p_attribute_17 VAOFNUMBER, p_attribute_18 VAOFNUMBER, p_attribute_19 VAOFNUMBER, p_attribute_20 VAOFNUMBER, p_attribute_21 VAOFNUMBER, p_attribute_22 VAOFNUMBER, p_attribute_23 VAOFNUMBER, p_attribute_24 VAOFNUMBER, p_attribute_25 VAOFNUMBER, p_attribute_26 VAOFNUMBER, p_persisted_buffs VAOFSTRING, p_ws_x VAOFNUMBER, p_ws_y VAOFNUMBER, p_ws_z VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into creature_objects ( creature_objects.scale_factor, creature_objects.states, creature_objects.posture, creature_objects.shock_wounds, creature_objects.master_id, creature_objects.rank, creature_objects.base_walk_speed, creature_objects.base_run_speed, creature_objects.attribute_0, creature_objects.attribute_1, creature_objects.attribute_2, creature_objects.attribute_3, creature_objects.attribute_4, creature_objects.attribute_5, creature_objects.attribute_6, creature_objects.attribute_7, creature_objects.attribute_8, creature_objects.attribute_9, creature_objects.attribute_10, creature_objects.attribute_11, creature_objects.attribute_12, creature_objects.attribute_13, creature_objects.attribute_14, creature_objects.attribute_15, creature_objects.attribute_16, creature_objects.attribute_17, creature_objects.attribute_18, creature_objects.attribute_19, creature_objects.attribute_20, creature_objects.attribute_21, creature_objects.attribute_22, creature_objects.attribute_23, creature_objects.attribute_24, creature_objects.attribute_25, creature_objects.attribute_26, creature_objects.persisted_buffs, creature_objects.object_id, creature_objects.ws_x, creature_objects.ws_y, creature_objects.ws_z ) VALUES ( p_scale_factor(i), p_states(i), p_posture(i), p_shock_wounds(i), p_master_id(i), p_rank(i), p_base_walk_speed(i), p_base_run_speed(i), p_attribute_0(i), p_attribute_1(i), p_attribute_2(i), p_attribute_3(i), p_attribute_4(i), p_attribute_5(i), p_attribute_6(i), p_attribute_7(i), p_attribute_8(i), p_attribute_9(i), p_attribute_10(i), p_attribute_11(i), p_attribute_12(i), p_attribute_13(i), p_attribute_14(i), p_attribute_15(i), p_attribute_16(i), p_attribute_17(i), p_attribute_18(i), p_attribute_19(i), p_attribute_20(i), p_attribute_21(i), p_attribute_22(i), p_attribute_23(i), p_attribute_24(i), p_attribute_25(i), p_attribute_26(i), p_persisted_buffs(i), p_object_id(i), NULL, NULL, NULL ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_creature_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE creature_objects Set creature_objects.scale_factor = nvl(p_scale_factor(i),creature_objects.scale_factor), creature_objects.states = nvl(p_states(i),creature_objects.states), creature_objects.posture = nvl(p_posture(i),creature_objects.posture), creature_objects.shock_wounds = nvl(p_shock_wounds(i),creature_objects.shock_wounds), creature_objects.master_id = nvl(p_master_id(i),creature_objects.master_id), creature_objects.rank = nvl(p_rank(i),creature_objects.rank), creature_objects.base_walk_speed = nvl(p_base_walk_speed(i),creature_objects.base_walk_speed), creature_objects.base_run_speed = nvl(p_base_run_speed(i),creature_objects.base_run_speed), creature_objects.attribute_0 = nvl(p_attribute_0(i),creature_objects.attribute_0), creature_objects.attribute_1 = nvl(p_attribute_1(i),creature_objects.attribute_1), creature_objects.attribute_2 = nvl(p_attribute_2(i),creature_objects.attribute_2), creature_objects.attribute_3 = nvl(p_attribute_3(i),creature_objects.attribute_3), creature_objects.attribute_4 = nvl(p_attribute_4(i),creature_objects.attribute_4), creature_objects.attribute_5 = nvl(p_attribute_5(i),creature_objects.attribute_5), creature_objects.attribute_6 = nvl(p_attribute_6(i),creature_objects.attribute_6), creature_objects.attribute_7 = nvl(p_attribute_7(i),creature_objects.attribute_7), creature_objects.attribute_8 = nvl(p_attribute_8(i),creature_objects.attribute_8), creature_objects.attribute_9 = nvl(p_attribute_9(i),creature_objects.attribute_9), creature_objects.attribute_10 = nvl(p_attribute_10(i),creature_objects.attribute_10), creature_objects.attribute_11 = nvl(p_attribute_11(i),creature_objects.attribute_11), creature_objects.attribute_12 = nvl(p_attribute_12(i),creature_objects.attribute_12), creature_objects.attribute_13 = nvl(p_attribute_13(i),creature_objects.attribute_13), creature_objects.attribute_14 = nvl(p_attribute_14(i),creature_objects.attribute_14), creature_objects.attribute_15 = nvl(p_attribute_15(i),creature_objects.attribute_15), creature_objects.attribute_16 = nvl(p_attribute_16(i),creature_objects.attribute_16), creature_objects.attribute_17 = nvl(p_attribute_17(i),creature_objects.attribute_17), creature_objects.attribute_18 = nvl(p_attribute_18(i),creature_objects.attribute_18), creature_objects.attribute_19 = nvl(p_attribute_19(i),creature_objects.attribute_19), creature_objects.attribute_20 = nvl(p_attribute_20(i),creature_objects.attribute_20), creature_objects.attribute_21 = nvl(p_attribute_21(i),creature_objects.attribute_21), creature_objects.attribute_22 = nvl(p_attribute_22(i),creature_objects.attribute_22), creature_objects.attribute_23 = nvl(p_attribute_23(i),creature_objects.attribute_23), creature_objects.attribute_24 = nvl(p_attribute_24(i),creature_objects.attribute_24), creature_objects.attribute_25 = nvl(p_attribute_25(i),creature_objects.attribute_25), creature_objects.attribute_26 = nvl(p_attribute_26(i),creature_objects.attribute_26), creature_objects.persisted_buffs = nvl(p_persisted_buffs(i),creature_objects.persisted_buffs), creature_objects.ws_x = nvl(p_ws_x(i),creature_objects.ws_x), creature_objects.ws_y = nvl(p_ws_y(i),creature_objects.ws_y), creature_objects.ws_z = nvl(p_ws_z(i),creature_objects.ws_z) where creature_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into creature_objects ( creature_objects.scale_factor, creature_objects.states, creature_objects.posture, creature_objects.shock_wounds, creature_objects.master_id, creature_objects.rank, creature_objects.base_walk_speed, creature_objects.base_run_speed, creature_objects.attribute_0, creature_objects.attribute_1, creature_objects.attribute_2, creature_objects.attribute_3, creature_objects.attribute_4, creature_objects.attribute_5, creature_objects.attribute_6, creature_objects.attribute_7, creature_objects.attribute_8, creature_objects.attribute_9, creature_objects.attribute_10, creature_objects.attribute_11, creature_objects.attribute_12, creature_objects.attribute_13, creature_objects.attribute_14, creature_objects.attribute_15, creature_objects.attribute_16, creature_objects.attribute_17, creature_objects.attribute_18, creature_objects.attribute_19, creature_objects.attribute_20, creature_objects.attribute_21, creature_objects.attribute_22, creature_objects.attribute_23, creature_objects.attribute_24, creature_objects.attribute_25, creature_objects.attribute_26, creature_objects.persisted_buffs, creature_objects.object_id, creature_objects.ws_x, creature_objects.ws_y, creature_objects.ws_z ) VALUES ( p_scale_factor(i), p_states(i), p_posture(i), p_shock_wounds(i), p_master_id(i), p_rank(i), p_base_walk_speed(i), p_base_run_speed(i), p_attribute_0(i), p_attribute_1(i), p_attribute_2(i), p_attribute_3(i), p_attribute_4(i), p_attribute_5(i), p_attribute_6(i), p_attribute_7(i), p_attribute_8(i), p_attribute_9(i), p_attribute_10(i), p_attribute_11(i), p_attribute_12(i), p_attribute_13(i), p_attribute_14(i), p_attribute_15(i), p_attribute_16(i), p_attribute_17(i), p_attribute_18(i), p_attribute_19(i), p_attribute_20(i), p_attribute_21(i), p_attribute_22(i), p_attribute_23(i), p_attribute_24(i), p_attribute_25(i), p_attribute_26(i), p_persisted_buffs(i), p_object_id(i), NULL, NULL, NULL ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into creature_objects ( creature_objects.scale_factor, creature_objects.states, creature_objects.posture, creature_objects.shock_wounds, creature_objects.master_id, creature_objects.rank, creature_objects.base_walk_speed, creature_objects.base_run_speed, creature_objects.attribute_0, creature_objects.attribute_1, creature_objects.attribute_2, creature_objects.attribute_3, creature_objects.attribute_4, creature_objects.attribute_5, creature_objects.attribute_6, creature_objects.attribute_7, creature_objects.attribute_8, creature_objects.attribute_9, creature_objects.attribute_10, creature_objects.attribute_11, creature_objects.attribute_12, creature_objects.attribute_13, creature_objects.attribute_14, creature_objects.attribute_15, creature_objects.attribute_16, creature_objects.attribute_17, creature_objects.attribute_18, creature_objects.attribute_19, creature_objects.attribute_20, creature_objects.attribute_21, creature_objects.attribute_22, creature_objects.attribute_23, creature_objects.attribute_24, creature_objects.attribute_25, creature_objects.attribute_26, creature_objects.persisted_buffs, creature_objects.object_id, creature_objects.ws_x, creature_objects.ws_y, creature_objects.ws_z ) VALUES ( p_scale_factor(i), p_states(i), p_posture(i), p_shock_wounds(i), p_master_id(i), p_rank(i), p_base_walk_speed(i), p_base_run_speed(i), p_attribute_0(i), p_attribute_1(i), p_attribute_2(i), p_attribute_3(i), p_attribute_4(i), p_attribute_5(i), p_attribute_6(i), p_attribute_7(i), p_attribute_8(i), p_attribute_9(i), p_attribute_10(i), p_attribute_11(i), p_attribute_12(i), p_attribute_13(i), p_attribute_14(i), p_attribute_15(i), p_attribute_16(i), p_attribute_17(i), p_attribute_18(i), p_attribute_19(i), p_attribute_20(i), p_attribute_21(i), p_attribute_22(i), p_attribute_23(i), p_attribute_24(i), p_attribute_25(i), p_attribute_26(i), p_persisted_buffs(i), p_object_id(i), NULL, NULL, NULL ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_creature_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_creature_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_creature_obj','scale_factor','float',to_char(p_scale_factor(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','states','int',to_char(p_states(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','posture','int',to_char(p_posture(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','shock_wounds','int',to_char(p_shock_wounds(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','master_id','number',p_master_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_creature_obj','rank','int',to_char(p_rank(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','base_walk_speed','float',to_char(p_base_walk_speed(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','base_run_speed','float',to_char(p_base_run_speed(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_0','int',to_char(p_attribute_0(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_1','int',to_char(p_attribute_1(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_2','int',to_char(p_attribute_2(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_3','int',to_char(p_attribute_3(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_4','int',to_char(p_attribute_4(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_5','int',to_char(p_attribute_5(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_6','int',to_char(p_attribute_6(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_7','int',to_char(p_attribute_7(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_8','int',to_char(p_attribute_8(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_9','int',to_char(p_attribute_9(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_10','int',to_char(p_attribute_10(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_11','int',to_char(p_attribute_11(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_12','int',to_char(p_attribute_12(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_13','int',to_char(p_attribute_13(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_14','int',to_char(p_attribute_14(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_15','int',to_char(p_attribute_15(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_16','int',to_char(p_attribute_16(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_17','int',to_char(p_attribute_17(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_18','int',to_char(p_attribute_18(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_19','int',to_char(p_attribute_19(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_20','int',to_char(p_attribute_20(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_21','int',to_char(p_attribute_21(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_22','int',to_char(p_attribute_22(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_23','int',to_char(p_attribute_23(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_24','int',to_char(p_attribute_24(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_25','int',to_char(p_attribute_25(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','attribute_26','int',to_char(p_attribute_26(m_error_index))); db_error_logger.dblogerror_values('persister.add_creature_obj','persisted_buffs','varchar2',p_persisted_buffs(m_error_index)); db_error_logger.dblogerror_values('persister.add_creature_obj','ws_x','float',p_ws_x(m_error_index)); db_error_logger.dblogerror_values('persister.add_creature_obj','ws_y','float',p_ws_y(m_error_index)); db_error_logger.dblogerror_values('persister.add_creature_obj','ws_z','float',p_ws_z(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_creature_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_creature_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete creature_objects where object_id=p_object_id(i); end; procedure save_factory_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin null; end; procedure add_factory_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into factory_objects ( factory_objects.object_id ) VALUES ( p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_factory_obj : dup_val_on_index error.'); END IF; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into factory_objects ( factory_objects.object_id ) VALUES ( p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_factory_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_factory_obj','object_id','number',p_object_id(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_factory_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_factory_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin null; end; procedure save_guild_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin null; end; procedure add_guild_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into guild_objects ( guild_objects.object_id ) VALUES ( p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_guild_obj : dup_val_on_index error.'); END IF; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into guild_objects ( guild_objects.object_id ) VALUES ( p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_guild_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_guild_obj','object_id','number',p_object_id(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_guild_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_guild_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin null; end; procedure save_harvester_inst_obj( p_object_id VAOFSTRING, p_installed_efficiency VAOFNUMBER, p_max_extraction_rate VAOFNUMBER, p_current_extraction_rate VAOFNUMBER, p_max_hopper_amount VAOFNUMBER, p_hopper_resource VAOFSTRING, p_hopper_amount VAOFNUMBER, p_resource_type VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update harvester_installation_objects set harvester_installation_objects.installed_efficiency = nvl(p_installed_efficiency(i),harvester_installation_objects.installed_efficiency), harvester_installation_objects.max_extraction_rate = nvl(p_max_extraction_rate(i),harvester_installation_objects.max_extraction_rate), harvester_installation_objects.current_extraction_rate = nvl(p_current_extraction_rate(i),harvester_installation_objects.current_extraction_rate), harvester_installation_objects.max_hopper_amount = nvl(p_max_hopper_amount(i),harvester_installation_objects.max_hopper_amount), harvester_installation_objects.hopper_resource = nvl(p_hopper_resource(i),harvester_installation_objects.hopper_resource), harvester_installation_objects.hopper_amount = nvl(p_hopper_amount(i),harvester_installation_objects.hopper_amount), harvester_installation_objects.resource_type = nvl(p_resource_type(i),harvester_installation_objects.resource_type) where harvester_installation_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update harvester_installation_objects set harvester_installation_objects.installed_efficiency = nvl(p_installed_efficiency(i),harvester_installation_objects.installed_efficiency), harvester_installation_objects.max_extraction_rate = nvl(p_max_extraction_rate(i),harvester_installation_objects.max_extraction_rate), harvester_installation_objects.current_extraction_rate = nvl(p_current_extraction_rate(i),harvester_installation_objects.current_extraction_rate), harvester_installation_objects.max_hopper_amount = nvl(p_max_hopper_amount(i),harvester_installation_objects.max_hopper_amount), harvester_installation_objects.hopper_resource = nvl(p_hopper_resource(i),harvester_installation_objects.hopper_resource), harvester_installation_objects.hopper_amount = nvl(p_hopper_amount(i),harvester_installation_objects.hopper_amount), harvester_installation_objects.resource_type = nvl(p_resource_type(i),harvester_installation_objects.resource_type) where harvester_installation_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_harvester_inst_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_harvester_inst_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_harvester_inst_obj','installed_efficiency','float',to_char(p_installed_efficiency(m_error_index))); db_error_logger.dblogerror_values('persister.save_harvester_inst_obj','max_extraction_rate','int',to_char(p_max_extraction_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_harvester_inst_obj','current_extraction_rate','float',to_char(p_current_extraction_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_harvester_inst_obj','max_hopper_amount','int',to_char(p_max_hopper_amount(m_error_index))); db_error_logger.dblogerror_values('persister.save_harvester_inst_obj','hopper_resource','number',p_hopper_resource(m_error_index)); db_error_logger.dblogerror_values('persister.save_harvester_inst_obj','hopper_amount','float',to_char(p_hopper_amount(m_error_index))); db_error_logger.dblogerror_values('persister.save_harvester_inst_obj','resource_type','number',p_resource_type(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_harvester_inst_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_harvester_inst_obj( p_object_id VAOFSTRING, p_installed_efficiency VAOFNUMBER, p_max_extraction_rate VAOFNUMBER, p_current_extraction_rate VAOFNUMBER, p_max_hopper_amount VAOFNUMBER, p_hopper_resource VAOFSTRING, p_hopper_amount VAOFNUMBER, p_resource_type VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into harvester_installation_objects ( harvester_installation_objects.installed_efficiency, harvester_installation_objects.max_extraction_rate, harvester_installation_objects.current_extraction_rate, harvester_installation_objects.max_hopper_amount, harvester_installation_objects.hopper_resource, harvester_installation_objects.hopper_amount, harvester_installation_objects.resource_type, harvester_installation_objects.object_id ) VALUES ( p_installed_efficiency(i), p_max_extraction_rate(i), p_current_extraction_rate(i), p_max_hopper_amount(i), p_hopper_resource(i), p_hopper_amount(i), p_resource_type(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_harvester_inst_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE harvester_installation_objects Set harvester_installation_objects.installed_efficiency = nvl(p_installed_efficiency(i),harvester_installation_objects.installed_efficiency), harvester_installation_objects.max_extraction_rate = nvl(p_max_extraction_rate(i),harvester_installation_objects.max_extraction_rate), harvester_installation_objects.current_extraction_rate = nvl(p_current_extraction_rate(i),harvester_installation_objects.current_extraction_rate), harvester_installation_objects.max_hopper_amount = nvl(p_max_hopper_amount(i),harvester_installation_objects.max_hopper_amount), harvester_installation_objects.hopper_resource = nvl(p_hopper_resource(i),harvester_installation_objects.hopper_resource), harvester_installation_objects.hopper_amount = nvl(p_hopper_amount(i),harvester_installation_objects.hopper_amount), harvester_installation_objects.resource_type = nvl(p_resource_type(i),harvester_installation_objects.resource_type) where harvester_installation_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into harvester_installation_objects ( harvester_installation_objects.installed_efficiency, harvester_installation_objects.max_extraction_rate, harvester_installation_objects.current_extraction_rate, harvester_installation_objects.max_hopper_amount, harvester_installation_objects.hopper_resource, harvester_installation_objects.hopper_amount, harvester_installation_objects.resource_type, harvester_installation_objects.object_id ) VALUES ( p_installed_efficiency(i), p_max_extraction_rate(i), p_current_extraction_rate(i), p_max_hopper_amount(i), p_hopper_resource(i), p_hopper_amount(i), p_resource_type(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into harvester_installation_objects ( harvester_installation_objects.installed_efficiency, harvester_installation_objects.max_extraction_rate, harvester_installation_objects.current_extraction_rate, harvester_installation_objects.max_hopper_amount, harvester_installation_objects.hopper_resource, harvester_installation_objects.hopper_amount, harvester_installation_objects.resource_type, harvester_installation_objects.object_id ) VALUES ( p_installed_efficiency(i), p_max_extraction_rate(i), p_current_extraction_rate(i), p_max_hopper_amount(i), p_hopper_resource(i), p_hopper_amount(i), p_resource_type(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_harvester_inst_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_harvester_inst_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_harvester_inst_obj','installed_efficiency','float',to_char(p_installed_efficiency(m_error_index))); db_error_logger.dblogerror_values('persister.add_harvester_inst_obj','max_extraction_rate','int',to_char(p_max_extraction_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_harvester_inst_obj','current_extraction_rate','float',to_char(p_current_extraction_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_harvester_inst_obj','max_hopper_amount','int',to_char(p_max_hopper_amount(m_error_index))); db_error_logger.dblogerror_values('persister.add_harvester_inst_obj','hopper_resource','number',p_hopper_resource(m_error_index)); db_error_logger.dblogerror_values('persister.add_harvester_inst_obj','hopper_amount','float',to_char(p_hopper_amount(m_error_index))); db_error_logger.dblogerror_values('persister.add_harvester_inst_obj','resource_type','number',p_resource_type(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_harvester_inst_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_harvester_inst_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete harvester_installation_objects where object_id=p_object_id(i); end; procedure save_installation_obj( p_object_id VAOFSTRING, p_installation_type VAOFNUMBER, p_activated VAOFSTRING, p_tick_count VAOFNUMBER, p_activate_start_time VAOFNUMBER, p_power VAOFNUMBER, p_power_rate VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update installation_objects set installation_objects.installation_type = nvl(p_installation_type(i),installation_objects.installation_type), installation_objects.activated = nvl(p_activated(i),installation_objects.activated), installation_objects.tick_count = nvl(p_tick_count(i),installation_objects.tick_count), installation_objects.activate_start_time = nvl(p_activate_start_time(i),installation_objects.activate_start_time), installation_objects.power = nvl(p_power(i),installation_objects.power), installation_objects.power_rate = nvl(p_power_rate(i),installation_objects.power_rate) where installation_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update installation_objects set installation_objects.installation_type = nvl(p_installation_type(i),installation_objects.installation_type), installation_objects.activated = nvl(p_activated(i),installation_objects.activated), installation_objects.tick_count = nvl(p_tick_count(i),installation_objects.tick_count), installation_objects.activate_start_time = nvl(p_activate_start_time(i),installation_objects.activate_start_time), installation_objects.power = nvl(p_power(i),installation_objects.power), installation_objects.power_rate = nvl(p_power_rate(i),installation_objects.power_rate) where installation_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_installation_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_installation_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_installation_obj','installation_type','int',to_char(p_installation_type(m_error_index))); db_error_logger.dblogerror_values('persister.save_installation_obj','activated','char',p_activated(m_error_index)); db_error_logger.dblogerror_values('persister.save_installation_obj','tick_count','float',to_char(p_tick_count(m_error_index))); db_error_logger.dblogerror_values('persister.save_installation_obj','activate_start_time','float',to_char(p_activate_start_time(m_error_index))); db_error_logger.dblogerror_values('persister.save_installation_obj','power','float',to_char(p_power(m_error_index))); db_error_logger.dblogerror_values('persister.save_installation_obj','power_rate','float',to_char(p_power_rate(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_installation_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_installation_obj( p_object_id VAOFSTRING, p_installation_type VAOFNUMBER, p_activated VAOFSTRING, p_tick_count VAOFNUMBER, p_activate_start_time VAOFNUMBER, p_power VAOFNUMBER, p_power_rate VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into installation_objects ( installation_objects.installation_type, installation_objects.activated, installation_objects.tick_count, installation_objects.activate_start_time, installation_objects.power, installation_objects.power_rate, installation_objects.object_id ) VALUES ( p_installation_type(i), p_activated(i), p_tick_count(i), p_activate_start_time(i), p_power(i), p_power_rate(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_installation_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE installation_objects Set installation_objects.installation_type = nvl(p_installation_type(i),installation_objects.installation_type), installation_objects.activated = nvl(p_activated(i),installation_objects.activated), installation_objects.tick_count = nvl(p_tick_count(i),installation_objects.tick_count), installation_objects.activate_start_time = nvl(p_activate_start_time(i),installation_objects.activate_start_time), installation_objects.power = nvl(p_power(i),installation_objects.power), installation_objects.power_rate = nvl(p_power_rate(i),installation_objects.power_rate) where installation_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into installation_objects ( installation_objects.installation_type, installation_objects.activated, installation_objects.tick_count, installation_objects.activate_start_time, installation_objects.power, installation_objects.power_rate, installation_objects.object_id ) VALUES ( p_installation_type(i), p_activated(i), p_tick_count(i), p_activate_start_time(i), p_power(i), p_power_rate(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into installation_objects ( installation_objects.installation_type, installation_objects.activated, installation_objects.tick_count, installation_objects.activate_start_time, installation_objects.power, installation_objects.power_rate, installation_objects.object_id ) VALUES ( p_installation_type(i), p_activated(i), p_tick_count(i), p_activate_start_time(i), p_power(i), p_power_rate(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_installation_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_installation_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_installation_obj','installation_type','int',to_char(p_installation_type(m_error_index))); db_error_logger.dblogerror_values('persister.add_installation_obj','activated','char',p_activated(m_error_index)); db_error_logger.dblogerror_values('persister.add_installation_obj','tick_count','float',to_char(p_tick_count(m_error_index))); db_error_logger.dblogerror_values('persister.add_installation_obj','activate_start_time','float',to_char(p_activate_start_time(m_error_index))); db_error_logger.dblogerror_values('persister.add_installation_obj','power','float',to_char(p_power(m_error_index))); db_error_logger.dblogerror_values('persister.add_installation_obj','power_rate','float',to_char(p_power_rate(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_installation_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_installation_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete installation_objects where object_id=p_object_id(i); end; procedure save_intangible_obj( p_object_id VAOFSTRING, p_count VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update intangible_objects set intangible_objects.count = nvl(p_count(i),intangible_objects.count) where intangible_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update intangible_objects set intangible_objects.count = nvl(p_count(i),intangible_objects.count) where intangible_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_intangible_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_intangible_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_intangible_obj','count','int',to_char(p_count(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_intangible_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_intangible_obj( p_object_id VAOFSTRING, p_count VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into intangible_objects ( intangible_objects.count, intangible_objects.object_id ) VALUES ( p_count(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_intangible_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE intangible_objects Set intangible_objects.count = nvl(p_count(i),intangible_objects.count) where intangible_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into intangible_objects ( intangible_objects.count, intangible_objects.object_id ) VALUES ( p_count(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into intangible_objects ( intangible_objects.count, intangible_objects.object_id ) VALUES ( p_count(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_intangible_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_intangible_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_intangible_obj','count','int',to_char(p_count(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_intangible_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_intangible_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete intangible_objects where object_id=p_object_id(i); end; procedure save_manf_schematic_obj( p_object_id VAOFSTRING, p_creator_id VAOFSTRING, p_creator_name VAOFSTRING, p_items_per_container VAOFNUMBER, p_manufacture_time VAOFNUMBER, p_draft_schematic VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update manf_schematic_objects set manf_schematic_objects.creator_id = nvl(p_creator_id(i),manf_schematic_objects.creator_id), manf_schematic_objects.creator_name = nvl(p_creator_name(i),manf_schematic_objects.creator_name), manf_schematic_objects.items_per_container = nvl(p_items_per_container(i),manf_schematic_objects.items_per_container), manf_schematic_objects.manufacture_time = nvl(p_manufacture_time(i),manf_schematic_objects.manufacture_time), manf_schematic_objects.draft_schematic = nvl(p_draft_schematic(i),manf_schematic_objects.draft_schematic) where manf_schematic_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update manf_schematic_objects set manf_schematic_objects.creator_id = nvl(p_creator_id(i),manf_schematic_objects.creator_id), manf_schematic_objects.creator_name = nvl(p_creator_name(i),manf_schematic_objects.creator_name), manf_schematic_objects.items_per_container = nvl(p_items_per_container(i),manf_schematic_objects.items_per_container), manf_schematic_objects.manufacture_time = nvl(p_manufacture_time(i),manf_schematic_objects.manufacture_time), manf_schematic_objects.draft_schematic = nvl(p_draft_schematic(i),manf_schematic_objects.draft_schematic) where manf_schematic_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_manf_schematic_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_manf_schematic_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_manf_schematic_obj','creator_id','number',p_creator_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_manf_schematic_obj','creator_name','varchar2',p_creator_name(m_error_index)); db_error_logger.dblogerror_values('persister.save_manf_schematic_obj','items_per_container','int',to_char(p_items_per_container(m_error_index))); db_error_logger.dblogerror_values('persister.save_manf_schematic_obj','manufacture_time','float',to_char(p_manufacture_time(m_error_index))); db_error_logger.dblogerror_values('persister.save_manf_schematic_obj','draft_schematic','int',to_char(p_draft_schematic(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_manf_schematic_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_manf_schematic_obj( p_object_id VAOFSTRING, p_creator_id VAOFSTRING, p_creator_name VAOFSTRING, p_items_per_container VAOFNUMBER, p_manufacture_time VAOFNUMBER, p_draft_schematic VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into manf_schematic_objects ( manf_schematic_objects.creator_id, manf_schematic_objects.creator_name, manf_schematic_objects.items_per_container, manf_schematic_objects.manufacture_time, manf_schematic_objects.draft_schematic, manf_schematic_objects.object_id ) VALUES ( p_creator_id(i), p_creator_name(i), p_items_per_container(i), p_manufacture_time(i), p_draft_schematic(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_manf_schematic_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE manf_schematic_objects Set manf_schematic_objects.creator_id = nvl(p_creator_id(i),manf_schematic_objects.creator_id), manf_schematic_objects.creator_name = nvl(p_creator_name(i),manf_schematic_objects.creator_name), manf_schematic_objects.items_per_container = nvl(p_items_per_container(i),manf_schematic_objects.items_per_container), manf_schematic_objects.manufacture_time = nvl(p_manufacture_time(i),manf_schematic_objects.manufacture_time), manf_schematic_objects.draft_schematic = nvl(p_draft_schematic(i),manf_schematic_objects.draft_schematic) where manf_schematic_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into manf_schematic_objects ( manf_schematic_objects.creator_id, manf_schematic_objects.creator_name, manf_schematic_objects.items_per_container, manf_schematic_objects.manufacture_time, manf_schematic_objects.draft_schematic, manf_schematic_objects.object_id ) VALUES ( p_creator_id(i), p_creator_name(i), p_items_per_container(i), p_manufacture_time(i), p_draft_schematic(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into manf_schematic_objects ( manf_schematic_objects.creator_id, manf_schematic_objects.creator_name, manf_schematic_objects.items_per_container, manf_schematic_objects.manufacture_time, manf_schematic_objects.draft_schematic, manf_schematic_objects.object_id ) VALUES ( p_creator_id(i), p_creator_name(i), p_items_per_container(i), p_manufacture_time(i), p_draft_schematic(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_manf_schematic_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_manf_schematic_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_manf_schematic_obj','creator_id','number',p_creator_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_manf_schematic_obj','creator_name','varchar2',p_creator_name(m_error_index)); db_error_logger.dblogerror_values('persister.add_manf_schematic_obj','items_per_container','int',to_char(p_items_per_container(m_error_index))); db_error_logger.dblogerror_values('persister.add_manf_schematic_obj','manufacture_time','float',to_char(p_manufacture_time(m_error_index))); db_error_logger.dblogerror_values('persister.add_manf_schematic_obj','draft_schematic','int',to_char(p_draft_schematic(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_manf_schematic_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_manf_schematic_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete manf_schematic_objects where object_id=p_object_id(i); end; procedure save_manufacture_inst_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin null; end; procedure add_manufacture_inst_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into manufacture_inst_objects ( manufacture_inst_objects.object_id ) VALUES ( p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_manufacture_inst_obj : dup_val_on_index error.'); END IF; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into manufacture_inst_objects ( manufacture_inst_objects.object_id ) VALUES ( p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_manufacture_inst_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_manufacture_inst_obj','object_id','number',p_object_id(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_manufacture_inst_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_manufacture_inst_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin null; end; procedure save_mission_obj( p_object_id VAOFSTRING, p_difficulty VAOFNUMBER, p_end_x VAOFNUMBER, p_end_y VAOFNUMBER, p_end_z VAOFNUMBER, p_end_cell VAOFSTRING, p_end_scene VAOFNUMBER, p_mission_creator VAOFSTRING, p_reward VAOFNUMBER, p_root_script_name VAOFSTRING, p_start_x VAOFNUMBER, p_start_y VAOFNUMBER, p_start_z VAOFNUMBER, p_start_cell VAOFSTRING, p_start_scene VAOFNUMBER, p_description_table VAOFSTRING, p_description_text VAOFSTRING, p_title_table VAOFSTRING, p_title_text VAOFSTRING, p_mission_holder_id VAOFSTRING, p_status VAOFNUMBER, p_mission_type VAOFNUMBER, p_target_appearance VAOFNUMBER, p_target_name VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update mission_objects set mission_objects.difficulty = nvl(p_difficulty(i),mission_objects.difficulty), mission_objects.end_x = nvl(p_end_x(i),mission_objects.end_x), mission_objects.end_y = nvl(p_end_y(i),mission_objects.end_y), mission_objects.end_z = nvl(p_end_z(i),mission_objects.end_z), mission_objects.end_cell = nvl(p_end_cell(i),mission_objects.end_cell), mission_objects.end_scene = nvl(p_end_scene(i),mission_objects.end_scene), mission_objects.mission_creator = nvl(p_mission_creator(i),mission_objects.mission_creator), mission_objects.reward = nvl(p_reward(i),mission_objects.reward), mission_objects.root_script_name = nvl(p_root_script_name(i),mission_objects.root_script_name), mission_objects.start_x = nvl(p_start_x(i),mission_objects.start_x), mission_objects.start_y = nvl(p_start_y(i),mission_objects.start_y), mission_objects.start_z = nvl(p_start_z(i),mission_objects.start_z), mission_objects.start_cell = nvl(p_start_cell(i),mission_objects.start_cell), mission_objects.start_scene = nvl(p_start_scene(i),mission_objects.start_scene), mission_objects.description_table = nvl(p_description_table(i),mission_objects.description_table), mission_objects.description_text = nvl(p_description_text(i),mission_objects.description_text), mission_objects.title_table = nvl(p_title_table(i),mission_objects.title_table), mission_objects.title_text = nvl(p_title_text(i),mission_objects.title_text), mission_objects.mission_holder_id = nvl(p_mission_holder_id(i),mission_objects.mission_holder_id), mission_objects.status = nvl(p_status(i),mission_objects.status), mission_objects.mission_type = nvl(p_mission_type(i),mission_objects.mission_type), mission_objects.target_appearance = nvl(p_target_appearance(i),mission_objects.target_appearance), mission_objects.target_name = nvl(p_target_name(i),mission_objects.target_name) where mission_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update mission_objects set mission_objects.difficulty = nvl(p_difficulty(i),mission_objects.difficulty), mission_objects.end_x = nvl(p_end_x(i),mission_objects.end_x), mission_objects.end_y = nvl(p_end_y(i),mission_objects.end_y), mission_objects.end_z = nvl(p_end_z(i),mission_objects.end_z), mission_objects.end_cell = nvl(p_end_cell(i),mission_objects.end_cell), mission_objects.end_scene = nvl(p_end_scene(i),mission_objects.end_scene), mission_objects.mission_creator = nvl(p_mission_creator(i),mission_objects.mission_creator), mission_objects.reward = nvl(p_reward(i),mission_objects.reward), mission_objects.root_script_name = nvl(p_root_script_name(i),mission_objects.root_script_name), mission_objects.start_x = nvl(p_start_x(i),mission_objects.start_x), mission_objects.start_y = nvl(p_start_y(i),mission_objects.start_y), mission_objects.start_z = nvl(p_start_z(i),mission_objects.start_z), mission_objects.start_cell = nvl(p_start_cell(i),mission_objects.start_cell), mission_objects.start_scene = nvl(p_start_scene(i),mission_objects.start_scene), mission_objects.description_table = nvl(p_description_table(i),mission_objects.description_table), mission_objects.description_text = nvl(p_description_text(i),mission_objects.description_text), mission_objects.title_table = nvl(p_title_table(i),mission_objects.title_table), mission_objects.title_text = nvl(p_title_text(i),mission_objects.title_text), mission_objects.mission_holder_id = nvl(p_mission_holder_id(i),mission_objects.mission_holder_id), mission_objects.status = nvl(p_status(i),mission_objects.status), mission_objects.mission_type = nvl(p_mission_type(i),mission_objects.mission_type), mission_objects.target_appearance = nvl(p_target_appearance(i),mission_objects.target_appearance), mission_objects.target_name = nvl(p_target_name(i),mission_objects.target_name) where mission_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_mission_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_mission_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_mission_obj','difficulty','int',to_char(p_difficulty(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','end_x','float',to_char(p_end_x(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','end_y','float',to_char(p_end_y(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','end_z','float',to_char(p_end_z(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','end_cell','number',p_end_cell(m_error_index)); db_error_logger.dblogerror_values('persister.save_mission_obj','end_scene','int',to_char(p_end_scene(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','mission_creator','varchar2',p_mission_creator(m_error_index)); db_error_logger.dblogerror_values('persister.save_mission_obj','reward','int',to_char(p_reward(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','root_script_name','varchar2',p_root_script_name(m_error_index)); db_error_logger.dblogerror_values('persister.save_mission_obj','start_x','float',to_char(p_start_x(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','start_y','float',to_char(p_start_y(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','start_z','float',to_char(p_start_z(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','start_cell','number',p_start_cell(m_error_index)); db_error_logger.dblogerror_values('persister.save_mission_obj','start_scene','int',to_char(p_start_scene(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','description_table','varchar2',p_description_table(m_error_index)); db_error_logger.dblogerror_values('persister.save_mission_obj','description_text','varchar2',p_description_text(m_error_index)); db_error_logger.dblogerror_values('persister.save_mission_obj','title_table','varchar2',p_title_table(m_error_index)); db_error_logger.dblogerror_values('persister.save_mission_obj','title_text','varchar2',p_title_text(m_error_index)); db_error_logger.dblogerror_values('persister.save_mission_obj','mission_holder_id','number',p_mission_holder_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_mission_obj','status','int',to_char(p_status(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','mission_type','int',to_char(p_mission_type(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','target_appearance','int',to_char(p_target_appearance(m_error_index))); db_error_logger.dblogerror_values('persister.save_mission_obj','target_name','varchar2',p_target_name(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_mission_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_mission_obj( p_object_id VAOFSTRING, p_difficulty VAOFNUMBER, p_end_x VAOFNUMBER, p_end_y VAOFNUMBER, p_end_z VAOFNUMBER, p_end_cell VAOFSTRING, p_end_scene VAOFNUMBER, p_mission_creator VAOFSTRING, p_reward VAOFNUMBER, p_root_script_name VAOFSTRING, p_start_x VAOFNUMBER, p_start_y VAOFNUMBER, p_start_z VAOFNUMBER, p_start_cell VAOFSTRING, p_start_scene VAOFNUMBER, p_description_table VAOFSTRING, p_description_text VAOFSTRING, p_title_table VAOFSTRING, p_title_text VAOFSTRING, p_mission_holder_id VAOFSTRING, p_status VAOFNUMBER, p_mission_type VAOFNUMBER, p_target_appearance VAOFNUMBER, p_target_name VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into mission_objects ( mission_objects.difficulty, mission_objects.end_x, mission_objects.end_y, mission_objects.end_z, mission_objects.end_cell, mission_objects.end_scene, mission_objects.mission_creator, mission_objects.reward, mission_objects.root_script_name, mission_objects.start_x, mission_objects.start_y, mission_objects.start_z, mission_objects.start_cell, mission_objects.start_scene, mission_objects.description_table, mission_objects.description_text, mission_objects.title_table, mission_objects.title_text, mission_objects.mission_holder_id, mission_objects.status, mission_objects.mission_type, mission_objects.target_appearance, mission_objects.target_name, mission_objects.object_id ) VALUES ( p_difficulty(i), p_end_x(i), p_end_y(i), p_end_z(i), p_end_cell(i), p_end_scene(i), p_mission_creator(i), p_reward(i), p_root_script_name(i), p_start_x(i), p_start_y(i), p_start_z(i), p_start_cell(i), p_start_scene(i), p_description_table(i), p_description_text(i), p_title_table(i), p_title_text(i), p_mission_holder_id(i), p_status(i), p_mission_type(i), p_target_appearance(i), p_target_name(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_mission_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE mission_objects Set mission_objects.difficulty = nvl(p_difficulty(i),mission_objects.difficulty), mission_objects.end_x = nvl(p_end_x(i),mission_objects.end_x), mission_objects.end_y = nvl(p_end_y(i),mission_objects.end_y), mission_objects.end_z = nvl(p_end_z(i),mission_objects.end_z), mission_objects.end_cell = nvl(p_end_cell(i),mission_objects.end_cell), mission_objects.end_scene = nvl(p_end_scene(i),mission_objects.end_scene), mission_objects.mission_creator = nvl(p_mission_creator(i),mission_objects.mission_creator), mission_objects.reward = nvl(p_reward(i),mission_objects.reward), mission_objects.root_script_name = nvl(p_root_script_name(i),mission_objects.root_script_name), mission_objects.start_x = nvl(p_start_x(i),mission_objects.start_x), mission_objects.start_y = nvl(p_start_y(i),mission_objects.start_y), mission_objects.start_z = nvl(p_start_z(i),mission_objects.start_z), mission_objects.start_cell = nvl(p_start_cell(i),mission_objects.start_cell), mission_objects.start_scene = nvl(p_start_scene(i),mission_objects.start_scene), mission_objects.description_table = nvl(p_description_table(i),mission_objects.description_table), mission_objects.description_text = nvl(p_description_text(i),mission_objects.description_text), mission_objects.title_table = nvl(p_title_table(i),mission_objects.title_table), mission_objects.title_text = nvl(p_title_text(i),mission_objects.title_text), mission_objects.mission_holder_id = nvl(p_mission_holder_id(i),mission_objects.mission_holder_id), mission_objects.status = nvl(p_status(i),mission_objects.status), mission_objects.mission_type = nvl(p_mission_type(i),mission_objects.mission_type), mission_objects.target_appearance = nvl(p_target_appearance(i),mission_objects.target_appearance), mission_objects.target_name = nvl(p_target_name(i),mission_objects.target_name) where mission_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into mission_objects ( mission_objects.difficulty, mission_objects.end_x, mission_objects.end_y, mission_objects.end_z, mission_objects.end_cell, mission_objects.end_scene, mission_objects.mission_creator, mission_objects.reward, mission_objects.root_script_name, mission_objects.start_x, mission_objects.start_y, mission_objects.start_z, mission_objects.start_cell, mission_objects.start_scene, mission_objects.description_table, mission_objects.description_text, mission_objects.title_table, mission_objects.title_text, mission_objects.mission_holder_id, mission_objects.status, mission_objects.mission_type, mission_objects.target_appearance, mission_objects.target_name, mission_objects.object_id ) VALUES ( p_difficulty(i), p_end_x(i), p_end_y(i), p_end_z(i), p_end_cell(i), p_end_scene(i), p_mission_creator(i), p_reward(i), p_root_script_name(i), p_start_x(i), p_start_y(i), p_start_z(i), p_start_cell(i), p_start_scene(i), p_description_table(i), p_description_text(i), p_title_table(i), p_title_text(i), p_mission_holder_id(i), p_status(i), p_mission_type(i), p_target_appearance(i), p_target_name(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into mission_objects ( mission_objects.difficulty, mission_objects.end_x, mission_objects.end_y, mission_objects.end_z, mission_objects.end_cell, mission_objects.end_scene, mission_objects.mission_creator, mission_objects.reward, mission_objects.root_script_name, mission_objects.start_x, mission_objects.start_y, mission_objects.start_z, mission_objects.start_cell, mission_objects.start_scene, mission_objects.description_table, mission_objects.description_text, mission_objects.title_table, mission_objects.title_text, mission_objects.mission_holder_id, mission_objects.status, mission_objects.mission_type, mission_objects.target_appearance, mission_objects.target_name, mission_objects.object_id ) VALUES ( p_difficulty(i), p_end_x(i), p_end_y(i), p_end_z(i), p_end_cell(i), p_end_scene(i), p_mission_creator(i), p_reward(i), p_root_script_name(i), p_start_x(i), p_start_y(i), p_start_z(i), p_start_cell(i), p_start_scene(i), p_description_table(i), p_description_text(i), p_title_table(i), p_title_text(i), p_mission_holder_id(i), p_status(i), p_mission_type(i), p_target_appearance(i), p_target_name(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_mission_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_mission_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_mission_obj','difficulty','int',to_char(p_difficulty(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','end_x','float',to_char(p_end_x(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','end_y','float',to_char(p_end_y(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','end_z','float',to_char(p_end_z(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','end_cell','number',p_end_cell(m_error_index)); db_error_logger.dblogerror_values('persister.add_mission_obj','end_scene','int',to_char(p_end_scene(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','mission_creator','varchar2',p_mission_creator(m_error_index)); db_error_logger.dblogerror_values('persister.add_mission_obj','reward','int',to_char(p_reward(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','root_script_name','varchar2',p_root_script_name(m_error_index)); db_error_logger.dblogerror_values('persister.add_mission_obj','start_x','float',to_char(p_start_x(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','start_y','float',to_char(p_start_y(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','start_z','float',to_char(p_start_z(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','start_cell','number',p_start_cell(m_error_index)); db_error_logger.dblogerror_values('persister.add_mission_obj','start_scene','int',to_char(p_start_scene(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','description_table','varchar2',p_description_table(m_error_index)); db_error_logger.dblogerror_values('persister.add_mission_obj','description_text','varchar2',p_description_text(m_error_index)); db_error_logger.dblogerror_values('persister.add_mission_obj','title_table','varchar2',p_title_table(m_error_index)); db_error_logger.dblogerror_values('persister.add_mission_obj','title_text','varchar2',p_title_text(m_error_index)); db_error_logger.dblogerror_values('persister.add_mission_obj','mission_holder_id','number',p_mission_holder_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_mission_obj','status','int',to_char(p_status(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','mission_type','int',to_char(p_mission_type(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','target_appearance','int',to_char(p_target_appearance(m_error_index))); db_error_logger.dblogerror_values('persister.add_mission_obj','target_name','varchar2',p_target_name(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_mission_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_mission_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete mission_objects where object_id=p_object_id(i); end; procedure save_planet_obj( p_object_id VAOFSTRING, p_planet_name VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update planet_objects set planet_objects.planet_name = nvl(p_planet_name(i),planet_objects.planet_name) where planet_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update planet_objects set planet_objects.planet_name = nvl(p_planet_name(i),planet_objects.planet_name) where planet_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_planet_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_planet_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_planet_obj','planet_name','varchar',p_planet_name(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_planet_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_planet_obj( p_object_id VAOFSTRING, p_planet_name VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into planet_objects ( planet_objects.planet_name, planet_objects.object_id ) VALUES ( p_planet_name(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_planet_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE planet_objects Set planet_objects.planet_name = nvl(p_planet_name(i),planet_objects.planet_name) where planet_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into planet_objects ( planet_objects.planet_name, planet_objects.object_id ) VALUES ( p_planet_name(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into planet_objects ( planet_objects.planet_name, planet_objects.object_id ) VALUES ( p_planet_name(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_planet_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_planet_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_planet_obj','planet_name','varchar',p_planet_name(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_planet_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_planet_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete planet_objects where object_id=p_object_id(i); end; procedure save_resource_container_obj( p_object_id VAOFSTRING, p_resource_type VAOFSTRING, p_quantity VAOFNUMBER, p_source VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update resource_container_objects set resource_container_objects.resource_type = nvl(p_resource_type(i),resource_container_objects.resource_type), resource_container_objects.quantity = nvl(p_quantity(i),resource_container_objects.quantity), resource_container_objects.source = nvl(p_source(i),resource_container_objects.source) where resource_container_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update resource_container_objects set resource_container_objects.resource_type = nvl(p_resource_type(i),resource_container_objects.resource_type), resource_container_objects.quantity = nvl(p_quantity(i),resource_container_objects.quantity), resource_container_objects.source = nvl(p_source(i),resource_container_objects.source) where resource_container_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_resource_container_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_resource_container_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_resource_container_obj','resource_type','number',p_resource_type(m_error_index)); db_error_logger.dblogerror_values('persister.save_resource_container_obj','quantity','int',to_char(p_quantity(m_error_index))); db_error_logger.dblogerror_values('persister.save_resource_container_obj','source','number',p_source(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_resource_container_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_resource_container_obj( p_object_id VAOFSTRING, p_resource_type VAOFSTRING, p_quantity VAOFNUMBER, p_source VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into resource_container_objects ( resource_container_objects.resource_type, resource_container_objects.quantity, resource_container_objects.source, resource_container_objects.object_id ) VALUES ( p_resource_type(i), p_quantity(i), p_source(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_resource_container_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE resource_container_objects Set resource_container_objects.resource_type = nvl(p_resource_type(i),resource_container_objects.resource_type), resource_container_objects.quantity = nvl(p_quantity(i),resource_container_objects.quantity), resource_container_objects.source = nvl(p_source(i),resource_container_objects.source) where resource_container_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into resource_container_objects ( resource_container_objects.resource_type, resource_container_objects.quantity, resource_container_objects.source, resource_container_objects.object_id ) VALUES ( p_resource_type(i), p_quantity(i), p_source(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into resource_container_objects ( resource_container_objects.resource_type, resource_container_objects.quantity, resource_container_objects.source, resource_container_objects.object_id ) VALUES ( p_resource_type(i), p_quantity(i), p_source(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_resource_container_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_resource_container_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_resource_container_obj','resource_type','number',p_resource_type(m_error_index)); db_error_logger.dblogerror_values('persister.add_resource_container_obj','quantity','int',to_char(p_quantity(m_error_index))); db_error_logger.dblogerror_values('persister.add_resource_container_obj','source','number',p_source(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_resource_container_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_resource_container_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete resource_container_objects where object_id=p_object_id(i); end; procedure save_ship_obj(p_object_id VAOFSTRING, p_slide_dampener VAOFNUMBER, p_current_chassis_hit_points VAOFNUMBER, p_maximum_chassis_hit_points VAOFNUMBER, p_chassis_type VAOFNUMBER, p_cmp_armor_hp_maximum VAOFSTRING, p_cmp_armor_hp_current VAOFSTRING, p_cmp_efficiency_general VAOFSTRING, p_cmp_efficiency_eng VAOFSTRING, p_cmp_eng_maintenance VAOFSTRING, p_cmp_mass VAOFSTRING, p_cmp_crc VAOFSTRING, p_cmp_hp_current VAOFSTRING, p_cmp_hp_maximum VAOFSTRING, p_cmp_flags VAOFSTRING, p_cmp_names VAOFLONGSTRING, p_weapon_damage_maximum VAOFSTRING, p_weapon_damage_minimum VAOFSTRING, p_weapon_effectiveness_shields VAOFSTRING, p_weapon_effectiveness_armor VAOFSTRING, p_weapon_eng_per_shot VAOFSTRING, p_weapon_refire_rate VAOFSTRING, p_weapon_ammo_current VAOFSTRING, p_weapon_ammo_maximum VAOFSTRING, p_weapon_ammo_type VAOFSTRING, p_shield_hp_front_maximum VAOFNUMBER, p_shield_hp_back_maximum VAOFNUMBER, p_shield_recharge_rate VAOFNUMBER, p_capacitor_eng_maximum VAOFNUMBER, p_capacitor_eng_recharge_rate VAOFNUMBER, p_engine_acc_rate VAOFNUMBER, p_engine_deceleration_rate VAOFNUMBER, p_engine_pitch_acc_rate VAOFNUMBER, p_engine_yaw_acc_rate VAOFNUMBER, p_engine_roll_acc_rate VAOFNUMBER, p_engine_pitch_rate_maximum VAOFNUMBER, p_engine_yaw_rate_maximum VAOFNUMBER, p_engine_roll_rate_maximum VAOFNUMBER, p_engine_speed_maximum VAOFNUMBER, p_reactor_eng_generation_rate VAOFNUMBER, p_booster_eng_maximum VAOFNUMBER, p_booster_eng_recharge_rate VAOFNUMBER, p_booster_eng_consumption_rate VAOFNUMBER, p_booster_acc VAOFNUMBER, p_booster_speed_maximum VAOFNUMBER, p_droid_if_cmd_speed VAOFNUMBER, p_installed_dcd VAOFSTRING, p_chassis_cmp_mass_maximum VAOFNUMBER, p_cmp_creators VAOFSTRING, p_cargo_hold_contents_maximum VAOFNUMBER, p_cargo_hold_contents_current VAOFNUMBER, p_cargo_hold_contents VAOFSTRING, p_chunk_size number) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update ship_objects set ship_objects.slide_dampener = nvl(p_slide_dampener(i),ship_objects.slide_dampener), ship_objects.current_chassis_hit_points = nvl(p_current_chassis_hit_points(i),ship_objects.current_chassis_hit_points), ship_objects.maximum_chassis_hit_points = nvl(p_maximum_chassis_hit_points(i),ship_objects.maximum_chassis_hit_points), ship_objects.chassis_type = nvl(p_chassis_type(i),ship_objects.chassis_type), ship_objects.cmp_armor_hp_maximum = nvl(p_cmp_armor_hp_maximum(i),ship_objects.cmp_armor_hp_maximum), ship_objects.cmp_armor_hp_current = nvl(p_cmp_armor_hp_current(i),ship_objects.cmp_armor_hp_current), ship_objects.cmp_efficiency_general = nvl(p_cmp_efficiency_general(i),ship_objects.cmp_efficiency_general), ship_objects.cmp_efficiency_eng = nvl(p_cmp_efficiency_eng(i),ship_objects.cmp_efficiency_eng), ship_objects.cmp_eng_maintenance = nvl(p_cmp_eng_maintenance(i),ship_objects.cmp_eng_maintenance), ship_objects.cmp_mass = nvl(p_cmp_mass(i),ship_objects.cmp_mass), ship_objects.cmp_crc = nvl(p_cmp_crc(i),ship_objects.cmp_crc), ship_objects.cmp_hp_current = nvl(p_cmp_hp_current(i),ship_objects.cmp_hp_current), ship_objects.cmp_hp_maximum = nvl(p_cmp_hp_maximum(i),ship_objects.cmp_hp_maximum), ship_objects.cmp_flags = nvl(p_cmp_flags(i),ship_objects.cmp_flags), ship_objects.cmp_names = nvl(p_cmp_names(i),ship_objects.cmp_names), ship_objects.weapon_damage_maximum = nvl(p_weapon_damage_maximum(i),ship_objects.weapon_damage_maximum), ship_objects.weapon_damage_minimum = nvl(p_weapon_damage_minimum(i),ship_objects.weapon_damage_minimum), ship_objects.weapon_effectiveness_shields = nvl(p_weapon_effectiveness_shields(i),ship_objects.weapon_effectiveness_shields), ship_objects.weapon_effectiveness_armor = nvl(p_weapon_effectiveness_armor(i),ship_objects.weapon_effectiveness_armor), ship_objects.weapon_eng_per_shot = nvl(p_weapon_eng_per_shot(i),ship_objects.weapon_eng_per_shot), ship_objects.weapon_refire_rate = nvl(p_weapon_refire_rate(i),ship_objects.weapon_refire_rate), ship_objects.weapon_ammo_current = nvl(p_weapon_ammo_current(i),ship_objects.weapon_ammo_current), ship_objects.weapon_ammo_maximum = nvl(p_weapon_ammo_maximum(i),ship_objects.weapon_ammo_maximum), ship_objects.weapon_ammo_type = nvl(p_weapon_ammo_type(i),ship_objects.weapon_ammo_type), ship_objects.shield_hp_front_maximum = nvl(p_shield_hp_front_maximum(i),ship_objects.shield_hp_front_maximum), ship_objects.shield_hp_back_maximum = nvl(p_shield_hp_back_maximum(i),ship_objects.shield_hp_back_maximum), ship_objects.shield_recharge_rate = nvl(p_shield_recharge_rate(i),ship_objects.shield_recharge_rate), ship_objects.capacitor_eng_maximum = nvl(p_capacitor_eng_maximum(i),ship_objects.capacitor_eng_maximum), ship_objects.capacitor_eng_recharge_rate = nvl(p_capacitor_eng_recharge_rate(i),ship_objects.capacitor_eng_recharge_rate), ship_objects.engine_acc_rate = nvl(p_engine_acc_rate(i),ship_objects.engine_acc_rate), ship_objects.engine_deceleration_rate = nvl(p_engine_deceleration_rate(i),ship_objects.engine_deceleration_rate), ship_objects.engine_pitch_acc_rate = nvl(p_engine_pitch_acc_rate(i),ship_objects.engine_pitch_acc_rate), ship_objects.engine_yaw_acc_rate = nvl(p_engine_yaw_acc_rate(i),ship_objects.engine_yaw_acc_rate), ship_objects.engine_roll_acc_rate = nvl(p_engine_roll_acc_rate(i),ship_objects.engine_roll_acc_rate), ship_objects.engine_pitch_rate_maximum = nvl(p_engine_pitch_rate_maximum(i),ship_objects.engine_pitch_rate_maximum), ship_objects.engine_yaw_rate_maximum = nvl(p_engine_yaw_rate_maximum(i),ship_objects.engine_yaw_rate_maximum), ship_objects.engine_roll_rate_maximum = nvl(p_engine_roll_rate_maximum(i),ship_objects.engine_roll_rate_maximum), ship_objects.engine_speed_maximum = nvl(p_engine_speed_maximum(i),ship_objects.engine_speed_maximum), ship_objects.reactor_eng_generation_rate = nvl(p_reactor_eng_generation_rate(i),ship_objects.reactor_eng_generation_rate), ship_objects.booster_eng_maximum = nvl(p_booster_eng_maximum(i),ship_objects.booster_eng_maximum), ship_objects.booster_eng_recharge_rate = nvl(p_booster_eng_recharge_rate(i),ship_objects.booster_eng_recharge_rate), ship_objects.booster_eng_consumption_rate = nvl(p_booster_eng_consumption_rate(i),ship_objects.booster_eng_consumption_rate), ship_objects.booster_acc = nvl(p_booster_acc(i),ship_objects.booster_acc), ship_objects.booster_speed_maximum = nvl(p_booster_speed_maximum(i),ship_objects.booster_speed_maximum), ship_objects.droid_if_cmd_speed = nvl(p_droid_if_cmd_speed(i),ship_objects.droid_if_cmd_speed), ship_objects.installed_dcd = nvl(p_installed_dcd(i),ship_objects.installed_dcd), ship_objects.chassis_cmp_mass_maximum = nvl(p_chassis_cmp_mass_maximum(i),ship_objects.chassis_cmp_mass_maximum), ship_objects.cmp_creators = nvl(p_cmp_creators(i),ship_objects.cmp_creators), ship_objects.cargo_hold_contents_maximum = nvl(p_cargo_hold_contents_maximum(i),ship_objects.cargo_hold_contents_maximum), ship_objects.cargo_hold_contents_current = nvl(p_cargo_hold_contents_current(i),ship_objects.cargo_hold_contents_current), ship_objects.cargo_hold_contents = nvl(p_cargo_hold_contents(i),ship_objects.cargo_hold_contents) where ship_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update ship_objects set ship_objects.slide_dampener = nvl(p_slide_dampener(i),ship_objects.slide_dampener), ship_objects.current_chassis_hit_points = nvl(p_current_chassis_hit_points(i),ship_objects.current_chassis_hit_points), ship_objects.maximum_chassis_hit_points = nvl(p_maximum_chassis_hit_points(i),ship_objects.maximum_chassis_hit_points), ship_objects.chassis_type = nvl(p_chassis_type(i),ship_objects.chassis_type), ship_objects.cmp_armor_hp_maximum = nvl(p_cmp_armor_hp_maximum(i),ship_objects.cmp_armor_hp_maximum), ship_objects.cmp_armor_hp_current = nvl(p_cmp_armor_hp_current(i),ship_objects.cmp_armor_hp_current), ship_objects.cmp_efficiency_general = nvl(p_cmp_efficiency_general(i),ship_objects.cmp_efficiency_general), ship_objects.cmp_efficiency_eng = nvl(p_cmp_efficiency_eng(i),ship_objects.cmp_efficiency_eng), ship_objects.cmp_eng_maintenance = nvl(p_cmp_eng_maintenance(i),ship_objects.cmp_eng_maintenance), ship_objects.cmp_mass = nvl(p_cmp_mass(i),ship_objects.cmp_mass), ship_objects.cmp_crc = nvl(p_cmp_crc(i),ship_objects.cmp_crc), ship_objects.cmp_hp_current = nvl(p_cmp_hp_current(i),ship_objects.cmp_hp_current), ship_objects.cmp_hp_maximum = nvl(p_cmp_hp_maximum(i),ship_objects.cmp_hp_maximum), ship_objects.cmp_flags = nvl(p_cmp_flags(i),ship_objects.cmp_flags), ship_objects.cmp_names = nvl(p_cmp_names(i),ship_objects.cmp_names), ship_objects.weapon_damage_maximum = nvl(p_weapon_damage_maximum(i),ship_objects.weapon_damage_maximum), ship_objects.weapon_damage_minimum = nvl(p_weapon_damage_minimum(i),ship_objects.weapon_damage_minimum), ship_objects.weapon_effectiveness_shields = nvl(p_weapon_effectiveness_shields(i),ship_objects.weapon_effectiveness_shields), ship_objects.weapon_effectiveness_armor = nvl(p_weapon_effectiveness_armor(i),ship_objects.weapon_effectiveness_armor), ship_objects.weapon_eng_per_shot = nvl(p_weapon_eng_per_shot(i),ship_objects.weapon_eng_per_shot), ship_objects.weapon_refire_rate = nvl(p_weapon_refire_rate(i),ship_objects.weapon_refire_rate), ship_objects.weapon_ammo_current = nvl(p_weapon_ammo_current(i),ship_objects.weapon_ammo_current), ship_objects.weapon_ammo_maximum = nvl(p_weapon_ammo_maximum(i),ship_objects.weapon_ammo_maximum), ship_objects.weapon_ammo_type = nvl(p_weapon_ammo_type(i),ship_objects.weapon_ammo_type), ship_objects.shield_hp_front_maximum = nvl(p_shield_hp_front_maximum(i),ship_objects.shield_hp_front_maximum), ship_objects.shield_hp_back_maximum = nvl(p_shield_hp_back_maximum(i),ship_objects.shield_hp_back_maximum), ship_objects.shield_recharge_rate = nvl(p_shield_recharge_rate(i),ship_objects.shield_recharge_rate), ship_objects.capacitor_eng_maximum = nvl(p_capacitor_eng_maximum(i),ship_objects.capacitor_eng_maximum), ship_objects.capacitor_eng_recharge_rate = nvl(p_capacitor_eng_recharge_rate(i),ship_objects.capacitor_eng_recharge_rate), ship_objects.engine_acc_rate = nvl(p_engine_acc_rate(i),ship_objects.engine_acc_rate), ship_objects.engine_deceleration_rate = nvl(p_engine_deceleration_rate(i),ship_objects.engine_deceleration_rate), ship_objects.engine_pitch_acc_rate = nvl(p_engine_pitch_acc_rate(i),ship_objects.engine_pitch_acc_rate), ship_objects.engine_yaw_acc_rate = nvl(p_engine_yaw_acc_rate(i),ship_objects.engine_yaw_acc_rate), ship_objects.engine_roll_acc_rate = nvl(p_engine_roll_acc_rate(i),ship_objects.engine_roll_acc_rate), ship_objects.engine_pitch_rate_maximum = nvl(p_engine_pitch_rate_maximum(i),ship_objects.engine_pitch_rate_maximum), ship_objects.engine_yaw_rate_maximum = nvl(p_engine_yaw_rate_maximum(i),ship_objects.engine_yaw_rate_maximum), ship_objects.engine_roll_rate_maximum = nvl(p_engine_roll_rate_maximum(i),ship_objects.engine_roll_rate_maximum), ship_objects.engine_speed_maximum = nvl(p_engine_speed_maximum(i),ship_objects.engine_speed_maximum), ship_objects.reactor_eng_generation_rate = nvl(p_reactor_eng_generation_rate(i),ship_objects.reactor_eng_generation_rate), ship_objects.booster_eng_maximum = nvl(p_booster_eng_maximum(i),ship_objects.booster_eng_maximum), ship_objects.booster_eng_recharge_rate = nvl(p_booster_eng_recharge_rate(i),ship_objects.booster_eng_recharge_rate), ship_objects.booster_eng_consumption_rate = nvl(p_booster_eng_consumption_rate(i),ship_objects.booster_eng_consumption_rate), ship_objects.booster_acc = nvl(p_booster_acc(i),ship_objects.booster_acc), ship_objects.booster_speed_maximum = nvl(p_booster_speed_maximum(i),ship_objects.booster_speed_maximum), ship_objects.droid_if_cmd_speed = nvl(p_droid_if_cmd_speed(i),ship_objects.droid_if_cmd_speed), ship_objects.installed_dcd = nvl(p_installed_dcd(i),ship_objects.installed_dcd), ship_objects.chassis_cmp_mass_maximum = nvl(p_chassis_cmp_mass_maximum(i),ship_objects.chassis_cmp_mass_maximum), ship_objects.cmp_creators = nvl(p_cmp_creators(i),ship_objects.cmp_creators), ship_objects.cargo_hold_contents_maximum = nvl(p_cargo_hold_contents_maximum(i),ship_objects.cargo_hold_contents_maximum), ship_objects.cargo_hold_contents_current = nvl(p_cargo_hold_contents_current(i),ship_objects.cargo_hold_contents_current), ship_objects.cargo_hold_contents = nvl(p_cargo_hold_contents(i),ship_objects.cargo_hold_contents) where ship_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_ship_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_ship_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','slide_dampener','float',to_char(p_slide_dampener(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','current_chassis_hit_points','float',to_char(p_current_chassis_hit_points(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','maximum_chassis_hit_points','float',to_char(p_maximum_chassis_hit_points(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','chassis_type','int',to_char(p_chassis_type(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_armor_hp_maximum','varchar2',p_cmp_armor_hp_maximum(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_armor_hp_current','varchar2',p_cmp_armor_hp_current(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_efficiency_general','varchar2',p_cmp_efficiency_general(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_efficiency_eng','varchar2',p_cmp_efficiency_eng(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_eng_maintenance','varchar2',p_cmp_eng_maintenance(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_mass','varchar2',p_cmp_mass(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_crc','varchar2',p_cmp_crc(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_hp_current','varchar2',p_cmp_hp_current(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_hp_maximum','varchar2',p_cmp_hp_maximum(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_flags','varchar2',p_cmp_flags(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_names','varchar2',p_cmp_names(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','weapon_damage_maximum','varchar2',p_weapon_damage_maximum(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','weapon_damage_minimum','varchar2',p_weapon_damage_minimum(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','weapon_effectiveness_shields','varchar2',p_weapon_effectiveness_shields(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','weapon_effectiveness_armor','varchar2',p_weapon_effectiveness_armor(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','weapon_eng_per_shot','varchar2',p_weapon_eng_per_shot(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','weapon_refire_rate','varchar2',p_weapon_refire_rate(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','weapon_ammo_current','varchar2',p_weapon_ammo_current(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','weapon_ammo_maximum','varchar2',p_weapon_ammo_maximum(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','weapon_ammo_type','varchar2',p_weapon_ammo_type(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','shield_hp_front_maximum','float',to_char(p_shield_hp_front_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','shield_hp_back_maximum','float',to_char(p_shield_hp_back_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','shield_recharge_rate','float',to_char(p_shield_recharge_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','capacitor_eng_maximum','float',to_char(p_capacitor_eng_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','capacitor_eng_recharge_rate','float',to_char(p_capacitor_eng_recharge_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','engine_acc_rate','float',to_char(p_engine_acc_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','engine_deceleration_rate','float',to_char(p_engine_deceleration_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','engine_pitch_acc_rate','float',to_char(p_engine_pitch_acc_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','engine_yaw_acc_rate','float',to_char(p_engine_yaw_acc_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','engine_roll_acc_rate','float',to_char(p_engine_roll_acc_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','engine_pitch_rate_maximum','float',to_char(p_engine_pitch_rate_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','engine_yaw_rate_maximum','float',to_char(p_engine_yaw_rate_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','engine_roll_rate_maximum','float',to_char(p_engine_roll_rate_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','engine_speed_maximum','float',to_char(p_engine_speed_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','reactor_eng_generation_rate','float',to_char(p_reactor_eng_generation_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','booster_eng_maximum','float',to_char(p_booster_eng_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','booster_eng_recharge_rate','float',to_char(p_booster_eng_recharge_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','booster_eng_consumption_rate','float',to_char(p_booster_eng_consumption_rate(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','booster_acc','float',to_char(p_booster_acc(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','booster_speed_maximum','float',to_char(p_booster_speed_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','droid_if_cmd_speed','float',to_char(p_droid_if_cmd_speed(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','installed_dcd','number',p_installed_dcd(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','chassis_cmp_mass_maximum','float',to_char(p_chassis_cmp_mass_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','cmp_creators','varchar2',p_cmp_creators(m_error_index)); db_error_logger.dblogerror_values('persister.save_ship_obj','cargo_hold_contents_maximum','number',to_char(p_cargo_hold_contents_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','cargo_hold_contents_current','number',to_char(p_cargo_hold_contents_current(m_error_index))); db_error_logger.dblogerror_values('persister.save_ship_obj','cargo_hold_contents','varchar2',p_cargo_hold_contents(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_ship_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_ship_obj(p_object_id VAOFSTRING, p_slide_dampener VAOFNUMBER, p_current_chassis_hit_points VAOFNUMBER, p_maximum_chassis_hit_points VAOFNUMBER, p_chassis_type VAOFNUMBER, p_cmp_armor_hp_maximum VAOFSTRING, p_cmp_armor_hp_current VAOFSTRING, p_cmp_efficiency_general VAOFSTRING, p_cmp_efficiency_eng VAOFSTRING, p_cmp_eng_maintenance VAOFSTRING, p_cmp_mass VAOFSTRING, p_cmp_crc VAOFSTRING, p_cmp_hp_current VAOFSTRING, p_cmp_hp_maximum VAOFSTRING, p_cmp_flags VAOFSTRING, p_cmp_names VAOFLONGSTRING, p_weapon_damage_maximum VAOFSTRING, p_weapon_damage_minimum VAOFSTRING, p_weapon_effectiveness_shields VAOFSTRING, p_weapon_effectiveness_armor VAOFSTRING, p_weapon_eng_per_shot VAOFSTRING, p_weapon_refire_rate VAOFSTRING, p_weapon_ammo_current VAOFSTRING, p_weapon_ammo_maximum VAOFSTRING, p_weapon_ammo_type VAOFSTRING, p_shield_hp_front_maximum VAOFNUMBER, p_shield_hp_back_maximum VAOFNUMBER, p_shield_recharge_rate VAOFNUMBER, p_capacitor_eng_maximum VAOFNUMBER, p_capacitor_eng_recharge_rate VAOFNUMBER, p_engine_acc_rate VAOFNUMBER, p_engine_deceleration_rate VAOFNUMBER, p_engine_pitch_acc_rate VAOFNUMBER, p_engine_yaw_acc_rate VAOFNUMBER, p_engine_roll_acc_rate VAOFNUMBER, p_engine_pitch_rate_maximum VAOFNUMBER, p_engine_yaw_rate_maximum VAOFNUMBER, p_engine_roll_rate_maximum VAOFNUMBER, p_engine_speed_maximum VAOFNUMBER, p_reactor_eng_generation_rate VAOFNUMBER, p_booster_eng_maximum VAOFNUMBER, p_booster_eng_recharge_rate VAOFNUMBER, p_booster_eng_consumption_rate VAOFNUMBER, p_booster_acc VAOFNUMBER, p_booster_speed_maximum VAOFNUMBER, p_droid_if_cmd_speed VAOFNUMBER, p_installed_dcd VAOFSTRING, p_chassis_cmp_mass_maximum VAOFNUMBER, p_cmp_creators VAOFSTRING, p_cargo_hold_contents_maximum VAOFNUMBER, p_cargo_hold_contents_current VAOFNUMBER, p_cargo_hold_contents VAOFSTRING, p_chunk_size number) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into ship_objects ( ship_objects.slide_dampener, ship_objects.current_chassis_hit_points, ship_objects.maximum_chassis_hit_points, ship_objects.chassis_type, ship_objects.cmp_armor_hp_maximum, ship_objects.cmp_armor_hp_current, ship_objects.cmp_efficiency_general, ship_objects.cmp_efficiency_eng, ship_objects.cmp_eng_maintenance, ship_objects.cmp_mass, ship_objects.cmp_crc, ship_objects.cmp_hp_current, ship_objects.cmp_hp_maximum, ship_objects.cmp_flags, ship_objects.cmp_names, ship_objects.weapon_damage_maximum, ship_objects.weapon_damage_minimum, ship_objects.weapon_effectiveness_shields, ship_objects.weapon_effectiveness_armor, ship_objects.weapon_eng_per_shot, ship_objects.weapon_refire_rate, ship_objects.weapon_ammo_current, ship_objects.weapon_ammo_maximum, ship_objects.weapon_ammo_type, ship_objects.shield_hp_front_maximum, ship_objects.shield_hp_back_maximum, ship_objects.shield_recharge_rate, ship_objects.capacitor_eng_maximum, ship_objects.capacitor_eng_recharge_rate, ship_objects.engine_acc_rate, ship_objects.engine_deceleration_rate, ship_objects.engine_pitch_acc_rate, ship_objects.engine_yaw_acc_rate, ship_objects.engine_roll_acc_rate, ship_objects.engine_pitch_rate_maximum, ship_objects.engine_yaw_rate_maximum, ship_objects.engine_roll_rate_maximum, ship_objects.engine_speed_maximum, ship_objects.reactor_eng_generation_rate, ship_objects.booster_eng_maximum, ship_objects.booster_eng_recharge_rate, ship_objects.booster_eng_consumption_rate, ship_objects.booster_acc, ship_objects.booster_speed_maximum, ship_objects.droid_if_cmd_speed, ship_objects.installed_dcd, ship_objects.chassis_cmp_mass_maximum, ship_objects.cmp_creators, ship_objects.cargo_hold_contents_maximum, ship_objects.cargo_hold_contents_current, ship_objects.cargo_hold_contents, ship_objects.object_id ) VALUES ( p_slide_dampener(i), p_current_chassis_hit_points(i), p_maximum_chassis_hit_points(i), p_chassis_type(i), p_cmp_armor_hp_maximum(i), p_cmp_armor_hp_current(i), p_cmp_efficiency_general(i), p_cmp_efficiency_eng(i), p_cmp_eng_maintenance(i), p_cmp_mass(i), p_cmp_crc(i), p_cmp_hp_current(i), p_cmp_hp_maximum(i), p_cmp_flags(i), p_cmp_names(i), p_weapon_damage_maximum(i), p_weapon_damage_minimum(i), p_weapon_effectiveness_shields(i), p_weapon_effectiveness_armor(i), p_weapon_eng_per_shot(i), p_weapon_refire_rate(i), p_weapon_ammo_current(i), p_weapon_ammo_maximum(i), p_weapon_ammo_type(i), p_shield_hp_front_maximum(i), p_shield_hp_back_maximum(i), p_shield_recharge_rate(i), p_capacitor_eng_maximum(i), p_capacitor_eng_recharge_rate(i), p_engine_acc_rate(i), p_engine_deceleration_rate(i), p_engine_pitch_acc_rate(i), p_engine_yaw_acc_rate(i), p_engine_roll_acc_rate(i), p_engine_pitch_rate_maximum(i), p_engine_yaw_rate_maximum(i), p_engine_roll_rate_maximum(i), p_engine_speed_maximum(i), p_reactor_eng_generation_rate(i), p_booster_eng_maximum(i), p_booster_eng_recharge_rate(i), p_booster_eng_consumption_rate(i), p_booster_acc(i), p_booster_speed_maximum(i), p_droid_if_cmd_speed(i), p_installed_dcd(i), p_chassis_cmp_mass_maximum(i), p_cmp_creators(i), p_cargo_hold_contents_maximum(i), p_cargo_hold_contents_current(i), p_cargo_hold_contents(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_ship_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE ship_objects Set ship_objects.slide_dampener = nvl(p_slide_dampener(i),ship_objects.slide_dampener), ship_objects.current_chassis_hit_points = nvl(p_current_chassis_hit_points(i),ship_objects.current_chassis_hit_points), ship_objects.maximum_chassis_hit_points = nvl(p_maximum_chassis_hit_points(i),ship_objects.maximum_chassis_hit_points), ship_objects.chassis_type = nvl(p_chassis_type(i),ship_objects.chassis_type), ship_objects.cmp_armor_hp_maximum = nvl(p_cmp_armor_hp_maximum(i),ship_objects.cmp_armor_hp_maximum), ship_objects.cmp_armor_hp_current = nvl(p_cmp_armor_hp_current(i),ship_objects.cmp_armor_hp_current), ship_objects.cmp_efficiency_general = nvl(p_cmp_efficiency_general(i),ship_objects.cmp_efficiency_general), ship_objects.cmp_efficiency_eng = nvl(p_cmp_efficiency_eng(i),ship_objects.cmp_efficiency_eng), ship_objects.cmp_eng_maintenance = nvl(p_cmp_eng_maintenance(i),ship_objects.cmp_eng_maintenance), ship_objects.cmp_mass = nvl(p_cmp_mass(i),ship_objects.cmp_mass), ship_objects.cmp_crc = nvl(p_cmp_crc(i),ship_objects.cmp_crc), ship_objects.cmp_hp_current = nvl(p_cmp_hp_current(i),ship_objects.cmp_hp_current), ship_objects.cmp_hp_maximum = nvl(p_cmp_hp_maximum(i),ship_objects.cmp_hp_maximum), ship_objects.cmp_flags = nvl(p_cmp_flags(i),ship_objects.cmp_flags), ship_objects.cmp_names = nvl(p_cmp_names(i),ship_objects.cmp_names), ship_objects.weapon_damage_maximum = nvl(p_weapon_damage_maximum(i),ship_objects.weapon_damage_maximum), ship_objects.weapon_damage_minimum = nvl(p_weapon_damage_minimum(i),ship_objects.weapon_damage_minimum), ship_objects.weapon_effectiveness_shields = nvl(p_weapon_effectiveness_shields(i),ship_objects.weapon_effectiveness_shields), ship_objects.weapon_effectiveness_armor = nvl(p_weapon_effectiveness_armor(i),ship_objects.weapon_effectiveness_armor), ship_objects.weapon_eng_per_shot = nvl(p_weapon_eng_per_shot(i),ship_objects.weapon_eng_per_shot), ship_objects.weapon_refire_rate = nvl(p_weapon_refire_rate(i),ship_objects.weapon_refire_rate), ship_objects.weapon_ammo_current = nvl(p_weapon_ammo_current(i),ship_objects.weapon_ammo_current), ship_objects.weapon_ammo_maximum = nvl(p_weapon_ammo_maximum(i),ship_objects.weapon_ammo_maximum), ship_objects.weapon_ammo_type = nvl(p_weapon_ammo_type(i),ship_objects.weapon_ammo_type), ship_objects.shield_hp_front_maximum = nvl(p_shield_hp_front_maximum(i),ship_objects.shield_hp_front_maximum), ship_objects.shield_hp_back_maximum = nvl(p_shield_hp_back_maximum(i),ship_objects.shield_hp_back_maximum), ship_objects.shield_recharge_rate = nvl(p_shield_recharge_rate(i),ship_objects.shield_recharge_rate), ship_objects.capacitor_eng_maximum = nvl(p_capacitor_eng_maximum(i),ship_objects.capacitor_eng_maximum), ship_objects.capacitor_eng_recharge_rate = nvl(p_capacitor_eng_recharge_rate(i),ship_objects.capacitor_eng_recharge_rate), ship_objects.engine_acc_rate = nvl(p_engine_acc_rate(i),ship_objects.engine_acc_rate), ship_objects.engine_deceleration_rate = nvl(p_engine_deceleration_rate(i),ship_objects.engine_deceleration_rate), ship_objects.engine_pitch_acc_rate = nvl(p_engine_pitch_acc_rate(i),ship_objects.engine_pitch_acc_rate), ship_objects.engine_yaw_acc_rate = nvl(p_engine_yaw_acc_rate(i),ship_objects.engine_yaw_acc_rate), ship_objects.engine_roll_acc_rate = nvl(p_engine_roll_acc_rate(i),ship_objects.engine_roll_acc_rate), ship_objects.engine_pitch_rate_maximum = nvl(p_engine_pitch_rate_maximum(i),ship_objects.engine_pitch_rate_maximum), ship_objects.engine_yaw_rate_maximum = nvl(p_engine_yaw_rate_maximum(i),ship_objects.engine_yaw_rate_maximum), ship_objects.engine_roll_rate_maximum = nvl(p_engine_roll_rate_maximum(i),ship_objects.engine_roll_rate_maximum), ship_objects.engine_speed_maximum = nvl(p_engine_speed_maximum(i),ship_objects.engine_speed_maximum), ship_objects.reactor_eng_generation_rate = nvl(p_reactor_eng_generation_rate(i),ship_objects.reactor_eng_generation_rate), ship_objects.booster_eng_maximum = nvl(p_booster_eng_maximum(i),ship_objects.booster_eng_maximum), ship_objects.booster_eng_recharge_rate = nvl(p_booster_eng_recharge_rate(i),ship_objects.booster_eng_recharge_rate), ship_objects.booster_eng_consumption_rate = nvl(p_booster_eng_consumption_rate(i),ship_objects.booster_eng_consumption_rate), ship_objects.booster_acc = nvl(p_booster_acc(i),ship_objects.booster_acc), ship_objects.booster_speed_maximum = nvl(p_booster_speed_maximum(i),ship_objects.booster_speed_maximum), ship_objects.droid_if_cmd_speed = nvl(p_droid_if_cmd_speed(i),ship_objects.droid_if_cmd_speed), ship_objects.installed_dcd = nvl(p_installed_dcd(i),ship_objects.installed_dcd), ship_objects.chassis_cmp_mass_maximum = nvl(p_chassis_cmp_mass_maximum(i),ship_objects.chassis_cmp_mass_maximum), ship_objects.cmp_creators = nvl(p_cmp_creators(i),ship_objects.cmp_creators), ship_objects.cargo_hold_contents_maximum = nvl(p_cargo_hold_contents_maximum(i),ship_objects.cargo_hold_contents_maximum), ship_objects.cargo_hold_contents_current = nvl(p_cargo_hold_contents_current(i),ship_objects.cargo_hold_contents_current), ship_objects.cargo_hold_contents = nvl(p_cargo_hold_contents(i),ship_objects.cargo_hold_contents) where ship_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into ship_objects ( ship_objects.slide_dampener, ship_objects.current_chassis_hit_points, ship_objects.maximum_chassis_hit_points, ship_objects.chassis_type, ship_objects.cmp_armor_hp_maximum, ship_objects.cmp_armor_hp_current, ship_objects.cmp_efficiency_general, ship_objects.cmp_efficiency_eng, ship_objects.cmp_eng_maintenance, ship_objects.cmp_mass, ship_objects.cmp_crc, ship_objects.cmp_hp_current, ship_objects.cmp_hp_maximum, ship_objects.cmp_flags, ship_objects.cmp_names, ship_objects.weapon_damage_maximum, ship_objects.weapon_damage_minimum, ship_objects.weapon_effectiveness_shields, ship_objects.weapon_effectiveness_armor, ship_objects.weapon_eng_per_shot, ship_objects.weapon_refire_rate, ship_objects.weapon_ammo_current, ship_objects.weapon_ammo_maximum, ship_objects.weapon_ammo_type, ship_objects.shield_hp_front_maximum, ship_objects.shield_hp_back_maximum, ship_objects.shield_recharge_rate, ship_objects.capacitor_eng_maximum, ship_objects.capacitor_eng_recharge_rate, ship_objects.engine_acc_rate, ship_objects.engine_deceleration_rate, ship_objects.engine_pitch_acc_rate, ship_objects.engine_yaw_acc_rate, ship_objects.engine_roll_acc_rate, ship_objects.engine_pitch_rate_maximum, ship_objects.engine_yaw_rate_maximum, ship_objects.engine_roll_rate_maximum, ship_objects.engine_speed_maximum, ship_objects.reactor_eng_generation_rate, ship_objects.booster_eng_maximum, ship_objects.booster_eng_recharge_rate, ship_objects.booster_eng_consumption_rate, ship_objects.booster_acc, ship_objects.booster_speed_maximum, ship_objects.droid_if_cmd_speed, ship_objects.installed_dcd, ship_objects.chassis_cmp_mass_maximum, ship_objects.cmp_creators, ship_objects.cargo_hold_contents_maximum, ship_objects.cargo_hold_contents_current, ship_objects.cargo_hold_contents, ship_objects.object_id ) VALUES ( p_slide_dampener(i), p_current_chassis_hit_points(i), p_maximum_chassis_hit_points(i), p_chassis_type(i), p_cmp_armor_hp_maximum(i), p_cmp_armor_hp_current(i), p_cmp_efficiency_general(i), p_cmp_efficiency_eng(i), p_cmp_eng_maintenance(i), p_cmp_mass(i), p_cmp_crc(i), p_cmp_hp_current(i), p_cmp_hp_maximum(i), p_cmp_flags(i), p_cmp_names(i), p_weapon_damage_maximum(i), p_weapon_damage_minimum(i), p_weapon_effectiveness_shields(i), p_weapon_effectiveness_armor(i), p_weapon_eng_per_shot(i), p_weapon_refire_rate(i), p_weapon_ammo_current(i), p_weapon_ammo_maximum(i), p_weapon_ammo_type(i), p_shield_hp_front_maximum(i), p_shield_hp_back_maximum(i), p_shield_recharge_rate(i), p_capacitor_eng_maximum(i), p_capacitor_eng_recharge_rate(i), p_engine_acc_rate(i), p_engine_deceleration_rate(i), p_engine_pitch_acc_rate(i), p_engine_yaw_acc_rate(i), p_engine_roll_acc_rate(i), p_engine_pitch_rate_maximum(i), p_engine_yaw_rate_maximum(i), p_engine_roll_rate_maximum(i), p_engine_speed_maximum(i), p_reactor_eng_generation_rate(i), p_booster_eng_maximum(i), p_booster_eng_recharge_rate(i), p_booster_eng_consumption_rate(i), p_booster_acc(i), p_booster_speed_maximum(i), p_droid_if_cmd_speed(i), p_installed_dcd(i), p_chassis_cmp_mass_maximum(i), p_cmp_creators(i), p_cargo_hold_contents_maximum(i), p_cargo_hold_contents_current(i), p_cargo_hold_contents(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into ship_objects ( ship_objects.slide_dampener, ship_objects.current_chassis_hit_points, ship_objects.maximum_chassis_hit_points, ship_objects.chassis_type, ship_objects.cmp_armor_hp_maximum, ship_objects.cmp_armor_hp_current, ship_objects.cmp_efficiency_general, ship_objects.cmp_efficiency_eng, ship_objects.cmp_eng_maintenance, ship_objects.cmp_mass, ship_objects.cmp_crc, ship_objects.cmp_hp_current, ship_objects.cmp_hp_maximum, ship_objects.cmp_flags, ship_objects.cmp_names, ship_objects.weapon_damage_maximum, ship_objects.weapon_damage_minimum, ship_objects.weapon_effectiveness_shields, ship_objects.weapon_effectiveness_armor, ship_objects.weapon_eng_per_shot, ship_objects.weapon_refire_rate, ship_objects.weapon_ammo_current, ship_objects.weapon_ammo_maximum, ship_objects.weapon_ammo_type, ship_objects.shield_hp_front_maximum, ship_objects.shield_hp_back_maximum, ship_objects.shield_recharge_rate, ship_objects.capacitor_eng_maximum, ship_objects.capacitor_eng_recharge_rate, ship_objects.engine_acc_rate, ship_objects.engine_deceleration_rate, ship_objects.engine_pitch_acc_rate, ship_objects.engine_yaw_acc_rate, ship_objects.engine_roll_acc_rate, ship_objects.engine_pitch_rate_maximum, ship_objects.engine_yaw_rate_maximum, ship_objects.engine_roll_rate_maximum, ship_objects.engine_speed_maximum, ship_objects.reactor_eng_generation_rate, ship_objects.booster_eng_maximum, ship_objects.booster_eng_recharge_rate, ship_objects.booster_eng_consumption_rate, ship_objects.booster_acc, ship_objects.booster_speed_maximum, ship_objects.droid_if_cmd_speed, ship_objects.installed_dcd, ship_objects.chassis_cmp_mass_maximum, ship_objects.cmp_creators, ship_objects.cargo_hold_contents_maximum, ship_objects.cargo_hold_contents_current, ship_objects.cargo_hold_contents, ship_objects.object_id ) VALUES ( p_slide_dampener(i), p_current_chassis_hit_points(i), p_maximum_chassis_hit_points(i), p_chassis_type(i), p_cmp_armor_hp_maximum(i), p_cmp_armor_hp_current(i), p_cmp_efficiency_general(i), p_cmp_efficiency_eng(i), p_cmp_eng_maintenance(i), p_cmp_mass(i), p_cmp_crc(i), p_cmp_hp_current(i), p_cmp_hp_maximum(i), p_cmp_flags(i), p_cmp_names(i), p_weapon_damage_maximum(i), p_weapon_damage_minimum(i), p_weapon_effectiveness_shields(i), p_weapon_effectiveness_armor(i), p_weapon_eng_per_shot(i), p_weapon_refire_rate(i), p_weapon_ammo_current(i), p_weapon_ammo_maximum(i), p_weapon_ammo_type(i), p_shield_hp_front_maximum(i), p_shield_hp_back_maximum(i), p_shield_recharge_rate(i), p_capacitor_eng_maximum(i), p_capacitor_eng_recharge_rate(i), p_engine_acc_rate(i), p_engine_deceleration_rate(i), p_engine_pitch_acc_rate(i), p_engine_yaw_acc_rate(i), p_engine_roll_acc_rate(i), p_engine_pitch_rate_maximum(i), p_engine_yaw_rate_maximum(i), p_engine_roll_rate_maximum(i), p_engine_speed_maximum(i), p_reactor_eng_generation_rate(i), p_booster_eng_maximum(i), p_booster_eng_recharge_rate(i), p_booster_eng_consumption_rate(i), p_booster_acc(i), p_booster_speed_maximum(i), p_droid_if_cmd_speed(i), p_installed_dcd(i), p_chassis_cmp_mass_maximum(i), p_cmp_creators(i), p_cargo_hold_contents_maximum(i), p_cargo_hold_contents_current(i), p_cargo_hold_contents(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_ship_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_ship_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','slide_dampener','float',to_char(p_slide_dampener(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','current_chassis_hit_points','float',to_char(p_current_chassis_hit_points(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','maximum_chassis_hit_points','float',to_char(p_maximum_chassis_hit_points(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','chassis_type','int',to_char(p_chassis_type(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_armor_hp_maximum','varchar2',p_cmp_armor_hp_maximum(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_armor_hp_current','varchar2',p_cmp_armor_hp_current(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_efficiency_general','varchar2',p_cmp_efficiency_general(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_efficiency_eng','varchar2',p_cmp_efficiency_eng(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_eng_maintenance','varchar2',p_cmp_eng_maintenance(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_mass','varchar2',p_cmp_mass(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_crc','varchar2',p_cmp_crc(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_hp_current','varchar2',p_cmp_hp_current(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_hp_maximum','varchar2',p_cmp_hp_maximum(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_flags','varchar2',p_cmp_flags(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_names','varchar2',p_cmp_names(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','weapon_damage_maximum','varchar2',p_weapon_damage_maximum(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','weapon_damage_minimum','varchar2',p_weapon_damage_minimum(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','weapon_effectiveness_shields','varchar2',p_weapon_effectiveness_shields(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','weapon_effectiveness_armor','varchar2',p_weapon_effectiveness_armor(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','weapon_eng_per_shot','varchar2',p_weapon_eng_per_shot(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','weapon_refire_rate','varchar2',p_weapon_refire_rate(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','weapon_ammo_current','varchar2',p_weapon_ammo_current(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','weapon_ammo_maximum','varchar2',p_weapon_ammo_maximum(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','weapon_ammo_type','varchar2',p_weapon_ammo_type(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','shield_hp_front_maximum','float',to_char(p_shield_hp_front_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','shield_hp_back_maximum','float',to_char(p_shield_hp_back_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','shield_recharge_rate','float',to_char(p_shield_recharge_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','capacitor_eng_maximum','float',to_char(p_capacitor_eng_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','capacitor_eng_recharge_rate','float',to_char(p_capacitor_eng_recharge_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','engine_acc_rate','float',to_char(p_engine_acc_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','engine_deceleration_rate','float',to_char(p_engine_deceleration_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','engine_pitch_acc_rate','float',to_char(p_engine_pitch_acc_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','engine_yaw_acc_rate','float',to_char(p_engine_yaw_acc_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','engine_roll_acc_rate','float',to_char(p_engine_roll_acc_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','engine_pitch_rate_maximum','float',to_char(p_engine_pitch_rate_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','engine_yaw_rate_maximum','float',to_char(p_engine_yaw_rate_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','engine_roll_rate_maximum','float',to_char(p_engine_roll_rate_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','engine_speed_maximum','float',to_char(p_engine_speed_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','reactor_eng_generation_rate','float',to_char(p_reactor_eng_generation_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','booster_eng_maximum','float',to_char(p_booster_eng_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','booster_eng_recharge_rate','float',to_char(p_booster_eng_recharge_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','booster_eng_consumption_rate','float',to_char(p_booster_eng_consumption_rate(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','booster_acc','float',to_char(p_booster_acc(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','booster_speed_maximum','float',to_char(p_booster_speed_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','droid_if_cmd_speed','float',to_char(p_droid_if_cmd_speed(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','installed_dcd','number',p_installed_dcd(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','chassis_cmp_mass_maximum','float',to_char(p_chassis_cmp_mass_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','cmp_creators','varchar2',p_cmp_creators(m_error_index)); db_error_logger.dblogerror_values('persister.add_ship_obj','cargo_hold_contents_maximum','number',to_char(p_cargo_hold_contents_maximum(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','cargo_hold_contents_current','number',to_char(p_cargo_hold_contents_current(m_error_index))); db_error_logger.dblogerror_values('persister.add_ship_obj','cargo_hold_contents','varchar2',p_cargo_hold_contents(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_ship_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_ship_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete ship_objects where object_id=p_object_id(i); end; procedure save_static_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin null; end; procedure add_static_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into static_objects ( static_objects.object_id ) VALUES ( p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_static_obj : dup_val_on_index error.'); END IF; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into static_objects ( static_objects.object_id ) VALUES ( p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_static_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_static_obj','object_id','number',p_object_id(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_static_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_static_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin null; end; procedure save_tangible_obj( p_object_id VAOFSTRING, p_max_hit_points VAOFNUMBER, p_owner_id VAOFSTRING, p_visible VAOFSTRING, p_appearance_data VAOFSTRING, p_interest_radius VAOFNUMBER, p_pvp_type VAOFNUMBER, p_pvp_faction VAOFNUMBER, p_damage_taken VAOFNUMBER, p_custom_appearance VAOFSTRING, p_count VAOFNUMBER, p_condition VAOFNUMBER, p_creator_id VAOFSTRING, p_source_draft_schematic VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update tangible_objects set tangible_objects.max_hit_points = nvl(p_max_hit_points(i),tangible_objects.max_hit_points), tangible_objects.owner_id = nvl(p_owner_id(i),tangible_objects.owner_id), tangible_objects.visible = nvl(p_visible(i),tangible_objects.visible), tangible_objects.appearance_data = nvl(p_appearance_data(i),tangible_objects.appearance_data), tangible_objects.interest_radius = nvl(p_interest_radius(i),tangible_objects.interest_radius), tangible_objects.pvp_type = nvl(p_pvp_type(i),tangible_objects.pvp_type), tangible_objects.pvp_faction = nvl(p_pvp_faction(i),tangible_objects.pvp_faction), tangible_objects.damage_taken = nvl(p_damage_taken(i),tangible_objects.damage_taken), tangible_objects.custom_appearance = nvl(p_custom_appearance(i),tangible_objects.custom_appearance), tangible_objects.count = nvl(p_count(i),tangible_objects.count), tangible_objects.condition = nvl(p_condition(i),tangible_objects.condition), tangible_objects.creator_id = nvl(p_creator_id(i),tangible_objects.creator_id), tangible_objects.source_draft_schematic = nvl(p_source_draft_schematic(i),tangible_objects.source_draft_schematic) where tangible_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update tangible_objects set tangible_objects.max_hit_points = nvl(p_max_hit_points(i),tangible_objects.max_hit_points), tangible_objects.owner_id = nvl(p_owner_id(i),tangible_objects.owner_id), tangible_objects.visible = nvl(p_visible(i),tangible_objects.visible), tangible_objects.appearance_data = nvl(p_appearance_data(i),tangible_objects.appearance_data), tangible_objects.interest_radius = nvl(p_interest_radius(i),tangible_objects.interest_radius), tangible_objects.pvp_type = nvl(p_pvp_type(i),tangible_objects.pvp_type), tangible_objects.pvp_faction = nvl(p_pvp_faction(i),tangible_objects.pvp_faction), tangible_objects.damage_taken = nvl(p_damage_taken(i),tangible_objects.damage_taken), tangible_objects.custom_appearance = nvl(p_custom_appearance(i),tangible_objects.custom_appearance), tangible_objects.count = nvl(p_count(i),tangible_objects.count), tangible_objects.condition = nvl(p_condition(i),tangible_objects.condition), tangible_objects.creator_id = nvl(p_creator_id(i),tangible_objects.creator_id), tangible_objects.source_draft_schematic = nvl(p_source_draft_schematic(i),tangible_objects.source_draft_schematic) where tangible_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_tangible_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_tangible_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_tangible_obj','max_hit_points','int',to_char(p_max_hit_points(m_error_index))); db_error_logger.dblogerror_values('persister.save_tangible_obj','owner_id','int',p_owner_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_tangible_obj','visible','char',p_visible(m_error_index)); db_error_logger.dblogerror_values('persister.save_tangible_obj','appearance_data','varchar',p_appearance_data(m_error_index)); db_error_logger.dblogerror_values('persister.save_tangible_obj','interest_radius','int',to_char(p_interest_radius(m_error_index))); db_error_logger.dblogerror_values('persister.save_tangible_obj','pvp_type','int',to_char(p_pvp_type(m_error_index))); db_error_logger.dblogerror_values('persister.save_tangible_obj','pvp_faction','int',to_char(p_pvp_faction(m_error_index))); db_error_logger.dblogerror_values('persister.save_tangible_obj','damage_taken','int',to_char(p_damage_taken(m_error_index))); db_error_logger.dblogerror_values('persister.save_tangible_obj','custom_appearance','varchar2',p_custom_appearance(m_error_index)); db_error_logger.dblogerror_values('persister.save_tangible_obj','count','int',to_char(p_count(m_error_index))); db_error_logger.dblogerror_values('persister.save_tangible_obj','condition','int',to_char(p_condition(m_error_index))); db_error_logger.dblogerror_values('persister.save_tangible_obj','creator_id','number',p_creator_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_tangible_obj','source_draft_schematic','int',to_char(p_source_draft_schematic(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_tangible_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_tangible_obj( p_object_id VAOFSTRING, p_max_hit_points VAOFNUMBER, p_owner_id VAOFSTRING, p_visible VAOFSTRING, p_appearance_data VAOFSTRING, p_interest_radius VAOFNUMBER, p_pvp_type VAOFNUMBER, p_pvp_faction VAOFNUMBER, p_damage_taken VAOFNUMBER, p_custom_appearance VAOFSTRING, p_count VAOFNUMBER, p_condition VAOFNUMBER, p_creator_id VAOFSTRING, p_source_draft_schematic VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into tangible_objects ( tangible_objects.max_hit_points, tangible_objects.owner_id, tangible_objects.visible, tangible_objects.appearance_data, tangible_objects.interest_radius, tangible_objects.pvp_type, tangible_objects.pvp_faction, tangible_objects.damage_taken, tangible_objects.custom_appearance, tangible_objects.count, tangible_objects.condition, tangible_objects.creator_id, tangible_objects.source_draft_schematic, tangible_objects.object_id ) VALUES ( p_max_hit_points(i), p_owner_id(i), p_visible(i), p_appearance_data(i), p_interest_radius(i), p_pvp_type(i), p_pvp_faction(i), p_damage_taken(i), p_custom_appearance(i), p_count(i), p_condition(i), p_creator_id(i), p_source_draft_schematic(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_tangible_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE tangible_objects Set tangible_objects.max_hit_points = nvl(p_max_hit_points(i),tangible_objects.max_hit_points), tangible_objects.owner_id = nvl(p_owner_id(i),tangible_objects.owner_id), tangible_objects.visible = nvl(p_visible(i),tangible_objects.visible), tangible_objects.appearance_data = nvl(p_appearance_data(i),tangible_objects.appearance_data), tangible_objects.interest_radius = nvl(p_interest_radius(i),tangible_objects.interest_radius), tangible_objects.pvp_type = nvl(p_pvp_type(i),tangible_objects.pvp_type), tangible_objects.pvp_faction = nvl(p_pvp_faction(i),tangible_objects.pvp_faction), tangible_objects.damage_taken = nvl(p_damage_taken(i),tangible_objects.damage_taken), tangible_objects.custom_appearance = nvl(p_custom_appearance(i),tangible_objects.custom_appearance), tangible_objects.count = nvl(p_count(i),tangible_objects.count), tangible_objects.condition = nvl(p_condition(i),tangible_objects.condition), tangible_objects.creator_id = nvl(p_creator_id(i),tangible_objects.creator_id), tangible_objects.source_draft_schematic = nvl(p_source_draft_schematic(i),tangible_objects.source_draft_schematic) where tangible_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into tangible_objects ( tangible_objects.max_hit_points, tangible_objects.owner_id, tangible_objects.visible, tangible_objects.appearance_data, tangible_objects.interest_radius, tangible_objects.pvp_type, tangible_objects.pvp_faction, tangible_objects.damage_taken, tangible_objects.custom_appearance, tangible_objects.count, tangible_objects.condition, tangible_objects.creator_id, tangible_objects.source_draft_schematic, tangible_objects.object_id ) VALUES ( p_max_hit_points(i), p_owner_id(i), p_visible(i), p_appearance_data(i), p_interest_radius(i), p_pvp_type(i), p_pvp_faction(i), p_damage_taken(i), p_custom_appearance(i), p_count(i), p_condition(i), p_creator_id(i), p_source_draft_schematic(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into tangible_objects ( tangible_objects.max_hit_points, tangible_objects.owner_id, tangible_objects.visible, tangible_objects.appearance_data, tangible_objects.interest_radius, tangible_objects.pvp_type, tangible_objects.pvp_faction, tangible_objects.damage_taken, tangible_objects.custom_appearance, tangible_objects.count, tangible_objects.condition, tangible_objects.creator_id, tangible_objects.source_draft_schematic, tangible_objects.object_id ) VALUES ( p_max_hit_points(i), p_owner_id(i), p_visible(i), p_appearance_data(i), p_interest_radius(i), p_pvp_type(i), p_pvp_faction(i), p_damage_taken(i), p_custom_appearance(i), p_count(i), p_condition(i), p_creator_id(i), p_source_draft_schematic(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_tangible_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_tangible_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_tangible_obj','max_hit_points','int',to_char(p_max_hit_points(m_error_index))); db_error_logger.dblogerror_values('persister.add_tangible_obj','owner_id','int',p_owner_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_tangible_obj','visible','char',p_visible(m_error_index)); db_error_logger.dblogerror_values('persister.add_tangible_obj','appearance_data','varchar',p_appearance_data(m_error_index)); db_error_logger.dblogerror_values('persister.add_tangible_obj','interest_radius','int',to_char(p_interest_radius(m_error_index))); db_error_logger.dblogerror_values('persister.add_tangible_obj','pvp_type','int',to_char(p_pvp_type(m_error_index))); db_error_logger.dblogerror_values('persister.add_tangible_obj','pvp_faction','int',to_char(p_pvp_faction(m_error_index))); db_error_logger.dblogerror_values('persister.add_tangible_obj','damage_taken','int',to_char(p_damage_taken(m_error_index))); db_error_logger.dblogerror_values('persister.add_tangible_obj','custom_appearance','varchar2',p_custom_appearance(m_error_index)); db_error_logger.dblogerror_values('persister.add_tangible_obj','count','int',to_char(p_count(m_error_index))); db_error_logger.dblogerror_values('persister.add_tangible_obj','condition','int',to_char(p_condition(m_error_index))); db_error_logger.dblogerror_values('persister.add_tangible_obj','creator_id','number',p_creator_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_tangible_obj','source_draft_schematic','int',to_char(p_source_draft_schematic(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_tangible_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_tangible_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete tangible_objects where object_id=p_object_id(i); end; procedure save_token_obj( p_object_id VAOFSTRING, p_reference VAOFSTRING, p_target_server_template_name VAOFSTRING, p_target_shared_template_name VAOFSTRING, p_waypoint VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update token_objects set token_objects.reference = nvl(p_reference(i),token_objects.reference), token_objects.target_server_template_name = nvl(p_target_server_template_name(i),token_objects.target_server_template_name), token_objects.target_shared_template_name = nvl(p_target_shared_template_name(i),token_objects.target_shared_template_name), token_objects.waypoint = nvl(p_waypoint(i),token_objects.waypoint) where token_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update token_objects set token_objects.reference = nvl(p_reference(i),token_objects.reference), token_objects.target_server_template_name = nvl(p_target_server_template_name(i),token_objects.target_server_template_name), token_objects.target_shared_template_name = nvl(p_target_shared_template_name(i),token_objects.target_shared_template_name), token_objects.waypoint = nvl(p_waypoint(i),token_objects.waypoint) where token_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_token_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_token_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_token_obj','reference','number',p_reference(m_error_index)); db_error_logger.dblogerror_values('persister.save_token_obj','target_server_template_name','varchar2',p_target_server_template_name(m_error_index)); db_error_logger.dblogerror_values('persister.save_token_obj','target_shared_template_name','varchar2',p_target_shared_template_name(m_error_index)); db_error_logger.dblogerror_values('persister.save_token_obj','waypoint','number',p_waypoint(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_token_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_token_obj( p_object_id VAOFSTRING, p_reference VAOFSTRING, p_target_server_template_name VAOFSTRING, p_target_shared_template_name VAOFSTRING, p_waypoint VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into token_objects ( token_objects.reference, token_objects.target_server_template_name, token_objects.target_shared_template_name, token_objects.waypoint, token_objects.object_id ) VALUES ( p_reference(i), p_target_server_template_name(i), p_target_shared_template_name(i), p_waypoint(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_token_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE token_objects Set token_objects.reference = nvl(p_reference(i),token_objects.reference), token_objects.target_server_template_name = nvl(p_target_server_template_name(i),token_objects.target_server_template_name), token_objects.target_shared_template_name = nvl(p_target_shared_template_name(i),token_objects.target_shared_template_name), token_objects.waypoint = nvl(p_waypoint(i),token_objects.waypoint) where token_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into token_objects ( token_objects.reference, token_objects.target_server_template_name, token_objects.target_shared_template_name, token_objects.waypoint, token_objects.object_id ) VALUES ( p_reference(i), p_target_server_template_name(i), p_target_shared_template_name(i), p_waypoint(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into token_objects ( token_objects.reference, token_objects.target_server_template_name, token_objects.target_shared_template_name, token_objects.waypoint, token_objects.object_id ) VALUES ( p_reference(i), p_target_server_template_name(i), p_target_shared_template_name(i), p_waypoint(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_token_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_token_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_token_obj','reference','number',p_reference(m_error_index)); db_error_logger.dblogerror_values('persister.add_token_obj','target_server_template_name','varchar2',p_target_server_template_name(m_error_index)); db_error_logger.dblogerror_values('persister.add_token_obj','target_shared_template_name','varchar2',p_target_shared_template_name(m_error_index)); db_error_logger.dblogerror_values('persister.add_token_obj','waypoint','number',p_waypoint(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_token_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_token_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete token_objects where object_id=p_object_id(i); end; procedure save_universe_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin null; end; procedure add_universe_obj( p_object_id VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into universe_objects ( universe_objects.object_id ) VALUES ( p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_universe_obj : dup_val_on_index error.'); END IF; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into universe_objects ( universe_objects.object_id ) VALUES ( p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_universe_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_universe_obj','object_id','number',p_object_id(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_universe_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_universe_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin null; end; procedure save_vehicle_obj( p_object_id VAOFSTRING, p_bogus VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update vehicle_objects set vehicle_objects.bogus = nvl(p_bogus(i),vehicle_objects.bogus) where vehicle_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update vehicle_objects set vehicle_objects.bogus = nvl(p_bogus(i),vehicle_objects.bogus) where vehicle_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_vehicle_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_vehicle_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_vehicle_obj','bogus','int',to_char(p_bogus(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_vehicle_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_vehicle_obj( p_object_id VAOFSTRING, p_bogus VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into vehicle_objects ( vehicle_objects.bogus, vehicle_objects.object_id ) VALUES ( p_bogus(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_vehicle_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE vehicle_objects Set vehicle_objects.bogus = nvl(p_bogus(i),vehicle_objects.bogus) where vehicle_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into vehicle_objects ( vehicle_objects.bogus, vehicle_objects.object_id ) VALUES ( p_bogus(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into vehicle_objects ( vehicle_objects.bogus, vehicle_objects.object_id ) VALUES ( p_bogus(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_vehicle_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_vehicle_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_vehicle_obj','bogus','int',to_char(p_bogus(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_vehicle_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_vehicle_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete vehicle_objects where object_id=p_object_id(i); end; procedure save_weapon_obj( p_object_id VAOFSTRING, p_min_damage VAOFNUMBER, p_max_damage VAOFNUMBER, p_damage_type VAOFNUMBER, p_elemental_type VAOFNUMBER, p_elemental_value VAOFNUMBER, p_attack_speed VAOFNUMBER, p_wound_chance VAOFNUMBER, p_accuracy VAOFNUMBER, p_attack_cost VAOFNUMBER, p_damage_radius VAOFNUMBER, p_min_range VAOFNUMBER, p_max_range VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size update weapon_objects set weapon_objects.min_damage = nvl(p_min_damage(i),weapon_objects.min_damage), weapon_objects.max_damage = nvl(p_max_damage(i),weapon_objects.max_damage), weapon_objects.damage_type = nvl(p_damage_type(i),weapon_objects.damage_type), weapon_objects.elemental_type = nvl(p_elemental_type(i),weapon_objects.elemental_type), weapon_objects.elemental_value = nvl(p_elemental_value(i),weapon_objects.elemental_value), weapon_objects.attack_speed = nvl(p_attack_speed(i),weapon_objects.attack_speed), weapon_objects.wound_chance = nvl(p_wound_chance(i),weapon_objects.wound_chance), weapon_objects.accuracy = nvl(p_accuracy(i),weapon_objects.accuracy), weapon_objects.attack_cost = nvl(p_attack_cost(i),weapon_objects.attack_cost), weapon_objects.damage_radius = nvl(p_damage_radius(i),weapon_objects.damage_radius), weapon_objects.min_range = nvl(p_min_range(i),weapon_objects.min_range), weapon_objects.max_range = nvl(p_max_range(i),weapon_objects.max_range) where weapon_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update weapon_objects set weapon_objects.min_damage = nvl(p_min_damage(i),weapon_objects.min_damage), weapon_objects.max_damage = nvl(p_max_damage(i),weapon_objects.max_damage), weapon_objects.damage_type = nvl(p_damage_type(i),weapon_objects.damage_type), weapon_objects.elemental_type = nvl(p_elemental_type(i),weapon_objects.elemental_type), weapon_objects.elemental_value = nvl(p_elemental_value(i),weapon_objects.elemental_value), weapon_objects.attack_speed = nvl(p_attack_speed(i),weapon_objects.attack_speed), weapon_objects.wound_chance = nvl(p_wound_chance(i),weapon_objects.wound_chance), weapon_objects.accuracy = nvl(p_accuracy(i),weapon_objects.accuracy), weapon_objects.attack_cost = nvl(p_attack_cost(i),weapon_objects.attack_cost), weapon_objects.damage_radius = nvl(p_damage_radius(i),weapon_objects.damage_radius), weapon_objects.min_range = nvl(p_min_range(i),weapon_objects.min_range), weapon_objects.max_range = nvl(p_max_range(i),weapon_objects.max_range) where weapon_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_weapon_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_weapon_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_weapon_obj','min_damage','int',to_char(p_min_damage(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','max_damage','int',to_char(p_max_damage(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','damage_type','int',to_char(p_damage_type(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','elemental_type','int',to_char(p_elemental_type(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','elemental_value','int',to_char(p_elemental_value(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','attack_speed','float',to_char(p_attack_speed(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','wound_chance','float',to_char(p_wound_chance(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','accuracy','int',to_char(p_accuracy(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','attack_cost','int',to_char(p_attack_cost(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','damage_radius','float',to_char(p_damage_radius(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','min_range','float',to_char(p_min_range(m_error_index))); db_error_logger.dblogerror_values('persister.save_weapon_obj','max_range','float',to_char(p_max_range(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_weapon_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_weapon_obj( p_object_id VAOFSTRING, p_min_damage VAOFNUMBER, p_max_damage VAOFNUMBER, p_damage_type VAOFNUMBER, p_elemental_type VAOFNUMBER, p_elemental_value VAOFNUMBER, p_attack_speed VAOFNUMBER, p_wound_chance VAOFNUMBER, p_accuracy VAOFNUMBER, p_attack_cost VAOFNUMBER, p_damage_radius VAOFNUMBER, p_min_range VAOFNUMBER, p_max_range VAOFNUMBER, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=1; begin FORALL i IN 1..p_chunk_size insert into weapon_objects ( weapon_objects.min_damage, weapon_objects.max_damage, weapon_objects.damage_type, weapon_objects.elemental_type, weapon_objects.elemental_value, weapon_objects.attack_speed, weapon_objects.wound_chance, weapon_objects.accuracy, weapon_objects.attack_cost, weapon_objects.damage_radius, weapon_objects.min_range, weapon_objects.max_range, weapon_objects.object_id ) VALUES ( p_min_damage(i), p_max_damage(i), p_damage_type(i), p_elemental_type(i), p_elemental_value(i), p_attack_speed(i), p_wound_chance(i), p_accuracy(i), p_attack_cost(i), p_damage_radius(i), p_min_range(i), p_max_range(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_weapon_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE weapon_objects Set weapon_objects.min_damage = nvl(p_min_damage(i),weapon_objects.min_damage), weapon_objects.max_damage = nvl(p_max_damage(i),weapon_objects.max_damage), weapon_objects.damage_type = nvl(p_damage_type(i),weapon_objects.damage_type), weapon_objects.elemental_type = nvl(p_elemental_type(i),weapon_objects.elemental_type), weapon_objects.elemental_value = nvl(p_elemental_value(i),weapon_objects.elemental_value), weapon_objects.attack_speed = nvl(p_attack_speed(i),weapon_objects.attack_speed), weapon_objects.wound_chance = nvl(p_wound_chance(i),weapon_objects.wound_chance), weapon_objects.accuracy = nvl(p_accuracy(i),weapon_objects.accuracy), weapon_objects.attack_cost = nvl(p_attack_cost(i),weapon_objects.attack_cost), weapon_objects.damage_radius = nvl(p_damage_radius(i),weapon_objects.damage_radius), weapon_objects.min_range = nvl(p_min_range(i),weapon_objects.min_range), weapon_objects.max_range = nvl(p_max_range(i),weapon_objects.max_range) where weapon_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into weapon_objects ( weapon_objects.min_damage, weapon_objects.max_damage, weapon_objects.damage_type, weapon_objects.elemental_type, weapon_objects.elemental_value, weapon_objects.attack_speed, weapon_objects.wound_chance, weapon_objects.accuracy, weapon_objects.attack_cost, weapon_objects.damage_radius, weapon_objects.min_range, weapon_objects.max_range, weapon_objects.object_id ) VALUES ( p_min_damage(i), p_max_damage(i), p_damage_type(i), p_elemental_type(i), p_elemental_value(i), p_attack_speed(i), p_wound_chance(i), p_accuracy(i), p_attack_cost(i), p_damage_radius(i), p_min_range(i), p_max_range(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into weapon_objects ( weapon_objects.min_damage, weapon_objects.max_damage, weapon_objects.damage_type, weapon_objects.elemental_type, weapon_objects.elemental_value, weapon_objects.attack_speed, weapon_objects.wound_chance, weapon_objects.accuracy, weapon_objects.attack_cost, weapon_objects.damage_radius, weapon_objects.min_range, weapon_objects.max_range, weapon_objects.object_id ) VALUES ( p_min_damage(i), p_max_damage(i), p_damage_type(i), p_elemental_type(i), p_elemental_value(i), p_attack_speed(i), p_wound_chance(i), p_accuracy(i), p_attack_cost(i), p_damage_radius(i), p_min_range(i), p_max_range(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_weapon_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_weapon_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_weapon_obj','min_damage','int',to_char(p_min_damage(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','max_damage','int',to_char(p_max_damage(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','damage_type','int',to_char(p_damage_type(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','elemental_type','int',to_char(p_elemental_type(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','elemental_value','int',to_char(p_elemental_value(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','attack_speed','float',to_char(p_attack_speed(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','wound_chance','float',to_char(p_wound_chance(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','accuracy','int',to_char(p_accuracy(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','attack_cost','int',to_char(p_attack_cost(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','damage_radius','float',to_char(p_damage_radius(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','min_range','float',to_char(p_min_range(m_error_index))); db_error_logger.dblogerror_values('persister.add_weapon_obj','max_range','float',to_char(p_max_range(m_error_index))); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_weapon_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_weapon_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete weapon_objects where object_id=p_object_id(i); end; procedure save_player_quest_obj( p_object_id VAOFSTRING, p_title VAOFSTRING, p_description VAOFSTRING, p_creator VAOFSTRING, p_total_tasks VAOFNUMBER, p_difficulty VAOFNUMBER, p_task_title1 VAOFSTRING, p_task_description1 VAOFSTRING, p_task_title2 VAOFSTRING, p_task_description2 VAOFSTRING, p_task_title3 VAOFSTRING, p_task_description3 VAOFSTRING, p_task_title4 VAOFSTRING, p_task_description4 VAOFSTRING, p_task_title5 VAOFSTRING, p_task_description5 VAOFSTRING, p_task_title6 VAOFSTRING, p_task_description6 VAOFSTRING, p_task_title7 VAOFSTRING, p_task_description7 VAOFSTRING, p_task_title8 VAOFSTRING, p_task_description8 VAOFSTRING, p_task_title9 VAOFSTRING, p_task_description9 VAOFSTRING, p_task_title10 VAOFSTRING, p_task_description10 VAOFSTRING, p_task_title11 VAOFSTRING, p_task_description11 VAOFSTRING, p_task_title12 VAOFSTRING, p_task_description12 VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=0; begin FORALL i IN 1..p_chunk_size update player_quest_objects set player_quest_objects.title = nvl(p_title(i),player_quest_objects.title), player_quest_objects.description = nvl(p_description(i),player_quest_objects.description), player_quest_objects.creator = nvl(p_creator(i),player_quest_objects.creator), player_quest_objects.total_tasks = nvl(p_total_tasks(i),player_quest_objects.total_tasks), player_quest_objects.difficulty = nvl(p_difficulty(i),player_quest_objects.difficulty), player_quest_objects.task_title1 = nvl(p_task_title1(i),player_quest_objects.task_title1), player_quest_objects.task_description1 = nvl(p_task_description1(i),player_quest_objects.task_description1), player_quest_objects.task_title2 = nvl(p_task_title2(i),player_quest_objects.task_title2), player_quest_objects.task_description2 = nvl(p_task_description2(i),player_quest_objects.task_description2), player_quest_objects.task_title3 = nvl(p_task_title3(i),player_quest_objects.task_title3), player_quest_objects.task_description3 = nvl(p_task_description3(i),player_quest_objects.task_description3), player_quest_objects.task_title4 = nvl(p_task_title4(i),player_quest_objects.task_title4), player_quest_objects.task_description4 = nvl(p_task_description4(i),player_quest_objects.task_description4), player_quest_objects.task_title5 = nvl(p_task_title5(i),player_quest_objects.task_title5), player_quest_objects.task_description5 = nvl(p_task_description5(i),player_quest_objects.task_description5), player_quest_objects.task_title6 = nvl(p_task_title6(i),player_quest_objects.task_title6), player_quest_objects.task_description6 = nvl(p_task_description6(i),player_quest_objects.task_description6), player_quest_objects.task_title7 = nvl(p_task_title7(i),player_quest_objects.task_title7), player_quest_objects.task_description7 = nvl(p_task_description7(i),player_quest_objects.task_description7), player_quest_objects.task_title8 = nvl(p_task_title8(i),player_quest_objects.task_title8), player_quest_objects.task_description8 = nvl(p_task_description8(i),player_quest_objects.task_description8), player_quest_objects.task_title9 = nvl(p_task_title9(i),player_quest_objects.task_title9), player_quest_objects.task_description9 = nvl(p_task_description9(i),player_quest_objects.task_description9), player_quest_objects.task_title10 = nvl(p_task_title10(i),player_quest_objects.task_title10), player_quest_objects.task_description10 = nvl(p_task_description10(i),player_quest_objects.task_description10), player_quest_objects.task_title11 = nvl(p_task_title11(i),player_quest_objects.task_title11), player_quest_objects.task_description11 = nvl(p_task_description11(i),player_quest_objects.task_description11), player_quest_objects.task_title12 = nvl(p_task_title12(i),player_quest_objects.task_title12), player_quest_objects.task_description12 = nvl(p_task_description12(i),player_quest_objects.task_description12) where player_quest_objects.object_id=p_object_id(i); exception when others then begin FOR i IN 1..p_chunk_size LOOP m_error_index := i; update player_quest_objects set player_quest_objects.title = nvl(p_title(i),player_quest_objects.title), player_quest_objects.description = nvl(p_description(i),player_quest_objects.description), player_quest_objects.creator = nvl(p_creator(i),player_quest_objects.creator), player_quest_objects.total_tasks = nvl(p_total_tasks(i),player_quest_objects.total_tasks), player_quest_objects.difficulty = nvl(p_difficulty(i),player_quest_objects.difficulty), player_quest_objects.task_title1 = nvl(p_task_title1(i),player_quest_objects.task_title1), player_quest_objects.task_description1 = nvl(p_task_description1(i),player_quest_objects.task_description1), player_quest_objects.task_title2 = nvl(p_task_title2(i),player_quest_objects.task_title2), player_quest_objects.task_description2 = nvl(p_task_description2(i),player_quest_objects.task_description2), player_quest_objects.task_title3 = nvl(p_task_title3(i),player_quest_objects.task_title3), player_quest_objects.task_description3 = nvl(p_task_description3(i),player_quest_objects.task_description3), player_quest_objects.task_title4 = nvl(p_task_title4(i),player_quest_objects.task_title4), player_quest_objects.task_description4 = nvl(p_task_description4(i),player_quest_objects.task_description4), player_quest_objects.task_title5 = nvl(p_task_title5(i),player_quest_objects.task_title5), player_quest_objects.task_description5 = nvl(p_task_description5(i),player_quest_objects.task_description5), player_quest_objects.task_title6 = nvl(p_task_title6(i),player_quest_objects.task_title6), player_quest_objects.task_description6 = nvl(p_task_description6(i),player_quest_objects.task_description6), player_quest_objects.task_title7 = nvl(p_task_title7(i),player_quest_objects.task_title7), player_quest_objects.task_description7 = nvl(p_task_description7(i),player_quest_objects.task_description7), player_quest_objects.task_title8 = nvl(p_task_title8(i),player_quest_objects.task_title8), player_quest_objects.task_description8 = nvl(p_task_description8(i),player_quest_objects.task_description8), player_quest_objects.task_title9 = nvl(p_task_title9(i),player_quest_objects.task_title9), player_quest_objects.task_description9 = nvl(p_task_description9(i),player_quest_objects.task_description9), player_quest_objects.task_title10 = nvl(p_task_title10(i),player_quest_objects.task_title10), player_quest_objects.task_description10 = nvl(p_task_description10(i),player_quest_objects.task_description10), player_quest_objects.task_title11 = nvl(p_task_title11(i),player_quest_objects.task_title11), player_quest_objects.task_description11 = nvl(p_task_description11(i),player_quest_objects.task_description11), player_quest_objects.task_title12 = nvl(p_task_title12(i),player_quest_objects.task_title12), player_quest_objects.task_description12 = nvl(p_task_description12(i),player_quest_objects.task_description12) where player_quest_objects.object_id=p_object_id(i); end LOOP; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.save_player_quest_obj : update error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.save_player_quest_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','title','varchar2',p_title(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','description','varchar2',p_description(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','creator','number',p_creator(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','total_tasks','int',to_char(p_total_tasks(m_error_index))); db_error_logger.dblogerror_values('persister.save_player_quest_obj','difficulty','int',to_char(p_difficulty(m_error_index))); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title1','varchar2',p_task_title1(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description1','varchar2',p_task_description1(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title2','varchar2',p_task_title2(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description2','varchar2',p_task_description2(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title3','varchar2',p_task_title3(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description3','varchar2',p_task_description3(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title4','varchar2',p_task_title4(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description4','varchar2',p_task_description4(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title5','varchar2',p_task_title5(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description5','varchar2',p_task_description5(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title6','varchar2',p_task_title6(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description6','varchar2',p_task_description6(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title7','varchar2',p_task_title7(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description7','varchar2',p_task_description7(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title8','varchar2',p_task_title8(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description8','varchar2',p_task_description8(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title9','varchar2',p_task_title9(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description9','varchar2',p_task_description9(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title10','varchar2',p_task_title10(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description10','varchar2',p_task_description10(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title11','varchar2',p_task_title11(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description11','varchar2',p_task_description11(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_title12','varchar2',p_task_title12(m_error_index)); db_error_logger.dblogerror_values('persister.save_player_quest_obj','task_description12','varchar2',p_task_description12(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','save_player_quest_obj') = 1) THEN RAISE; END IF; end; end; end; procedure add_player_quest_obj( p_object_id VAOFSTRING, p_title VAOFSTRING, p_description VAOFSTRING, p_creator VAOFSTRING, p_total_tasks VAOFNUMBER, p_difficulty VAOFNUMBER, p_task_title1 VAOFSTRING, p_task_description1 VAOFSTRING, p_task_title2 VAOFSTRING, p_task_description2 VAOFSTRING, p_task_title3 VAOFSTRING, p_task_description3 VAOFSTRING, p_task_title4 VAOFSTRING, p_task_description4 VAOFSTRING, p_task_title5 VAOFSTRING, p_task_description5 VAOFSTRING, p_task_title6 VAOFSTRING, p_task_description6 VAOFSTRING, p_task_title7 VAOFSTRING, p_task_description7 VAOFSTRING, p_task_title8 VAOFSTRING, p_task_description8 VAOFSTRING, p_task_title9 VAOFSTRING, p_task_description9 VAOFSTRING, p_task_title10 VAOFSTRING, p_task_description10 VAOFSTRING, p_task_title11 VAOFSTRING, p_task_description11 VAOFSTRING, p_task_title12 VAOFSTRING, p_task_description12 VAOFSTRING, p_chunk_size number ) as m_enable_db_logging INTEGER := 0; m_error_index INTEGER :=0; begin FORALL i IN 1..p_chunk_size insert into player_quest_objects ( player_quest_objects.title, player_quest_objects.description, player_quest_objects.creator, player_quest_objects.total_tasks, player_quest_objects.difficulty, player_quest_objects.task_title1, player_quest_objects.task_description1, player_quest_objects.task_title2, player_quest_objects.task_description2, player_quest_objects.task_title3, player_quest_objects.task_description3, player_quest_objects.task_title4, player_quest_objects.task_description4, player_quest_objects.task_title5, player_quest_objects.task_description5, player_quest_objects.task_title6, player_quest_objects.task_description6, player_quest_objects.task_title7, player_quest_objects.task_description7, player_quest_objects.task_title8, player_quest_objects.task_description8, player_quest_objects.task_title9, player_quest_objects.task_description9, player_quest_objects.task_title10, player_quest_objects.task_description10, player_quest_objects.task_title11, player_quest_objects.task_description11, player_quest_objects.task_title12, player_quest_objects.task_description12, player_quest_objects.object_id ) VALUES ( p_title(i), p_description(i), p_creator(i), p_total_tasks(i), p_difficulty(i), p_task_title1(i), p_task_description1(i), p_task_title2(i), p_task_description2(i), p_task_title3(i), p_task_description3(i), p_task_title4(i), p_task_description4(i), p_task_title5(i), p_task_description5(i), p_task_title6(i), p_task_description6(i), p_task_title7(i), p_task_description7(i), p_task_title8(i), p_task_description8(i), p_task_title9(i), p_task_description9(i), p_task_title10(i), p_task_description10(i), p_task_title11(i), p_task_description11(i), p_task_title12(i), p_task_description12(i), p_object_id(i) ); exception when dup_val_on_index then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_player_quest_obj : dup_val_on_index error.'); END IF; for i in 1..p_chunk_size loop m_error_index := i; UPDATE player_quest_objects Set player_quest_objects.title = nvl(p_title(i),player_quest_objects.title), player_quest_objects.description = nvl(p_description(i),player_quest_objects.description), player_quest_objects.creator = nvl(p_creator(i),player_quest_objects.creator), player_quest_objects.total_tasks = nvl(p_total_tasks(i),player_quest_objects.total_tasks), player_quest_objects.difficulty = nvl(p_difficulty(i),player_quest_objects.difficulty), player_quest_objects.task_title1 = nvl(p_task_title1(i),player_quest_objects.task_title1), player_quest_objects.task_description1 = nvl(p_task_description1(i),player_quest_objects.task_description1), player_quest_objects.task_title2 = nvl(p_task_title2(i),player_quest_objects.task_title2), player_quest_objects.task_description2 = nvl(p_task_description2(i),player_quest_objects.task_description2), player_quest_objects.task_title3 = nvl(p_task_title3(i),player_quest_objects.task_title3), player_quest_objects.task_description3 = nvl(p_task_description3(i),player_quest_objects.task_description3), player_quest_objects.task_title4 = nvl(p_task_title4(i),player_quest_objects.task_title4), player_quest_objects.task_description4 = nvl(p_task_description4(i),player_quest_objects.task_description4), player_quest_objects.task_title5 = nvl(p_task_title5(i),player_quest_objects.task_title5), player_quest_objects.task_description5 = nvl(p_task_description5(i),player_quest_objects.task_description5), player_quest_objects.task_title6 = nvl(p_task_title6(i),player_quest_objects.task_title6), player_quest_objects.task_description6 = nvl(p_task_description6(i),player_quest_objects.task_description6), player_quest_objects.task_title7 = nvl(p_task_title7(i),player_quest_objects.task_title7), player_quest_objects.task_description7 = nvl(p_task_description7(i),player_quest_objects.task_description7), player_quest_objects.task_title8 = nvl(p_task_title8(i),player_quest_objects.task_title8), player_quest_objects.task_description8 = nvl(p_task_description8(i),player_quest_objects.task_description8), player_quest_objects.task_title9 = nvl(p_task_title9(i),player_quest_objects.task_title9), player_quest_objects.task_description9 = nvl(p_task_description9(i),player_quest_objects.task_description9), player_quest_objects.task_title10 = nvl(p_task_title10(i),player_quest_objects.task_title10), player_quest_objects.task_description10 = nvl(p_task_description10(i),player_quest_objects.task_description10), player_quest_objects.task_title11 = nvl(p_task_title11(i),player_quest_objects.task_title11), player_quest_objects.task_description11 = nvl(p_task_description11(i),player_quest_objects.task_description11), player_quest_objects.task_title12 = nvl(p_task_title12(i),player_quest_objects.task_title12), player_quest_objects.task_description12 = nvl(p_task_description12(i),player_quest_objects.task_description12) where player_quest_objects.object_id=p_object_id(i); if SQL%ROWCOUNT=0 then insert into player_quest_objects ( player_quest_objects.title, player_quest_objects.description, player_quest_objects.creator, player_quest_objects.total_tasks, player_quest_objects.difficulty, player_quest_objects.task_title1, player_quest_objects.task_description1, player_quest_objects.task_title2, player_quest_objects.task_description2, player_quest_objects.task_title3, player_quest_objects.task_description3, player_quest_objects.task_title4, player_quest_objects.task_description4, player_quest_objects.task_title5, player_quest_objects.task_description5, player_quest_objects.task_title6, player_quest_objects.task_description6, player_quest_objects.task_title7, player_quest_objects.task_description7, player_quest_objects.task_title8, player_quest_objects.task_description8, player_quest_objects.task_title9, player_quest_objects.task_description9, player_quest_objects.task_title10, player_quest_objects.task_description10, player_quest_objects.task_title11, player_quest_objects.task_description11, player_quest_objects.task_title12, player_quest_objects.task_description12, player_quest_objects.object_id ) VALUES ( p_title(i), p_description(i), p_creator(i), p_total_tasks(i), p_difficulty(i), p_task_title1(i), p_task_description1(i), p_task_title2(i), p_task_description2(i), p_task_title3(i), p_task_description3(i), p_task_title4(i), p_task_description4(i), p_task_title5(i), p_task_description5(i), p_task_title6(i), p_task_description6(i), p_task_title7(i), p_task_description7(i), p_task_title8(i), p_task_description8(i), p_task_title9(i), p_task_description9(i), p_task_title10(i), p_task_description10(i), p_task_title11(i), p_task_description11(i), p_task_title12(i), p_task_description12(i), p_object_id(i) ); end if; end loop; end; when others then begin for i in 1..p_chunk_size loop m_error_index := i; insert into player_quest_objects ( player_quest_objects.title, player_quest_objects.description, player_quest_objects.creator, player_quest_objects.total_tasks, player_quest_objects.difficulty, player_quest_objects.task_title1, player_quest_objects.task_description1, player_quest_objects.task_title2, player_quest_objects.task_description2, player_quest_objects.task_title3, player_quest_objects.task_description3, player_quest_objects.task_title4, player_quest_objects.task_description4, player_quest_objects.task_title5, player_quest_objects.task_description5, player_quest_objects.task_title6, player_quest_objects.task_description6, player_quest_objects.task_title7, player_quest_objects.task_description7, player_quest_objects.task_title8, player_quest_objects.task_description8, player_quest_objects.task_title9, player_quest_objects.task_description9, player_quest_objects.task_title10, player_quest_objects.task_description10, player_quest_objects.task_title11, player_quest_objects.task_description11, player_quest_objects.task_title12, player_quest_objects.task_description12, player_quest_objects.object_id ) VALUES ( p_title(i), p_description(i), p_creator(i), p_total_tasks(i), p_difficulty(i), p_task_title1(i), p_task_description1(i), p_task_title2(i), p_task_description2(i), p_task_title3(i), p_task_description3(i), p_task_title4(i), p_task_description4(i), p_task_title5(i), p_task_description5(i), p_task_title6(i), p_task_description6(i), p_task_title7(i), p_task_description7(i), p_task_title8(i), p_task_description8(i), p_task_title9(i), p_task_description9(i), p_task_title10(i), p_task_description10(i), p_task_title11(i), p_task_description11(i), p_task_title12(i), p_task_description12(i), p_object_id(i) ); end loop; exception when others then begin m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'persister.add_player_quest_obj : error.'); IF (m_enable_db_logging > 1) THEN db_error_logger.dblogerror_values('persister.add_player_quest_obj','object_id','number',p_object_id(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','title','varchar2',p_title(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','description','varchar2',p_description(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','creator','number',p_creator(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','total_tasks','int',to_char(p_total_tasks(m_error_index))); db_error_logger.dblogerror_values('persister.add_player_quest_obj','difficulty','int',to_char(p_difficulty(m_error_index))); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title1','varchar2',p_task_title1(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description1','varchar2',p_task_description1(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title2','varchar2',p_task_title2(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description2','varchar2',p_task_description2(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title3','varchar2',p_task_title3(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description3','varchar2',p_task_description3(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title4','varchar2',p_task_title4(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description4','varchar2',p_task_description4(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title5','varchar2',p_task_title5(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description5','varchar2',p_task_description5(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title6','varchar2',p_task_title6(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description6','varchar2',p_task_description6(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title7','varchar2',p_task_title7(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description7','varchar2',p_task_description7(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title8','varchar2',p_task_title8(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description8','varchar2',p_task_description8(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title9','varchar2',p_task_title9(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description9','varchar2',p_task_description9(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title10','varchar2',p_task_title10(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description10','varchar2',p_task_description10(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title11','varchar2',p_task_title11(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description11','varchar2',p_task_description11(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_title12','varchar2',p_task_title12(m_error_index)); db_error_logger.dblogerror_values('persister.add_player_quest_obj','task_description12','varchar2',p_task_description12(m_error_index)); END IF; END IF; IF (db_error_logger.reraisecheck('persister','add_player_quest_obj') = 1) THEN RAISE; END IF; end; end; end; procedure remove_player_quest_obj( p_object_id VAOFSTRING, p_chunk_size number ) as begin FORALL i IN 1..p_chunk_size delete player_quest_objects where object_id=p_object_id(i); end; end; / GRANT EXECUTE ON "SWG"."PERSISTER" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body PURGE_METHODS -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."PURGE_METHODS" IS FUNCTION Purge_objects (date_in in objects.deleted_date%type) RETURN NUMBER IS v_count NUMBER := 0; BEGIN --open the cursor for the object ids we want to purge. --we will use these ids to delete child records from other tables FOR x IN (SELECT /*+ INDEX (OBJECTS DELETED_OBJECT_IDX) */ object_id FROM objects WHERE deleted_date < date_in) LOOP IF v_count = 0 THEN dbms_output.put_line ('Starting to delete....'); END IF; --delete all children DELETE FROM armor nologging WHERE object_id = x.object_id; DELETE FROM battlefield_marker_objects nologging WHERE object_id = x.object_id; DELETE FROM battlefield_participants nologging WHERE region_object_id = x.object_id; DELETE FROM battlefield_participants nologging WHERE character_object_id = x.object_id ; DELETE FROM biographies nologging WHERE object_id = x.object_id ; DELETE FROM building_objects nologging WHERE object_id = x.object_id ; DELETE FROM cell_objects nologging WHERE object_id = x.object_id ; DELETE FROM creature_objects nologging WHERE object_id = x.object_id ; DELETE FROM experience_points nologging WHERE object_id = x.object_id ; DELETE FROM factory_objects nologging WHERE object_id = x.object_id ; DELETE FROM guild_objects nologging WHERE object_id = x.object_id ; DELETE FROM harvester_installation_objects nologging WHERE object_id = x.object_id ; DELETE FROM installation_objects nologging WHERE object_id = x.object_id ; DELETE FROM intangible_objects nologging WHERE object_id = x.object_id ; DELETE FROM location_lists nologging WHERE object_id = x.object_id ; DELETE FROM manf_schematic_attributes nologging WHERE object_id = x.object_id ; DELETE FROM manf_schematic_objects nologging WHERE object_id = x.object_id ; DELETE FROM manufacture_inst_objects nologging WHERE object_id = x.object_id ; DELETE FROM mission_objects nologging WHERE object_id = x.object_id ; DELETE FROM object_variables nologging WHERE object_id = x.object_id ; DELETE FROM planet_objects nologging WHERE object_id = x.object_id ; DELETE FROM player_objects nologging WHERE object_id = x.object_id ; DELETE FROM property_lists nologging WHERE object_id = x.object_id ; DELETE FROM resource_container_objects nologging WHERE object_id = x.object_id ; DELETE FROM scripts nologging WHERE object_id = x.object_id ; DELETE FROM static_objects nologging WHERE object_id = x.object_id ; DELETE FROM tangible_objects nologging WHERE object_id = x.object_id ; DELETE FROM token_objects nologging WHERE object_id = x.object_id ; DELETE FROM universe_objects nologging WHERE object_id = x.object_id ; DELETE FROM vehicle_objects nologging WHERE object_id = x.object_id ; DELETE FROM waypoints nologging WHERE object_id = x.object_id ; DELETE FROM weapon_objects nologging WHERE object_id = x.object_id ; --delete messages target(object_id) DELETE FROM messages nologging WHERE target = x.object_id ; v_count := v_count + 1; COMMIT; END LOOP; --delete parent DELETE /*+ INDEX (OBJECTS DELETED_OBJECT_IDX) */ FROM objects nologging WHERE deleted_date < date_in; dbms_output.put_line (v_count||': iterations'); COMMIT; RETURN 0; EXCEPTION WHEN OTHERS THEN ROLLBACK; IF v_count = 0 THEN dbms_output.put_line ('never deleted'); END IF; dbms_output.put_line (v_count||': iterations'); RETURN SQLCODE; END Purge_objects; -- -- -- FUNCTION time_purge (date_in IN VARCHAR2) RETURN INTEGER IS v_retval NUMBER := 0; v_date VARCHAR2(20) := date_in; v_time NUMBER := 1; BEGIN FOR i IN 1..24 LOOP dbms_output.put_line(to_char(to_date(v_date, 'dd-mon-yy hh24:mi:ss') + v_time/24, 'DD-MON-YY hh24:mi:ss')); v_retval := purge_objects(to_date(v_date, 'dd-mon-yy hh24:mi:ss') + v_time/24); EXIT WHEN v_retval <> 0; IF v_time = 23 THEN v_time := v_time + (59/60); ELSE v_time := v_time + 1; END IF; END LOOP; RETURN 0; EXCEPTION WHEN OTHERS THEN ROLLBACK; dbms_output.put_line('Purge return values: '||v_retval); dbms_output.put_line('Time it failed at: '||v_time); RETURN SQLCODE; END time_purge; end purge_methods; / GRANT EXECUTE ON "SWG"."PURGE_METHODS" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body PURGE_METHODS2 -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."PURGE_METHODS2" is /**********************************************************************/ /*** Purge Objects ***/ /*** ***/ /*** Deletes objects marked for deletion in object tables and ***/ /*** then the master objects table based on date value ***/ /**********************************************************************/ FUNCTION Purge_objects (date_in in objects.deleted_date%type) RETURN PLS_INTEGER IS v_count PLS_INTEGER := 0; Obj_list Obj_list_t; -- VARRAY object to hold ids to bulk delete for child objects Obj_list_index PLS_INTEGER; -- index into VARRAY object BEGIN Obj_list := Obj_list_t(); -- initialize VARRAY object Obj_list.extend(chunk_size); -- allocate VARRAY object memory to chunk size -- LOGGING.LOG_STATUS(1,'Starting object deletions.'); --open the cursor for the object ids we want to purge. --we will use these ids to delete records from other tables FOR x IN (SELECT /*+ INDEX (OBJECTS DELETED_OBJECT_IDX) */ object_id FROM objects WHERE deleted_date < date_in) LOOP v_count := v_count + 1; Obj_list_index := MOD(v_count, chunk_size); -- what obj index for this batch If Obj_list_index = 0 then Obj_list(chunk_size) := x.object_id; -- make sure we fill last VARRAY element Purge_objects_work(Obj_list); -- bulk delete object ids in VARRAY list COMMIT; -- LOGGING.LOG_STATUS(v_count,'batch purged'); Else Obj_list(Obj_list_index) := x.object_id; -- fill VARRAY with ids End If; END LOOP; -- LOGGING.LOG_STATUS(v_count,'Child object main loop exited.'); --Now delete remaining partially full object list for objects If Obj_list_index != 0 then Obj_list.trim(chunk_size - Obj_list_index); Purge_objects_work(Obj_list); COMMIT; -- LOGGING.LOG_STATUS(v_count,'Deleting chunk remainder.'); End If; Obj_list.delete; -- cleanup - delete VARRAY list -- LOGGING.LOG_STATUS(v_count,'Finished deleting '|| to_char(v_count) ||' references to objects.'); RETURN 0; EXCEPTION WHEN OTHERS THEN ROLLBACK; IF v_count = 0 THEN dbms_output.put_line ('never deleted'); -- LOGGING.LOG_ERROR(SQLCODE, SQLERRM); END IF; dbms_output.put_line (v_count||': iterations'); -- LOGGING.LOG_ERROR(SQLCODE, SQLERRM); RETURN SQLCODE; END Purge_objects; /**********************************************************************/ /*** Purge Objects Work ***/ /*** ***/ /*** Bulk delete objects marked for deletion in child object tables ***/ /*** given a list of object ids passed in from a VARRAY. Called ***/ /*** purge objects function. ***/ /**********************************************************************/ PROCEDURE Purge_objects_work (Obj_list IN Obj_list_t) IS BEGIN --delete all children FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM armor WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM battlefield_marker_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM battlefield_participants WHERE region_object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM battlefield_participants WHERE character_object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM biographies WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM building_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM cell_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM creature_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM experience_points WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM factory_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM guild_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM harvester_installation_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM installation_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM intangible_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM location_lists WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM manf_schematic_attributes WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM manf_schematic_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM manufacture_inst_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM mission_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM object_variables WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM planet_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM player_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM property_lists WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM resource_container_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM scripts WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM static_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM tangible_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM token_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM universe_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM vehicle_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM waypoints WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM weapon_objects WHERE object_id = Obj_list(i); --delete messages target(object_id) FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM messages WHERE target = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM objects WHERE object_id = Obj_list(i); END Purge_objects_work; -- -- -- FUNCTION time_purge (date_in IN VARCHAR2) RETURN PLS_INTEGER IS v_retval PLS_INTEGER := 0; v_date VARCHAR2(20) := date_in; v_time NUMBER := 1; BEGIN FOR i IN 1..24 LOOP dbms_output.put_line(to_char(to_date(v_date, 'dd-mon-yy hh24:mi:ss') + v_time/24, 'DD-MON-YY hh24:mi:ss')); v_retval := purge_objects(to_date(v_date, 'dd-mon-yy hh24:mi:ss') + v_time/24); EXIT WHEN v_retval <> 0; IF v_time = 23 THEN v_time := v_time + (59/60); ELSE v_time := v_time + 1; END IF; END LOOP; RETURN 0; EXCEPTION WHEN OTHERS THEN ROLLBACK; dbms_output.put_line('Purge return values: '||v_retval); dbms_output.put_line('Time it failed at: '||v_time); RETURN SQLCODE; END time_purge; /**********************************************************************/ /*** Purge Consumables ***/ /*** ***/ /*** Deletes consumable objects marked for deletion in child object ***/ /*** tables and then the master objects table based on date value ***/ /**********************************************************************/ FUNCTION Purge_consumables (start_date_in in objects.deleted_date%type, end_date_in in objects.deleted_date%type) RETURN PLS_INTEGER IS v_count PLS_INTEGER := 0; Obj_list Obj_list_t; -- VARRAY object to hold ids to bulk delete for objects Obj_list_index PLS_INTEGER; -- index into VARRAY object BEGIN Obj_list := Obj_list_t(); -- initialize VARRAY object Obj_list.extend(chunk_size); -- allocate VARRAY object memory to chunk size -- LOGGING.LOG_STATUS(1,'Starting child object deletions for consumables.'); --open the cursor for the object ids we want to purge. --we will use these ids to delete records from other tables FOR x IN (SELECT object_id FROM objects WHERE deleted_date is not NULL AND deleted_date BETWEEN start_date_in AND end_date_in and object_template_id in ( 300281711, 352903310, 1006954225, 9343642, 35614291, 339194814, 1001781097, 1632911215, 1139268412, 2059421636, 1349101341, -1657672270, 1931602976, -1440714292, -1436615854, -1614624973, -1556205486, -679440489, -1397391672, -541746271, -718648728, -789429729, -786663538, -610128810, -132487792, -1129945606, -104858180, -82570045)) LOOP v_count := v_count + 1; Obj_list_index := MOD(v_count, chunk_size); -- what obj index for this batch If Obj_list_index = 0 then Obj_list(chunk_size) := x.object_id; -- make sure we fill last VARRAY element Purge_consumables_work(Obj_list); -- bulk delete object ids in VARRAY list COMMIT; -- LOGGING.LOG_STATUS(v_count,'batch purged'); Else Obj_list(Obj_list_index) := x.object_id; -- fill VARRAY with ids End If; END LOOP; -- LOGGING.LOG_STATUS(v_count,'Consumables object main loop exited.'); --Now delete remaining partially full object list for objects If Obj_list_index != 0 then Obj_list.trim(chunk_size - Obj_list_index); Purge_consumables_work(Obj_list); COMMIT; -- LOGGING.LOG_STATUS(v_count,'Deleting chunk remainder.'); End If; Obj_list.delete; -- cleanup - delete VARRAY list -- LOGGING.LOG_STATUS(v_count,'Finished deleting '|| to_char(v_count) ||' consumable objects.'); RETURN 0; EXCEPTION WHEN OTHERS THEN ROLLBACK; IF v_count = 0 THEN dbms_output.put_line ('never deleted'); -- LOGGING.LOG_ERROR(SQLCODE, SQLERRM); END IF; dbms_output.put_line (v_count||': iterations'); -- LOGGING.LOG_ERROR(SQLCODE, SQLERRM); RETURN SQLCODE; END Purge_consumables; /**********************************************************************/ /*** Purge Consumables Work ***/ /*** ***/ /*** Bulk delete consumable objects marked for deletion in child ***/ /*** object tables given a list of object ids passed in from a ***/ /*** VARRAY. Called purge consumables function. ***/ /**********************************************************************/ PROCEDURE Purge_consumables_work (Obj_list IN Obj_list_t) IS BEGIN --delete all children FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM armor WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM battlefield_marker_objects WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM biographies nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM creature_objects nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM experience_points nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM factory_objects nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM intangible_objects nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM location_lists nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM mission_objects nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM object_variables nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM property_lists nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM resource_container_objects nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM scripts nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM tangible_objects nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM token_objects nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM vehicle_objects nologging WHERE object_id = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM weapon_objects nologging WHERE object_id = Obj_list(i); --delete messages target(object_id) FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM messages nologging WHERE target = Obj_list(i); FORALL i IN Obj_list.First..Obj_list.Last DELETE FROM objects nologging WHERE object_id = Obj_list(i); END Purge_consumables_work; -- -- -- FUNCTION time_purge_consumables (start_date_in in objects.deleted_date%type, end_date_in in objects.deleted_date%type) RETURN PLS_INTEGER IS v_retval PLS_INTEGER := 0; v_start_date DATE := start_date_in; v_end_date DATE := end_date_in; v_hours NUMBER := (v_end_date - v_start_date) * 24; v_time NUMBER := 1; BEGIN dbms_output.put_line('Hours between dates: '||v_hours); FOR i IN 1..v_hours LOOP v_end_date := v_start_date + v_time/24; dbms_output.put_line ('Calling proc with Start Date: '||to_char(v_start_date, 'dd-mon-yy hh24:mi:ss')||'-'||'End Date: '||to_char(v_end_date, 'dd-mon-yy hh24:mi:ss')); v_retval := purge_consumables(v_start_date, v_end_date); v_start_date := v_start_date + v_time/24; EXIT WHEN v_retval <> 0; END LOOP; RETURN 0; EXCEPTION WHEN OTHERS THEN ROLLBACK; dbms_output.put_line('Purge return value: '||v_retval); RETURN SQLCODE; END time_purge_consumables; end purge_methods2; / GRANT EXECUTE ON "SWG"."PURGE_METHODS2" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body PURGE_PROCESS -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."PURGE_PROCESS" as procedure update_account_list (source_table varchar2) as begin --Add new status codes execute immediate 'insert into statuses (id, description, do_purge, reviewed) ' || 'select distinct status, status_desc, ''N'', ''N'' ' || 'from ' || source_table || ' ' || 'where not exists (select * from statuses where statuses.id = ' || source_table || '.status)'; --Add any new accounts. execute immediate 'insert into purge_accounts (station_id,purge_phase) ' || 'select user_id, 0 ' || 'from ' || source_table || ' ' || 'where not exists (select * from purge_accounts where purge_accounts.station_id = ' || source_table ||'.user_id)'; --Reset purge phase on existing accounts who may have reactivated: execute immediate 'update purge_accounts ' || 'set purge_phase = 0, ' || 'purge_start_date = null ' || 'where purge_phase<>0 ' || 'and exists (select * from ' || source_table || ' , statuses ' || 'where ' || source_table || '.user_id = purge_accounts.station_id ' || 'and ' || source_table || '.status = statuses.id ' || 'and statuses.do_purge=''N'')'; --Start purge process on accounts who have deactivated: execute immediate 'update purge_accounts ' || 'set purge_phase = 1, ' || 'purge_start_date=(select nvl(max(close_date),sysdate) from ' || source_table || ' where ' || source_table || '.user_id = purge_accounts.station_id) ' || 'where purge_phase=0 ' || 'and exists (select * from ' || source_table || ', statuses ' || 'where ' || source_table || '.user_id = purge_accounts.station_id ' || 'and ' || source_table || '.status = statuses.id ' || 'and statuses.do_purge=''Y'')'; --TODO: immediate purge for banned accounts end; function get_account_for_purge(p_purge_phase number, p_min_age number) return number -- Grabs one account from the list to be purged, and sets a lock on it so that no other process -- will attempt to purge it. (Ignores locks from more than 1 day ago, because those probably mean -- something in the process failed.) as result number; begin select station_id into result from purge_accounts where purge_accounts.purge_phase = p_purge_phase and sysdate - nvl(purge_accounts.purge_phase_date, purge_accounts.purge_start_date) > p_min_age and (purge_lock is null or sysdate - purge_lock > 1) and rownum < 2 order by purge_accounts.purge_start_date for update; update purge_accounts set purge_lock=sysdate where station_id = result; return result; end; procedure set_purge_status(p_station_id number, p_new_phase number) as begin if (p_new_phase = 0) then update purge_accounts set purge_phase = p_new_phase, purge_start_date = null, purge_phase_date = null, purge_lock = null where station_id = p_station_id; else update purge_accounts set purge_phase = p_new_phase, purge_phase_date = sysdate, purge_lock = null where station_id = p_station_id; end if; end; end; / GRANT EXECUTE ON "SWG"."PURGE_PROCESS" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body SERVERCLOCK -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."SERVERCLOCK" as function get_last_save_time return number as result number; begin select last_save_time into result from clock; return result; end; end; / GRANT EXECUTE ON "SWG"."SERVERCLOCK" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body STATION_PLAYERS -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."STATION_PLAYERS" as procedure update_character(p_clusterName in varchar2 ,p_characterId in networkid, p_characterName in varchar2, p_objectName in varchar2, p_x in number, p_y in number, p_z in number, p_sceneId in varchar2, p_cash_balance in number, p_bank_balance in number, p_objectTemplateName in varchar2, p_stationId in networkid, p_containedBy in networkid, p_createTime in number, p_playedTime in number , p_numLots in number) as m_enable_db_logging INTEGER := 0; begin insert into character_profile (cluster_name, character_id, character_name, object_name, x, y, z, scene_id, cash_balance, bank_balance, object_template_name, station_id, contained_by, create_time, played_time, num_lots) values (p_clusterName, p_characterId, p_characterName, p_objectName, p_x, p_y, p_z, p_sceneId, p_cash_balance, p_bank_balance, p_objectTemplateName, p_stationId, p_containedBy, util.unix_time_2_oracle_date_PDT(p_createTime), util.unix_time_2_oracle_date_PDT(p_playedTime), p_numLots); exception when dup_val_on_index then begin update character_profile set character_name = NVL(p_characterName,character_name), object_name = NVL(p_objectName, object_name), x = NVL(p_x, x), y = NVL(p_y, y), z = NVL(p_z, z), scene_id = NVL(p_sceneId, scene_id), cash_balance = NVL(p_cash_balance, cash_balance), bank_balance = NVL(p_bank_balance, bank_balance), object_template_name = NVL(p_objectTemplateName, object_template_name), station_id = NVL(p_stationId, station_id), contained_by = NVL(p_containedBy, contained_by), create_time = NVL(util.unix_time_2_oracle_date_PDT(p_createTime), create_time), played_time = NVL(util.unix_time_2_oracle_date_PDT(p_playedTime), played_time), num_lots = NVL(p_numLots, num_lots) where cluster_name = p_clusterName and character_id = p_characterId; end; when others then m_enable_db_logging := db_error_logger.getLogLevel(); IF (m_enable_db_logging > 0) THEN db_error_logger.dblogerror(SQLCODE,'station_players.update_character : error.'); IF (m_enable_db_logging > 1) THEN NULL; END IF; END IF; IF (db_error_logger.reraisecheck('station_players','update_character') = 1) THEN RAISE; END IF; end; end; / GRANT EXECUTE ON "SWG"."STATION_PLAYERS" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body UNDELETE_METHODS -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."UNDELETE_METHODS" is FUNCTION restore_object (object_id_in IN objects.object_id%TYPE) RETURN NUMBER IS BEGIN --update an object and its children --continue down tree with any object --whose contained_by is a valid object id. UPDATE objects SET deleted = 0, deleted_date = NULL WHERE object_id = object_id_in; COMMIT; RETURN 0; EXCEPTION WHEN OTHERS THEN ROLLBACK; RETURN SQLCODE; END restore_object; end undelete_methods; / GRANT EXECUTE ON "SWG"."UNDELETE_METHODS" TO PUBLIC; -------------------------------------------------------- -- DDL for Package Body UTIL -------------------------------------------------------- CREATE OR REPLACE PACKAGE BODY "SWG"."UTIL" as function unix_time_2_oracle_date_PDT(p_unix_time in number) return date as begin return new_time( to_date('01011970','ddmmyyyy') + 1/24/60/60 * p_unix_time, 'GMT', 'PDT' ); end; function unix_time_2_oracle_date_PST(p_unix_time in number) return date as begin return new_time( to_date('01011970','ddmmyyyy') + 1/24/60/60 * p_unix_time, 'GMT', 'PST' ); end; function unix_time_2_oracle_date_CDT(p_unix_time in number) return date as begin return new_time( to_date('01011970','ddmmyyyy') + 1/24/60/60 * p_unix_time, 'GMT', 'CDT' ); end; function unix_time_2_oracle_date_CST(p_unix_time in number) return date as begin return new_time( to_date('01011970','ddmmyyyy') + 1/24/60/60 * p_unix_time, 'GMT', 'CST' ); end; function unix_time_2_oracle_date(p_unix_time in number, p_timezone_offset in number) return date as begin return ((to_date('01011970','ddmmyyyy') + 1/24/60/60 * p_unix_time) + p_timezone_offset/24); end; function unix_to_oracle_date(p_unix_time in number, p_timezone_offset in number) return date as begin return unix_time_2_oracle_date(p_unix_time, p_timezone_offset); end; end; / GRANT EXECUTE ON "SWG"."UTIL" TO PUBLIC; exit;