Results 1 to 5 of 5

Thread: advice and test of my first released script

  1. #1
    Join Date
    Feb 2007
    Posts
    419
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default advice and test of my first released script

    Need Scar Divi 3.01
    This could do in the includes, I've been using it for a while, it saves all debug text away, i use it to debug if my computer is shut off or i clear debug on accident or just so it's hardcopied
    Code:
    //-----------------------------------------------------------------//
    //--               Scar Standard Resource Library                --//
    //--               » save all text                           --//
    //-----------------------------------------------------------------//
    // * procedure SaveText(Location:string);              // * by King Vash
    //****************************************************************************//
    
    {*******************************************************************************
    By: King Vash
    Description: Save's SRL Randoms Report and all text in degub box to a text file
    in the folder defined in location (don't include a final "\")
    Location: the location to save file
    *******************************************************************************}
    
    procedure SaveText(Location:string);
    var
    Time, CurrentDebugText: String;
    Hour, Mins, Sec, MSec: Word;
    Filenumber: Integer;
    Begin
      CurrentDebugText := GetDebugText;
      DecodeTime(Now, Hour, Mins, Sec, MSec);
      Time:= (IntToStr(Hour) + ' ' + IntToStr(Mins) + ' ' + IntToStr(Sec))
      location :=(location  + '\' + 'debug on ' + Time +'.txt');
      writeln(location);
      wait(10000);
      Filenumber := RewriteFile(Location, False)
      if Filenumber <= -1 then
        begin
        status('openfile at ' + location + ' failed');
        end else
          begin
            ClearDebug;
            writeln(CurrentDebugText);
            // get srl report next        if (not WriteFileString(Filenumber, CurrentSRL)) then writeln('Save text failed');'
            if (not WriteFileString(Filenumber, CurrentDebugtext)) then writeln('Save text failed again');
            CloseFile(Filenumber);
          end;
    end;

  2. #2
    Join Date
    Feb 2007
    Posts
    419
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    if anyone knows how to get the date as a variable that would be much appreciated thanks in advice!

  3. #3
    Join Date
    Feb 2007
    Posts
    419
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    bump

  4. #4
    Join Date
    Mar 2007
    Posts
    1,700
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    King Vash....bumps are not allowed in these forums.

  5. #5
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Actually this would be really useful

    nice work

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Advice For My Script?
    By FreakyMonkey in forum OSR Help
    Replies: 6
    Last Post: 04-22-2008, 02:14 AM
  2. Idea for my first script. Advice please?
    By crossback7 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 06-12-2007, 08:12 PM
  3. TEst my script.
    By kooldude in forum OSR Help
    Replies: 5
    Last Post: 04-18-2007, 04:04 AM
  4. Replies: 3
    Last Post: 03-20-2007, 12:02 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •