SRL Archive - Help and Support

i have a question, how do i reopen smart when I call SmartKillClient(SmartCurrentClient);?

I asked on IRC, but no one was active :{

You didn't wait long enough. </3
Ask on Skype next time toooo.

Check how SRL Six Hour Fix does it.

From: NKN
You didn't wait long enough. </3
Ask on Skype next time toooo.

Check how SRL Six Hour Fix does it.

Oooo we have Skype :o???

And i have, lol but I didn't really get my solution, so far what I have:

 Refresh := SmartGetRefresh;

  SmartKillClient(SmartCurrentClient);
  {$IFDEF SMART}
    {$IFDEF SIMBAMAJOR980}
      Smart_Server := 2;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    {$ENDIF}
  {$ENDIF}
  SmartSetRefresh(Refresh);  

Function ResetSmart;
var
  T: Integer;
  Refresh: Integer;
Begin
  T:= GetTimeRunning;
  Refresh := SmartGetRefresh;

  {$IFDEF SMART_GRAPHICS}
  SMART_FreeDebug;
  SMART_SetupDebug;
  {$ENDIF}

  SmartKillClient(SmartCurrentClient);
  SetupSmart(Smart_ForceNew);
  Repeat
    {$IFNDEF SIMBAMAJOR980}
      {$IFDEF SMART}
      If Smart_FixSpeed then
        FixSmartSpeed;
      {$ENDIF}
    {$ENDIF}
    Wait(100);
    If (GetTimeRunning - T) > 120000 Then
      Break;
  Until(RSReady);
  SmartSetRefresh(Refresh);
End;

Okay I got it to work, and thanks Brandon. but I making a account creator, and I am trying to make the random email addresses be listed in the debug, so the user can just copy paste it to a notepad… but this makes it difficult:

SRL Compiled in 16 msec
Loading SMART: [url]http://world29.runescape.com/f5350929944344254789[/url]
[email]random2@gmail.com[/email]
SRL Compiled in 0 msec
Loading SMART: [url]http://world8.runescape.com/f5771527609296357[/url]
[email]random1@gmail.com[/email]
SRL Compiled in 0 msec

any suggestions how I can just get the emails be saved to a .txt file or just be in a list format in the debug.

I'm not sure how you are making and creating your emails, but why not save them all into a string array, and then at the end of the script, do:

L := Length(EmailArray);
For I := 0 to L do
  writlen('Account ' + IntToStr(I) ':' + EmailArray[i]);

wrote this thingie for you:

program new;

type
  TAccount = record
    Name: String;
    Email: String;
    Pass: String;
  end;

const
  SAVEFILE = 'accounts.ini';

procedure SafeAccount(acc: TAccount);
var
  FilePointer, i: Integer;
begin
  FilePointer := -1;
  if (not(FileExists(ScriptPath +SAVEFILE))) then
  begin
    FilePointer := CreateFile(ScriptPath + SAVEFILE);
    if(FilePointer > -1) then
      CloseFile(FilePointer);
  end;

  WriteINI('account:'+acc.Name, 'email', acc.Email, ScriptPath + SAVEFILE);
  WriteINI('account:'+acc.Name, 'pass', acc.Pass, ScriptPath + SAVEFILE);
end;

var
  a, aa: TAccount;
begin
  a.Name := 'Bert';
  a.Email := 'Bert@CU2.nl';
  a.Pass := 'FlapOor';

  aa.Name := 'Barty';
  aa.Email := 'BillyBoy@Microsoft.com';
  aa.Pass := '26061992';

  SafeAccount(a);
  SafeAccount(aa);
end.  

THanks MasterBB, found a way of my own how to organize it, but i appreciate it!


Although I was wondering if I should be aware of something, if I have my account creator making and killing the client, will my memory or anything be overloaded? if so what should I be doing to prevent that to happen!

Killing the client will free all the memory.

P1nky: http://www.pcwintech.com/cleanmem

Run that to autocheck for Memoryleaks every few minutes or so, it'll clear any memory leaks. :)