Results 1 to 4 of 4

Thread: [Error] (16682:4): Semicolon (';') expected

  1. #1
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [Error] (16682:4): Semicolon (';') expected

    Doesn't say what line .

    SCAR Code:
    {          [           Skilld EveryWhere Minz0r          ]
               [---------------------------------------------]
               [     Writer: Skilld U                        ]
               [     Category: Mining                        ]
               [     Version: 1                              ]
               [---------------------------------------------]
               
               -Locations Include:
               
               +Varrock East Iron (VEMI) done
               +Varrock East Copper and Tin (VEMCT) done
               +Varrock West Iron (VWMI)   done
               +Varrock West Silver (VWMS) done
               +Al-Kharid Iron (AKI)
               +Al-Kharid Gold (AKG)
               +Guild (Guild)
               +Barbarian Village Coal (BBVC) done
               +Rimmington Copper and Tin (RCT)
               +Rimmington Iron (RI)
               
               Credits:
               
               Da 0wner for his awesome form making
               skills. :p
               
               
                                                                              }

    program EveryWhereMinz0r;
    {.include SRL/SRL.scar}
    {.include srl/srl/misc/path.scar}
    {.include srl/srl/misc/Users.scar}

    {Fill This Out!}

    Const

    HowManyPlyrs = 1; // How many players are you using
    CurrntPlyr = 0;  // The current player

    var
     x, y, i : integer;
     VEBankers : integer;
     TheLevel, ClickHereToPlay : integer;
     AntiBanz, Responded, WeDidIt, Gases, Loads, EdgeVilleBankers : integer;
     EdgeVille1, EdgeVille1Color, EdgeVille2, EdgeVille2Color, EdgeVille3, EdgeVille3Color, EdgeVille4, EdgeVille4Color, EdgeVille5, EdgeVille5Color : integer;
     TehPickColor : array [0..5] of integer;
     Activeness : boolean;
     
    procedure GetTheLevel;
    begin
      TheLevel := GetSkillInfo('mining', false);
      Writeln('Your Mining Level is ' + IntToStr(TheLevel));
    end;

    function ClickPlayRunescape:boolean;  //Thanks to SantaClause! :)
    begin
      if not(LoggedIn) then
      begin
        LoginPlayer;
        FTWait(1);
        FindNormalRandoms;
        SetRun(True);
        GetAllLevels;
        Exit;
      end;
      ClickHereToPlay := BitmapFromString(33, 1, 'z78DA758E510E80300843' +
        'AF54C0E2F6E94CB8FF9134123392693FFA41FA4A23A6F0888443D' +
        '26DC000A7DCE7F458F23EE444E721444B6A0F53D58FE44F4365B7' +
        '067D37AC3D95AADF2F50962C79');
      if FindBitmap(x, y, ClickHereToPlay) then
      begin
        Mouse(X, Y, 20, 20, True);
        Wait(5000+Random(5000));
        FindNormalRandoms;
        SetRun(True);
        GetAllLevels;
        FreeBitmap(ClickHereToPlay);
        Exit;
      end;
      FreeBitmap(ClickHereToPlay);
      Result := True;                                                                                                           //Result := True; //Just to remove that stupid "[Hint]: Variable 'Result' never used in script" 'error'..
    end;

    procedure TehRespond;
    begin
      if InChat('hey') or InChat('hi') or InChat('whats up?') or InChat('ello')
      or InChat('wassup') or InChat('sup') or InChat('h ey') or InChat('h ello')
      or InChat('hows it going') or InChat('was up') or InChat('w hats up') then
      begin
        case Random(10) of
          0 : TypeSend('hi');
          1 : TypeSend('hello');
          2 : TypeSend('hey');
          3 : TypeSend('sup');
          4 : TypeSend('hola');
          5 : TypeSend('yo');
          6 : TypeSend('dont feel like talking now, sorry');
          7 : TypeSend('sup');
          8 : TypeSend('not now');
          9 : TypeSend('please leave me alone');
        end;
        Responded := Responded + 1;
        ReportVars[2] := ReportVars[2] + 1;
      end;
      if InChat('mining lvl') or InChat('mine lev') or InChat('min lv') then
      begin
        GetTheLevel;
        case Random(8) of
          0 : TypeSend(IntToStr(TheLevel));
          1 : TypeSend(IntToStr(TheLevel) + ' you?');
          2 : TypeSend(IntToStr(TheLevel) + ' lol');
          3 : TypeSend('currently ' +IntToStr(TheLevel));
          4 : TypeSend('right now ' +IntToStr(TheLevel));
          5 : TypeSend('soon ' +IntToStr(TheLevel + 1));
          6 : TypeSend('almost ' +IntToStr(TheLevel + 1));
          7 : TypeSend(IntToStr(TheLevel));
        end;
        Responded := Responded + 1;
        ReportVars[2] := ReportVars[2] + 1;
      end;
      if InChat('lol') or InChat('funny') or InChat('ha')or
      InChat('wow') or InChat('rofl') or InChat('omg')then
      begin
        case Random(10) of
          0 : TypeSend('lol');
          1 : TypeSend('lmao');
          2 : TypeSend('hehe');
          3 : TypeSend('roflmao');
          4 : TypeSend('rofl');
          5 : TypeSend('funny funny');
          6 : TypeSend('haha');
          7 : TypeSend('omg');
          8 : TypeSend('that was funny');
          9 : TypeSend('lol!');
        end;
        Responded := Responded + 1;
        ReportVars[2] := ReportVars[2] + 1;
      end;
      if InChat(Players[CurrentPlayer].Nick) then
      begin
        case Random(10) of
          0 : TypeSend('leave me alone');
          1 : TypeSend('get away from me please');
          2 : TypeSend('what?');
          3 : TypeSend('im busy');
          4 : TypeSend('sorry, cant talk now');
          5 : TypeSend('not now');
          6 : TypeSend('busy');
          7 : TypeSend('i am busy sorry');
          8 : TypeSend('scram');
          9 : TypeSend('go away');
        end;
        Responded := Responded + 1;
        ReportVars[2] := ReportVars[2] + 1;
      end;
      if InChat('noob') or InChat('newb') or InChat('nub') or InChat('choob')
      or InChat('ch00b') or InChat('n00b') or InChat('nooby') or InChat('nublet')
      or InChat('newby') or InChat('nubby') then
      begin
        case Random(11) of
          0 : TypeSend('thanks');
          1 : TypeSend('w/e');
          2 : TypeSend('thnx');
          3 : TypeSend('thank you');
          4 : TypeSend('thanks :p');
          5 : TypeSend('your a noob');
          6 : TypeSend('im not nub');
          7 : TypeSend('i pwn you.');
          8 : TypeSend('go away');
          9 : TypeSend('you nub');
          10 : TypeSend(';p');
        end;
        Responded := Responded + 1;
        ReportVars[2] := ReportVars[2] + 1;
      end;
      if InChat('bye') or InChat('cya') or InChat('gtg') or InChat('im leaving')
      or InChat('im going') or InChat('see you later') or InChat('l8r mate')
      or InChat('l8r') or InChat('ttyl') or InChat('ttfn') or InChat('b ye')
      or InChat('by') then
      begin
        case Random(11) of
          0 : TypeSend('c ya');
          1 : TypeSend('bye');
          2 : TypeSend('ttyl');
          3 : TypeSend('b ye');
          4 : TypeSend('by');
          5 : TypeSend('ttfn');
          6 : TypeSend('b y');
          7 : TypeSend('l8r');
          8 : TypeSend('cya');
          9 : TypeSend('l8r mate');
          10 : TypeSend('bye');
        end;
        Responded := Responded + 1;
        ReportVars[2] := ReportVars[2] + 1;
      end;
    end;

    Procedure RandomMovementX;  //Nauman ftw!
    Begin
      Case Random (5) of
      1:Begin
          MMouse(727 - Random(200), 90 + Random(200), 0, 0);
          IdleTime(300 + Random(300), 500, 0.5);
        end;
      2:Begin
         MMouse(227 - Random(200), 290 + Random(200), 0, 0);
         IdleTime(300 + Random(300), 500, 0.5);
        end;
      3:Begin
         GameTab(1+Random(14))
        end;
      4,0: Wait(2000+Random(200))
     end;
    end;

    procedure CompassMovement;
    begin
      case Random(4) of
        0: begin
             repeat
               KeyDown(VK_Left);
               Wait(50 + random(50));
               KeyUp(VK_Left);
               Wait(50 + random(50));
               KeyDown(VK_Right);
               Wait(50 + random(50));
               KeyUp(VK_Right);
               Wait(50 + random(50));
               WeDidIt := WeDidIt + 1;
             until WeDidIt = 10;
             WeDidIt := 0;
             MakeCompass('N');
           end;
        1: begin
             repeat
               KeyDown(VK_Right);
               Wait(50 + random(50));
               KeyUp(VK_Right);
               Wait(50 + random(50));
               KeyDown(VK_Left);
               Wait(50 + random(50));
               KeyUp(VK_Left);
               Wait(50 + random(50));
               WeDidIt := WeDidIt + 1;
             until WeDidIt = 10;
             WeDidIt := 0;
             MakeCompass('N');
           end;
        2: begin
             KeyDown(VK_Right);
             Wait(1500 + random(200));
             KeyUp(VK_Up);
             Wait(50 + random(50));
             MakeCompass('N');
           end;
        3: begin
             KeyDown(VK_Left);
             Wait(500 + random(250));
             KeyUp(VK_Left);
             Wait(500 + random(250));
             MakeCompass('N');
           end;
      end;
    end;

    procedure MyAntiBannage;
    begin
      case Random(20) of
        0: begin
             RandomRClick;
             Wait(40 + Random(20));
             Mouse(40 - Random(20), 30 + Random(20), 5, 5, False);
             Wait(10 + Random(55));
             MMouse(5 + Random(60),5 + Random(60),5,5);
             AntiBanz := AntiBanz + 1;
             ReportVars[3] := ReportVars[3] + 1;
           end;
        1: begin
             BoredHuman;
             Wait(40 + Random(30));
             MMouse(20,49,10,10);
             AntiBanz := AntiBanz + 1;
             ReportVars[3] := ReportVars[3] + 1;
           end;
        2: begin
             RandomMovement;
             Wait(40 + Random(25));
             MMouse(403 - Random(45), 200 - Random(35), 5, 5);
             AntiBanz := AntiBanz + 1;
             ReportVars[3] := ReportVars[3] + 1;
           end;
        3: AlmostLogout;
        4: begin
             PickUpMouse;
             Wait(30 + Random(40));
             HoverSkill('random', False);
             AntiBanz := AntiBanz + 1;
             ReportVars[3] := ReportVars[3] + 1;
           end;
        5: begin
             HoverSkill('mining', False);
             AntiBanz := AntiBanz + 1;
             ReportVars[3] := ReportVars[3] + 1;
           end;
        6: begin
             MMouse(24 + Random(30), 29 + Random(30), 5, 5);
             Wait(40 + Random(30));
             ChooseOption('ancel');
             Wait(40 + Random(30));
             DoEmote(3);
             AntiBanz := AntiBanz + 1;
             ReportVars[3] := ReportVars[3] + 1;
           end;
        7: begin
             CompassMovement;
             Wait(40 + random(30));
             GameTab(1 + random(13));
             Wait(40 + random(30));
             RandomMovementX
             AntiBanz := AntiBanz + 1;
             ReportVars[3] := ReportVars[3] + 1;
           end;
        8: begin
             PickUpMouse;
             Wait(40 + random(30));
             CompassMovement;
             Wait(40 + random(30));
             RandomMovementX
             AntiBanz := AntiBanz + 1;
             ReportVars[3] := ReportVars[3] + 1;
           end;
      end;
    end;

    function SkilldGas : boolean;
    begin
      if FindColorTolerance(x, y, 7835543, MSX1, MSY1, MSX2, MSY2, 10) then
      begin
        Wait(500 + random(500));
        if FindColorTolerance(x, y, 7835543, MSX1, MSY1, MSX2, MSY2, 10) then
        begin
          repeat
            Wait(2000 + random(1230));
          until not (FindColorTolerance(x, y, 7835543, MSX1, MSY1, MSX2, MSY2, 10));
        end;
      end;
      Result := True;
      Gases := Gases + 1;
    end;

    procedure SkilldPickAttacher;
    begin
      TehPickColor[0] := 2110788;
      TehPickColor[1] := 4473930;
      TehPickColor[2] := 6645357;
      TehPickColor[3] := 5059636;
      TehPickColor[4] := 3227185;
      TehPickColor[5] := 5656122;
      for i := 0 to 5 do
      if FindColorTolerance(x, y, TehPickColor[i], MSX1, MSY1, MSX2, MSY2, 10) then
      begin
        Mouse(x, y, 3, 3, false);
        if ChooseOption('ake') then
        begin
          GameTab(5);
          TakeOff(5);
          GameTab(4);
          for i := 0 to 5 do
          if FindColorTolerance(x, y, TehPickColor[i], MIX1, MIY1, MIX2, MIY2, 10) then
          begin
            MMouse(x, y, 3, 3);
            if IsUpText('Use') then
            begin
              Mouse(x, y, 3, 3, true);
              Wait(250);
            end;
            for i := 1 to 28 do
            begin
              MMouseItem(i);
              if (IsUpText('Pickaxe handle')) then
              begin
                GetMousePos(x, y);
                Mouse(x, y, 3, 3, true);
                Wait(500 + random(500));
              end;
            end;
          end;
        end;
      end;
    end;

    function VarrockWestColors(TheNumber: integer) : integer;
    var
     VW_1, VW_2, VW_3, VW_4 : integer;
    begin
      if TheNumber = 1 then
      begin
        VW_1 := BitmapFromString(2, 2, 'beNorcS4qdf5f6lxa4lwKACI3BT' +
           'o=');
        Result := AutoColorThis(VW_1, 50, MMX1, MMY1, MMX2, MMY2);
        FreeBitmap(VW_1);
      end;

      if TheNumber = 2 then
      begin
        VW_2 := BitmapFromString(1, 2, 'beNorcS4tcS4FAAg4Alk=');
        Result := AutoColorThis(VW_2, 50, MMX1, MMY1, MMX2, MMY2);
        FreeBitmap(VW_2);
      end;
     
      if TheNumber = 3 then
      begin
        VW_3 := BitmapFromString(2, 1, 'beNordc4tdf4PAAirAt0=');
        Result := AutoColorThis(VW_3, 50, MMX1, MMY1, MMX2, MMY2);
        FreeBitmap(VW_3);
      end;
     
      if TheNumber = 4 then
      begin
        VW_4 := BitmapFromString(2, 1, 'beNqL+p8XZZwHAAq3AsM=');
        Result := AutoColorThis(VW_4, 50, MMX1, MMY1, MMX2, MMY2);
        FreeBitmap(VW_4);
      end;
    end;

    procedure VEMIron;
    begin
      repeat
        ClickPlayRunescape;
        if FindObjCustom(x, y, ['ock', 'Mine'], [2832993], 6) then
        begin
          repeat
            SkilldGas;
          until not SkilldGas;
          Mouse(x, y, 5, 5, true);
          repeat
            Wait(500);
            TehRespond;
            MyAntiBannage;
          until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
        end;
      until (InvFull);
    end;

    procedure VEMCopperTin;
    begin
      repeat
        ClickPlayRunescape;
        begin
          case (1) of
            0 : begin
                  if FindObjCustom(x, y, ['ock', 'Mine'], [4681367], 10) then
                  begin
                    repeat
                      SkilldGas;
                    until not SkilldGas;
                    Mouse(x, y, 5, 5, true);
                    repeat
                      Wait(500);
                      TehRespond;
                      MyAntiBannage;
                    until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
                  end;
                end;

          1 : begin
                if FindObjCustom(x, y, ['ock', 'Mine'], [6382185], 10) then
                begin
                  repeat
                    SkilldGas;
                  until not SkilldGas;
                  Mouse(x, y, 5, 5, true);
                  repeat
                    Wait(500);
                    TehRespond;
                    MyAntiBannage;
                  until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
                end;
              end;
             
          end;
        end;
      until (InvFull);
    end;

    procedure VWMIron;
    begin
      repeat
        ClickPlayRunescape;
        if FindObjCustom(x, y, ['ock', 'Mine'], [2503249], 6) then
        begin
          repeat
            SkilldGas;
          until not SkilldGas;
          Mouse(x, y, 5, 5, true);
          repeat
            Wait(500);
            TehRespond;
            MyAntiBannage;
          until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
        end;
      until (InvFull);
    end;

    procedure VWMSilver;
    begin
      repeat
        ClickPlayRunescape;
        if FindObjCustom(x, y, ['ock', 'Mine'], [10198183], 6) then
        begin
          repeat
            SkilldGas;
          until not SkilldGas;
          Mouse(x, y, 5, 5, true);
          repeat
            Wait(500);
            TehRespond;
            MyAntiBannage;
          until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
        end;
      until (InvFull);
    end;

    procedure AKIron;
    begin
    end;

    procedure AKGold;
    begin
    end;

    procedure Guild;
    begin
    end;

    procedure BarbVillageCoal;
    begin
      repeat
        if FindObjCustom(x, y, ['ock', 'Mine'], [2702653], 10) then
        begin
          repeat
            SkilldGas;
          until not SkilldGas;
          Mouse(x, y, 5, 5, true);
          repeat
            Wait(500);
            TehRespond;
            MyAntiBannage;
          until (FindBlackChatMessage('anage')) or (FindBlackChatMessage('vailable'));
        end;
      until (InvFull);
    end;

    procedure RimmingtonCopperTin;
    begin
    end;

    procedure RimmingtonIron;
    begin
    end;

    procedure ToVEM;
    begin
      RoadColor := FindVarrockRoadColor;
      Path[0].Mainpoint.x:=676;
      Path[0].Mainpoint.y:=54;
      Path[0].Subpoints[0].x:=658;
      Path[0].Subpoints[0].y:=55;
      Path[0].Subpoints[1].x:=688;
      Path[0].Subpoints[1].y:=53;
      Path[0].Subpoints[2].x:=672;
      Path[0].Subpoints[2].y:=55;
      Path[0].Subpoints[3].x:=681;
      Path[0].Subpoints[3].y:=54;
      Writeln(BoolToStr(FindPath(0, False)));
     
        RoadColor := FindVarrockRoadColor;
        Path[1].Mainpoint.x:=672;
        Path[1].Mainpoint.y:=85;
        Path[1].Subpoints[0].x:=649;
        Path[1].Subpoints[0].y:=84;
        Path[1].Subpoints[1].x:=695;
        Path[1].Subpoints[1].y:=86;
        Path[1].Subpoints[2].x:=664;
        Path[1].Subpoints[2].y:=86;
        Path[1].Subpoints[3].x:=683;
        Path[1].Subpoints[3].y:=86;
        Writeln(BoolToStr(FindPath(0, False)));
       
      RoadColor := FindVarrockRoadColor;
      Path[2].Mainpoint.x:=678;
      Path[2].Mainpoint.y:=98;
      Path[2].Subpoints[0].x:=645;
      Path[2].Subpoints[0].y:=82;
      Path[2].Subpoints[1].x:=691;
      Path[2].Subpoints[1].y:=119;
      Path[2].Subpoints[2].x:=670;
      Path[2].Subpoints[2].y:=81;
      Path[2].Subpoints[3].x:=684;
      Path[2].Subpoints[3].y:=109;
      Writeln(BoolToStr(FindPath(0, False)));

        RoadColor := FindVarrockRoadColor;
        Path[3].Mainpoint.x:=633;
        Path[3].Mainpoint.y:=129;
        Path[3].Subpoints[0].x:=651;
        Path[3].Subpoints[0].y:=150;
        Path[3].Subpoints[1].x:=639;
        Path[3].Subpoints[1].y:=95;
        Path[3].Subpoints[2].x:=636;
        Path[3].Subpoints[2].y:=119;
        Path[3].Subpoints[3].x:=644;
        Path[3].Subpoints[3].y:=137;
        Writeln(BoolToStr(FindPath(0, False)));

      RoadColor := FindVarrockRoadColor;
      Path[4].Mainpoint.x:=651;
      Path[4].Mainpoint.y:=129;
      Path[4].Subpoints[0].x:=646;
      Path[4].Subpoints[0].y:=152;
      Path[4].Subpoints[1].x:=638;
      Path[4].Subpoints[1].y:=105;
      Path[4].Subpoints[2].x:=651;
      Path[4].Subpoints[2].y:=141;
      Path[4].Subpoints[3].x:=644;
      Path[4].Subpoints[3].y:=118;
      Writeln(BoolToStr(FindPath(0, False)));

        RoadColor := FindVarrockRoadColor;
        Path[5].Mainpoint.x:=628;
        Path[5].Mainpoint.y:=125;
        Path[5].Subpoints[0].x:=635;
        Path[5].Subpoints[0].y:=156;
        Path[5].Subpoints[1].x:=627;
        Path[5].Subpoints[1].y:=96;
        Path[5].Subpoints[2].x:=630;
        Path[5].Subpoints[2].y:=136;
        Path[5].Subpoints[3].x:=624;
        Path[5].Subpoints[3].y:=107;
        Writeln(BoolToStr(FindPath(0, False)));

      RoadColor := FindVarrockRoadColor;
      Path[6].Mainpoint.x:=647;
      Path[6].Mainpoint.y:=124;
      Path[6].Subpoints[0].x:=660;
      Path[6].Subpoints[0].y:=146;
      Path[6].Subpoints[1].x:=629;
      Path[6].Subpoints[1].y:=99;
      Path[6].Subpoints[2].x:=659;
      Path[6].Subpoints[2].y:=131;
      Path[6].Subpoints[3].x:=632;
      Path[6].Subpoints[3].y:=113;
      Writeln(BoolToStr(FindPath(0, False)));
     
        RoadColor := FindVarrockRoadColor;
        Path[7].Mainpoint.x:=625;
        Path[7].Mainpoint.y:=117;
        Path[7].Subpoints[0].x:=616;
        Path[7].Subpoints[0].y:=131;
        Path[7].Subpoints[1].x:=635;
        Path[7].Subpoints[1].y:=104;
        Path[7].Subpoints[2].x:=619;
        Path[7].Subpoints[2].y:=124;
        Path[7].Subpoints[3].x:=635;
        Path[7].Subpoints[3].y:=114;
        Writeln(BoolToStr(FindPath(0, False)));
       
      if FindSymbol(x, y, 'Mine') then
      begin
        Mouse(x, y, 3, 3, true);
        FFlag(0);
        Players[CurrentPlayer].Loc := 'Varrock East Mine';
        Writeln('Successfully Made It To Varrock East Mine');
      end;
     
      if not FindSymbol(x, y, 'Mine') then
      begin
        Writeln('Lost :(');
        NextPlayer(False);
      end else
      begin
        Players[CurrentPlayer].Loc := 'Lost Walking To VEM';
        Writeln('We Got Lost Walking To Varrock East Mine :(');
        Logout;
        NextPlayer(False);
        Exit;
      end;
    end;

    procedure BankFromVEM;
    begin
      RoadColor := FindVarrockRoadColor;
      Path[0].Mainpoint.x:=671;
      Path[0].Mainpoint.y:=46;
      Path[0].Subpoints[0].x:=643;
      Path[0].Subpoints[0].y:=23;
      Path[0].Subpoints[1].x:=655;
      Path[0].Subpoints[1].y:=74;
      Path[0].Subpoints[2].x:=657;
      Path[0].Subpoints[2].y:=26;
      Path[0].Subpoints[3].x:=665;
      Path[0].Subpoints[3].y:=63;
      Path[0].Subpoints[4].x:=667;
      Path[0].Subpoints[4].y:=34;
      Writeln(BoolToStr(FindPath(0, False)));
     
        RoadColor := FindVarrockRoadColor;
        Path[1].Mainpoint.x:=597;
        Path[1].Mainpoint.y:=59;
        Path[1].Subpoints[0].x:=586;
        Path[1].Subpoints[0].y:=25;
        Path[1].Subpoints[1].x:=627;
        Path[1].Subpoints[1].y:=71;
        Path[1].Subpoints[2].x:=592;
        Path[1].Subpoints[2].y:=41;
        Path[1].Subpoints[3].x:=614;
        Path[1].Subpoints[3].y:=63;
        Writeln(BoolToStr(FindPath(0, False)));

      RoadColor := FindVarrockRoadColor;
      Path[2].Mainpoint.x:=616;
      Path[2].Mainpoint.y:=51;
      Path[2].Subpoints[0].x:=614;
      Path[2].Subpoints[0].y:=14;
      Path[2].Subpoints[1].x:=623;
      Path[2].Subpoints[1].y:=75;
      Path[2].Subpoints[2].x:=608;
      Path[2].Subpoints[2].y:=25;
      Path[2].Subpoints[3].x:=616;
      Path[2].Subpoints[3].y:=58;
      Path[2].Subpoints[4].x:=613;
      Path[2].Subpoints[4].y:=40;
      Writeln(BoolToStr(FindPath(0, False)));

        RoadColor := FindVarrockRoadColor;
        Path[3].Mainpoint.x:=629;
        Path[3].Mainpoint.y:=35;
        Path[3].Subpoints[0].x:=616;
        Path[3].Subpoints[0].y:=12;
        Path[3].Subpoints[1].x:=628;
        Path[3].Subpoints[1].y:=73;
        Path[3].Subpoints[2].x:=625;
        Path[3].Subpoints[2].y:=23;
        Path[3].Subpoints[3].x:=622;
        Path[3].Subpoints[3].y:=56;
        Writeln(BoolToStr(FindPath(0, False)));

      RoadColor := FindVarrockRoadColor;
      Path[4].Mainpoint.x:=598;
      Path[4].Mainpoint.y:=48;
      Path[4].Subpoints[0].x:=601;
      Path[4].Subpoints[0].y:=16;
      Path[4].Subpoints[1].x:=621;
      Path[4].Subpoints[1].y:=76;
      Path[4].Subpoints[2].x:=599;
      Path[4].Subpoints[2].y:=29;
      Path[4].Subpoints[3].x:=612;
      Path[4].Subpoints[3].y:=56;
      Writeln(BoolToStr(FindPath(0, False)));
     
        RoadColor := FindVarrockRoadColor;
        Path[5].Mainpoint.x:=631;
        Path[5].Mainpoint.y:=51;
        Path[5].Subpoints[0].x:=609;
        Path[5].Subpoints[0].y:=20;
        Path[5].Subpoints[1].x:=625;
        Path[5].Subpoints[1].y:=74;
        Path[5].Subpoints[2].x:=615;
        Path[5].Subpoints[2].y:=35;
        Path[5].Subpoints[3].x:=631;
        Path[5].Subpoints[3].y:=63;
        Writeln(BoolToStr(FindPath(0, False)));

      RoadColor := FindVarrockRoadColor;
      Path[6].Mainpoint.x:=613;
      Path[6].Mainpoint.y:=70;
      Path[6].Subpoints[0].x:=602;
      Path[6].Subpoints[0].y:=51;
      Path[6].Subpoints[1].x:=622;
      Path[6].Subpoints[1].y:=75;
      Path[6].Subpoints[2].x:=607;
      Path[6].Subpoints[2].y:=61;
      Path[6].Subpoints[3].x:=620;
      Path[6].Subpoints[3].y:=74;
      Writeln(BoolToStr(FindPath(0, False)));
     
        RoadColor := FindVarrockRoadColor;
        Path[7].Mainpoint.x:=591;
        Path[7].Mainpoint.y:=75;
        Path[7].Subpoints[0].x:=556;
        Path[7].Subpoints[0].y:=77;
        Path[7].Subpoints[1].x:=619;
        Path[7].Subpoints[1].y:=70;
        Path[7].Subpoints[2].x:=572;
        Path[7].Subpoints[2].y:=75;
        Path[7].Subpoints[3].x:=607;
        Path[7].Subpoints[3].y:=72;
        Writeln(BoolToStr(FindPath(0, False)));

      RoadColor := FindVarrockRoadColor;
      Path[8].Mainpoint.x:=595;
      Path[8].Mainpoint.y:=89;
      Path[8].Subpoints[0].x:=560;
      Path[8].Subpoints[0].y:=92;
      Path[8].Subpoints[1].x:=610;
      Path[8].Subpoints[1].y:=88;
      Path[8].Subpoints[2].x:=577;
      Path[8].Subpoints[2].y:=91;
      Path[8].Subpoints[3].x:=606;
      Path[8].Subpoints[3].y:=88;
      Writeln(BoolToStr(FindPath(0, False)));
     
        RoadColor := FindVarrockRoadColor;
        Path[9].Mainpoint.x:=594;
        Path[9].Mainpoint.y:=87;
        Path[9].Subpoints[0].x:=561;
        Path[9].Subpoints[0].y:=87;
        Path[9].Subpoints[1].x:=617;
        Path[9].Subpoints[1].y:=86;
        Path[9].Subpoints[2].x:=579;
        Path[9].Subpoints[2].y:=89;
        Path[9].Subpoints[3].x:=608;
        Path[9].Subpoints[3].y:=89;
        Writeln(BoolToStr(FindPath(0, False)));
       
      if FindSymbol(x, y, 'bank') then
      begin
        Mouse(x, y, 3, 3, true);
        FFlag(0);
      end;

      if not FindSymbol(x, y, 'bank') then
      begin
        VEBankers := DTMFromString('78DA63FCC2C4C0F0840105FCFFFF1F4C3342F' +
           '98CAF806A5EA3AAF9F3870955CD2F20FF0D01359F8830E71D11E6' +
           '7C23AC06000E881824');
        if DTMRotated(VEBankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        begin
          Mouse(x, y, 1, 1, True);
          FFlag(0);
          Players[CurrentPlayer].Loc := 'Varrock East Bank';
          Writeln('Successfully Made It To Varrock East Bank');
        end;
      end else
      begin
        Players[CurrentPlayer].Loc := 'Lost Walking To VE Bank';
        Writeln('We Got Lost Walking To Varrock East Bank :(');
        Logout;
        NextPlayer(False);
        Exit;
      end;
      FreeDTM(VEBankers);
    end;

    procedure ToVWM;
    begin
      RoadColor := FindVarrockRoadColor;
      Path[0].Mainpoint.x:=600;
      Path[0].Mainpoint.y:=106;
      Path[0].Subpoints[0].x:=629;
      Path[0].Subpoints[0].y:=110;
      Path[0].Subpoints[1].x:=577;
      Path[0].Subpoints[1].y:=105;
      Path[0].Subpoints[2].x:=621;
      Path[0].Subpoints[2].y:=108;
      Path[0].Subpoints[3].x:=587;
      Path[0].Subpoints[3].y:=105;
      Writeln(BoolToStr(FindPath(0, False)));
     
        RoadColor := FindVarrockRoadColor;
        Path[1].Mainpoint.x:=583;
        Path[1].Mainpoint.y:=80;
        Path[1].Subpoints[0].x:=555;
        Path[1].Subpoints[0].y:=87;
        Path[1].Subpoints[1].x:=605;
        Path[1].Subpoints[1].y:=84;
        Path[1].Subpoints[2].x:=573;
        Path[1].Subpoints[2].y:=81;
        Path[1].Subpoints[3].x:=598;
        Path[1].Subpoints[3].y:=83;
        Writeln(BoolToStr(FindPath(0, False)));

      RadialWalk(VarrockWestColors(1), 188, 170, 37, 5, 5);
      RadialWalk(VarrockWestColors(2), 191, 182, 58, 5, 5);
      RadialWalk(VarrockWestColors(3), 174, 164, 55, 5, 5);
      RadialWalk(VarrockWestColors(4), 154, 144, 63, 5, 5);

        if FindSymbol(x, y, 'Mine') then
        begin
          Mouse(x, y, 3, 3, true);
          FFlag(0);
          Players[CurrentPlayer].Loc := 'Varrock West Mine';
          Writeln('Successfully Made It To Varrock West Mine');
        end;

      if not FindSymbol(x, y, 'Mine') then
      begin
        Players[CurrentPlayer].Loc := 'Lost Walking To VWM';
        Writeln('We Got Lost Walking To Varrock West Mine :(');
        Logout;
        NextPlayer(False);
        Exit;
      end;
    end;

    procedure BankFromVWM;
    var
     VWBankers : integer;
    begin
      RadialWalk(VarrockWestColors(4), 23, 34, 54, 5, 5);
      RadialWalk(VarrockWestColors(3), 319, 327, 45, 5, 5);
      RadialWalk(VarrockWestColors(2), 313, 320, 66, 5, 5);
      RadialWalk(VarrockWestColors(1), 0, 5, 68, 5, 5);
     
        RoadColor := FindVarrockRoadColor;
        Path[0].Mainpoint.x:=588;
        Path[0].Mainpoint.y:=26;
        Path[0].Subpoints[0].x:=584;
        Path[0].Subpoints[0].y:=44;
        Path[0].Subpoints[1].x:=609;
        Path[0].Subpoints[1].y:=15;
        Path[0].Subpoints[2].x:=590;
        Path[0].Subpoints[2].y:=39;
        Path[0].Subpoints[3].x:=599;
        Path[0].Subpoints[3].y:=24;
        Writeln(BoolToStr(FindPath(0, False)));

      RoadColor := FindVarrockRoadColor;
      Path[1].Mainpoint.x:=664;
      Path[1].Mainpoint.y:=59;
      Path[1].Subpoints[0].x:=641;
      Path[1].Subpoints[0].y:=67;
      Path[1].Subpoints[1].x:=687;
      Path[1].Subpoints[1].y:=55;
      Path[1].Subpoints[2].x:=651;
      Path[1].Subpoints[2].y:=61;
      Path[1].Subpoints[3].x:=676;
      Path[1].Subpoints[3].y:=56;
      Writeln(BoolToStr(FindPath(0, False)));
     
        RoadColor := FindVarrockRoadColor;
        Path[2].Mainpoint.x:=669;
        Path[2].Mainpoint.y:=73;
        Path[2].Subpoints[0].x:=649;
        Path[2].Subpoints[0].y:=82;
        Path[2].Subpoints[1].x:=696;
        Path[2].Subpoints[1].y:=71;
        Path[2].Subpoints[2].x:=659;
        Path[2].Subpoints[2].y:=79;
        Path[2].Subpoints[3].x:=682;
        Path[2].Subpoints[3].y:=74;
        Writeln(BoolToStr(FindPath(0, False)));
       
      if FindSymbol(x, y, 'bank') then
      begin
        Mouse(x, y, 3, 3, true);
        FFlag(0);
      end;
     
        if not FindSymbol(x, y, 'bank') then
        begin
          Mouse(x, y, 3, 3, true);
          FFlag(0);
        end;
       
      if not FindSymbol(x, y, 'bank') then
      begin
        VWBankers := DTMFromString('78DA63FCC2C4C0F0840105FCFFFF1F4C3342F' +
           '98CBF806A1EA3AAF9F3870955CD4F20FF1601353F80FCCB04D47C' +
           '03F24FA1AAF9F74F18450D00CDED1422');
        if DTMRotated(VWBankers, x, y, MMX1, MMY1, MMX2, MMY2) then
        begin
          Mouse(x, y, 1, 1, True);
          FFlag(0);
          Players[CurrentPlayer].Loc := 'Varrock West Bank';
          Writeln('Successfully Made It To Varrock West Bank');
        end;
      end else
      begin
        Players[CurrentPlayer].Loc := 'Lost Walking To VW Bank';
        Writeln('We Got Lost Walking To Varrock West Bank :(');
        Logout;
        NextPlayer(False);
        Exit;
      end;
      FreeDTM(VWBankers);
    end;

    procedure ToAKMine;
    begin
    end;

    procedure BankFromAKMine;
    begin
    end;

    procedure ToGuild;
    begin
    end;

    procedure BankFromGuild;
    begin
    end;

    procedure ToBarbMine;
    begin
      EdgeVille1 := BitmapFromString(1, 1, 'beNoL0sgHAAG4AOo=');
      EdgeVille1Color := AutoColorThis(EdgeVille1, 50, MMX1, MMY1, MMX2, MMY2);
      RadialWalk(EdgeVille1Color,180,82,533,1,1);
     
        EdgeVille2 := BitmapFromString(1, 1, 'beNpLcGgAAAIjASE=');
        EdgeVille2Color := AutoColorThis(EdgeVille2, 50, MMX1, MMY1, MMX2, MMY2);
        RadialWalk(EdgeVille2Color,182,277,503,3,3);
     
      EdgeVille3 := BitmapFromString(2, 2, 'beNorUu4sUv5fBCI7AR/2' +
           'BO8=');
      EdgeVille3Color := AutoColorThis(EdgeVille3, 50, MMX1, MMY1, MMX2, MMY2);
      RadialWalk(EdgeVille3Color,75,82,472,2,2);
     
        EdgeVille4 := BitmapFromString(1, 1, 'beNprU2oAAAJZASk=');
        EdgeVille4Color := AutoColorThis(EdgeVille4, 50, MMX1, MMY1, MMX2, MMY2);
        RadialWalk(EdgeVille4Color,211,277,505,1,1);
     
      EdgeVille5 := BitmapFromString(2, 2, 'beNrLtGnItPmfCSIbACDr' +
           'BRQ=');
      EdgeVille5Color := AutoColorThis(EdgeVille5, 50, MMX1, MMY1, MMX2, MMY2);
      RadialWalk(EdgeVille5Color,196,277,491,3,3);
     
      if FindSymbol(x, y, 'mine') then
      begin
        Mouse(x, y, 5, 5, true);
        FFlag(0);
        Players[CurrentPlayer].Loc := 'Barbarian Mine';
        Writeln('We Successfully Walked To Barbarian Mine');
      end else
      begin
        Players[CurrentPlayer].Loc := 'Lost Walking To Barbarian Mine';
        Writeln('We Got Lost Walking To Barbarian Mine :(');
        Logout;
        NextPlayer(False);
        Exit;
      end;
      FreeBitmap(EdgeVille1);
      FreeBitmap(EdgeVille2);
      FreeBitmap(EdgeVille3);
      FreeBitmap(EdgeVille4);
      FreeBitmap(EdgeVille5);
    end;

    procedure BankFromBarbMine;
    begin
      EdgeVille1 := BitmapFromString(1, 1, 'beNoL0sgHAAG4AOo=');
      EdgeVille1Color := AutoColorThis(EdgeVille1, 50, MMX1, MMY1, MMX2, MMY2);

      EdgeVille2 := BitmapFromString(1, 1, 'beNpLcGgAAAIjASE=');
      EdgeVille2Color := AutoColorThis(EdgeVille2, 50, MMX1, MMY1, MMX2, MMY2);

      EdgeVille3 := BitmapFromString(2, 2, 'beNorUu4sUv5fBCI7AR/2' +
           'BO8=');
      EdgeVille3Color := AutoColorThis(EdgeVille3, 50, MMX1, MMY1, MMX2, MMY2);

      EdgeVille4 := BitmapFromString(1, 1, 'beNprU2oAAAJZASk=');
      EdgeVille4Color := AutoColorThis(EdgeVille4, 50, MMX1, MMY1, MMX2, MMY2);

      EdgeVille5 := BitmapFromString(2, 2, 'beNrLtGnItPmfCSIbACDr' +
           'BRQ=');
      EdgeVille5Color := AutoColorThis(EdgeVille5, 50, MMX1, MMY1, MMX2, MMY2);
     
      RadialWalk(EdgeVille5Color,43,97,588,1,1);
      RadialWalk(EdgeVille4Color,350,262,617,2,2);
      RadialWalk(EdgeVille3Color,354,262,608,3,3);
      RadialWalk(EdgeVille2Color,357,262,615,2,2);
      RadialWalk(EdgeVille1Color,348,262,605,1,1);

      EdgeVilleBankers := DTMFromString('78DA63FCC2C4C0F09C0105FCFFFF1F4C3342F' +
         '98CBF816A9EA1AAF9F3870955CD2F20FF1E01353F81FCABF8D500' +
         '002D54105E');
         
      if DTMRotated(EdgeVilleBankers, x, y, MMX1, MMY1, MMX2, MMY2) then
      begin
        Mouse(x, y, 1, 1, True);
        FFlag(0);
        Players[CurrentPlayer].Loc := 'EdgeVille Bank';
        Writeln('Successfully Made It To EdgeVille Bank');
      end else
      begin
        Players[CurrentPlayer].Loc := 'Lost Walking To EdgeVille Bank';
        Writeln('We Got Lost Walking To EdgeVille Bank :(');
        Logout;
        NextPlayer(False);
        Exit;
      end;
         
      FreeDTM(EdgeVilleBankers);
      FreeBitmap(EdgeVille1);
      FreeBitmap(EdgeVille2);
      FreeBitmap(EdgeVille3);
      FreeBitmap(EdgeVille4);
      FreeBitmap(EdgeVille5);
    end;

    procedure ToRimmingtonMine;
    begin
    end;

    procedure BankFromRimmingtonMine;
    begin
    end;

    procedure Bank;
    begin
      case lowercase(Players[CurrentPlayer].Strings[0]) of
        'VEMI' : begin
                   OpenBankFast('VEB');
                   FFlag(0);
                 end;

        'VEMCT' : begin
                    OpenBankFast('VEB');
                    FFlag(0);
                  end;

        'VWMI' : begin
                   OpenBankFast('VWB');
                   FFlag(0);
                 end;

        'VWMS' : begin
                   OpenBankFast('VWB');
                   FFlag(0);
                 end;

        'AKI' : begin
                  OpenBankFast('ak');
                  FFlag(0);
                end;

        'AKG' : begin
                  OpenBankFast('ak');
                  FFlag(0);
                end;

        'Guild' : begin
                    OpenBankFast('feb');
                    FFlag(0);
                  end;

        'BBVC' : begin
                   OpenBankFast('eb');
                   FFlag(0);
                 end;

        'RCT' : begin
                  OpenBankFast('feb');
                  FFlag(0);
                end;

        'RI' : begin
                 OpenBankFast('feb');
                 FFlag(0);
               end;
      end;
     
      if BankScreen then
      begin
        for i := 2 to 28 do
        begin
          if ExistsItem(i) then
          begin
            MouseItem(i, false);
            ChooseOption('ll');
            Wait(1000 + random(500));
            CloseBank;
            Loads := Loads + 1;
          end;
        end;
      end;
     
    end;

    procedure SortTheShit;
    begin
      case lowercase(Players[CurrentPlayer].Strings[0]) of
        'VEMI' : begin
                   ToVEM;
                   VEMIron;
                   BankFromVEM;
                   Bank;
                 end;
                 
        'VEMCT' : begin
                    ToVEM;
                    VEMCopperTin;
                    BankFromVEM;
                    Bank;
                  end;
                 
        'VWMI' : begin
                   ToVWM;
                   VWMIron;
                   BankFromVWM;
                   Bank;
                 end;
                 
        'VWMS' : begin
                   ToVWM;
                   VWMSilver;
                   BankFromVWM;
                   Bank;
                 end;
                 
        'AKI' : begin
                  ToAKMine;
                  AKIron;
                  BankFromAKMine;
                  Bank;
                end;
               
        'AKG' : begin
                  ToAKMine;
                  AkGold;
                  BankFromAKMine;
                  Bank;
                end;
               
        'Guild' : begin
                    ToGuild;
                    Guild;
                    BankFromGuild;
                    Bank;
                  end;
                 
        'BBVC' : begin
                   ToBarbMine;
                   BarbVillageCoal;
                   BankFromBarbMine;
                   Bank;
                 end;
                 
        'RCT' : begin
                  ToRimmingtonMine;
                  RimmingtonCopperTin;
                  BankFromRimmingtonMine;
                  Bank;
                end;
               
        'RI' : begin
                 ToRimmingtonMine;
                 RimmingtonIron;
                 BankFromRimmingtonMine;
                 Bank;
               end;
      end;
    end;

    procedure ProgressReport;
    begin
      ClearReport;
      SRLRandomsReport;
      AddToReport('//========Skilld=========\\');
      AddToReport('\\===EveryWhere Minzor===//');
      AddToReport('/=====Da 0wner Pwnz:p=====\');
      AddToReport('Worked for ' + TimeRunning);
      AddToReport('Completed ' + IntToStr(Loads) + ' Loads--');
      AddToReport('Used AntiBan ' + IntToStr(AntiBanz) + ' Times-');
      AddToReport('\=========================/');
      for i := 0 to Length(Players) - 1 do
      begin
        AddToReport('/=========================\');
        for i := 0 to Length(Players) - 1 do
        AddToReport(''+IntToStr(i) + ' : ' + Players[i].Name + ', Active : ' + BoolToStr(Players[i].Active)+', Loc : '+Players[i].Loc+' ');
        AddToReport('\=========================/');
      end;
      SendSRLReport;
    end;

    Var

      frmDesign : TForm;
      frmDesign2 : TForm;
      Label1 : TLabel;
      GroupBox1 : TGroupBox;
      Label3 : TLabel;
      Label4 : TLabel;
      Label2 : TLabel;
      Label5 : TLabel;
      Label6 : TLabel;
      Label7 : TLabel;
      Label8 : TLabel;
      Label11 : TLabel;
      Edit1 : TEdit;
      Edit2 : TEdit;
      Edit3 : TEdit;
      Edit4 : TEdit;
      ComboBox2 : TComboBox;
      Button1 : TButton;
      Button2 : TButton;
      Button3 : TButton;
      ComboBox1 : TComboBox;
      GroupBox2 : TGroupBox;
      Label9 : TLabel;
      Label10 : TLabel;
      Edit5 : TEdit;
      Edit6 : TEdit;
      GroupBox3 : TGroupBox;
      Label12 : TLabel;
      Label13 : TLabel;
      Label14 : TLabel;
      Label15 : TLabel;
      Button4 : TButton;
      Button5 : TButton;
      Button6 : TButton;
      Button7 : TButton;
      Button8 : TButton;
      Label16 : TLabel;
      Memo1 : TMemo;
      Button9 : TButton;
      CPlayer : Integer;
      Version : Extended;
      CurrentVersion : String;

    Function VersionCheck : Boolean;
    Begin
    CurrentVersion := GetPage('http://skilldmultichopper.freehostia.com/versionchecker.txt');
    If StrToFloat(CurrentVersion) = Version then Result := True;
    End;

    Procedure LodPlayers(HowMany, CurrentPlyr : Integer);
    Var
    i : integer;

    Begin
    HowManyPlayers := HowMany;
    CurrentPlayer := CurrentPlyr;
    NumberOfPlayers(HowManyPlayers);

    For i := 0 to HowMany - 1 do
    Begin
    Players[i].Name := ReadINI('Player' + IntToStr(i), 'Name', AppPath + 'PlayerManager.ini');
    Players[i].Pass := ReadINI('Player' + IntToStr(i), 'Password', AppPath + 'PlayerManager.ini');
    Players[i].Nick := ReadINI('Player' + IntToStr(i), 'Nick', AppPath + 'PlayerManager.ini');
    Players[i].Strings[0] := ReadINI('Player' + IntToStr(i), 'Location', AppPath + 'PlayerManager.ini');
    Players[i].Integers[0] := StrToInt(ReadINI('Player' + IntToStr( i), 'Loads', AppPath + 'PlayerManager.ini'));
    End;
    End;

    Procedure Start(Sender : TObject);
    Begin

    If ((Edit5.Text = '') or (Edit6.Text = '')) then
    Begin
    ShowMessage('Please enter a stats username and/or password.');
    Exit;
    End;

    If ((Edit1.Text = '') or (Edit2.Text = '') or (Edit3.Text = '') or (Edit4.Text = '') or (ComboBox1.Text = '') or (ComboBox2.Text = '')) then
    Begin
    ShowMessage('Please enter your user details.');
    Exit;
    End;
    LodPlayers(HowManyPlyrs, CurrntPlyr);
      SRLID := Edit5.Text;
      SRLPassword := Edit6.Text;
      Exit;
    End;

    Procedure Help(Sender : TObject);
    Begin
    ShowMessage('Go to SRL Forums. PM "Da 0wner" with details' + Chr(13) + 'about what you want.');
    End;

    Procedure GoForums(Sender : TObject);
    Begin
    OpenWebPage('http://skilldscripts.freeforums.org/index.php?sid=61a9c92a59ac8f6e0624dc3ce61eb9e0');
    End;

    Procedure CheckVersion(Sender : TObject);
    Begin
    Label12.Caption := 'Please Wait...';

    If VersionCheck then Label12.Caption := 'You Are Up To Date';
    If not VersionCheck then Label12.Caption := 'You Are Not Up To Date, Version ' + CurrentVersion + ' is avaliable.';
    End;

    Procedure PMNextPlayer(Sender : TObject);
    Begin

    If Label3.Caption = 'Current Player [50]' then Exit;

    WriteINI('Player' + IntToStr(CPlayer), 'Name', Edit1.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Password', Edit2.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Nick', Edit3.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Loads', Edit4.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Location', ComboBox1.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('SRLStats', 'SRLID', Edit5.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('SRLStats', 'SRLPass', Edit6.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Active', ComboBox2.Text, AppPath + 'PlayerManagerSK.ini');

    CPlayer := CPlayer + 1;
    Label3.Caption := 'Current Player [' + IntToStr(CPlayer) + ']';
    Edit1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini');
    Edit2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Password', AppPath + 'PlayerManagerSK.ini');
    Edit3.Text := ReadINI('Player' + IntToStr(CPlayer), 'Nick', AppPath + 'PlayerManagerSK.ini');
    Edit4.Text := ReadINI('Player' + IntToStr(CPlayer), 'Loads', AppPath + 'PlayerManagerSK.ini');
    Edit5.Text := ReadINI('SRLStats', 'SRLID', AppPath + 'PlayerManagerSK.ini');
    Edit6.Text := ReadINI('SRLStats', 'SRLPass', AppPath + 'PlayerManagerSK.ini');
    ComboBox1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Location', AppPath + 'PlayerManagerSK.ini');
    ComboBox2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Active', AppPath + 'PlayerManagerSK.ini');

    End;

    Procedure PMBackPlayer(Sender : TObject);
    Begin

    If Label3.Caption = 'Current Player [0]' then Exit;

    WriteINI('Player' + IntToStr(CPlayer), 'Name', Edit1.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Password', Edit2.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Nick', Edit3.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('SRLStats', 'SRLID', Edit5.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('SRLStats', 'SRLPass', Edit6.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('SRLStats', 'Active', ComboBox1.Text, AppPath + 'PlayerManagerSK.ini');



    CPlayer := CPlayer - 1;

    Label3.Caption := 'Current Player [' + IntToStr(CPlayer) + ']';
    Edit1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini');
    Edit2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Password', AppPath + 'PlayerManagerSK.ini');
    Edit3.Text := ReadINI('Player' + IntToStr(CPlayer), 'Nick', AppPath + 'PlayerManagerSK.ini');
    Edit4.Text := ReadINI('Player' + IntToStr(CPlayer), 'Loads', AppPath + 'PlayerManagerSK.ini');
    Edit5.Text := ReadINI('Player' + IntToStr(CPlayer), 'SRLID', AppPath + 'PlayerManagerSK.ini');
    Edit6.Text := ReadINI('SRLStats', 'SRLPass', AppPath + 'PlayerManagerSK.ini');
    ComboBox1.Text := ReadINI('SRLStats', 'Location', AppPath + 'PlayerManagerSK.ini');
    ComboBox2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Active', AppPath + 'PlayerManagerSK.ini');

    End;

    Procedure PMSavePlayer(Sender : TObject);
    Begin

    WriteINI('Player' + IntToStr(CPlayer), 'Name', Edit1.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Password', Edit2.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Nick', Edit3.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Location', ComboBox1.Text, AppPath + 'PlayerManagerSK.ini');
    WriteINI('Player' + IntToStr(CPlayer), 'Loads', Edit4.Text, AppPath + 'PlayerManagerSK.ini');

    End;


    Procedure SafeInitForm2; Forward;
    Procedure SafeShowFormModal2; Forward;

    Procedure Go2Proggy(Sender : TObject);
    Begin
    SafeInitForm2;
    SafeShowFormModal2;
    End;

    Procedure Go2Main(Sender : TObject);
    Begin
    FrmDesign2.ModalResult := MrOk;
    End;

    Procedure InitForm2;
    Begin

    frmDesign2 := CreateForm;
    frmDesign2.Left := 257;
    frmDesign2.Top := 114;
    frmDesign2.Width := 249;
    frmDesign2.Height := 448;
    frmDesign2.Caption := 'frmDesign';
    frmDesign2.Color := clHighlight;
    frmDesign2.Font.Color := clWindowText;
    frmDesign2.Font.Height := -11;
    frmDesign2.Font.Name := 'MS Sans Serif';
    frmDesign2.Font.Style := [];
    frmDesign2.Visible := False;
    frmDesign2.Position := poScreenCenter;
    frmDesign2.PixelsPerInch := 96;
    Label16 := TLabel.Create(frmDesign2);
    Label16.Parent := frmDesign2;
    Label16.Left := 16;
    Label16.Top := 8;
    Label16.Width := 199;
    Label16.Height := 20;
    Label16.Caption := 'Skilld Everywhere Minz0r';
    Label16.Font.Color := clYellow;
    Label16.Font.Height := -16;
    Label16.Font.Name := 'MS Sans Serif';
    Label16.Font.Style := [fsBold];
    Label16.ParentFont := False;
    Memo1 := TMemo.Create(frmDesign2);
    Memo1.Parent := frmDesign2;
    Memo1.Left := 8;
    Memo1.Top := 40;
    Memo1.Width := 225;
    Memo1.Height := 345;
    Memo1.ScrollBars := ssVertical;
    Memo1.TabOrder := 8;
    Memo1.ReadOnly := True;
    Button9 := TButton.Create(frmDesign2);
    Button9.Parent := frmDesign2;
    Button9.Left := 64;
    Button9.Top := 392;
    Button9.Width := 105;
    Button9.Height := 17;
    Button9.Caption := 'Close';
    Button9.TabOrder := 9;
    Button9.OnClick := @Go2Main;

    End;

    Procedure InitForm;
    Begin

    frmDesign := CreateForm;
    frmDesign.Left := 360;
    frmDesign.Top := 68;
    frmDesign.Width := 218;
    frmDesign.Height := 608;
    frmDesign.Caption := 'frmDesign';
    frmDesign.Color := clHighlight;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;
    frmDesign.Position := poScreenCenter;
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 16;
    Label1.Top := 8;
    Label1.Width := 177;
    Label1.Height := 16;
    Label1.Caption := 'Skilld EveryWhere Minz0r';
    Label1.Font.Color := clYellow;
    Label1.Font.Height := -13;
    Label1.Font.Name := 'MS Sans Serif';
    Label1.Font.Style := [fsBold];
    Label1.ParentFont := False;
    GroupBox1 := TGroupBox.Create(frmDesign);
    GroupBox1.Parent := frmDesign;
    GroupBox1.Left := 8;
    GroupBox1.Top := 40;
    GroupBox1.Width := 193;
    GroupBox1.Height := 249;
    GroupBox1.Caption := 'Player Setup';
    GroupBox1.Font.Color := clWindowText;
    GroupBox1.Font.Height := -11;
    GroupBox1.Font.Name := 'MS Sans Serif';
    GroupBox1.Font.Style := [];
    GroupBox1.ParentFont := False;
    GroupBox1.TabOrder := 0;
    Label3 := TLabel.Create(GroupBox1);
    Label3.Parent := GroupBox1;
    Label3.Left := 56;
    Label3.Top := 16;
    Label3.Width := 81;
    Label3.Height := 13;
    Label3.Caption := 'Current Player [0]';
    Label4 := TLabel.Create(GroupBox1);
    Label4.Parent := GroupBox1;
    Label4.Left := 8;
    Label4.Top := 40;
    Label4.Width := 66;
    Label4.Height := 16;
    Label4.Caption := 'Username:';
    Label4.Font.Color := clWindowText;
    Label4.Font.Height := -13;
    Label4.Font.Name := 'MS Sans Serif';
    Label4.Font.Style := [];
    Label4.ParentFont := False;
    Label2 := TLabel.Create(GroupBox1);
    Label2.Parent := GroupBox1;
    Label2.Left := 8;
    Label2.Top := 64;
    Label2.Width := 63;
    Label2.Height := 16;
    Label2.Caption := 'Password:';
    Label2.Font.Color := clWindowText;
    Label2.Font.Height := -13;
    Label2.Font.Name := 'MS Sans Serif';
    Label2.Font.Style := [];
    Label2.ParentFont := False;
    Label5 := TLabel.Create(GroupBox1);
    Label5.Parent := GroupBox1;
    Label5.Left := 8;
    Label5.Top := 112;
    Label5.Width := 41;
    Label5.Height := 16;
    Label5.Caption := 'Loads:';
    Label5.Font.Color := clWindowText;
    Label5.Font.Height := -13;
    Label5.Font.Name := 'MS Sans Serif';
    Label5.Font.Style := [];
    Label5.ParentFont := False;
    Label6 := TLabel.Create(GroupBox1);
    Label6.Parent := GroupBox1;
    Label6.Left := 8;
    Label6.Top := 88;
    Label6.Width := 64;
    Label6.Height := 16;
    Label6.Caption := 'Nickname:';
    Label6.Font.Color := clWindowText;
    Label6.Font.Height := -13;
    Label6.Font.Name := 'MS Sans Serif';
    Label6.Font.Style := [];
    Label6.ParentFont := False;
    Label7 := TLabel.Create(GroupBox1);
    Label7.Parent := GroupBox1;
    Label7.Left := 8;
    Label7.Top := 160;
    Label7.Width := 40;
    Label7.Height := 16;
    Label7.Caption := 'Active:';
    Label7.Font.Color := clWindowText;
    Label7.Font.Height := -13;
    Label7.Font.Name := 'MS Sans Serif';
    Label7.Font.Style := [];
    Label7.ParentFont := False;
    Label8 := TLabel.Create(GroupBox1);
    Label8.Parent := GroupBox1;
    Label8.Left := 16;
    Label8.Top := 232;
    Label8.Width := 164;
    Label8.Height := 13;
    Label8.Caption := 'Powered by Player Manager BETA';
    Label11 := TLabel.Create(GroupBox1);
    Label11.Parent := GroupBox1;
    Label11.Left := 8;
    Label11.Top := 136;
    Label11.Width := 54;
    Label11.Height := 16;
    Label11.Caption := 'Location:';
    Label11.Font.Color := clWindowText;
    Label11.Font.Height := -13;
    Label11.Font.Name := 'MS Sans Serif';
    Label11.Font.Style := [];
    Label11.ParentFont := False;
    Edit1 := TEdit.Create(GroupBox1);
    Edit1.Parent := GroupBox1;
    Edit1.Left := 80;
    Edit1.Top := 40;
    Edit1.Width := 105;
    Edit1.Height := 21;
    Edit1.TabOrder := 0;
    Edit2 := TEdit.Create(GroupBox1);
    Edit2.Parent := GroupBox1;
    Edit2.Left := 80;
    Edit2.Top := 64;
    Edit2.Width := 105;
    Edit2.Height := 21;
    Edit2.PasswordChar := '*';
    Edit2.TabOrder := 1;
    Edit3 := TEdit.Create(GroupBox1);
    Edit3.Parent := GroupBox1;
    Edit3.Left := 80;
    Edit3.Top := 88;
    Edit3.Width := 105;
    Edit3.Height := 21;
    Edit3.TabOrder := 2;
    Edit4 := TEdit.Create(GroupBox1);
    Edit4.Parent := GroupBox1;
    Edit4.Left := 80;
    Edit4.Top := 112;
    Edit4.Width := 105;
    Edit4.Height := 21;
    Edit4.TabOrder := 3;
    ComboBox2 := TComboBox.Create(GroupBox1);
    ComboBox2.Parent := GroupBox1;
    ComboBox2.Left := 80;
    ComboBox2.Top := 160;
    ComboBox2.Width := 105;
    ComboBox2.Height := 21;
    ComboBox2.ItemHeight := 13;
    ComboBox2.TabOrder := 4;
    ComboBox2.Text := 'True';
    ComboBox2.Items.Add('True');
    ComboBox2.Items.Add('False');
    Button1 := TButton.Create(GroupBox1);
    Button1.Parent := GroupBox1;
    Button1.Left := 8;
    Button1.Top := 184;
    Button1.Width := 89;
    Button1.Height := 20;
    Button1.Caption := '<-- Back';
    Button1.TabOrder := 5;
    Button1.OnClick := @PMBackPlayer;
    Button2 := TButton.Create(GroupBox1);
    Button2.Parent := GroupBox1;
    Button2.Left := 96;
    Button2.Top := 184;
    Button2.Width := 89;
    Button2.Height := 20;
    Button2.Caption := 'Next -->';
    Button2.TabOrder := 6;
    Button2.OnClick := @PMNextPlayer;
    Button3 := TButton.Create(GroupBox1);
    Button3.Parent := GroupBox1;
    Button3.Left := 8;
    Button3.Top := 203;
    Button3.Width := 177;
    Button3.Height := 20;
    Button3.Caption := 'Save Players';
    Button3.TabOrder := 7;
    Button3.OnClick := @PMSavePlayer;
    ComboBox1 := TComboBox.Create(GroupBox1);
    ComboBox1.Parent := GroupBox1;
    ComboBox1.Left := 80;
    ComboBox1.Top := 136;
    ComboBox1.Width := 105;
    ComboBox1.Height := 21;
    ComboBox1.ItemHeight := 13;
    ComboBox1.TabOrder := 8;
    ComboBox1.Text := 'VEMI';
    ComboBox1.Items.Add('VEMI');
    ComboBox1.Items.Add('VEMCT');
    ComboBox1.Items.Add('VWMI');
    ComboBox1.Items.Add('VWMS');
    ComboBox1.Items.Add('AKI');
    ComboBox1.Items.Add('AKG');
    ComboBox1.Items.Add('Guild');
    ComboBox1.Items.Add('BBVC');
    ComboBox1.Items.Add('RCT');
    ComboBox1.Items.Add('RI');
    GroupBox2 := TGroupBox.Create(frmDesign);
    GroupBox2.Parent := frmDesign;
    GroupBox2.Left := 8;
    GroupBox2.Top := 296;
    GroupBox2.Width := 193;
    GroupBox2.Height := 73;
    GroupBox2.Caption := 'Stats Setup';
    GroupBox2.TabOrder := 1;
    Label9 := TLabel.Create(GroupBox2);
    Label9.Parent := GroupBox2;
    Label9.Left := 8;
    Label9.Top := 16;
    Label9.Width := 49;
    Label9.Height := 16;
    Label9.Caption := 'Stats ID:';
    Label9.Font.Color := clWindowText;
    Label9.Font.Height := -13;
    Label9.Font.Name := 'MS Sans Serif';
    Label9.Font.Style := [];
    Label9.ParentFont := False;
    Label10 := TLabel.Create(GroupBox2);
    Label10.Parent := GroupBox2;
    Label10.Left := 8;
    Label10.Top := 40;
    Label10.Width := 67;
    Label10.Height := 16;
    Label10.Caption := 'Stats Pass:';
    Label10.Font.Color := clWindowText;
    Label10.Font.Height := -13;
    Label10.Font.Name := 'MS Sans Serif';
    Label10.Font.Style := [];
    Label10.ParentFont := False;
    Edit5 := TEdit.Create(GroupBox2);
    Edit5.Parent := GroupBox2;
    Edit5.Left := 80;
    Edit5.Top := 16;
    Edit5.Width := 105;
    Edit5.Height := 21;
    Edit5.TabOrder := 0;
    Edit6 := TEdit.Create(GroupBox2);
    Edit6.Parent := GroupBox2;
    Edit6.Left := 80;
    Edit6.Top := 40;
    Edit6.Width := 105;
    Edit6.Height := 21;
    Edit6.TabOrder := 1;
    Edit6.PasswordChar := '*';
    GroupBox3 := TGroupBox.Create(frmDesign);
    GroupBox3.Parent := frmDesign;
    GroupBox3.Left := 8;
    GroupBox3.Top := 376;
    GroupBox3.Width := 193;
    GroupBox3.Height := 161;
    GroupBox3.Caption := 'Additional Options ';
    GroupBox3.TabOrder := 2;
    Label12 := TLabel.Create(GroupBox3);
    Label12.Parent := GroupBox3;
    Label12.Left := 48;
    Label12.Top := 48;
    Label12.Width := 101;
    Label12.Height := 13;
    Label12.Caption := 'Version Not Checked';
    Label13 := TLabel.Create(GroupBox3);
    Label13.Parent := GroupBox3;
    Label13.Left := 8;
    Label13.Top := 72;
    Label13.Width := 171;
    Label13.Height := 13;
    Label13.Caption := 'Need a form done? Don'#39't know how';
    Label14 := TLabel.Create(GroupBox3);
    Label14.Parent := GroupBox3;
    Label14.Left := 8;
    Label14.Top := 88;
    Label14.Width := 171;
    Label14.Height := 13;
    Label14.Caption := 'to do it? PM Da 0wner and he'#39'll do it';
    Label15 := TLabel.Create(GroupBox3);
    Label15.Parent := GroupBox3;
    Label15.Left := 8;
    Label15.Top := 104;
    Label15.Width := 35;
    Label15.Height := 13;
    Label15.Caption := 'for you.';
    Button4 := TButton.Create(GroupBox3);
    Button4.Parent := GroupBox3;
    Button4.Left := 16;
    Button4.Top := 24;
    Button4.Width := 81;
    Button4.Height := 17;
    Button4.Caption := 'Check Version';
    Button4.TabOrder := 0;
    Button4.OnClick := @CheckVersion;
    Button5 := TButton.Create(GroupBox3);
    Button5.Parent := GroupBox3;
    Button5.Left := 96;
    Button5.Top := 24;
    Button5.Width := 81;
    Button5.Height := 17;
    Button5.Caption := 'Skilld Forums';
    Button5.TabOrder := 1;
    Button5.OnClick := @GoForums;
    Button6 := TButton.Create(GroupBox3);
    Button6.Parent := GroupBox3;
    Button6.Left := 56;
    Button6.Top := 120;
    Button6.Width := 81;
    Button6.Height := 17;
    Button6.Caption := 'More Info';
    Button6.TabOrder := 2;
    Button6.OnClick := @Help;
    Button8 := TButton.Create(GroupBox3);
    Button8.Parent := GroupBox3;
    Button8.Left := 56;
    Button8.Top := 136;
    Button8.Width := 81;
    Button8.Height := 20;
    Button8.Caption := 'Proggy';
    Button8.TabOrder := 3;
    Button8.OnClick := @Go2Proggy;
    Button7 := TButton.Create(frmDesign);
    Button7.Parent := frmDesign;
    Button7.Left := 64;
    Button7.Top := 544;
    Button7.Width := 81;
    Button7.Height := 21;
    Button7.Caption := 'Start Script';
    Button7.TabOrder := 3;
    Button7.OnClick := @Start;

    End;

    Procedure SafeInitForm;
    Var
      v: TVariantArray;
    Begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    End;

    Procedure ShowFormModal;
    Begin
      frmDesign.ShowModal;
    End;

    Procedure SafeShowFormModal;
    Var
      v: TVariantArray;
    Begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    End;

    Procedure SafeInitForm2;
    Var
      v: TVariantArray;
    Begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm2', v);
    End;

    Procedure ShowFormModal2;
    Begin
      frmDesign2.ShowModal;
    End;

    Procedure SafeShowFormModal2;
    Var
      v: TVariantArray;
    Begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal2', v);
    End;
       
    begin
      Version := 1.00;
      CPlayer := 0;
      SetupSRL;
      ScriptID := '000';
      SafeInitForm;

      If ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini') <> '' then Begin

      Edit1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini');
      Edit2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Password', AppPath + 'PlayerManagerSK.ini');
      Edit3.Text := ReadINI('Player' + IntToStr(CPlayer), 'Nick', AppPath + 'PlayerManagerSK.ini');
      Edit4.Text := ReadINI('Player' + IntToStr(CPlayer), 'Loads', AppPath + 'PlayerManagerSK.ini');
      Edit5.Text := ReadINI('SRLStats', 'SRLID', AppPath + 'PlayerManagerSK.ini');
      Edit6.Text := ReadINI('SRLStats', 'SRLPass', AppPath + 'PlayerManagerSK.ini');
      ComboBox1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Location', AppPath + 'PlayerManagerSK.ini');
      ComboBox2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Active', AppPath + 'PlayerManagerSK.ini');

      SafeShowFormModal;
      Wait(1000);
      ActivateClient;
      repeat
        LoginPlayer;
        repeat
          SortTheShit;
        until (Loads = Players[CurrentPlayer].Integers[0]);
        NextPlayer(LoggedIn);
      until (false); //0.o
    end.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    SCAR Code:
    If ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini') <> '' then Begin

      Edit1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini');
      Edit2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Password', AppPath + 'PlayerManagerSK.ini');
      Edit3.Text := ReadINI('Player' + IntToStr(CPlayer), 'Nick', AppPath + 'PlayerManagerSK.ini');
      Edit4.Text := ReadINI('Player' + IntToStr(CPlayer), 'Loads', AppPath + 'PlayerManagerSK.ini');
      Edit5.Text := ReadINI('SRLStats', 'SRLID', AppPath + 'PlayerManagerSK.ini');
      Edit6.Text := ReadINI('SRLStats', 'SRLPass', AppPath + 'PlayerManagerSK.ini');
      ComboBox1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Location', AppPath + 'PlayerManagerSK.ini');
      ComboBox2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Active', AppPath + 'PlayerManagerSK.ini');

      SafeShowFormModal;
      Wait(1000);
      ActivateClient;
      repeat
        LoginPlayer;
        repeat
          SortTheShit;
        until (Loads = Players[CurrentPlayer].Integers[0]);
        NextPlayer(LoggedIn);
      until (false); //0.o
    end.
    You need an extra end somewhere. In If ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini') <> '' then Begin it has a begin, so it needs en extra end; Figure out where it goes.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Sep 2007
    Location
    Pennsylvania
    Posts
    3,396
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You forgot an end; in your last if statement

    This one I mean -

    SCAR Code:
    If ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini') <> '' then Begin

      Edit1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Name', AppPath + 'PlayerManagerSK.ini');
      Edit2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Password', AppPath + 'PlayerManagerSK.ini');
      Edit3.Text := ReadINI('Player' + IntToStr(CPlayer), 'Nick', AppPath + 'PlayerManagerSK.ini');
      Edit4.Text := ReadINI('Player' + IntToStr(CPlayer), 'Loads', AppPath + 'PlayerManagerSK.ini');
      Edit5.Text := ReadINI('SRLStats', 'SRLID', AppPath + 'PlayerManagerSK.ini');
      Edit6.Text := ReadINI('SRLStats', 'SRLPass', AppPath + 'PlayerManagerSK.ini');
      ComboBox1.Text := ReadINI('Player' + IntToStr(CPlayer), 'Location', AppPath + 'PlayerManagerSK.ini');
      ComboBox2.Text := ReadINI('Player' + IntToStr(CPlayer), 'Active', AppPath + 'PlayerManagerSK.ini');

    EDIT: Z0mg...Hy is too fast.....

  4. #4
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thnx, that fixed it.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Semicolon expected?
    By TViYH in forum OSR Help
    Replies: 16
    Last Post: 08-31-2008, 05:22 PM
  2. Semicolon Expected
    By Lee Lok Hin in forum OSR Help
    Replies: 4
    Last Post: 03-06-2008, 12:43 AM
  3. Semicolon expected?
    By Johura in forum OSR Help
    Replies: 8
    Last Post: 04-17-2007, 06:02 PM

Posting Permissions

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