A Land Far Away

Code: Select all

#include "vaultster_inc"

void main()
{
	// check if we are using an AT
    object oMyPC = GetClickingObject();
	// or if we are trying again to backup
	if(!GetIsPC(oMyPC)) oMyPC = OBJECT_SELF;
	if(!GetIsPC(oMyPC)) return;
	
	SendMessageToPC(oMyPC, "Vaultster Test.");
	
 	//Your code goes here
 	int status = PortalPC(oMyPC, "vault.alandfaraway.org");
	// returns: VAULTSTER_OK portal was successfully initiated
	//          VAULTSTER_FAILED internal failure
	//          VAULTSTER_SERVERBUSY too much players portalling already
	//          VAULTSTER_NOPLAYER object was no player
	
	if(status == VAULTSTER_FAILED) {
		SendMessageToPC(oMyPC, "Internal failure. Please contact the Infra Admin or the HDM.");
	} else if(status == VAULTSTER_SERVERBUSY) {
		SendMessageToPC(oMyPC, "Too many players are being backed up already, will try again in 30 seconds.");
		DelayCommand (30.0f, ExecuteScript("vaultster_backup_pc", oMyPC));
	} else if(status == VAULTSTER_NOPLAYER) {
		SendMessageToPC(oMyPC, "Object was not a player.");
	} else {
		SendMessageToPC(oMyPC, "Backup was successfully initiated.");
       	DelayCommand (1.0f, ExecuteScript ("vaultster_backup_check_status", oMyPC));
	}
}

Code: Select all

#include "vaultster_inc"

void main ()
{
   object oPC = OBJECT_SELF;
   
   int status = PortalStatus(oPC);
   
   if (status == VAULTSTER_STATUS_OK)
      // file was transferred successfully, so now portal the player
      // ActivatePortal (oPC, "nwn.someserver.com", "", "", TRUE);
	  SendMessageToPC (oPC, "Backup Complete.");
   else if (status == VAULTSTER_STATUS_BUSY) {
      // vaultster is still busy with the transmission
      SendMessageToPC (oPC, "Hold on..");
      DelayCommand (1.0f, ExecuteScript ("vaultster_backup_check_status", oPC));
   }
   else {
      // failure during transmission or not able to connect (see log file)
      SendMessageToPC(oPC, "Failed to backup the character file. Trying again in 30 seconds.");
      DelayCommand (30.0f, ExecuteScript("vaultster_backup_pc", oPC));
   }
}

Code: Select all

#include "vaultster_inc"

void main()
{
  object oMyPC = GetExitingObject();
   if(!GetIsPC(oMyPC)) return;
   
   SendMessageToPC(oMyPC, "Vaultster Test.");
   
    //Your code goes here
    int status = PortalPC(oMyPC, "vault.alandfaraway.org");
   // returns: VAULTSTER_OK portal was successfully initiated
   //          VAULTSTER_FAILED internal failure
   //          VAULTSTER_SERVERBUSY too much players portalling already
   //          VAULTSTER_NOPLAYER object was no player
   
   if(status == VAULTSTER_FAILED) {
      SendMessageToPC(oMyPC, "Internal failure. Please contact the Infra Admin or the HDM.");
   } else if(status == VAULTSTER_SERVERBUSY) {
      SendMessageToPC(oMyPC, "Too many players are being backed up already, will try again in 30 seconds.");
      DelayCommand (30.0f, ExecuteScript("vaultster_backup_pc", oMyPC));
   } else if(status == VAULTSTER_NOPLAYER) {
      SendMessageToPC(oMyPC, "Object was not a player.");
   } else {
      SendMessageToPC(oMyPC, "Backup was successfully initiated.");
       DelayCommand (1.0f, ExecuteScript ("vaultster_backup_check_status", oMyPC));
   }
}

Code: Select all

// Name     : VaultSTER portal system include

// Purpose  : Various VaultSTER related functions

// Authors  : Jeroen Broekhuizen, Ignmar Stieger

// Modified : January 12, 2005



// Updates:

//  7-2-2005 - fixed bug in the PortalStatus script



// This file is licensed under the terms of the

// GNU GENERAL PUBLIC LICENSE (GPL) Version 2



// Error codes returned by VaultSter

const int VAULTSTER_OK = 0;

const int VAULTSTER_FAILED = -1;

const int VAULTSTER_SERVERBUSY = -2;

const int VAULTSTER_NOPLAYER = -3;

const int VAULTSTER_INTERNALERROR = -4;



// Status messages

const int VAULTSTER_STATUS_OK   = 0;

const int VAULTSTER_STATUS_BUSY = 2;

const int VAULTSTER_STATUS_ERROR= 3;



// Start portaling a player to the requested server. Use PortalStatus

// to keep track of the status of the portal for this player.

// returns: VAULTSTER_OK portal was successfully initiated

//          VAULTSTER_FAILED internal failure

//          VAULTSTER_SERVERBUSY too much players portalling already

//          VAULTSTER_NOPLAYER object was no player

int PortalPC (object oPC, string Server);



// Checks the current status of portalling for the specified player

// returns: VAULTSTER_STATUS_OK transmission was successfull

//          VAULTSTER_STATUS_BUSY transmission is not yet finished

//          VAULTSTER_STATUS_ERROR there was an error during the transmission

int PortalStatus (object oPC);



//////////////////////////////

// Implementation

//////////////////////////////



// Convers a player name to it's filename

// returns: filename of the character

string convertToFilename(string sPlayerName)

{

    string sRes;

    string sChar;

    int i, j;



    int iLen = GetStringLength(sPlayerName);

    if (iLen > 16)

        iLen = 16;



    for (i = 0; i < iLen; i++) {

        sChar = GetSubString(sPlayerName, i + j, 1);

        if ((sChar != " ") && (sChar != "."))

            sRes += sChar;

        else {

            i--;

            j++;

        }

    }

    return sRes;// + ".bic";

}



int PortalPC (object oPC, string Server)

{

    // make sure it is a PC object

    if (!GetIsPC (oPC)) return VAULTSTER_NOPLAYER;

    object oModule = GetModule();



    // make sure that the latest changes are saved too

    ExportSingleCharacter (oPC);



    // fetch the required information

    string player = GetPCPlayerName (oPC);

    string character = convertToFilename (GetName (oPC));



    // build up the command string

    string command = Server + "|" + player + "|" + character;

    SetLocalString (oModule, "NWNX!VAULTSTER!SEND", command);

    int id = StringToInt (GetLocalString (oModule, "NWNX!VAULTSTER!SEND"));



    // check the result

    if (id < 0)

        // return the error message

        return id;

    else {

        // save the id on the player (+1 as id is zero based what is

        // problematic with retreiving the id in PortalStatus, as on

        // error GetLocalString results also 0).

        SetLocalInt (oPC, "VAULTSTER_ID", id+1);

        return VAULTSTER_OK;

    }

}



int PortalStatus (object oPC)

{

    // get the portal id from the player

    int id = GetLocalInt (oPC, "VAULTSTER_ID");

    if (id == 0) return VAULTSTER_STATUS_ERROR;



    // get the status from Vaultster

    object oModule = GetModule ();

    SetLocalString(oModule, "NWNX!VAULTSTER!STATUS", IntToString(id-1));

    int status = StringToInt (GetLocalString (oModule, "NWNX!VAULTSTER!STATUS"));



    // delete if neccessary the vaultster id from the player

    if (status == VAULTSTER_STATUS_OK || status == VAULTSTER_STATUS_ERROR) {

        DeleteLocalInt (oPC, "VAULTSTER_ID");

    }

    return status;

}

Code: Select all

SetLocalString (oModule, "NWNX!VAULTSTER!SEND", command);
    int id = StringToInt (GetLocalString (oModule, "NWNX!VAULTSTER!SEND"));

Code: Select all

int id = NWNXGetLocalInt("VAULSTER", "SEND", command, 0);