Page 5 of 5 FirstFirst ... 345
Results 101 to 117 of 117

Thread: Home's Mobilising Armies Suicider

  1. #101
    Join Date
    Feb 2012
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by oxox0xoxo View Post
    great script thanks helps a lot =]
    works for you? not for me, logs out after 3-4 games

  2. #102
    Join Date
    Dec 2011
    Posts
    496
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by werder View Post
    works for you? not for me, logs out after 3-4 games
    Werder that's why you have to babysit... it isn't hard to log it back in every 25 mins or so.
    Nearly maxed, woowweee.

  3. #103
    Join Date
    Feb 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script, some problems with contracts

  4. #104
    Join Date
    Feb 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Home View Post
    1. I will take a look into that.
    2. I will take a look into that.
    3. It's my lazy ass Antiban :P


    Can you Capture whole process into video so I can fix these issues.


    ~Home
    just wondeirn if u have fixed it yet could u pm me please if theer is a solution

  5. #105
    Join Date
    Feb 2012
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by momotron View Post
    Werder that's why you have to babysit... it isn't hard to log it back in every 25 mins or so.
    well yes i can babysit every couple hours but not evry 10 minutes because that aint botting than.
    Last edited by werder; 02-28-2012 at 03:16 PM.

  6. #106
    Join Date
    Feb 2012
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    runs for an hour then somehow deletes all of the contracts and logs out

  7. #107
    Join Date
    Feb 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How do i make it do more than 5 games before logging out.. and saying like out of credits.. when i got 400k creds left.. ? please help

  8. #108
    Join Date
    Nov 2011
    Location
    In your bed ;)
    Posts
    123
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by petter95 View Post
    How do i make it do more than 5 games before logging out.. and saying like out of credits.. when i got 400k creds left.. ? please help
    not sure as i haven't managed to finsish the tutorial for the mini-game (ITS HARD!)

  9. #109
    Join Date
    Jan 2012
    Location
    Finland
    Posts
    133
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lovely script. Had some issues with stability but all-in-all, I got rank 300 in few days!

    It sometimes made 2-3 games before crashing and one time I got it close to 20 IIRC.
    Bot hard or get banned trying.

  10. #110
    Join Date
    Nov 2011
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay so basically the problem is:

    The bot wins a match and no units are lost, it then goes to do its routine and resupply all of them. When it goes to do this, it thinks there is no credits because the units are already supplied.

    Another problem is that the bot sometimes forgets to attack the castle before sleeping. After it does this is drifts off to the middle of no-where and leaves the units to do nothing, then it leads to bigger problems such as shutting down.

    Hope this helps and makes more sense of what other people are saying.

  11. #111
    Join Date
    Feb 2012
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Braiden View Post
    Okay so basically the problem is:

    The bot wins a match and no units are lost, it then goes to do its routine and resupply all of them. When it goes to do this, it thinks there is no credits because the units are already supplied.

    Another problem is that the bot sometimes forgets to attack the castle before sleeping. After it does this is drifts off to the middle of no-where and leaves the units to do nothing, then it leads to bigger problems such as shutting down.

    Hope this helps and makes more sense of what other people are saying.
    yeah i have these problems aswell my longest proggy is like 15 mins

  12. #112
    Join Date
    Mar 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm pressing run on the .simba, i'm getting this error

    [Error] (363:8): Unknown identifier 'PercentBlackMM' at line 362
    Compiling failed.

  13. #113
    Join Date
    Nov 2006
    Location
    Location, Location
    Posts
    1,126
    Mentioned
    6 Post(s)
    Quoted
    41 Post(s)

    Default

    <3 you Home.


  14. #114
    Join Date
    Dec 2011
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try this guys

    {$I SRL/SRL.simba}



    var
    Sst: Integer;
    Ver: string;


    procedure DeclarePlayers;
    begin

    HowManyPlayers := 4; //How many players in the script. (No Need To Touch. For Those Players What You Don't Wan't To Use Put Active := False
    CurrentPlayer := 0; //Current player in the Players array.
    NumberOfPlayers(HowManyPlayers); //Don't change.

    with Players[0] do
    begin
    Name := ''; {Player Username}
    Pass := ''; {Player Password}
    Pin := ''; {Player Bank Pin}

    Integers[20] := 10; {How Much Invest Per Suicide}

    Active := True; {Use This Player?}

    end;
    end;







    procedure SDebug(Debug: string);
    begin
    Writeln('[' + TheTime + '] - ' + 'Debug: ' + Debug);
    end;




    function ScenarioScreen :Boolean;
    begin
    Result := CountColorTolerance(2071039, 20, 29, 474, 47, 20) > 250;
    end;


    function SiegeScreen :Boolean;
    begin
    Result := CountColorTolerance(2071039, 20, 29, 474, 47, 20) > 400;
    end;


    function RecruitScreen :Boolean;
    begin
    Result := CountColorTolerance(2071039, 21, 14, 466, 34, 20) > 100;
    end;


    function InvestmentScreen :Boolean;
    begin
    Result := CountColorTolerance(3512831, 279, 58, 481, 77, 20) > 300;
    end;


    function FindRecruiter :Boolean;
    var
    TPA: TPointArray;
    aTPA : T2DPointArray;
    MiddlePoint :TPoint;
    Hi, I, TempCTS :Integer;
    begin
    Flag;
    while IsMoving do Wait(RandomRange(100, 250));
    TempCTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.04, 0.29);

    FindColorsSpiralTolerance(MSCX, MSCY, TPA, 7492688, MSX1, MSY1, MSX2, MSY2, 19);
    If Length(TPA) = 0 Then Exit;
    aTPA := TPAToATPAEx(TPA, 5, 5);
    SortATPAFromFirstPoint(aTPA, Point(MSCX, MSCY));
    Hi := Length(aTPA);
    for I := 0 to Hi - 1 do
    begin
    MiddlePoint := MiddleTPA(aTPA[I]);
    MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
    If WaitUpTextMulti(['Recr', 'ecru', 'uiter'], 150) then
    begin
    ClickMouse2(Mouse_Right);
    If WaitOptionMulti(['Manage', 'anage', 'nage'], 350) then
    begin
    Flag;
    Result := WaitFunc(@RecruitScreen, RandomRange(100, 250), 3500);
    If Result then
    Break;
    end;
    end;
    end;
    ColorToleranceSpeed(TempCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    end;




    function FindEntrance :Boolean;
    var
    TPA: TPointArray;
    aTPA : T2DPointArray;
    MiddlePoint :TPoint;
    Hi, I, TempCTS :Integer;
    begin
    Flag;
    SDebug('Finding Entrance');
    TempCTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.10, 2.78);

    FindColorsSpiralTolerance(MSCX, MSCY, TPA, 11327460, MSX1, MSY1, MSX2, MSY2, 14);
    If Length(TPA) = 0 Then Exit;
    aTPA := TPAToATPAEx(TPA, 5, 5);
    SortATPASize(aTPA, True);
    Hi := Length(aTPA);
    for I := 0 to Hi - 1 do
    begin
    If Length(aTPA[I]) > 100 then Continue;
    MiddlePoint := MiddleTPA(aTPA[I]);
    MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
    If WaitUpTextMulti(['limb', 'room', 'rance'], 150) then
    begin
    ClickMouse2(Mouse_Right);
    If WaitOptionMulti(['limb', 'Cli', 'own', 'Dow'], 350) then
    begin
    Flag;
    Result := WaitFunc(@ScenarioScreen, RandomRange(100, 250), 5500);
    If Result then
    Break;
    end;
    end;
    end;
    ColorToleranceSpeed(TempCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    end;






    function FindWall(SP :TPoint) :Boolean;
    var
    TPA: TPointArray;
    aTPA : T2DPointArray;
    MiddlePoint :TPoint;
    Hi, I, TempCTS :Integer;
    begin
    MMouse(SP.X, SP.Y, 5, 5);
    If WaitUpTextMulti(['Castle', 'astle', 'sle', 'wall'], 250) then
    begin
    ClickMouse2(Mouse_Right);
    If WaitOptionMulti(['ttack C', 'ack Ca'], 350) then
    begin
    Result := True
    Exit;
    end;
    end;
    TempCTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.05, 0.58);

    FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9544365, MSX1, MSY1, MSX2, MSY2, 14);
    If Length(TPA) = 0 Then Exit;
    aTPA := TPAToATPAEx(TPA, 40, 40);
    SortATPAFromFirstPoint(aTPA, SP);
    Hi := Length(aTPA);
    for I := 0 to Hi - 1 do
    begin
    MiddlePoint := MiddleTPA(aTPA[I]);
    MMouse(MiddlePoint.X, MiddlePoint.Y, 0, 0);
    If WaitUpTextMulti(['Castle', 'astle', 'sle', 'wall'], 150) then
    begin
    ClickMouse2(Mouse_Right);
    If WaitOptionMulti(['ttack C', 'ack Ca'], 350) then
    begin
    Result := True
    Break;
    end;
    end;
    end;
    ColorToleranceSpeed(TempCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    end;




    //North = Blue.
    //South = Red.
    //East = Yellow.
    //West Green.

    function GetArmyLocation(var Dir : Integer; var StartPoint :TPoint) : String;
    var
    DirArr, Colors :TIntegerArray;
    I :Integer;
    Loc :TStringArray;
    TPA :TPointArray;
    begin
    SDebug('Searching Army Location');
    Loc := ['W', 'S', 'E', 'N'];

    {Green = 297 Red = 280 Yellow = 280 Blue 270}
    Colors := [441136, 592313, 567264, 13504519]

    {0 = Up 1 = Right 2 = Down, 3 = Left}
    DirArr := [1, 0, 3, 2];

    TPA := [Point(359, 117), Point(244, 140), Point(185, 134), Point(280, 220)]

    for I := 0 to 3 do
    If CountColorTolerance(Colors[I], MCX1, MCY1, MCX2, MCY2, 20) > 100 then
    begin
    Dir := DirArr[I];
    StartPoint := TPA[I];
    Result := Loc[I];
    SDebug('Location Is ' + Result);
    Exit;
    end;
    end;



    function MoveToCastle(var SP :TPoint) :String;
    var
    Loc :String;
    Dir, I, C :Integer;
    StartPoint :TPoint;
    begin
    Loc := GetArmyLocation(Dir, StartPoint);
    SDebug('Moving To Castle ' + Result);

    If Loc = '' then Exit;

    If (Loc = 'E') or (Loc = 'W') then
    C := 1
    else
    C := 2;
    SDebug('We Need ' + IntToStr(C + 1) + ' Moves');

    for I := 0 to C do
    SendArrowWait(Dir, RandomRange(250, 350));

    SP := StartPoint;
    Result := Loc;
    SDebug('Moved Succesfully');
    Wait(RandomRange(2000, 3500));
    end;


    function TroopsTab :Boolean;
    var
    TPA :TPointArray;
    begin
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.02, 0.70);
    FindColorsTolerance(TPA, 8762062, MIX1, MIY1, MIX2, MIY2, 14);
    Result := Length(TPA) > 150;
    ColorToleranceSpeed(1);
    SetColorSpeed2Modifiers(0.2, 0.2);
    end;


    function NotTroopsTab :Boolean;
    begin
    Result := not TroopsTab;
    end;



    function WaitTroopsTab(Time :Integer) :Boolean;
    var
    T :Integer;
    begin
    If TroopsTab then
    begin
    Result := True;
    Exit;
    end;

    MarkTime(T);
    while (TimeFromMark(T) < Time) do
    begin
    If Not LoggedIn then Exit;
    TypeByte(112);
    Wait(RandomRange(250, 355));
    if TroopsTab then
    begin
    Result := True;
    Break;
    end;
    end;
    end;







    procedure MobiliseArmy;
    var
    Loc :String;
    TPA :TPointArray;
    aTPA :T2DPointArray;
    MiddlePoint, StartPoint :TPoint;
    I, Hi :Integer;
    begin
    Loc := MoveToCastle(StartPoint);
    WaitTroopsTab(RandomRange(1500, 2500));
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.02, 0.70);

    FindColorsTolerance(TPA, 8762062, MIX1, MIY1, MIX2, MIY2, 14);
    If Length(TPA) <> 0 then
    begin
    aTPA := TPAtoATPAEx(TPA, 10, 10)

    Hi := Length(aTPA);
    for I := 0 to Hi - 1 do
    begin
    SDebug('Troop ' + IntToStr(I) + ' Attack!');
    WaitTroopsTab(RandomRange(1500, 2500));
    MiddlePoint := MiddleTPA(aTPA[I]);
    Mouse(MiddlePoint.X, MiddlePoint.Y, 3, 3, mouse_Left);
    FindWall(StartPoint);
    WaitFunc(@NotTroopsTab, RandomRange(25, 50), 1500);
    end;
    end;
    ColorToleranceSpeed(1);
    SetColorSpeed2Modifiers(0.2, 0.2);
    SDebug('All Troops Are Attacking Castle');
    end;





    function BlackMM(Percent, PercentBlackMM, Time :Integer) :Boolean;
    var
    T :Integer;
    begin
    MarkTime(T);
    while (TimeFromMark(T) < Time) do
    begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if PercentBlackMM >= Percent then
    begin
    Result := True;
    Break;
    end;
    end;
    end;



    function GetIn :Boolean;
    begin
    If FindEntrance then
    begin
    SDebug('Found Entrance');
    if WaitFunc(@ScenarioScreen, RandomRange(100, 250), 3500) then
    Mouse(341, 127, 10, 10, mouse_Left);
    if WaitFunc(@SiegeScreen, RandomRange(100, 250), 3500) then
    Mouse(438, 294, 5, 5, mouse_Left);

    if WaitFunc(@InvestmentScreen, RandomRange(100, 250), 3500) then
    begin
    Wait(RandomRange(100, 250));
    Mouse(284, 209, 5, 5, mouse_Left);
    While not GetColor(472, 394) = 0 do
    begin
    If Not LoggedIn Then Exit;
    Wait(RandomRange(300, 450));
    end;
    Wait(RandomRange(900, 1000));
    SDebug('Investing ' + IntToStr(Players[CurrentPlayer].Integers[20]) + ' Points');
    TypeSend(IntToStr(Players[CurrentPlayer].Integers[20]));
    Mouse(385, 303, 5, 5, mouse_Left);
    end;
    end;
    end;



    function InBattle :Boolean;
    var
    I :Integer;
    Colors :TIntegerArray;
    begin
    {Green = 297 Red = 280 Yellow = 280 Blue 270}
    Colors := [441136, 592313, 567264, 13504519]
    for I := 0 to 3 do
    If CountColorTolerance(Colors[I], 8, 345, 17, 468, 20) > 100 then
    Result := True;
    end;


    function MiniGameArea :Boolean;
    begin
    Result := Length(GetMiniMapDots('NPC')) > 3;
    end;



    function WaitRoom :Boolean;
    var
    T :Integer;
    begin
    MarkTime(T);
    SDebug('In Waiting Room');
    while (TimeFromMark(T) < 300000) do
    begin
    If Not LoggedIn then Exit;
    Wait(RandomRange(10, 25));
    if InBattle then
    begin
    Result := True;
    Wait(RandomRange(2500, 3500));
    SDebug('At War');
    Break;
    end;
    end;
    end;






    function SimpleClose :Boolean;
    begin
    If CountColorTolerance(7490635, MSX1, MSY1, MSX2, MSY2, 29) > 150 then
    begin
    SDebug('Closing Result Screen');
    MMouse(457, 57, 3, 3);
    If WaitUpTextMulti(['Click', 'ick'], 350) then
    ClickMouse2(mouse_Left);
    Wait(RandomRange(500, 600));
    end;
    end;






    function FindLadders :Boolean;
    var
    TPA: TPointArray;
    aTPA : T2DPointArray;
    MiddlePoint :TPoint;
    Hi, I, TempCTS :Integer;
    begin
    MakeCompass('N');
    for I := 0 to 1 do
    SimpleClose;
    SDebug('Finding MainScreen Ladders');
    TempCTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.03, 0.40);

    FindColorsSpiralTolerance(MSCX, MSCY, TPA, 3557721, MSX1, MSY1, MSX2, MSY2, 13);
    If Length(TPA) = 0 Then Exit;
    aTPA := TPAToATPAEx(TPA, 30, 30);
    SortATPASize(aTPA, True);
    Hi := Length(aTPA);
    for I := 0 to Hi - 1 do
    begin
    MiddlePoint := MiddleTPA(aTPA[I]);
    MMouse(MiddlePoint.X, MiddlePoint.Y, 2, 2);
    If WaitUpTextMulti(['limb', 'tairs', 'up'], 250) then
    begin
    ClickMouse2(Mouse_Right);
    If WaitOptionMulti(['limb', 'Cli', 'own', 'Dow'], 350) then
    begin
    Flag;
    Result := WaitFunc(@MiniGameArea, RandomRange(100, 250), 5500);
    SDebug('Found Ladders');
    Break;
    end;
    end;
    end;
    Wait(RandomRange(1000, 2000));
    ColorToleranceSpeed(TempCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    end;


    procedure AntiBan;
    var r: Integer;
    begin
    if not LoggedIn then Exit;
    r := (RandomRange(1, 14));
    if (r = 4) then
    begin
    SDebug('AntiBan');
    case Random(20) of
    0:
    begin
    MakeCompass('Random');
    end;
    1:
    begin
    RandomRClick;
    end;
    2:
    SetAngle(SRL_ANGLE_HIGH);
    3:
    RandomRClick;
    4:
    Mouse(MIX1, MIY1, MIX2, MIY2, False);
    5:
    MMouse(MMX1, MMY1, MMX2, MMY2);
    end;
    SDebug('Sleeping..');
    end;
    end;




    function WhileInBattle :Boolean;
    var
    T :Integer;
    TPA :TPointArray;
    begin
    MarkTime(T);
    SDebug('Sleeping..');
    while (TimeFromMark(T) < 1800 * 1000) do
    begin
    If Not LoggedIn then Exit;
    AntiBan;
    Wait(RandomRange(1500, 2500));
    if not InBattle then
    begin
    Result := True;
    Wait(RandomRange(1500, 2500));
    SDebug('War Is Over!');
    Break;
    end;
    end;
    end;



    function OutOfCredits :Boolean;
    begin
    Result := CountColorTolerance(6710886, 32, 298, 121, 316, 2) > 200;
    end;



    function ReSupply :Boolean;
    begin
    If FindRecruiter then
    begin
    If OutOfCredits then
    begin
    LogOut;
    SDebug('Out Of Credits. Logging Out.');
    LogOut;
    TerminateScript;
    end;
    Mouse(78, 308, 5, 5, mouse_Left);
    Wait(RandomRange(350, 550));
    Mouse(327, 226, 5, 5, mouse_Left);
    end;
    end;




    function LadderPointExists(var Ladder :TPoint) :Boolean;
    var
    TempCTS :Integer;
    TPA :TPointArray;
    begin
    Result := False;
    TempCTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.64, 3.76);
    FindColorsSpiralTolerance(MMCX, MMCY, TPA, 536665, MMX1, MMY1, MMX2, MMY2, 3);
    FilterPointsDist(TPA, 0, 75.5, MMCX, MMCY);
    if Length(TPA) <> 0 then
    begin
    Ladder := TPA[0];
    Result := True;
    end;
    ColorToleranceSpeed(TempCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    end;




    function Walk(Where :String) :Boolean;
    var
    LadderPoint :TPoint;
    begin
    SDebug('Walking To ' + Where);
    If LadderPointExists(LadderPoint) then
    begin
    If Where = 'ReSupply' then
    Mouse(LadderPoint.X - 35, LadderPoint.Y - 10, 2, 2, mouse_Left)
    else
    Mouse(LadderPoint.X, LadderPoint.Y + 5, 2, 2, mouse_Left);
    end
    else
    begin
    If Where = 'ReSupply' then
    Mouse(601, 86, 2, 2, True)
    else
    Mouse(664, 96, 2, 2, True)
    end;
    while isMoving do Wait(RandomRange(200, 400));
    Flag;
    end;



    procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour, Shadow: integer);
    var
    mx, my, Pic, I, B, H, TPH, Numb: Integer;
    TTP: TPointArray;
    Canvas: TCanvas;
    begin
    SmartSetDebug(True);
    GetClientDimensions(mx, my);
    Pic := BitmapFromString(mx, my, '');
    TPH := High(TP);
    for I := 0 to TPH do
    begin
    TTP := LoadTextTPA(TP[i], SmallChars, H);
    for B := 0 to High(TTP) do
    begin
    Numb := ((I + 1) * 13);
    FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, Shadow);
    FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
    end;
    end;
    Canvas := TCANVAS.Create;
    Canvas.Handle := SmartGetDebugDC;
    DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
    FreeBitmap(Pic);
    end;



    procedure DoSmartPrint;
    var
    Wet, Wst, Cst, Srt, Tih, Tim, Tis, Awt, Sec: Integer;
    begin

    Cst := GetSystemTime;
    Srt := (cst - sst) / 1000;
    Tih := srt / 3600;
    tim := (srt / 60) - tih * 60;
    Tis := srt - tim * 60 - tih * 3600;
    Awt := wet - wst
    Sec := GetTimeRunning div 1000 + 1;

    PrintOnSmart([' Home'#39's Mobilising Armies Suicider 0,1 ' + Ver], Point(15, 30), clRed, 131072);
    PrintOnSmart([
    'Name : ' + Capitalize(Players[CurrentPlayer].Name),
    '',
    'Suicide Trips / Hour : ' + IntToStr(Round(3600 * Players[CurrentPlayer].Integers[2] / Sec)),
    '',
    'Suicide Trips Done : ' + IntToStr(Players[CurrentPlayer].Integers[2]),
    '',
    'Worked : ' + TimeRunning,
    '',
    ''], Point(20, 60), 1959605, 131072)

    end;



    procedure PlayerStats;
    var
    Wet, Wst, Cst, Srt, Tih, Tim, Tis, Awt, Sec: Integer;
    begin
    Cst := GetSystemTime;
    Srt := (cst - sst) / 1000;
    Tih := srt / 3600;
    tim := (srt / 60) - tih * 60;
    Tis := srt - tim * 60 - tih * 3600;
    Awt := wet - wst
    Sec := GetTimeRunning div 1000 + 1;
    Writeln('+++++++++++++++++++++++++++++++++++++++++ ++++++++++++++');
    Writeln(' Home'#39's Mobilising Armies Suicider 0,1 ');
    Writeln('+++++++++++++++++++++++++++++++++++++++++ ++++++++++++++');
    writeln('Name : ' + Capitalize(Players[CurrentPlayer].Name));
    Writeln('Suicide Trips / Hour : ' + IntToStr(Round(3600 * Players[CurrentPlayer].Integers[2] / Sec)));
    Writeln('Suicide Trips Done : ' + IntToStr(Players[CurrentPlayer].Integers[2]));
    Writeln('Worked : ' + TimeRunning);
    Writeln('Time : ' + TheTime)
    Writeln('-------------------------------------------------------');
    end;



    procedure ProgressReport;
    begin
    PlayerStats;
    WriteLn(' ');
    DoSmartPrint;
    end;




    begin
    Smart_Server := 39;
    Smart_Members := True;
    Smart_Signed := True;
    Smart_SuperDetail := False;
    SetupSRL;
    DeclarePlayers;
    ClearDebug;
    SDebug('Welcome To Home''s MA!');
    MakeCompass('N');
    If Not InBattle then SetAngle(SRL_ANGLE_HIGH);
    repeat
    GetIn;
    WaitRoom;
    MobiliseArmy;
    WhileInBattle;
    If FindLadders then
    Inc(Players[CurrentPlayer].Integers[2]);
    Walk('ReSupply');
    ReSupply;
    Walk('Entrance');
    ProgressReport;
    until(False);
    end.

  15. #115
    Join Date
    Feb 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    When i try to run the script now it says this:

    [Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\beekeeper.simba(194:3): Variable 'T' never used at line 193
    [Error] (363:8): Unknown identifier 'PercentBlackMM' at line 362
    Compiling failed.

    Anyone help ;o

  16. #116
    Join Date
    Mar 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i get the same message as above. I have no scripting knowledge and am a true beginner at simba, eager to learn. I'd love someone to be able to come up with the fix if anyone has it. "[Error] (363:8): Unknown identifier 'PercentBlackMM' at line 362
    Compiling failed."
    Does anyone have the fix for this? Thanks so much in advanced!
    Last edited by FlyingMonkey; 03-07-2012 at 10:22 AM.

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

    Default

    Locked.

    No more updates on this one.

    ~Home

Page 5 of 5 FirstFirst ... 345

Thread Information

Users Browsing this Thread

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

Posting Permissions

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