SRL Archive - RS3 Help

I want it to be possible so everyone can see total xp gained by the bot.

I did the following:

DB: integer;
DB := sqlite_open('bot.db');

I get this error:
Exception in Script: Unknown declaration "sqlite_open"

Am I missing something? I have SQLite installed on my pc.

:duh::duh::duh:

Simba has SQLite disabled currently.

you could save the info to a file and load that up

You could gethttp with a php server running MySQL. Then you can use databases with simba. It is a lot more work but if you want a database, I see no other choice currently.

From: DemiseScythe
You could gethttp with a php server running MySQL. Then you can use databases with simba. It is a lot more work but if you want a database, I see no other choice currently.

That would be great, do you know any tutorial which explains read/writing data to a MySQL database from simba? I don't have a clue how to do this.

From: mastah
That would be great, do you know any tutorial which explains read/writing data to a MySQL database from simba? I don't have a clue how to do this.

http://villavu.com/forum/showthread.php?t=83538

From: DemiseScythe
You could gethttp with a php server running MySQL. Then you can use databases with simba. It is a lot more work but if you want a database, I see no other choice currently.

writing to a file:

const
  currentXP = 5000;

function scriptfileExists():boolean;
begin
  result := fileExists(appPath + 'scriptName.txt');
end;

procedure createScriptFile();
var
  tmpFile:integer;
begin
  if (scriptFileExists) then
    exit()
  else begin
    tmpFile := createFile(appPath + 'scriptName.txt');
    closeFile(tmpFile);
  end;
end;

function getScriptXP():integer;
var
  tmpFile:integer;
  s:string;
begin
  tmpFile := openFile(appPath + 'scriptName.txt', true);
  readFileString(tmpFile, s, fileSize(tmpFile));
  try
    result := strToInt(s);
  except
  finally
    closeFile(tmpFile);
  end;
end;

procedure updateScriptFile();
var
  tmpFile, prevXp:integer;
begin
  if (not scriptfileExists()) then
    createScriptFile()
  else begin
    prevXP := getScriptXP();
    tmpFile := rewriteFile(appPath + 'scriptName.txt', true);
    writeFileString(tmpFile, toStr(currentXP + prevXP));
    closeFile(tmpFile);
  end;
end;

begin
  createScriptFile();
  addOnTerminate('updateScriptFile');
end.

when the script terminates it will add how ever much xp was gained

From: Robert
writing to a file:

const
  currentXP = 5000;

function scriptfileExists():boolean;
begin
  result := fileExists(appPath + 'scriptName.txt');
end;

procedure createScriptFile();
var
  tmpFile:integer;
begin
  if (scriptFileExists) then
    exit()
  else begin
    tmpFile := createFile(appPath + 'scriptName.txt');
    closeFile(tmpFile);
  end;
end;

function getScriptXP():integer;
var
  tmpFile:integer;
  s:string;
begin
  tmpFile := openFile(appPath + 'scriptName.txt', true);
  readFileString(tmpFile, s, fileSize(tmpFile));
  try
    result := strToInt(s);
  except
  finally
    closeFile(tmpFile);
  end;
end;

procedure updateScriptFile();
var
  tmpFile, prevXp:integer;
begin
  if (not scriptfileExists()) then
    createScriptFile()
  else begin
    prevXP := getScriptXP();
    tmpFile := rewriteFile(appPath + 'scriptName.txt', true);
    writeFileString(tmpFile, toStr(currentXP + prevXP));
    closeFile(tmpFile);
  end;
end;

begin
  createScriptFile();
  addOnTerminate('updateScriptFile');
end.

when the script terminates it will add how ever much xp was gained

This is probably the best option, the other one is too bloated.