I have fixed the script as far as I know (I haven't done hour long tests). I have removed the terminate script after pin fail due to the fact that it doesn't even try before it fails. So MAKE SURE your pin is right.
(*
|------------------------------------------------------------------|
| |
| Putonajonny's Flipping Script |
| Updated by Rouids |
| |
|------------------------------------------------------------------|
| |
| What does it do? |
| This script will flip items for you, buying low selling |
| high, it assigns one item per account then will cycle |
| through the accounts flipping the items you choose. Setup |
| below. |
| |
|------------------------------------------------------------------|
| |
| Setup: |
| 1) Get the NPC Colour of the GE Clerk |
| 2) Set the Wait Time |
| 3) If you want to be alerted when the script ends, select |
| a sound path |
| 4) Set the number of players. |
| 5) Select your items to merch and the prices to buy and |
| sell them at. |
| 6) Enter the account details, make sure you have as many |
| accounts as items (the script will check this) and then |
| make sure they are all at the GE (I have only tested it |
| with the South East Station, stood slightly South West |
| of the table. Place all money in pouch and all items in |
| inventory (any spot) |
| 7) Start The Script. |
| |
| |
| Optional: |
| 8) You can uncomment a couple of lines to use ObjectDTMs to |
| get to the correct location should you move. |
| |
|------------------------------------------------------------------| *)
program Merchenting;
{.include SRL/SRL/Misc/Smart.simba}
{.include SRL/SRL.simba}
{.include sps/sps.simba}
//{.include ObjectDTM/ObjDTMInclude.simba}
Var
ClearDebugS, CheckedYellows, ResetAccounts, WriteLines : Boolean;
ItemsToMerch, PriceToBuy, PriceToSell : TStringArray;
FreeSpots : TIntegerArray;
GEScreen, GEArrow, GEArrowLeft, CancelButton, i, j, x, y, ys, CurrentAccount, tol, Money, NumberToBuy, ItemsMerched, TimesCollected, Profit : Integer;
CurrentStatus, Text, Ver : String;
GE : TPointArray;
Reset : TBooleanArray;
Const
NCPColour = 1905429;
WaitTime = 10; //After cycling through the accounts, how long should it wait before it goes through them again (minutes)
AlertSoundPath = 'C:\Simba\bird.wav'; //A sound to play to alert you when the script ends, must be a .wav
Version = 4;
SRLStats_Username = 'IDoNotHaveAnAccount'; //If you don't have an account leave it as it is
SRLStats_Password = '123abc';
procedure DeclarePlayers;
begin
ResetAccounts := True; //Clear everything currently in GE that is pending? (First time through only)
ClearDebugS := True; //Clear Debug Screen?
WriteLines := True; //Use the debug box to know what is going on, if false you only get proggys/errors/breaks.
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
ItemsToMerch := ['ItemMerch1',' ItemMerch2'] //if your item is not the first on the list when this is typed let me know and I'll add compatibility for this
PriceToBuy := ['PriceBuy1','PriceBuy2'] //Change PriceBuy1&2 to the amount of gp you want to buy (PriceBuy1 = ItemMerch1, PriceBuy2 = ItemMerch2)
PriceToSell := ['PriceSell1','PriceSell2'] //Change PriceSell1&2 to the amount of gp you want to buy (PriceSell1 = ItemMerch1, PriceSell2 = ItemMerch2)
Players[0].Name :='UserNameHere'; //use " if you are getting ~
Players[0].Pass :='PassWordHere';
Players[0].Active := True;
Players[0].Pin := '';
Players[1].Name :='UserNameHere'; //use " if you are getting ~
Players[1].Pass :='PassWordHere';
Players[1].Active := True;
Players[1].Pin := '';
(*
Players[2].Name :=''; //use " if you are getting ~
Players[2].Pass :='';
Players[2].Active := True;
Players[2].Pin := ''; *)
//add more account if you are doing more items.
end; //End of required setup.
function GEOpen : Boolean;
begin
Wait(500+Random(200));
Result := FindBitmapToleranceIn(GEScreen, x, y, 0, 0, 100, 100, 10) //check ge screen is open
end;
Procedure Swapsies(Active : Boolean);
Var W : Integer;
begin
Status('Swapsies')
If(not Active) then
WriteLn('There was something wrong with that account, you might want to take a look... we wont use it again');
CheckedYellows := False;
If(CurrentAccount = High(PriceToBuy)) then
begin
CurrentAccount := 0
If(LoggedIn) then
Logout;
WriteLn('I have been through all of the accounts for you')
WriteLn('Waiting for '+IntToStr(WaitTime)+' minutes ('+IntToStr(WaitTime*60000)+' miliseconds)')
Repeat
Wait(WaitTime*600)
Inc(W)
If(WriteLines) then
WriteLn(IntToStr(W)+'% through wait time');
Until(W = 100);
Wait(Random(5000));
end else
Inc(CurrentAccount);
If(LoggedIn) then
Logout;
SwitchToPlayer(CurrentAccount,Active)
Repeat
LoginPlayer;
Wait(2000+Random(1000));
Until(LoggedIn)
end;
function OpenGEScreen : Boolean;
begin
Status('Opening GE Screen')
Wait(500+Random(200));
If(GEOpen) then
Exit;
SetAngle(SRL_ANGLE_LOW);
Wait(2000+Random(2000));
If(WriteLines) then
WriteLn('245');
ys := 0;
tol := 1;
Repeat
FindColorTolerance( x, y, NCPColour, 0, 0, 517, 335, tol)
MMouse( x, y, 3, 4)
inc(tol);
If(GEOpen) then
Exit;
If(WriteLines) then
WriteLn('Increaseing Tolerance To: '+IntToStr(tol));
If(tol>3) then
begin
tol := 0
inc(ys)
If(WriteLines) then
WriteLn(ys);
end;
Until((WaitUptextMulti(['erk','and','alk','xch'], 200)) or (ys > 3));
If(ys > 3) then
begin
Swapsies(False);
exit;
end;
If(WriteLines) then
WriteLn(IntToStr(x)+', '+IntToStr(y));
ClickMouse2(False)
Wait(200+Random(200));
If(not WaitOption('ange G',2000)) then
WriteLn('I need to tell it to do something...');
Wait(50+Random(50));
If(PinScreen) then
begin
Repeat
InPin(Players[CurrentAccount].Pin);
Until((not PinScreen))
end;
Result := GEOpen;
end;
function ErrorChecks : Boolean;
Var Buy, Sel, Ite, Pla : Integer;
begin
Status('Checking the setup is correct')
If((GetArrayLength(ItemsToMerch) = GetArrayLength(PriceToBuy)) and (GetArrayLength(PriceToSell) = GetArrayLength(PriceToBuy)) and (HowManyPlayers = GetArrayLength(PriceToBuy))) then
begin
If(WriteLines) then
WriteLn('You have set the script up correctly');
Result := True
end else
begin
ClearDebug;
WriteLn('*********you have set the script up wrong, try again**********')
WriteLn('Checking Why it is Set Up Wrong...')
Wait(500)
Buy := GetArrayLength(PriceToBuy)
Sel := GetArrayLength(PriceToSell)
Ite := GetArrayLength(ItemsToMerch)
Pla := HowManyPlayers;
WriteLn('**You are trying to buy '+IntToStr(Ite)+ ' item(s), you have provided me with '+IntToStr(Buy)+' price(s) to buy at and '+IntToStr(Sel)+' price(s) to sell at, you have given me '+IntToStr(Pla)+' player(s) to use**')
WriteLn('If they were not all the same number, that is why, please re enter the Declare Players Section')
Result := False
end;
end;
Procedure Declares;
begin
GE := [Point(313, 87)]
GEScreen := BitmapFromString(26, 23, 'meJyllbGL2zAUxjP2D+iQNUMHj3' +
'ZuiKG5xtAkJzq5Xc7LtbgdWt1wYNIWTDkogVIw5SgZ3TFDhww3ZCl' +
'4zZgxo9eMGT2GftJzdIpsXw8KH+Ip1vu97wlJcfqj7ulZk04GDOo+' +
'K4PaKeT0x/+E1Aqo7uCuCgQU0ZqYWNmKlq3FtpVtd/s9ggMNnwSNO' +
'DqNJErUGWvbbtudkizX182QTgamMaKVK48bbPDGTFen1N3Yfjp0+q' +
'Om/TG8YWp7zA8jjGrnpSuMI6n7aIY30KwDjcwc9kpwYIz0cG+W+1y' +
'jncm9Eq4U6n+8KZque7w98mLy1nKDqjdFIFfU7wO9PX5iN9HusP16' +
'Wi9cdrzYGpb71nEjxLafWF4IWpXT1Ck4UJCso8Vu+meXZsWvVXG7L' +
'tZ5Ef7M224gacNalHFiwUmWWySCkGQFaNPbHIrSDeOp7cfo90AbGk' +
'zjgmP9ZCFQcAJUvNx5/DfOhs24F85YvCbbkB7rKEULeBLcbJKsdIU' +
'2w9kGtOBHjjhZ7ckqvqIciqIWYoiABs2PFlgzlZYw8jTHLvH5NkzF' +
'iE+ohV8Ah1icoVDH5RZLnOPnkWh8tkJWNBdFBUrS0BGLVhBye0Fqu' +
'YGUTxLHTKr2Ybyeb4QTiQLH4xmORM+P9fTyBknRoTVQBtBPxA4rgo' +
'I4FdmaK/1Zqz7dxr0WOuZIY+Nqbu1/Qc3dUTR50hTNsPHq/dU5n0D' +
'vPn99+fZSn378fkPBizcfEISTL5fX3y6uPkEI1Bp2/hqJlPsXYSlG' +
'TA==');
GEArrow := BitmapFromString(15, 20, 'meJyF0TsKwkAUhWEhVikURJF0ii' +
'giCIEoWIgvLKIQi4CNuoK0NjaCpZXLsBR0D6LL8sgNx5s4EPiLmcm' +
'XYSbxRr438nN2C2HQmyyQTGWsE7m+XJEYPU1hedTd7ZEYTpvTIOWJ' +
'8+ejGI5jPPaZxsx63zIxDEtg0zGs151lntmItef1jVii5xewng8d1' +
'5HG3z2TUr+id/6dIUumL2iS+o4VN/z3lM4wqi1PSLzT36LUT48lHg' +
'0jqRGe45WkF1nqBIhYPJisI/GUqOxuED3X6QuNOSu2V9prqRkxvV0' +
'f4KZGpjEYqs4OH0hs+G8=');
GEArrowLeft := BitmapFromString(32, 26, 'meJyllctLVGEYxv8aIQ2FmVEcZa' +
'aZTHQmu00IRSO4CBdDq9wZzGKIFl4WAyGZECYuQpA2LqJoFQWtlNY' +
't7Q/pd+bRl3e+c/EGD4dz+c7veW/fOYVKfbTap8KtmmlwrIxGihXE' +
'Sb484+VXpqpSL1SS+SKPT9+tzzerD59xfmW+t/DwqblGY+E5fE4C/' +
'oXgKXzgudIdYn78pNlafvV0YWlypsGdDH5Q2DhfFgYnZiJ/udJZ6a' +
'zjQvyeH5AzOniKPbPwcMivVzc7b96pPjSCR+q1ddy6b5dS4C44a1Q' +
'WwTe6u2/f72EBfKI6fbt2HwsTFUM8QrxCDBZGnI+Aj07dU0Nhbu8c' +
'SJwvtpZpgcTTQNxkAWoutWiWJi0ooOYQOMsIe+/T4f7nbxzhk4LEf' +
'bTW3UKYelFD8uVdjmRBETyfS9LHl26KfPjlJ5KFXDIka0w1DJ7PJK' +
'jm3CQMmF+//zaZS4bMHRfgcT7nlIUFP34de3jgkiizkAsRxvn0muK' +
'QGvyjP38TyRm+PguqhIXxtVNyxdJQbow7tN5b+DgDMsuUbMBHdIHN' +
'6OOP+tuzIAsGjBdPTv5xNHLAF9yKGVSpu/UhPj/MJxaIEcWCt7Dgq' +
'BfFF5PsvAIXjnS5/mje821/cRMLNumDxReslIU1TrNnA69doIFpt9' +
's8RVSY8KhDIp/vgyzKs3PkuPNxlwgxomtRysVSNMmkyZreMgaDqg4' +
'M501ccpMi+P3rvz+RRe9FYmBoiY0KkAIfAdFURq1JlH3r+r7bZ/B8' +
'mY7XDEUkZE0KbHzFdtF/SvBf6OebRfStLpYoKVLM1+QHWVDSG0M3k' +
'VX4CvwA7iUL377r8306YWqXJJ/+SdPjj1un/sQvw09LIfn3fZ7+A0' +
'S+hg4=');
CancelButton := BitmapFromString(12, 13, 'meJwTkukWlp0oJNMtINnEL1ENRH' +
'zi5UAEZ/MIZ0AU8IkVcwunwBFQHIIg4kAFjCxKQISsBoLg4kCVEDY' +
'jswymAogaoIEgEWYZEIKZhqwARSNYDTLCtB1ZOy4FuNRAHANBDIxi' +
'WO2CqwEqgKjB5SmIAiDC5Xe4GlzO4+QLBkYTkMslEIWpBijIzuPJx' +
'u0KAANyPnw=');
end;
function CheckUsedSpaces : TIntegerArray;
Var a, b : Boolean;
begin
Status('Deciding what to do next')
If(not GEOpen) then
begin
Repeat
OpenGEScreen;
Until(GEOpen)
end;
a := FindBitmapToleranceIn(GEArrow, x, y, 22, 102, 104, 187, 10)
b := FindBitmapToleranceIn(GEArrow, x, y, 179, 111, 261, 200, 10)
Result := [ a, b]
end;
function ReadPouchMoney : String;
begin
Status('Checking how many monies you have ;)')
Wait(200+Random(500))
Mouse( 529, 102, 4, 4, False)
WaitOption('mine', 500);
Wait(500+Random(200));
If(WriteLines) then
WriteLn('1923');
Result := GetTextAt( 222, 441, 0, 100, 10, 0, 5, 20, 'SmallCharsNS')
Wait(2000+Random(2000))
end;
function ConvertPouchMoney : Integer;
Var first, Res : String; p : Integer;
begin
Status('sorting out a complete mess')
Mouse( 87, 490, 5, 3, True)
Repeat
Repeat
Text := ReadPouchMoney;
First := Copy(Text,1,1)
Until((First = '1') or (First = '2') or (First = '3') or (First = '4') or (First = '5') or (First = '6') or (First = '7') or (First = '8') or (First = '9'))
i := Pos('co',Text)
Until(i <> 0)
Case i of
2..4 : Res := Copy(Text,1,i-1);
6 : Res := Copy(Text,1,1)+Copy(Text,3,3);
7 : Res := Copy(Text,1,2)+Copy(Text,4,3);
8 : Res := Copy(Text,1,3)+Copy(Text,5,3);
10 : Res := Copy(Text,1,1)+Copy(Text,3,3)+Copy(Text,7,3);
11 : Res := Copy(Text,1,2)+Copy(Text,4,3)+Copy(Text,8,3);
12 : Res := Copy(Text,1,3)+Copy(Text,5,3)+Copy(Text,9,3);
14 : Res := Copy(Text,1,1)+Copy(Text,3,3)+Copy(Text,7,3)+Copy(Text,11,3);
end;
If(WriteLines) then
WriteLn('Result: '+Res);
For p := 1 to Length(Res) do
begin
If(((Copy(Res,p,1)) = '0') or ((Copy(Res,p,1)) = '1') or ((Copy(Res,p,1)) = '2') or ((Copy(Res,p,1)) = '3') or ((Copy(Res,p,1)) = '4') or ((Copy(Res,p,1)) = '5') or ((Copy(Res,p,1)) = '6') or ((Copy(Res,p,1)) = '7') or ((Copy(Res,p,1)) = '8') or ((Copy(Res,p,1)) = '9')) then
begin
If(WriteLines) then
WriteLn('Digit '+IntToStr(p)+ ' is ok ('+Copy(Res,p,1)+')');
end else
begin
If(WriteLines) then
begin
WriteLn('Digit '+IntToStr(p)+ ' in the number read is not ok ('+Copy(Res,p,1)+')')
WriteLn('lets try again')
end;
Result := -1
Exit;
end;
end;
If(Length(Res) = 0) then
begin
Result := -1
Exit;
end;
Result := StrToInt(Res);
If(WriteLines) then
WriteLn('Money in Pouch of player '+IntToStr(CurrentAccount)+' = '+IntToStr(Result));
Mouse( 31, 490, 5, 3, True)
end;
Procedure PickupItemsGreen;
begin
Status('Collecting Your Winnings')
If(not GEOpen) then
exit;
Repeat
If(FindColorTolerance(x, y, 1999423, 31, 81, 333, 203, 10)) then
begin
MMouse(x+Random(100),y+Random(8),0,0)
Repeat
ClickMouse2(True)
Wait(200+Random(100))
Until(not FindColorTolerance(x, y, 1999423, 31, 81, 333, 203, 10))
If(WriteLines) then
WriteLn('292');
If(FindColorTolerance(x, y, 1875398, 400, 280, 430, 320, 1)) then
begin
Inc(TimesCollected);
end;
Wait(200+Random(1000))
If(FindColorTolerance(x, y, 1875398, 453, 283, 485, 315, 1)) then
begin
Inc(TimesCollected);
end;
Mouse( 417, 296, 8, 8, True);
Mouse( 464, 298, 8, 8, True);
Wait(200+Random(1000))
end;
Wait(300+Random(1000))
Until(not FindColorTolerance(x, y, 1999423, 31, 81, 333, 203, 10))
end;
Procedure AnotherCheck;
begin
Status('hmmmmmmmm... what to do?')
If(not GEOpen) then
OpenGEScreen;
FreeSpots := CheckUsedSpaces;
If(FreeSpots[1] = 0) then
begin
Swapsies(True);
exit;
end;
Mouse( 101, 135, 15, 15, True)
Wait(500+Random(200));
If(FindColorTolerance( x, y, 2176579, 416, 296, 418, 298, 3)) then
begin
Mouse( 48, 298, 5, 2, True)
Swapsies(True);
end else
begin
Inc(TimesCollected)
Mouse( 417, 297, 6, 6, True)
Wait(500+Random(200));
Mouse( 465, 300, 6, 6, True)
Wait(500+Random(200));
Mouse( 48, 298, 5, 2, True)
end;
end;
function GetText(font:string) : String;
begin
Result := GetTextAt( 564, 217, 0, 100, 10, 0, 5, 20, Font)
//CreateF
end;
function CheckSell : integer;
begin
Status('I wish I was better at Decision making')
Result := 0;
GameTab(tab_inv);
for j := 1 to 28 do
begin
if (ExistsItem(j)) then
Result := j;
end;
end;
Procedure Sell;
begin
CheckedYellows := False;
Status('Sell...Sell...Sell..')
i := CheckSell
If(WriteLines) then
begin
case i of
1..28 : WriteLn('There is an item in inventory space '+IntToStr(i)+' - lets sell it!');
0 : WriteLn('Nothing in inventory to sell');
end;
end;
Case i of
0 : AnotherCheck;
1..28 : begin
If(WriteLines) then
WriteLn('Lets sell the '+IntToStr(GetAmount(ItemCoords(i).x,ItemCoords(i).y))+' '+ItemsToMerch[CurrentAccount]+'s that we have');
stats_IncVariable('Items Merched', GetAmount(ItemCoords(i).x,ItemCoords(i).y));
Mouse( 290, 151, 8, 8, True)
Wait(500+Random(5000))
InvMouse( i, 1)
Mouse( 197, 220, 5, 3, True)
Wait(500+Random(2000))
Mouse( 388, 221, 8, 8, True)
Wait(1000+Random(2000))
TypeSend(PriceToSell[CurrentAccount])
Wait(1000+Random(2000))
Mouse( 263, 294, 15, 8, True)
Wait(500+Random(2000))
end;
end;
end;
Procedure Buy;
begin
Status('Buy..Buy..Buy..')
CheckedYellows := False;
If(FindColorTolerance(x, y, 101318, 181, 80, 333, 203, 10)) then
begin
Wait(500+Random(200))
Mouse(257, 133, 30, 30, True)
Wait(500+Random(200))
Mouse(418, 298, 15, 15, True)
Wait(100+Random(50))
Mouse(469, 299, 15, 15, True)
Wait(500+Random(200))
If(FindBitmapToleranceIn(GEArrowLeft, x, y, 0, 264, 128, 366, 10)) then
Mouse(48, 298, 10, 3, True);
Wait(1000+Random(200))
end;
Repeat
Money := ConvertPouchMoney;
Until(Money <> -1)
NumberToBuy := Floor(Money /StrToInt(PriceToBuy[CurrentAccount]))
stats_IncVariable('Items Merched', NumberToBuy);
stats_IncVariable('Profit Made',NumberToBuy*(StrToInt(PriceToSell[CurrentAccount])-StrToInt(PriceToBuy[CurrentAccount])));
ItemsMerched := ItemsMerched + NumberToBuy;
Profit := Profit + NumberToBuy*(StrToInt(PriceToSell[CurrentAccount])-StrToInt(PriceToBuy[CurrentAccount]))
If(WriteLines) then
WriteLn('We have enough money to buy '+IntToStr(NumberToBuy)+' '+ItemsToMerch[CurrentAccount]+'s.');
If(NumberToBuy = 0) then
begin
If(WriteLines) then
WriteLn('Not enough money to buy any... lets sell!');
FreeSpots := CheckUsedSpaces;
If(FreeSpots[1] = 1) then
begin
Sell;
Exit;
end else
begin
AnotherCheck;
Exit;
end;
end;
If(not GEOpen) then
OpenGEScreen;
Mouse( 72, 152, 15, 15, True);//Fail Safes
Wait(200+Random(500));
Mouse( 80, 464, 40, 3, True);
Wait(1000+Random(400));
TypeSend(ItemsToMerch[CurrentAccount]);
Wait(1000+Random(200));
Mouse( 105, 350, 40, 3, True);
Wait(200+Random(500));
Mouse( 238, 221, 7, 7, True);
Wait(1000+Random(400));
TypeSend(IntToStr(NumberToBuy));
Wait(1000+Random(500));
Mouse( 388, 222, 7, 7, True);
Wait(1000+Random(400));
TypeSend(PriceToBuy[CurrentAccount]);
Wait(1000+Random(4000));
Mouse( 260, 294, 30, 7, True);
Wait(2000);
PickupItemsGreen;
end;
Procedure ResetCurrentAccount;
begin
If((not ResetAccounts) or (Reset[CurrentAccount])) then
exit;
Status('Clearing Everything on Account '+IntToStr(CurrentAccount));
If(WriteLines) then
WriteLn('Lets Clear Everything on Account '+IntToStr(CurrentAccount));
FreeSpots := CheckUsedSpaces;
for i := 0 to 1 do
begin
If(FreeSpots[i] = 0) then
begin
If(WriteLines) then
WriteLn('Clearing everything in the '+IntToStr(i)+' position');
Repeat
case i of
0 : Mouse(104,138,60,47,True);
1 : Mouse(259,138,61,46,True);
end;
Wait(500+Random(200));
Until(FindBitmapToleranceIn(CancelButton, x, y, 331, 261, 400, 317, 3))
Repeat
Mouse(x+1+Random(7),y+1+Random(7),0,0,True);
Wait(400+Random(400));
Until(not FindBitmapToleranceIn(CancelButton, x, y, 331, 261, 400, 317, 3))
Wait(500+Random(2000));
Repeat
Mouse(418,298,10,10,True)
Wait(200+Random(200));
Until(not FindColorTolerance( x, y, 1048714, 68, 299, 377, 321, 2))
end;
end;
Reset[CurrentAccount] := True;
end;
Procedure CheckRandoms;
begin
Status('You so random')
FindNormalRandoms;
If Not(LoggedIn) Then
begin
If(WriteLines) then
WriteLn('I think we failed a random - I will just Check');
LoginPlayer;
FindNormalRandoms;
If Not(LoggedIn) Then
begin
If(WriteLines) then
WriteLn('Client has Logged Out So Probably Failed a Random - Terminating Script');
TerminateScript;
end
end;
end;
Procedure PickupItemsYellow;
begin
If(CheckedYellows) then
Exit;
Status('Collecting Your Winnings - Yellow')
If(not GEOpen) then
exit;
If(FindColorTolerance(x, y, 101318, 34, 153, 175, 202, 10)) then
begin
MMouse(x+Random(100),y+Random(8),0,0)
Inc(TimesCollected)
Repeat
ClickMouse2(True)
Wait(200+Random(100))
Until(not FindColorTolerance(x, y, 101318, 34, 153, 175, 202, 10))
If(not FindColorTolerance(x, y, 1979458, 417, 297, 419, 299, 10)) then
Mouse(418, 298, 15, 15, True);
Wait(200+Random(1000));
If(not FindColorTolerance(x, y, 1979458, 466, 297, 468, 299, 10)) then
Mouse(467, 298, 15, 15, True);
Wait(200)
If(FindBitmapToleranceIn(GEArrowLeft, x, y, 0, 264, 128, 366, 10)) then
Mouse(48, 298, 10, 3, True);
end;
Wait(300+Random(400))
If(FindColorTolerance(x, y, 101318, 185, 159, 332, 197, 10)) then
begin
Inc(TimesCollected)
MMouse(x+Random(100),y+Random(8),0,0)
Repeat
ClickMouse2(True)
Wait(200+Random(100))
Until(not FindColorTolerance(x, y, 101318, 34, 153, 175, 202, 10))
If(not FindColorTolerance(x, y, 1979458, 417, 297, 419, 299, 10)) then
Mouse(418, 298, 15, 15, True);
Wait(200+Random(1000));
If(not FindColorTolerance(x, y, 1979458, 466, 297, 468, 299, 10)) then
Mouse(467, 298, 15, 15, True);
Wait(200)
If(FindBitmapToleranceIn(GEArrowLeft, x, y, 0, 264, 128, 366, 10)) then
Mouse(48, 298, 10, 3, True);
end;
Wait(300+Random(400))
CheckedYellows := True;
end;
Procedure Proggy;
begin
WriteLn('[-----------------------------------------------]')
WriteLn('['+PadR(PadL('',32),47)+']')
WriteLn('['+PadR(PadL(' Putonajonnys Merchanting Script',32),47)+']')
WriteLn('['+PadR(PadL(' Version: '+IntToStr(Version),32),47)+']')
WriteLn('[-----------------------------------------------]')
WriteLn('['+PadR(' Time Running: '+TimeRunning,47)+']')
WriteLn('['+PadR(' Items Merched: '+IntToStr(ItemsMerched),47)+']')
WriteLn('['+PadR(' Times Collected: '+IntToStr(TimesCollected),47)+']')
WriteLn('['+PadR(' Profit: '+IntToStr(Profit),47)+']')
WriteLn('[-----------------------------------------------]')
WriteLn('['+PadR(' Active Accounts:',47)+']')
for i := 0 to High(ItemsToMerch) do
begin
WriteLn('['+PadR(' Account '+IntToStr(i)+' ('+Players[i].Name+') : '+BoolToStr(Players[i].Active),47)+']')
end;
WriteLn('[-----------------------------------------------]')
end;
Procedure EndScript;
begin
Status('Goodbye... I will miss you :(')
WriteLn('Goodbye...')
PlaySound(AlertSoundPath);
FreeBitmap(3)
FreeBitmap(4)
FreeBitmap(5)
FreeBitmap(6)
end;
Procedure UpdateScript;
Var NewScript : String; Suc : Boolean;
begin
If(FileExists('C:\Simba\Scripts\Merchenting v'+Ver+'.simba')) then
begin
ClearDebug;
WriteLn('You are trying to run an older version of this script even though you have the newer version')
WriteLn('It is stored at "C:\Simba\Scripts\Merchenting v'+Ver+'.simba"')
TerminateScript;
end;
If(Not DirectoryExists('C:\Simba\Scripts')) then
CreateDirectory('C:\Simba\Scripts');
NewScript := GetPage('http://pastehtml.com/view/bimye4g26.txt')
If ((CreateFile('C:\Simba\Scripts\Merchenting v'+Ver+'.simba') = -1) or (not WriteFileString(0, NewScript))) then
Suc := False
else
Suc := True;
WriteLn(FileSize(0));
CloseFile(0);
If((FileExists('C:\Simba\Scripts\Merchenting v'+Ver+'.simba')) and Suc) then
begin
ClearDebug;
WriteLn('There is a new version of the script, updating...')
Wait(500+Random(4000));
WriteLn('Updated The Script, new version stored at "C:\Simba\Scripts\Merchenting v'+Ver+'.simba"')
TerminateScript;
end else
begin
ClearDebug;
WriteLn('Sorry I was not able to auto update this script, you can update it manually')
WriteLn('Opening the web page for you to update')
OpenWebPage('http://pastehtml.com/view/biaj2biir.html');
TerminateScript;
end;
end;
Procedure CheckVersion;
Begin
If(WriteLines) then
WriteLn('Checking if you have the most up to date version');
Ver := GetPage('http://pastehtml.com/view/biaj1s82r.txt');
If(Ver = '') then
begin
WriteLn('There was an error connecting to the Update Server so I will assume that you have the most up to date Version')
Exit;
end;
If IntToStr(Version) = Ver then
begin
If(WriteLines) then
WriteLn('You are using the most up to date version -Thank you');
end
end;
begin
CheckVersion;
Smart_Server := 11;
Smart_Members := False;
Smart_Signed := False;
Smart_SuperDetail := False;
SetupSRL;
SetupSRLStats(385, SRLStats_Username, SRLStats_Password);
AddOnTerminate('EndScript');
CurrentAccount := 0;
ItemsMerched := 0;
TimesCollected := 0;
SetArrayLength(Reset,GetArrayLength(ItemsToMerch));
DeclarePlayers;
If(not ErrorChecks) then
TerminateScript;
Declares;
SetArrayLength(Reset,GetArrayLength(ItemsToMerch));
(* If(LoggedIn) then
Logout;
LoginPlayer; *)
Wait(4000+Random(1000))
If(ClearDebugs) then
ClearDebug;
CheckVersion;
If(not ErrorChecks) then
TerminateScript;
Repeat
Stats_Commit;
CheckRandoms;
Repeat
OpenGEScreen;
Until(GEOpen);
PickupItemsGreen;
PickupItemsYellow;
ResetCurrentAccount;
FreeSpots := CheckUsedSpaces;
If(WriteLines) then
WriteLn(FreeSpots);
CurrentStatus := 'Swapping Accounts'
If(FreeSpots[0] = 1) then
CurrentStatus := 'buying'
else
begin
If(FreeSpots[1] = 1) then
CurrentStatus := 'selling';
end;
If(WriteLines) then
WriteLn(CurrentStatus);
Case CurrentStatus of
'Swapping Accounts' : AnotherCheck;
'buying' : buy;
'selling' : Sell;
end;
If(not GEOpen) then
OpenGEScreen;
Proggy;
Until(False)
end.
