Results 1 to 11 of 11

Thread: what dose this mean

  1. #1
    Join Date
    Jun 2008
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default what dose this mean

    Line 205: [Error] (471:1): Semicolon (';') expected in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

  2. #2
    Join Date
    Mar 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jones2644 View Post
    Line 205: [Error] (471:1): Semicolon (';') expected in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar
    There's a hint.

    If you post the script in scar tags i might be able to see what else is wrong, and possibly fix it..

  3. #3
    Join Date
    Jun 2008
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    fally cow cruncher is the script
    and the line it says has a problem only has begin
    in it =\

  4. #4
    Join Date
    Mar 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, if you can't post the script then nobody's ever gunna be able to help you. Copy the whole script and paste it into a post here, and wrap it in scar tags. If you can't do that then you really shouldn't be here..

    I'm going to sleep now.
    Goodnight.

  5. #5
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  6. #6
    Join Date
    Jun 2008
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {
    directions: fill out playerform, place Characters in falador
    east bank, press play, and watch the ownage

    Thanks loads to munk for his forefeathers script,
    which i learned much from, and even stole some procedures off of                    }


    program FallyCowCruncher;
    {.include srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
    {.include srl/srl/skill/fighting.scar}

    type
      TPAStuff = Record
      Col, Tol,Len: Integer;
      W,H: Integer;
      HM,SM: Extended;
    end;

    var
      x,y,i,LDBA,CowsKilled,HidesPicked,
      LoadsDone,Tl,Currhides : integer;
      Player: boolean;


    const
      Debug = false;
      YourSrlID = '';
      YourSrlPassword = '';


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      CurrentPlayer := 0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Pin := '';
      Players[0].Integers[1] :=90; //desired attack
      Players[0].Integers[2] :=93; //desired strength
      Players[0].Integers[3] :=8-; //desired defense
      Players[0].Integers[4] :=500; //How many loads before logging
      Players[0].Integers[7] := 5;  //avg seconds to kill a cow
      Players[0].Active := True;
    end;
                                                                                               {
    ===========================================================================================}

    function ActivePlayers: integer;
    var pf,l: integer;
    begin
      for l := 0 to (howmanyplayers - 1) do
        if players[l].active then inc(pf);
      Result := pf
    end;                                                                                        {
    ============================================================================================}


    function AttackMode:boolean;
    var
      b,att,str,def:integer;
    begin
      if not(loggedIn) then exit;
      if (timefrommark(b)>60000)or(players[currentplayer].skill='') then
      begin
        Result := true;
        GameTab(2);
        wait(200);
        att:=getskillinfo('attack',false);
        str:=getskillinfo('strength',false);
        def:=getskillinfo('defence',false);
        if Debug then writeln(inttostr(att)+' attack');
        if Debug then writeln(inttostr(str)+' strength');
        if Debug then writeln(inttostr(def)+' defence');
        marktime(b);
        players[currentplayer].skill := '';
        if players[currentplayer].Integers[1] > att then
          if (players[currentplayer].integers[2] <= str) or (att <= str) then
            if (players[currentplayer].integers[3] <= def) or (att <= def) then
              players[CurrentPlayer].skill := 'attack';
        if (players[currentplayer].Integers[2] > str) then
          if (players[currentplayer].Integers[1] <= att)or (str <= att) then
            if (players[currentplayer].integers[3] <= def) or (str <= def) then
              Players[CurrentPlayer].skill := 'strength';
        if (players[currentplayer].Integers[3] > def) then
          if (players[currentplayer].Integers[1] <= att) or (def <= att) then
            if (players[currentplayer].integers[2] <= str) or (def <= str) then
              Players[CurrentPlayer].skill := 'defence';
      end;
      if debug then Writeln('attack style is ' + players[currentplayer].skill);
      GameTab(1);
      case lowercase(players[currentplayer].skill) of
        'attack': setfightmode(1);
        'strength': setfightmode(2);
        'defence': setfightmode(4);
        '' : Result := false;
      end;
    end;
                                                                                               {
    ==========================================================================================}

                                                                                                  {
    ==============================================================================================}


    Procedure Proggy;
    begin
      Writeln('=====================================================================');
      Writeln('FallyCowCruncher has been running for ' + Timerunning);
      Writeln('~~~~~~~~~~~~~~~~~~~~~~~~');
      Writeln('Players have killed ' + inttostr(CowsKilled) + ' Cows');
      Writeln('and picked up ' + inttostr(hidespicked) + ' Cowhides');
      Writeln('in a total of ' + inttostr(LDBA) + ' Loads');
      for i := 0 to (HowManyPlayers - 1) do
      begin
        if players[i].integers[5] > 0 then
        begin
          Writeln('');
          Writeln('"' +Players[i].nick + '"' + '(' + BooltoStr(players[i].Active) + ')' +' has killed ' + inttostr(players[i].integers[5]) + ' Cows');
        end;
        if players[i].integers[6] > 0 then
        begin
          Writeln('and has picked ' + inttostr(players[i].integers[6]) + ' Hides');
        end;
      end;
      Writeln('===========================FallyCowCruncher==========================');
    end;
                                                                                    {
    ================================================================================}


    Function GetFallyRoadColor: Integer;
    var
      cts,wi,TC:integer;
      RoadC:TpointArray;
    begin
      cts := getcolortolerancespeed;
      colortolerancespeed(2);
      setcolorspeed2modifiers(0.52,0.22);
      findcolorstolerance(RoadC,6321020,MMx1,mmy1,mmx2,mmy2,7);
      for wi := 0 to high(RoadC) do
      begin
        if rs_Onminimap(RoadC[wi].x,RoadC[wi].y) then
        begin
          TC := GetColor(RoadC[wi].x,RoadC[wi].y);
          if similarcolors(TC,6321020,7) then
            if GetColor(RoadC[wi].x + 2,RoadC[wi].y) = TC then
              if GetColor(RoadC[wi].x - 2, RoadC[wi].y) = TC then
              begin
                Result := TC;
                break
              end;
        end;
      end;
      Writeln('Falador Roadcolor = ' + inttostr(Result));
      ColorToleranceSpeed(cts);
    end;


    procedure FastFlag(ms:integer);
    var
      Time:integer;
    begin
      marktime(Time);
      while (flagPresent) do
      begin
        if timefrommark(Time)>ms - 1000 + random(2000) then exit;
        ftwait(1+random(2));
        FindNormalRandoms;
      end;
    end;
                                                                                                  {
    ==============================================================================================}


    Function FindFallyBank: Boolean;
    var
      BankDTM: integer;
      BP: TPoint;
    begin
      BankDTM := DTMFromString('78DA632C66626008654001FFFFFF67D061646' +
           '06084B0FF33E602D5C442E418A1F8CF1F26381F4C1712A1A694B0' +
           '1A0089E9105D');
      try
        if dtmrotated(BankDTM,BP.x,BP.y,MMx1,MMy1,MMx2,MMy2) then
        begin
          if distance(MMcx,MMcy,BP.x,BP.y) > 12 then
            Mouse(BP.x,BP.y,0,0,True);
          wait(200+random(300));
          FFlag(Random(3));
          OpenBankFast('feb');
          if PinScreen then Inpin(Players[currentplayer].pin);
          wait(300 + random(300));
          FixBank;
          Result := True;
          FreeDTM(BankDTM);
        end;
      except Freedtm(BankDTM); end;
    end;

    //thank you Munk
    function getMMgateColor:integer;
    var
      i,i2,c,col,lenTmp:integer;
      p:TpointArray;
    begin
      for col:=210 to 254 do
      begin
        c:=0;
        setArrayLength(p,0);
        findColorsSpiralTolerance(mmcx,mmcy,p,col,mmx1,mmy1,mmx2,mmy2,0);
        lenTmp:=length(p);
        if lenTmp>0 then
        begin
          for i:=0 to lenTmp-1 do
            for i2:=0 to lenTmp-1 do
            begin
              if i<>i2 then
                if (abs(p[i].x-p[i2].x)<2) and (abs(p[i].y-p[i2].y)<2) then
                  inc(c);
              if c>2 then
              begin
                result:=col;
                if debug then writeln('doorColor = '+inttostr(col));
                exit;
              end;
            end;
        end;
      end;
      if debug then writeln('ERROR: doorColor not found!');
    end;
                                                                                                 {
    =============================================================================================}


    //Thank you Munk
    procedure SetRetaliate(ret:boolean);
    var
     i:integer;
    begin
      if not(loggedIn) then exit;
      gametab(1);
      for i:=1 to 5 do
      begin
        case getColor(600,390) of
          4540745: if ret=true then mouse(600+random(100),370+random(20),0,0,true) else exit;
          1711220: if ret=false then mouse(600+random(100),370+random(20),0,0,true) else exit;
        end;
        wait(200);
      end;
    end;

    Procedure AntiBan;
    begin
      case random(8) of
        3: HoverSkill(players[currentplayer].skill,false);
        5: PickupMouse;
        1,4,7,2: IdleTime(2000,1000,rand);
      end;
      FindNormalRandoms;
    end;

    Function FindDtmSpiral(var  x, y: integer; DTM, x1, y1, x2, y2: integer): Boolean;
    var
      ex1, wy1, ex2, wy2, lenx, leny : integer;
    begin
      lenx := (x2 - x1) div 20;
      leny := (y2 - y1) div 20;
      ex1 := x - lenx;
      wy1 := y - leny;
      ex2 := x + lenx;
      wy2 := y + leny;
      if not(finddtm(DTM,x,y,x1,y1,x2,y2)) then exit;
      repeat
        if finddtm(DTM,x,y,ex1,wy1,ex2,wy2) then Result := True;
        if Result then break;
        if ex1 < x1 then ex1 := ex1 - lenx;
        if wy1 < y1 then wy1 := wy1 - leny;
        if ex2 < x2 then ex2 := ex2 + lenx;
        if wy2 < y2 then wy2 := wy2 + leny;
      until(ex1 >= x1) and (ex2 >= x2) and (wy1 >= y1) and (wy2 >= y2);
    end;

    Function CountInvDTMs(DTM :integer) :integer;
    var
      n, r, m, g: integer;
      slot: tbox;
    begin
      for n := 1 to 28 do
      begin
        if existsitem(n) then
        begin
          slot:= invbox(n);
          if FindDTM(DTM,m,g,slot.x1,slot.y1,slot.x2,slot.y2) then inc(r);
        end;
      end;
      Result := r ;
    end;

    function CountHides: integer;
    var
      tempcount, HDTM: integer;
    begin
      HDTM := DTMFromString('78DA637461626078C2800276AE5FC7C005A41' +
           '981F83F1030FA63AA81C8C248206D4A841A0FA09A9B04D4B801D5' +
           '7C22A0C60AA8E6360135D64035EFF1AB0100CD220E4B');
      Result := Result xor Result;
      GameTab(4);
      wait(100 + random(200));
      if finddtm(HDTM,x,y,MIx1,MIy1,MIx2,MIY2) then
      begin
        TempCount := CountInvDTMs(HDTM);
        if debug then writeln(inttostr(tempcount) +' Hides in inv.');
        Result := TempCount - CurrHides;
        CurrHides := TempCount;
      end;
      freedtm(HDTM);
    end;

    Function FindObjCustomEx(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
    var
      a, b, c, i, x1, y1, x2, y2: Integer;
      Start: Boolean;
    begin
      for b := 0 to (GetArrayLength(Color)-1) do
      begin
        if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
        begin
          Start := True;
          Break;
        end;
      end;
      if(Start)then
      begin
        x1 := 245;
        y1 := 165;
        x2 := 277;
        y2 := 185;
        repeat
          if not(LoggedIn)then break;
          a := a + 1;
          if (a = 1) then
            c := c + 1
          else if (a = 3) then
            c := c + 1;
          for i := 1 to c do
          begin
            if (a = 1) then
            begin
              x1 := x1 + 30;
              x2 := x2 + 30;
            end else
            if (a = 2) then
            begin
              y1 := y1 - 20;
              y2 := y2 - 20;
            end else
            if (a = 3) then
            begin
              x1 := x1 - 30;
              x2 := x2 - 30;
            end else
            if (a = 4) then
            begin
              y1 := y1 + 20;
              y2 := y2 + 20;
            end;
            if (x1 = 485) and (x2 = 517) then
              x2 := x2 - 2;
            if (y1 = 325) and (y2 = 345) then
              y2 := y2 - 7;
            if (x2 > 515) then
              Break;
            for b := 0 to (GetArrayLength(Color)-1) do
            begin
              if (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
              begin
                MMouse(cx, cy, 0, 0)
                if (IsUpTextMultiCustom(Text)) then
                begin
                  Result := True;
                  Exit;
                end;
              end;
            end;
          end;
          if (a = 4) then
            a := 0;
        until (x2 > 515) or (Result = True);
      end;
    end;

    Procedure YellowDot;
    var
      thegatecolor : integer;
    begin
      if not(loggedin) then Exit;
      makecompass('n');
      x := 626;
      y := 8;
      TheGateColor := GetMMGateColor;
      findcolorspiral(x,y,TheGateColor,MMx1,MMy1,MMx2,MMy2);
      x := x + 3 - random(6);
      y := y - (20 + random(30));
      if FindColorSpiral(x,y,62965,MMX1,y - 10,MMX2,MMY2) then
      begin
        Mouse(x,y,3,3,true);
        FastFlag(30000);
        Wait(846 + random(1000));
      end;
    end;
                                                                                                {
    ============================================================================================}


    Function CheckGateOpen(IntoPen:Boolean): Boolean;
    var
      GX, GY, K, P: Integer;
      Color: array [0..2] of integer;
    begin
      MarkTime(k);
      if IntoPen = true then
      begin
        Color[0] := 4610919;
        Color[1] := 2636613;
        Color[2] := 2373183
      end else
      begin
        Color[0] := 4874349;
        Color[1] := 2505028;
        Color[2] := 2373183;
      end;
      MarkTime(p);
      repeat
        if FindObjCustomEx(GX, GY, ['ate','pen','ose'], [Color[0],color[1],color[2]],10) then
        begin
          if IsUpText('los') then
            begin
              Result := true;
            end;
          if IsUpText('pen') then
            begin
              Wait(100 + Random(100));
              Mouse(GX, GY, 0, 0, False);
              if chooseoption('pen') then
              begin
                FastFlag(4000);
                Wait(1500);
                Result := True;
              end;
            end;
        end;
        if TimeFromMark(p)> 30000 then
          MakeCompass('w');
        if TimeFromMark(k) > 60000 then
        begin
          Logout;
          NextPlayer(false);
          Exit;
        end;
        wait(100+random(600));
      until(Result = true);
    end;
                                                                                    {
    ================================================================================}


    Procedure FightSetup;
    begin
      If not(loggedin) then Exit;
      MakeCompass('n');
      SetRun(true);
      if not AttackMode then
      begin
        logout;
        Player := false;
        Exit;
      end;
      SetRetaliate(true);
      GameTab(4);
    end;
                                                                                                {
    ============================================================================================}


    Procedure WhenToRun;
    var
      Hp: integer;
    begin
      if (not(loggedin)) then exit;
      FindNormalRandoms;;
      Antiban;
      Hp:=HpPercent;
     
      if (Hp > 0) and  (Hp < 50) then
      begin
        runaway('n',true,2,random(5000));
        logout;
        Proggy;
        player := false;
        Exit;
      end;
    end;
                                                                                   {
    ==============================================================================  }


    procedure LogIn;
    begin
      if not(loggedin) then
      begin
        LoginPlayer;
        Loadsdone := 0;
        SymbolAccuracy := 0.8;
      end;
      Wait(500);
      SetAngle(true);
      Tl := 0;
      MakeCompass('n');
      GameTab(5);
      SetRun(false);
      SetBar('Brightness',4);
    end;
                                                                                                {
    ============================================================================================}

    Procedure CollectTheHide;
    var
      cts, ly, f1, f2, iv: integer;
      CowHides: TPointArray;
      Hide: T2dPointArray;
      P:Tpoint;
      found1: Boolean;
    begin
      if CurrHides = 0 then CountHides;
      MarkTime(f1);
      repeat
        if invfull then Break;
        cts := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.00,0.15);
        GetMousePos(P.x,P.y);
        FindColorsSpiralTolerance(P.x,P.y,CowHides,12303300,Msx1,Msy1,Msx2,Msy2,6);
        Hide := SplitTPA(Cowhides,5);
        for ly := 0 to high(Hide) do
        begin
          if length(hide[ly]) >= 45 then
          begin
            P := MiddleTPA(Hide[ly]);
            MMouse(P.x,P.y,0,0);
            wait(60 + random(50));
            if isuptext('tion') then
            begin
              GetMousePos(P.x,P.y);
              Mouse(P.x,P.y,0,0,False);
              ftwait(1 + random(2));
              if ChooseOption('owhi') then
              begin
                Found1 := True;
                FFlag(random(3));
                MarkTime(f2);
                iv := iv xor iv;
                findnormalrandoms;
                ftwait(1 + random(2));
                break;
              end else inc(iv);
            end;
          end else inc(iv);
        end;
        if random(5) = 1 then findnormalrandoms;
        if (found1) and (iv > 10) then break;
        if (not found1) and
        (TimefromMark(f1) >= Players[currentplayer].integers[7] * 500) then break;
      until(found1) and (timefrommark(f2) >= 2000 + random(2000));
      ColorToleranceSpeed(cts);
      Ly := CountHides;
      Hidespicked := Hidespicked + Ly;
      ReportVars[1] := ReportVars[1] + Ly;
      Players[CurrentPlayer].integers[6] := Players[CurrentPlayer].integers[6] + Ly;
      if debug then writeln(inttostr(ly) + ' new hides');
      if debug then writeln(inttostr(hidespicked) + ' hides so far.');
    end;


    {Procedure CollectHide;
    var
      l, NewH, mshide, tries, findtries: integer;

    begin
      mshide := DTMFromString('78DA635CC6C0C0B08B01052C501661D061646' +
           '0002286FF40C0B80AC8D881AA66E7FA750CAC0C103520C0B808D3' +
           '9CE3FBF7C1D58030002CFF0D8A');
      if debug then writeln('now looking for some cowhides');
      MarkTime(l);
      if CurrHides = 0 then CountHides;
      repeat
        if invfull then Break;
        x := MSCx;
        y := MSCy;
        if findDTMSpiral(x,y,MsHide,msx1,msy1,msx2,msy2) then
        begin
          MMouse(x - 6,y - 6,12,12);
          wait(100 + random(300));
          if isuptext('ake') then
          begin
            getmousepos(x,y);
            Mouse(x,y,0,0,False);
            if Chooseoption('owhi') then
            begin
              tries := 0;
              findtries := 0;
              FindNormalRandoms;
              FFlag(2);
              ftwait(4 + random(3));
            end else inc(tries);
          end else inc(tries);
        end else inc(findtries);
        if findtries > 20 then break;
        if tries > 10 then break;
      until(timefrommark(l) > (Players[currentplayer].integers[7] * 1000 + random(2000)));
      FreeDTM(MsHide);
      newH := CountHides;
      Hidespicked := Hidespicked + NewH;
      ReportVars[1] := ReportVars[1] + NewH;
      Players[CurrentPlayer].integers[6] := Players[CurrentPlayer].integers[6] + NewH;
      if debug then writeln(inttostr(newh) + ' new hides');
    end; }

                                                                                                {
    ==============================================================================================}

    procedure GetInPen;
    var thegatecolor : integer;
    begin
      MakeCompass('n');
      x := 626;
      y := 8;
      TheGateColor := GetMMGateColor;
      if findcolorspiral(x,y,thegatecolor,mmx1,mmy1,mmx2,mmy2) then
        if y > 85 then
        begin
          mouse(x,y - 2,1,1,true);
          Fastflag(30000);
          wait2(1500 + random (1000),true);
          CheckGateOpen(true);
          YellowDot;
        end else
        if y > 67 then
          YellowDot;
    end;
    function FightCow:boolean;
    var
      i,z,len,w,cts:integer;
      Coz : array [0..2] of TPAStuff;
      P:Array of Tpoint;
      PP:T2DpointArray;
      c:Tpoint;
      topbox: Tbox;
      UTbool:boolean;
    begin
      Coz[0].Col := 3361619;
      Coz[0].Tol := 4;
      Coz[0].Len := 30;
      Coz[0].W := 6;
      Coz[0].H := 6;
      Coz[0].HM := 0.11;
      Coz[0].SM := 1.58;
      Coz[1].Col := 6847377;
      Coz[1].Tol := 4;
      Coz[1].Len := 20;
      Coz[1].W := 5;
      Coz[1].H := 5;
      Coz[1].HM := 0.07;
      Coz[1].SM := 1.26;
      Coz[2].Col := 5067873;
      Coz[2].Tol := 3;
      Coz[2].Len := 20;
      Coz[2].W := 5;
      Coz[2].H := 5;
      Coz[2].HM := 0.11;
      Coz[2].SM := 0.17;
      if not(loggedin) then exit;
      cts := GetcolortoleranceSpeed;
      ColorToleranceSpeed(2);
      for w := 0 to 2 do
      begin
        SetColorSpeed2Modifiers(Coz[w].HM,Coz[w].SM);
        FindColorsSpiralTolerance(mscx,mscy,p,Coz[w].Col,msx1,msy1,msx2,msy2,coz[w].tol);
        pp:=TPAtoATPAex(p,Coz[w].W,Coz[w].H);
        len:=length(pp)-1;
        for i:=0 to len do
          if length(pp[i]) > coz[w].len then
          begin
            c:=middleTPA(pp[i]);
            if (c.x<>0) and (c.y<>0) then
              if not pointinbox(c,TopBox) then
              begin
                mmouse(c.x - 5,c.y - 5,10,10);
                for z:=0 to 6 do
                begin
                  if isUpTextMultiCustom(['tta','tio']) then
                  begin
                    UTbool:=true;
                    GetMousePos(c.x,c.y);
                    break;
                  end;
                  wait(25);
                end;
                if UTbool then
                begin
                  if (random(3) = 0 or 2) or not(isuptext('Att')) then
                  begin
                    mouse(c.x,c.y,0,0,false);
                    wait(50+random(100));
                    if chooseoption('Att') then
                    begin
                      result:=true;
                      wait(200+random(400));
                      ftwait(1);
                      ColorToleranceSpeed(cts);
                      exit;
                    end else break;
                  end else
                  begin
                    wait(100 + random(100));
                    if isuptext('Att') then
                    begin
                      Mouse(c.x,c.y,0,0,True);
                      result:=true;
                      ftwait(1);
                      ColorToleranceSpeed(cts);
                      exit;
                    end;
                  end;
                end else break;
              end;
        end;
        wait(15);
      end;
      ColorToleranceSpeed(cts);
    end;
                                                                                                 {
    ==============================================================================================}

    Procedure KillDaCows;
    var
      z,m,d,f: integer;

    begin
      if not(loggedin) then exit;
      Tl := 0;
      FightSetup;
      CurrHides := CountHides;
      MarkTime(m);
      MarkTime(f);
      Marktime(d);
      repeat
        if not loggedin then Exit;
        if TimeFromMark(m) >= 60000 then
        begin
          FightSetup;
          MarkTime(m);
        end;
        FindNormalRandoms;
        if FightCow Then
        begin
          ftwait(1);
          MarkTime(z);
          while TimeFromMark(z) < (Players[currentplayer].integers[7] * 500) + random(2000) do
          begin
            FindTalk;
            WhenToRun;
            wait(50 + random(100));
            FindNormalRandoms;
            wait(30);
          end;
          CollectThehide;
          Tl := 0;
          CowsKilled := CowsKilled + 1;
          ReportVars[0] := ReportVars[0] + 1;
          Players[currentplayer].integers[5] := Players[currentplayer].integers[5] + 1;
          wait(100);
          SrlRandomsReport;
          MarkTime(d);
        end else
        begin
          if Tl > 4 then
          begin
            Logout;
            Player := false;
            Exit;
          end;
          if TimeFromMark(d) >= 8000 + random(8000) then
          begin
            if debug then writeln('cant find cow, moving...');
            YellowDot;
            FtWait(2);
            MarkTime(d);
            MarkTime(f);
            Tl := Tl + 1;
          end;
          if timefrommark(f) > 6000 + random(6000) then
          begin
            getinpen;
            MarkTime(f);
          end;
        end;
      Until(InvFull);
    end;
                                                                                                {
    ============================================================================================}


    Procedure Signature;
    begin
      Writeln('==================================');
      Writeln('thank you for using...');
      Writeln('  _____     ____      ____ ');
      Writeln(' |  ___|   / ___|    / ___|');
      Writeln(' | |_     | |       | |');
      Writeln(' |  _|    | |___    | |___');
      Writeln(' |_|alador \____|ow  \____|runcher');
      Writeln('============By Drizzt=============');
      Writeln('');
    end;
                                                                                                {
    ============================================================================================}


    Procedure ScriptTerminate;
    begin
      if not(Debug) then ClearDebug;
      Signature;
      Proggy;
    end;
                                                                                                {
    ============================================================================================}


    procedure BankStuff;
    begin
      GameTab(4);
      if not(loggedin) then exit;
      if not bankscreen then Findfallybank;
      if pinscreen then inpin(Players[currentplayer].pin);
      Wait(300 + random(800));
      DepositAll;
      Wait(400 + random(800));
      CloseBank;
      wait(300 + random(900));
      FindNormalRandoms;
    end;
                                                                                                {
    ============================================================================================}


    procedure ToPen;
    var
      z,u,rt,TheRoadColor,p,TheGateColor:integer;
    begin
      login;
      Z:=0;
      if invcount > 0 then BankStuff;
      Makecompass('n');
      marktime(rt);
      Repeat
        if timefrommark(rt) > 15000 then
        begin
          if debug then writeln('timefrommark(rt) too high, logging out');
          Logout;
          wait(1500);
          LoginPlayer;
          inc(p);
          if p >= 3 then
          begin
            Logout;
            Player := False;
          end;
          Exit;
        end;
        FindNormalRandoms;
        TheRoadColor := GetFallyRoadColor;
        ftWait(1);
      until(TheRoadColor > 0);
      if radialwalk(TheRoadColor,180,270,40,1,1) then
      begin
        ftwait(1);
      end else Exit;
      MarkTime(z);
      for i := 0 to 3 do
      begin
        if radialroadwalk(TheRoadColor,165,200,50,1,1) then
          ftwait(i);
      end;
      if TimeFromMark(z) > 120000 then
      begin
        if debug then writeln('timefrommark(z) too high, logging out');
        Logout;
        Player := false;
        Exit;
      end;
      if (not(Findsymbolin(x,y,'tree',mmcx,mmy1,mmx2,mmy2))) then
      begin
        if debug then Writeln('darn kid is standing on the symbol');
        if debug then Writeln('decreasing accuracy');
        while (not(Findsymbolin(x,y,'tree',mmcx,mmy1,mmx2,mmy2))) do SymbolAccuracy := Symbolaccuracy -0.05;
      end;
      mouse(x + 7,y,10,5,true);
      fastflag(30000);
      ftwait(3 + random(2));
      P := 674;
      U := 90;
      TheGateColor := GetMMGateColor
      if findcolorspiral(p,u,TheGateColor,mmx1,mmy1,mmx2,mmy2) then
      begin
        mouse(p + 1,u - 2,0,0,true);
        if debug then writeln('going infront of the gate');
        fastflag(20000);
        Antiban;
        CheckGateOpen(True);
      end;
      if findcolorspiral(p,u,thegatecolor,mmx1,mmy1,mmx2,mmy2) then
      begin
        mouse(p,u + 15,10,10,true);
        fastflag(30000);;
        Setangle(True);
        Z:= Z + 1;
      end;
    end;
                                                                                                {
    ============================================================================================}


    procedure ToBank;
    var
      TheRoadColor,TheGateColor,bt,wi: Integer;
    begin
      if (not(loggedin)) then Exit;
      if debug then writeln('have a full load, leaving for the bank');
      FindNormalRandoms;
      MakeCompass('n');
      GameTab(5);
      SetRun(false);
      SetBar('Brightness',4);
      x := 626;
      y := 8;
      MarkTime(bt);
      TheGateColor := GetMMGateColor;
      if findcolorSpiral(x,y,TheGateColor,mmx1,mmy1,mmx2,mmy2) then
      begin
        Mouse(x,y + 3,1,1,true);
        FastFlag(30000);
        CheckGateOpen(false);
        repeat
          SymbolAccuracy := SymbolAccuracy - 0.05;
          MakeCompass('n');
          ftwait(2 + random(3));
          if timefrommark(bt) >= 90000 then
          begin
            if debug then writeln('timefrommark(bt) too high, logging out');
            Logout;
            Player := false;
            Exit;
          end;
        until(findsymbolin(x,y,'tree',mmx1,mmy1,mmcx,mmy2));
        if findsymbolin(x,y,'tree',mmx1,mmy1,mmcx,mmy2) then
        begin
          SymbolAccuracy := 0.8;
          MarkTime(bt);
          mouse(x - 5,y - 5,5,5,true);
          fastflag(30000);
          ftwait(2 + random(2));
        end;
        for wi := 0 to 9 do
        begin
          TheRoadColor := GetFallyRoadColor;
          if TheRoadColor > 0 then break;
          ftwait(1);
        end;
        if TheRoadColor = 0 then
        begin
          Logout;
          Player := false;
          Exit;
        end;
        if not(RadialWalk(TheRoadColor,360,270,55,2,2)) then
          if not(RadialWalk(TheRoadColor,360,270,60,2,2)) then
          RadialWalk(TheRoadColor,360,270,65,2,2);
        ftWait(2 + random(3));
        FindNormalRandoms;
        RadialWalk(TheRoadColor,375,340,55,1,2);
        repeat
          RadialWalk(TheRoadColor,375,340,55,1,2);
          FindNormalRandoms;
          MakeCompass('n');
          ftwait(1 + random(2));
          if timefrommark(bt) >= 240000 then
          begin
            if debug then writeln('timefrommark(bt) too high, logging out');
            Logout;
            Player := false;
            Exit;
          end;
          if not(loggedin) then exit;
        until(Findfallybank);
        if debug then writeln('i think i found the bank');
        BankStuff;
        LDBA := LDBA + 1;
        LoadsDone := LoadsDone + 1;
        if loadsdone >= Players[currentplayer].integers[4] then
        begin
          Logout;
          LoadsDone := 0;
          Player := true;
          Exit;
        end;
      end;
    end;
                                                                                                {
    ============================================================================================
    Main Loop-----------------------------------------------------------------------------------
    ============================================================================================}


    begin
      Signature;
      SmartSetupEx(16,False,True);
      while not(smartready) do wait(1000);
      SetTargetDC(SmartGetDC);
      SetupSRL;
      ScriptID := '665';
      SRLID := YourSRLID;
      SRLPassword := YourSRLPassword
      ActivateClient;
      DeclarePlayers;
      CowsKilled := 0;
      HidesPicked := 0;
      repeat
        currhides := currhides xor currhides
        player := false;
        if not loggedin then loginplayer;
        ToPen;
        KillDaCows;
        ToBank;
        proggy;
        if not(loggedin) then
        begin
          if debug then Writeln('player = ' + booltostr(player));
          if activeplayers = 1 then wait(random(60000));
          NextPlayer(Player);
          LoadsDone := 0;
        end;
        if activeplayers = 0 then
        begin
          proggy;
          TerminateScript;
        end;
      until(False);
    end.

  7. #7
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  8. #8
    Join Date
    Mar 2007
    Posts
    3,042
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    The error is in Math.scar, not the user's script.

    Try redownloading SRL and moving the plugins, you may not have done that correctly.
    :-)

  9. #9
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  10. #10
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    He probably didn't fill in his players, that is why I usually get a math error.
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  11. #11
    Join Date
    Jun 2008
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    omg thank all of you i just learned a few more things

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. POTION 3 dose to 4 dose maker!!!!(LOOK)
    By saurkulsh in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 12-27-2008, 04:35 AM
  2. Req - 4 dose maker
    By smartshark in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 04-30-2008, 03:15 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
  •