JJ's Obelisk Pouch/Scroll Maker

[J J]

JJ's Obelisk Pouch/Scroll Maker
This is a script that camps at the Taverley Obelisk and makes pouches and scrolls. It will sell your secondary's to the store and buy them back for the best experience per hour

Video to show the idea:
www.youtube.com/watch?v=ooxJGNNxUQA



Currently there are two versions.
Version 1 is based on static waiting times. You can lower or raise these waiting times to your likings, depending on the speed of your computer.
Version 2 is based on variable waiting times and is therefore faster for most of the people.

Version 1:
~3300 pouches per hour after solving two random events.
http://img20.imageshack.us/img20/9773/proggy9.png


Version 2:
~4600 pouches per hour after getting a random event.
http://img10.imageshack.us/img10/6761/proggy10v2.png


Version 2 updated for Simba 991 [Progress report from Fruit/Solar]
http://img17.imageshack.us/img17/4876/proggy0.png


Version 3: tweaked by Ashaman88 [Progress report from Ashaman88]
~5500 pouches per hour without getting random events.
http://puu.sh/10RwT


Instructions:
Download the desired version below.
Place your scrolls, empty pouches, shards and charms in the bottom row of your inventory. Place your secondary's in the first inventory slot.

Walk to the Taverley summoning obelisk. Position your character here:
This also shows how your inventory should look like.
http://img820.imageshack.us/img820/9679/starthere.png


Then hit start and it will start running
I did add antiban but the chance of antiban happening is pretty low, you can make antiban happen more often by decreasing the number. The script also solves randoms most of the times but can get unstable afterwards. I suggest you to babysit this script as you get a random every 20 minutes or so because of the experience per hour.
http://img842.imageshack.us/img842/3451/solverandom.png


Problems?
Turn on Debug mode, it is pretty epic
http://img443.imageshack.us/img443/1668/debugea.png

And post some screenshots of what happened with debug pictures!

Enjoy. Leave some progress reports if you can.
I've personally used this script to use 31000 gold charms so it should run stable

Also, thanks Momotron for helping me out with the WaitFunc to make this work a lot faster!

Updated version for Simba 991+ by Ashaman has been added as attachment (JJsSummonerV3)
Also thanks to Fruit/Solar for updating the script to Simba 991, the code can be found on post #16
Thanks both of you

Another version by Le Jingle has been added 28/10/2012 (SummonerV3 LJ)

[illester]

451k an hour! how much does this cost to do?

[Adobe]

Is it possible just to convert pouches into scrolls? With having them in bank or so.

[J J]

451k an hour! how much does this cost to do?

It depends on your secondary's. For me it didn't cost much more because swamp toads can be bought back out of the store for 5 gp each Other items might be more expensive though.

Is it possible just to convert pouches into scrolls? With having them in bank or so.

No, this does not support walking. If you want you could add your own walking and delete the pouch making procedure/selling procedure/buying procedure. Just make a path to the obelisk then use the OpenObelisk/MakeScrolls procedure and walk back to the bank.

[stuartroad]

Mad dog, Definitely going to use this in about a weeks time, looks so amazing, down side is you lose a lot more when you make toad scrolls, only 10gp each!

[Eluvies]

Crazy. Expensive but stable! <3
Not sure if intended but it always oversells what can be bought?

[Zerkeronrs7]

Can I suggest that you add in the option to sell the pouches you make to the store? It's faster that way and you lose less money I gave it a shot but failed
Anyway great script thanks alot, randoms are annoying though lol.

[blinkblink]

Crazy. Expensive but stable! <3
Not sure if intended but it always oversells what can be bought?

I really don't know much about coding but this might work...
line 229

if WaitOptionMulti(['50', 'Sell 50', 'l 5'], 1000) then

Change it to

if WaitOptionMulti(['10', 'Sell 10', 'l 10'], 1000) then

line 244

if WaitOptionMulti(['50', 'y 5', 'All', '500', 'Buy 50'], 1000) then

Change it to

if WaitOptionMulti(['10', 'y 10', 'Buy 10'], 1000) then

What that does it changes the Buy/Sell to only 10
Now to make it repeat it 2 times the process for each so instead of only buying/selling 10 it would be 20 <- we would want that since we want higher xp

At the end of the script code, where you see this:

SellSecondary;
BuySecondary;

Change it to this:

SellSecondary;
SellSecondary;
BuySecondary;
BuySecondary;

I suppose this way it will sell & buy always 20
LOL I might be wrong about this, but test it out

I forgot also change line 335

IncEx(PouchesMade, 23);

to this

IncEx(PouchesMade, 20);

I guess that would also correct the Progress report according to this change

[blinkblink]

Can I suggest that you add in the option to sell the pouches you make to the store? It's faster that way and you lose less money I gave it a shot but failed
Anyway great script thanks alot, randoms are annoying though lol.

Not certain if this would work
Make another function.. I guess copy again the one of SellSecondary, but have it named to SellPouches & change the Mousebox

function SellPouches: Boolean;
begin
  if WaitFunc(@IsShopUp, RandomRange(50, 100), 5000) then
    begin
      if Debug then
        WriteLn('Shop screen is up');
      WriteLn('Selling pouches');
      if SellTime then
        begin
          Mousebox(612, 217, 629, 237, 0);
          if WaitOptionMulti(['50', 'Sell 50', 'l 5'], 1000) then
            Result:=True;
          Wait(WaitTime);
        end else
        begin
          Result:=True;
        end;
    end;
end;

Then at the end of the script code...

SellSecondary;
        BuySecondary;
        CloseShop;
        if OpenObelisk then
          begin
            MakePouches;
            MakeScrolls;
            Proggy;
          end else

Change it to this

SellPouches;
        SellSecondary;
        BuySecondary;
        CloseShop;
        if OpenObelisk then
          begin
            MakePouches;
            //MakeScrolls;
            Proggy;
          end else

[Whatmatters]

This is exactly what I was looking to make. I'll post a proggy when I get around to trying it. Looks good from the screenies! Cheers.

Script gains exp too fast. I got a random in 3 minutes of runnning ugh. Nerf Plox. Aside from needing constant monitoring, the thing is pretty slick.



Ugh!!! Can't go 5 mins without a random. It's almost like doing it myself to keep the efficiency up lol. Oh well. Saves me 5 minutes of clicking at a time.

[ericrootbeer]

it doesn't work for me :S It just runs crazy

[chris91]

Im willing to test it out, I'm 96 summ, would like to get 99. But If I'm going to have to watch it why don't I just do it by hand then?

[litoris]

I might use this when I get members soon, have a few questions though.
1) This is insanely expensive right?
2) Do you lose any secondaries after selling them to the shop? ie. would leaving them there long enough make their count reset to zero?

[iiNveRsioN]

Awesome script! An excellent way to get rid of the huge amount of gold charms that seemly build up..

[J J]

This is exactly what I was looking to make. I'll post a proggy when I get around to trying it. Looks good from the screenies! Cheers.

Script gains exp too fast. I got a random in 3 minutes of runnning ugh. Nerf Plox. Aside from needing constant monitoring, the thing is pretty slick.



Ugh!!! Can't go 5 mins without a random. It's almost like doing it myself to keep the efficiency up lol. Oh well. Saves me 5 minutes of clicking at a time.

Yeah the random rate is just incredibly high for summoning. I'm pretty sure it's around 1 random per 100k xp which can be achieved within minutes when using crimson/blue charns.

it doesn't work for me :S It just runs crazy

Doesn't really help me much on possibly fixing it.

Im willing to test it out, I'm 96 summ, would like to get 99. But If I'm going to have to watch it why don't I just do it by hand then?

You can just let it run while you are only solving the random events. Most of the times the random events gets solved but eventually it will fail to solve a random event so you might aswell watch it.

I might use this when I get members soon, have a few questions though.
1) This is insanely expensive right?
2) Do you lose any secondaries after selling them to the shop? ie. would leaving them there long enough make their count reset to zero?

1) It depends on the secondary's you are using, I personally used like 30k gold charms on my summoning tank and I made barker toads. They sell to the store for like 4 gp and you can buy them back for 8 gp so you are just losing 4 gp per secondary which isn't that much. But for other items the price difference is much higher.
2) I believe they are disappearing at an extremely low rate. Also, no-one else can buy the secondary's so yeah.. sometimes the script sells more secondary's than it should but you can just comment // out the buy procedure to quickly buy up the shops stock :P

Awesome script! An excellent way to get rid of the huge amount of gold charms that seemly build up..

Thanks

I heard that the obelisk doesn't get detected properly anymore so I will look into that.

[Solar]

Updated the script and it seems to be running flawlessly except sometimes it fails to buy the secondary, although it does correct itself.
Will definitely be using this for a while since I haven't trained summoning legit in a couple of years, only with lamps.
I'll edit or repost some proggies in the future. Thanks alot J J.

Edit; proggy1

proggy2

[J J]

Thanks Fruit, added to the first post aswell (PM'd code)

[Ashaman88]

Doing some summoning and with a few edits I'm at



Will test longer when I switch to crimsons in a bit, but great script man!

Edit: Before I got randomed



Edit2: Another random



Edit3: Highest /hr i could get



Edit4: Let me know if you want me to take it down, feel free to take whatever you like from it!

Program JJsSummoner;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i SRL/SRL/misc/debug.simba}
{$i SRL/SRL/misc/smartgraphics.simba}

Var
  PouchesToMake: Integer;

///////////////////////////////////////////////////////////////////////
//                                                                   //
//                  Begin of user setup                              //
//                Fill in the fields below                           //
//                                                                   //
///////////////////////////////////////////////////////////////////////

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  With Players[0] Do
  Begin
    Name          := '';         // ***RS Username***
    Pass          := '';         // ***RS Pass***
    Pin           := '';         // ***RS Pin***
    PouchesToMake := 32000;      // ***How many pouches to make?***
    BoxRewards  := ['Coins', 'oins'];
    Active := True;
  End;
End;

///////////////////////////////////////////////////////////////////////////////////////////
//                                                                                       //
//                            End of user setup                                          //
//           Don't touch below this line unless you know what you're doing!!             //
//                                                                                       //
///////////////////////////////////////////////////////////////////////////////////////////

Var
  FoundMagestix,FoundObelisk,Start: Boolean;
  B,T,PouchesMade,Selling,StartTime,
  MagestixX,MagestixY,ObeliskX,ObeliskY,
  PouchesPH,StartingExperience,XP,XPH: Integer;

Const
  ScriptVersion='2.0';

Procedure SetupLogin;
Begin
  ClearDebug;

  {$IFDEF SIMBAMAJOR980}
    SMART_SERVER := 10;
    SMART_MEMBERS := TRUE;
    SMART_SIGNED := TRUE;
    SMART_SUPERDETAIL := FALSE;
  {$ELSE}
    SRL_SIXHOURFIX := TRUE;
    SMART_FIXSPEED := TRUE;
  {$ENDIF}

  SetupSRL;

  DeclarePlayers;
  LoginPlayer;

  UseFindMod:=False;

  ToggleXPBar(True);
  StartingExperience := GetXPBarTotal;
  StartTime:=GetSystemTime;

  ClickNorth(SRL_ANGLE_HIGH);

  B:= 0;
  Start:=True;
  MarkTime(T);
End;

Function WaitPixelChange(Time:Integer;Points:TPointArray):Boolean;
Var
  T:Integer;
  ColorPoints: TPointArray;
  InitialColors: TIntegerArray;
Begin
  ColorPoints:=Points;
  InitialColors:= GetColors(ColorPoints);
  MarkTime(T);
  Repeat
    If InitialColors<>GetColors(ColorPoints) Then
      Break;
    If TimeFromMark(T) > Time Then
    Begin
      Result := False;
      Exit;
    End;
  Until(False);
  Result := True;
End;

Function WaitInvCountInc(Time:Integer):Boolean;
Var
  Inv1,Inv2,T:Integer;
Begin
  MarkTime(T);
  Inv1 := InvCount;
  Repeat
    Wait(10);
    Inv2 := InvCount;
    If TimeFromMark(T) > Time Then
    Begin
      Result := False;
      Exit;
    End;
    If InvFull Then
      Break;
  Until(Inv2 > Inv1);
  Result := True;
End;

Function WaitInvCountDec(Time:Integer):Boolean;
Var
  Inv1,Inv2,T:Integer;
Begin
  MarkTime(T);
  Inv1 := InvCount;
  Repeat
    Wait(10);
    Inv2 := InvCount;
    If TimeFromMark(T) > Time Then
    Begin
      Result := False;
      Exit;
    End;
  Until(Inv2 < Inv1);
  Result := True;
End;

Function IsShopUp: Boolean;
Begin
  ColorToleranceSpeed(1);
  Result := (CountColorTolerance(3779306, 490, 81, 501, 203, 15) > 100); // Orange scrolling bar
End;

Function IsObeliskUp: Boolean;
Begin
  ColorToleranceSpeed(1);
  Result := (CountColorTolerance(105157, 200, 37, 211, 47, 1) > 30); // Yellow X
End;

Function IsMainSpotUp: Boolean;
Begin
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.02, 1.56);
  Result := (CountColorTolerance(6529477, MSX1, MSY1, MSX2, MSY2, 11) > 2000); // Light brown of the logs
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(0.2, 0.2);
End;

Function SellTime: Boolean;
Begin
  Inc(B);
  Inc(Selling);
  If (B > 22) Then
  Begin
    B := 0;
    Selling := (Selling - 1);
  End;
  If (Selling = 2) Then
  Begin
    Selling := 0;
    Result := True;
  End;
  If Start Then
    Result:=True;
End;

Function TradeMagestix: Boolean;
Var
  Colors: TPointArray;
  SplitColors: Array of TPointArray;
  P: TPoint;

Begin
  If Not LoggedIn Then
    Exit;

  FindNormalRandoms;

  If Not(FoundMagestix) Then
  Begin
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.17, 1.45);
    If FindColorsSpiralTolerance(MSCX, MSCY, Colors, 1546700, MSCX-30, MSCY-80, MSCX+30, MSCY, 14) Then
    Begin
      SplitTPAExWrap(Colors, 3, 3, SplitColors);
      SortATPASize(SplitColors, True);
      P := MiddleTPA(SplitColors[0]);
      MMouse(P.X+RandomRange(-4, 4), P.Y+RandomRange(20, 28), RandomRange(-5, 5), RandomRange(-5, 5));
      If WaitUpTextMulti(['alk', 'ages', 'tix'], 500) Then
      Begin
        FoundMagestix := True;
        MagestixX := P.X;
        MagestixY := P.Y+24;
        ClickMouse2(False);
        If WaitOptionMulti(['rade', 'Trade'], 500) Then
          Result:=True;
      End;
    End;
  End Else
  Begin
    MMouse(MagestixX, MagestixY, RandomRange(-2, 2), RandomRange(-2, 2));
    ClickMouse2(False);
    If WaitOptionMulti(['rade', 'Trade'], 500) Then
      Result:=True;
  End;
End;

Function SellSecondary: Boolean;
Begin
  If Not LoggedIn Then
    Exit;

  If FindNormalRandoms Then
    Exit;

  If WaitFunc(@IsShopUp, RandomRange(50, 100), 6000) Then
  Begin
    If SellTime And ExistsItem(1) Then
    Begin
      Mousebox(567, 217, 589, 237, Mouse_Right);
      If WaitOptionMulti(['50', 'Sell 50', 'l 5'], 1000) Then
        Result:=True;
      If Start Then
      Begin
        Start:=False;
        WaitPixelChange(5000,[Point(565,218),Point(572,217),Point(580,217),Point(571,220)]);
      End;
    End Else
    Begin
      Result:=True;
    End;
  End;
End;

Function BuySecondary: Boolean;
Begin
  If Not LoggedIn Then
    Exit;

  If FindNormalRandoms Then
    Exit;

  Mousebox(180, 199, 211, 218, Mouse_Right);
  If WaitOptionMulti(['50', 'y 5', 'All', '500', 'Buy 50'], 1000) Then
  Begin
    Mousebox(491, 13, 506, 27, Mouse_Move);
    WaitInvCountInc(2000);
    If PinScreen Then
    Begin
      InPin(Players[0].Pin);
      Wait(2000 + Random(2000));
      TradeMagestix;
      BuySecondary;
    End;
    Result:=True;
  End;
End;

Function CloseShop: Boolean;
Var
  X,Y: Integer;
Begin
  If Not LoggedIn Then
    Exit;

  If FindNormalRandoms Then
    Exit;

  GetMousePos(X,Y);
  If Not PointInBox(Point(X,Y),IntToBox(491,13,506,27)) Then
    Mousebox(491, 13, 506, 27, Mouse_Left) Else
    ClickMouse2(True);

  MMouse(ObeliskX, ObeliskY, RandomRange(-15, 15), RandomRange(-15, 15));
  If WaitFunc(@IsMainSpotUp, RandomRange(50, 100), 5000) Then
      Result:=True;
End;

Function OpenObelisk: Boolean;
Var
  Colors: TPointArray;
  SplitColors: Array of TPointArray;
  P: TPoint;
Begin
  If Not InvFull Then
    Exit;

  If Not LoggedIn Then
    Exit;

  FindNormalRandoms;

  If Not(FoundObelisk) Then
  Begin
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.11, 0.13);
    If FindColorsSpiralTolerance(MSCX, MSCY, Colors, 9147284, MSX1, MSY1, MSX2, MSY2, 17) Then
    Begin
      SplitTPAExWrap(Colors, 5, 5, SplitColors);
      SortATPASize(SplitColors, True);
      P := MiddleTPA(SplitColors[0]);
      Repeat
        MMouse(P.X, P.Y, RandomRange(-15, 15), RandomRange(-15, 15));
        If WaitUpTextMulti(['fuse', 'ouch', 'lisk'], RandomRange(300,400)) Then
        Begin
          ObeliskX := P.X;
          ObeliskY := P.Y;
          FoundObelisk := True;
          ClickMouse2(True);
        End;
          If FindNormalRandoms Then
            Exit;
          Wait(Random(500));
      Until IsObeliskUp;
      Result:=True;
    End;
  End Else
  Begin
    If Not IsUpTextMultiCustom(['fuse', 'ouch', 'lisk']) Then
      MMouse(ObeliskX, ObeliskY, RandomRange(-15, 15), RandomRange(-15, 15));

    If WaitUpTextMulti(['fuse', 'ouch', 'lisk'], RandomRange(300,400)) Then
    Begin
      Repeat
        Wait(Random(500));
        ClickMouse2(True);
        If FindNormalRandoms Then
          Exit;
      Until IsObeliskUp;
    End;
    Result:=True;
  End;
End;

Function MakePouches: Boolean;
Begin
  If Not LoggedIn Then
    Exit;

  If FindNormalRandoms Then
    Exit;

  If WaitFunc(@OpenObelisk,RandomRange(50,100),6000) Then
  Begin
    MouseBox(51,68,76,94,Mouse_Right);
    If WaitOptionMulti(['All','Infuse-All'],1000) Then
    Begin
      WaitPixelChange(1000,[Point(709,416),Point(704,410),Point(708,401),Point(700,403)]);
      IncEx(PouchesMade,23);
      Result:=True;
    End;
  End;
End;

Function MakeScrolls: Boolean;
Begin
  If Not LoggedIn Then
    Exit;

  If FindNormalRandoms Then
    Exit;

  If WaitFunc(@OpenObelisk,RandomRange(50,100),5000) Then
  Begin
    MouseBox(110,35,155,50,Mouse_Left);
    WaitPixelChange(1000,[Point(65,100),Point(62,88),Point(82,98),Point(49,104)]);
    Mousebox(51,68,76,94,Mouse_Right);
    If WaitOptionMulti(['All','Infuse-All'],1000) Then
      Result:=True;
    WaitInvCountDec(1000);
  End;
End;

Procedure FailSafe;
Begin
  FindNormalRandoms;
  If (TimeFromMark(t) > 15000) Then
  Begin
    MarkTime(T);
    If FindChatBoxText('inventory',8,clBlack) Then
      CloseShop;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.06,1.58);
    If CountColorTolerance(1803469,494,16,502,24,13) >= 25 Then
    Begin
      CloseShop;
    End else
    Begin
      MouseBox(479, 35, 492, 48, 1);
    End;
  end;
end;

Procedure DrawProggy;
Var
  Bmp: Integer;
Begin
  SMART_ClearCanvas;
  Bmp := BitmapFromString(53, 55, 'meJztmHlslGUex7trNpGrB1Bks4' +
        'luYnZXy7FerG1pRUVEChH/2exGE42bkKyumFUIYpQNnlmRo0JvSu+' +
        '7tLQcPabT+8aWntOZ6Zyd+z3n7kWF/T7v045dQdBllH/2zS9PhtC+' +
        '/cz3dz/Xr///uf0TEhISGXnfmjX3rV4dGR4ecbdx/ut5dONjq1ZFA' +
        'm/16jWRkWtwhoaG322o+SdmU8yTj0dHrATffWADZ1hYeHR0/Nq1v7' +
        '7baOR5KeGlRzY8SvFWrly9ZMnSN998p7dX+eCDv4PH7y7by39+ede' +
        '2Xesf3gC8iIiVy5YtP3Toc4djiudnn39+593Fc7nczY0t257a9vAf' +
        'olaEhoWFRXz++QmWnWWYabf72ltv7btbeKLLC/N6/TabY89re+7/z' +
        'f3AS0rKFsVvzGY3DOplZRX//HgUbGp6luUEmM8/XVZydm3k2pMnM9' +
        '3u6yaTa2LCqddzDDPZ1TUUEvKLnxkM5vb4Od7JCy7R6cFng9FSXl7' +
        'DcbNWqxdsOh1rNArAGx3V/5zqAezq3HVQMZwoiB7R6WVY0cEIZrPT' +
        'bp+0WLxms8tkcsIcDr/Az/zUbCHSc31BN8HpsTE8J7g53oWTFz1gM' +
        'xg4kwnB5tHrBZ2OMxgEaCiKc++/f3jF8hV3/tdv8QS8CfP4pnE6gM' +
        'e7WN4JAV1uv93uMRhEnY7XalnKZrF4OG7mvff+heqHEn0nSKqmIpi' +
        '+vez7rLFB5vJMspwIP07NzDndPlDZ7JzNwQHSbvcajYg0zmgUkRHI' +
        'Vrvdz7LTBw4cWrp0WUTEKpTo/4GNUi02bVtpwCiYtrVE317usJgci' +
        'C5WAJ7bOwn1JDzWYmPMFhFsExMumqpgQykWhKtgW7KEsIWHr/pRsf' +
        'fM5j9dyDrSf/HMQE321xcyYZ2Vaf2XsiihQl4wVJeL/xquyx1tyB+' +
        'V5Q3X55oNOuBBPRByyFOXFwlrtTETJgHxZrG4oRvYEGzQDXj79n1A' +
        'dVu2POztv/31YtaRH0i4JWbThTNf9FSld1WmdVak9lZl9FRndFamj' +
        'sjyxhoLwYMPIFQQMHzOVzYWqpoKLUa9g3MyrABv4nS6vIg6m82DPA' +
        'WSxCYi2ACGqrJ//4eIt/DwlStCw9/d8wpeVZn22Q/B2xT1JL5IY9F' +
        'XbeXJFO/r85kdFamQbkxeQNlgVEOIhlPVVCAvSjbojYg3QXSDDRpC' +
        'QJadAgxciSzACQ1hgjB38OBH0C0sfOXyFeEH3ngVL+mpTi9N/vi2e' +
        'GCDbvLCxJqcL1tKk7rPpXWfSwdhd2WaooGwDdfnAXKwNufKpSx4nP' +
        'BXphx+a09+VqHg8gPP65+mkCazCCqY1Bd4KfAQctMHDx4mbGERcOt' +
        '7b746UJsNv7SUnipP/WQx3k2LQ8LWhIbCRFn+iZqco80lJ8HWU5UB' +
        'BvAo5BQvV91UBCVlBSfkRYnnM794ffdLe175Oyd4nG4/aay+KbAZj' +
        'aR6wKcsO2M2ewGJQocP+/eTPA0NC0cZ+eqjdxAVvdWn28+mNJeeai' +
        'tPonjzJM8lfMdefOFF4MEuZX/ZWJSI3wKYpE/qUG0O2EA4RpIiR16' +
        'Q2FScGPhSg4MKiMZyTl50IR20WjvY0KoQYwwzMzHhhlks/nffJbmw' +
        'fEUYxuOjH+7FC8F2ufo0wOAgindTsF3P79q5bSeM4sHq8493BTx7L' +
        'g1JCudSt0I0eeGJxZpPzVx1sDzLi4g6vZ4ZH3dAK3gTcsEAZrNNge' +
        '3ee5feu2T5bx944OiHbyM2OqUvjrxrkaT7Dh7GQhil2rF1B4WEgLu' +
        '276KETcUne6szAIkUBh4cQX1alvzpYjavfwr9Cw0C6WAyw6c8+oJe' +
        'L4JQo+FNJh/LzsGnv7znV8iF3S88U3X634M12fjWCBtAwjuULRByu' +
        '1/YTQCeS6BsRLrndu54dsf2Ldu3x2/ftnnbU49voYQSXjo0vFKTDe' +
        'n6Lp5BOlRnfJl0+GDGpx+c+eKwakzlnZyBWwXRywt+o9GF8qvVcsD' +
        'TaHC6bLbpf77zQUjIPX9c91DSJ/uu1GQBSQrpdHgWBtcE2CgeeMC2' +
        '45kdW2O2Pr3p6S2PbYl/JH7zhs2x62Nj1sXErItF/lLDF8Sr8AUl5' +
        '+bDv6gn4y3Fuo5SbWuhfawDo5ydcdpZp4NxGoxAEtRqxmBAa4BbfQ' +
        '7H1Tf+cSA0NPTt1//SWpbUf+kMrVTdVelwa3PJKdhi6ShewrMJoIr' +
        'dEBsTFUN4omJi18VStrj1m6OjYigbXoVvB+fiA9KB1GGp0NGiNybP' +
        't07oeNFrtvJWm2CzYXjzQS6dDuXXyzBzJvP03r3vPxv7REnSxwOSY' +
        'h1nU2BtZcmNxV8hSFAZvsNG8eI2xkVHRUeviyZnVDSo8Dl2XUxANG' +
        'qIWDj38nmS+IO1xLkjUvOChgpZ7nivjBM9DOe0OZwTZoQZksKt0Yg' +
        '6vddsmdEbJ48dSTy097XL1Rl9FzOhGKkeJacaChLr8o6jrhLOG9go' +
        'nuRBYlSxzetj4zbEbfj944FoR4Ch29KSgsTvqEiZdy4KS2MBcmRMl' +
        'mvSKAS3H3hWm1OpdCjHOKWKV6t45bBWNaxtqKqsPv0ZwPASqAStYO' +
        'hE9XnHKdVN2She/MZ4GJDiN8bFbYx/5KEnApNk4Gfq808sNIVUEnu' +
        '12XQYgIDq5uKR+hx11yVUOZZ3mcxOtZrX6jyjw8b288XyguMoic3F' +
        'iV2VqRCt42xqbe5RFNK63GPgbC9PuQXb9/WLG3+ATilotbQyw6cYn' +
        '2j4EfXQQeqzDSPdDt5vNPmMEz5F/3BbRUZjwbGWklOICikF0sAGQl' +
        'nBcVn+8YA3bwH2wx9KSBMf/kVqQDcyO0kjAU6kBoJQ3delG1UOdTR' +
        '1lCe3lychuhBjsE5SzZKJehIeGiUFA+Sds32LV5XaeTa5uyKl70IG' +
        'BjwIiIYLJQekHjfakDdSlz1SlzVwKZMUDanF0B4tJWmqVHKT0YDgW' +
        'Zq2QWGjeBUlhRatYnywRzvUO9pZN3DxNLKDlJTGgpH6PKohnUsho7' +
        'KpCP+kaY5snW/WFRhFkuryjkFAsP2oefi2eDYH7/HP8E6v6J5kWK9' +
        '64AqmqaHaLDKLSl7GLIoPwFM2kWgEat+FM62lSX0XMrulXgNCdEbg' +
        'NUiVJLh407Nzdoa3k0XGiU3QZPFpx/TKtqoxWQ6dS+dtYTQFJ5CQm' +
        '4AEGMVDmqCYADKIePQ9Ht8kwDCQk0WVFBBhAklq4PX9HaOyXEQggZ' +
        'TGe5iEl4PAg3P7FmomCNHLEHuQNLh4c99cI8sCJwIPm5fo9GAaQaM' +
        'n/dTkU/X3jtSTQj0/1UsyojZCN8QbOZEdFSkUD22C5kVQ8OhLMPTO' +
        'LzUc8Dx2xg02jHCYRkxm//jQCOoedS5ZjmTzBWdAmpTobtIp1UyIW' +
        'U+KXnIQ8TC8YSxH4GEl5EWP3eHSaDmMIpJ6osU6perrUciyF1dCur' +
        'vRIfPr86cBQ4tez7l04GEMCAoe3nDkyFHs+GDDEs2TGxIfkPQ6kd4' +
        '/kI3G7FN2NylkOdJ4kE/nBDpOK+T5tPRJPYIseig1KHrBij28YVSh' +
        'wqqFCRNRB92wJmAgx65qNpMbEnKBY/ErO2pH63OoYkhYKqOhoxz9D' +
        'lQkf8+mtJYlo7ADVdqqTgULb3JqlhfdwHMwWLhcBgPWQMFq9QEPkz' +
        'BObKxjbVWYCmhGDNaRDqJpLTH3nAMnxaPqkbuFijSMBMEqLKTczXy' +
        'DDdps4Y1kl5m/U8K5cEniMegYRVOZomH+omBEygttW5m+oxyzOom3' +
        'qnQae8gRyBgsPPw6VlSXx2+xkrV04bILSeHQaFiwETN5NEqjQj7fJ' +
        'mjFA6S+vQyDFslcqdzRzR3TLKo08DDpBQVv5uo1xBvLztpsk4CBYg' +
        'DT6TicFgu5ATNOuMdHxiCdUqrGMKyWSmkBQWogRwKrMU5apYF353W' +
        'PjCj9gwyL0PKK4jXp7tcv3YoQ/0rXmFgleMOEWzM0rJTnoc+ONxfT' +
        'rRy60Q0dXl7AS6N48HVgXLlDPJbzorLpdCDxWywkF6CYzeaXTp+0V' +
        'rvNVr92sE8lz4NcSAeas2gcqMwqMmvl0eVOupxJozmCkSBIeLN0fQ' +
        'aJtESzUgQKNOqgJMNMWYDX36FuzEciBKjolkRvYFDoEHKUUBr8UoO' +
        'FhxMwDse0hEeSAqlhNIoQDeGH02r1msweTU/DeFOBrr2ctozxlhK6' +
        'Ziql7gY8GM0O6eYkGT23gdzJnLzz1MDjcl2nhgSBWxFy81FnEKRrY' +
        'ed450V1UwHJBTmZQkF1pSYbuqnmJ9LMy9Xf4mGgIniFidiDgtVzF0' +
        'PCoJtWyxiN5ArRYhZUrRXq5kK1lBfzkx5283qSyxha4Fni3Co62Kf' +
        'TaRnqYXQJ7jh6IydMZD3GrkpDR5kOe0czKSYoxehrUpEhlzB0c6fr' +
        'Rh+5kU6FW1tKkqBnEPFu5Lzx0baW6trLIKC6uUjTWgpClGUohmYBQ' +
        'gTkrdfVn/oJ/F0UEySypqVE01KMKn23eG763Hap/1HPfwCWogq+');
  SetTransparentColor(Bmp,clWhite);
  FastReplaceColor(Bmp,clWhite,0);
  SMART_DrawBitmap(False,Bmp,Point(31, 218));
  FreeBitmap(Bmp);
End;

Procedure ProgressReport;
Var
  Sec: Integer;
Begin
  ClearDebug;

  XP := (GetXPBarTotal - StartingExperience);
  XPH := Round(XP * (3600.0 / (GetTimeRunning / 1000.0)));
  PouchesPH := Round((PouchesMade * (3600.0 / (GetTimeRunning / 1000.0))));
  Sec := (1+((GetSystemTime-StartTime)/1000));

  SMART_ClearCanvasArea(IntToBox(0, 324, 350, 388));
  SMART_DrawText(5, 247, UpCharsEx, 'JJ''s          v'+ScriptVersion, RGBToColor(100, 190, 225));
  SMART_DrawText(5, 275, UpCharsEx, 'Running for: '+TimeRunning+'', ClWhite);
  SMART_DrawText(5, 290, UpCharsEx, 'Pouches made: '+IntToStr(PouchesMade)+' at '+ToStr(PouchesPH)+' per hour', ClWhite);
  SMART_DrawText(5, 305, UpCharsEx, 'Scrolls made: '+IntToStr(10*(PouchesMade))+' at '+IntToStr(((PouchesMade*36000)/Sec))+' per hour', ClWhite);
  SMART_DrawText(5, 320, UpCharsEx, ''+ToStr(XP)+' Summoning xp gained at '+ToStr((XPH))+' per hour', ClWhite);

  Writeln('=========JJs Summoner=========');
  Writeln('=========Version: '+ScriptVersion+'=========');
  Writeln('Time Running: ' + TimeRunning);
  Writeln('Pouches Made: ' + IntToStr(PouchesMade));
  Writeln('Experience Earned: ' + IntToStr(XP));
  Writeln('Experience/Hour: ' + IntToStr(XPH));
  Writeln('Pouches/H: ' + IntToStr(PouchesPH));
  Writeln('===============================');
End;

Begin
  SetUpLogin;

  DrawProggy;
  Repeat
    If TradeMagestix Then
    Begin
      SellSecondary;
      BuySecondary;
      CloseShop;
      MakePouches;
      MakeScrolls;
      ProgressReport;
    End Else
      FailSafe;

    If Not LoggedIn Then
      LoginPlayer;
  Until (AllPlayersInactive) Or (PouchesMade >= PouchesToMake);
End.

[J J]

No problem with the code at all, I'll add it to the first post aswell
Unfortunately the random event rate is incredibly high so you can't get long proggies unless you are using gold charms like me. And even then it was a random once in 20-30 minutes :P

[Ashaman88]

No problem with the code at all, I'll add it to the first post aswell
Unfortunately the random event rate is incredibly high so you can't get long proggies unless you are using gold charms like me. And even then it was a random once in 20-30 minutes :P

Yeah it is pretty funny how fast you get randoms with this method, but insane xp rates! Thanks again!

[Smithsservice]

[Error] C:\Simba\Scripts\SummonerV2.simba(31:3): Unknown identifier 'Smart_Server' at line 30
Compiling failed.

Help Please..

[Ashaman88]

[Error] C:\Simba\Scripts\SummonerV2.simba(31:3): Unknown identifier 'Smart_Server' at line 30
Compiling failed.

Help Please..

Ah jj forgot to upload the version I posted. Just copy the version I posted a couple posts up!

[Mat]

[Error] C:\Simba\Scripts\SummonerV2.simba(31:3): Unknown identifier 'Smart_Server' at line 30
Compiling failed.

Help Please..

So many threads and post about this please use the search function on the forums.

[Solar]

Updated version for Simba 991+ by Ashaman has been added as attachment (JJsSummonerV3)
Also thanks to Fruit/Solar for updating the script to Simba 991, the code can be found on post #16
Thanks both of you

At the bottom of the first post.

[J J]

Yeah I didn't upload the script properly for some reason :S I must have forgotten to click update topic because I did update the OP.