Results 1 to 7 of 7

Thread: Odd Error

  1. #1
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default Odd Error

    I have no idea why thos comes :/


    SCAR Code:
    procedure PlayerStats;

    var
     Active: string;
    var
     i: Integer;
    begin
      cst := getsystemTime;
      srt := (cst - sst) / 1000;
      tih := srt / 3600;
      tim := (srt / 60) - tih * 60;
      tis := srt - tim * 60 - tih * 3600;
      awt := wet - wst
     writeln('**********************************************');
     writeln('Name      : '+Players[CurrentPlayer].Name);
     writeln('Number    : '+inttostr(CurrentPlayer));
     Writeln('Worked    : ' + inttostr(tih) + ' Hours ' + inttostr(tim) + ' Minutes ' + inttostr(tis) + ' Seconds.');
     writeln('Banked    : '+inttostr(Players[CurrentPlayer]
     Writeln('Fail Bank : ' + IntToStr(FailedBank) + ' Times. ');
    LINE 100 <-----
     Writeln('Picking   : ' + inttostr((Done * 28 / (srt / 60)) * 60) + ' Flax In a Hour. ');
     if Players[CurrentPlayer].Active=True then
      Active:='True'
     else
      Active:='False';
     writeln('Active    : '+Active);
     writeln('Location  : '+Players[CurrentPlayer].loc);
     writeln('**********************************************');

     for i:=0 to HowManyPlayers-1 do
     begin
      if Players[i].Active=True then
       Active:='True'
      else
       Active:='False';
      writeln((inttostr(i))+' : '+Players[i
       ].name+' = '+Active+'. - Lvl : '+inttostr
        (Players[i].Level[15])+
       '. - B :'+inttostr(Players[i]
       .Banked)+' Times.'+
       ' -  : '+IntToStr(Players[i]
       .Worked)+' mins.'+' - Loc: '+
       Players[i].loc);
     end
      writeln('**********************************************'
       );
    end;


    Line 100: [Error] (14500:1): comma (',') expected in script C:\Documents and Settings\JJ\Työpöytä\F.scar

  2. #2
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Man my broswer is doubling :S

  3. #3
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Post the whole script....
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  4. #4
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    PHP Code:
    procedure PlayerStats;
    var
     
    iInteger;
    begin
      cst 
    := getsystemTime;
      
    srt := (cst sst) / 1000;
      
    tih := srt 3600;
      
    tim := (srt 60) - tih 60;
      
    tis := srt tim 60 tih 3600;
      
    awt := wet wst
     writeln
    ('**********************************************');
     
    writeln('Name      : '+Players[CurrentPlayer].Name);
     
    writeln('Number    : '+inttostr(CurrentPlayer));
     
    Writeln('Worked    : ' inttostr(tih) + ' Hours ' inttostr(tim) + ' Minutes ' inttostr(tis) + ' Seconds.');
     
    writeln('Banked    : '+inttostr(Players[CurrentPlayer].banked));
     
    Writeln('Fail Bank : ' IntToStr(FailedBank) + ' Times. ');
     
    Writeln('Picking   : ' inttostr((Done 28 / (srt 60)) * 60) + ' Flax In a Hour. ');
     
    writeln('Active    : '+BoolToStr(Players[CurrentPlayer].Active));
     
    writeln('Location  : '+Players[CurrentPlayer].loc);
     
    writeln('**********************************************');

     for 
    i:=0 to HowManyPlayers-do
     
    begin
      writeln
    ((inttostr(i))+' : '+Players[i].name+' = '+BoolToStr(Players[i].Active)+'. - Lvl : '+inttostr(Players[i].Level[15])+
       
    '. - B :'+inttostr(Players[i].Banked)+' Times.'+' -  : '+IntToStr(Players[i].Worked)+' mins.'+' - Loc: '+Players[i].loc);
     
    end
      writeln
    ('**********************************************');
    end
    Fixed as much as i could without the script

    Scripting standards would help you immensly
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  5. #5
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    THanks Star Sorry.. My scripting strandards.. doesn't are very amazing

  6. #6
    Join Date
    Oct 2006
    Location
    MI USA
    Posts
    3,166
    Mentioned
    6 Post(s)
    Quoted
    11 Post(s)

    Default

    Glad to see you two have finally buried the Hatchet


  7. #7
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    doesn't are very amazing
    neither is your English :P

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Line 135: [Error] (14845:1): Syntax error in script
    By AbsTrACt'^.| in forum OSR Help
    Replies: 16
    Last Post: 05-23-2008, 01:14 PM
  2. Replies: 5
    Last Post: 02-26-2008, 04:14 PM
  3. Smart error and Some kind of Math.scar error
    By FagetHax0r in forum OSR Help
    Replies: 6
    Last Post: 02-24-2008, 10:43 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
  •