There is still something wrong with the banking. My attempt at a fix seems to have made it worse :/. The cursor just hangs over the inventory after opening the bank. Blue d hide are visible in the bank screen. It will bank blue dhide bodies and just close the bank.
The following makes it look very bot like, I am going to try my best to add some randomness to the cord's I picked. Hopefully it works. Also, this will only work if you have the hides in the correct spot (4th row down as far right as possible).
program S1NAioDragonhides;
{$DEFINE SMART}
{$Define Crashsmart}
{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}
var
bodyDTM, vambDTM, chapDTM,dhideDTM,dhideDTM2,TimeToWait,needleDTM,Thing,Thingy:Integer;
//Progress Integers
HM,Made,XPEarned,XPPerItem,Sec,StartTime,XPH,ItemsPH:integer;
procedure Setup;
begin
Thing := 1; //1 = Body, 2 = Vambs, 3 = chaps
XPPerItem := 210;// PLEASE CHANGE THIS TO THE AMOUNT OF EXP YOU GET FROM ONE
HowManyPlayers := 1; //ITEM that you craft
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure Proggy;
begin
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XPEarned) / (SeC);
ItemsPH := (3600*Made) / Sec;
writeLn('===================================');
writeLn('=======S1NAioDragonhides 1.2===========');
writeLn('Time Running: ' + TimeRunning);
writeLn('Itemz Made: ' + IntToStr(Made));
writeLn('XP Earned: ' + IntToStr(XPEarned));
writeLn('XP/H Is: ' + IntToStr(XPH));
writeLn('Items/H Is: ' + IntToStr(ItemsPH));
writeLn('====================================');
writeLn('=====================================');
end;
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True; //my bad :3
Smart_SuperDetail := False; //my name was about to show up :c
SetupSRL; //AIO, supports ALL hides.
Setup;
LoginPlayer;
end;
procedure Declaration;
begin
if Thing = 1 then
begin
writeLn('We are crafting bodies');
Thingy := DTMFromString('m1gAAAHic42JgYFgGxHOBeAMUrwfieUC8FIhXAvFCqPgRRgaGnUC8A4hPAPEFKL6EhPcDMXcgL1A1Ewp2szPGEPvPQBxgJBIjAACBoxCv');
TimeToWait := RandomRange(17000,21000);
HM := 9;
end;
if Thing = 2 then
begin
writeLn('We are crafting vambs');
Thingy := DTMFromString('mlwAAAHicY2dgYOBlZGBgBmJOIBYCYmkglgViESA+BMTHgfgsEJ8C4iNAvB+IdwMxmxY7UDcTVvyfATdgxIOhAADd+Ac0');
TimeToWait := 47000;
HM := 27;
end;
if Thing = 3 then
begin
writeLn('We are crafting chaps');
Thingy := DTMFromString('m1gAAAHic42JgYKhmZGAoheISKF0GxLVA3ADEjVD6EBDvBOKDQHwMiM8C8UUoBrFPAvEBIGY34ACaykQQ/2cgDjASiREAAMXEDgI=');
TimeToWait := 24000;
HM := 13;
end;
end;
procedure SetDTM;
begin
dhideDTM := DTMFromString('m1gAAAHic42JgYPgKxK+gNCMjAwMrEP8Esl8A8Xsg/g3ELECxXiA9FYhnA/E0IG4H4kYGiPhMIJ4DxH1AzGHNCSSZCOL/DMQBRiIxAgAA+b4NyQ==');
needleDTM := DTMFromString('m1gAAAHic42JgYOBnZGAQAWJ2IOYBYkkgFoeKCTFC5HmB+CQQ7wXiS1D2ViDeDcSHgPg4EJ+BynW1NANNZWJgY2MD07jwfwbiACORGAEAXTgLOw==');
dhideDTM2 := DTMFromString('m6wAAAHic42ZgYKhlYmBoAuJCIO4G4g4gLgHiciCuBuJWqDgIszEyMIgCMRcjhM0PxIJALAzEIlCaE4gZgVhORgZoOhNR+D8D8YCRBIwEAKkWB7Q=');
end;
procedure FreDTM;
begin
FreeDTM(dhideDTM);
FreeDTM(needleDTM);
freeDTM(Thingy);
freeDTM(dhideDTM2);
end;
procedure WithdrawDhide;
var
x,y,x2,y2,x3,y3:integer;
begin
SetAngle(SRL_ANGLE_HIGH);
OpenBankChestEdge(SRL_BANK_SW);
repeat
wait(100);
until(PinScreen or BankScreen);
if PinScreen then
begin
InPin(Players[CurrentPlayer].Pin);
wait(RandomRange(900,1100));
end;
if BankScreen then //GOD I Hate this thing >.>
begin
wait(RandomRange(900,1100));
MouseItem(RandomRange(2,3),mouse_Right);
wait(RandomRange(800,1100));
ChooseOption('All');
if FindDTM(dhideDTM,x,y,MSX1,MSY1,MSX2,MSY2) then
begin
Mouse(RandomRange(440,460), RandomRange(230,250),0,0,False);
wait(RandomRange(900,1100));
ChooseOption('All');
wait(RandomRange(900,1100));
if FindBlackChatMessage('nothing') or FindBlackChatMessage('leather') then
begin
writeLn('oh noes, we are out of hides');
TerminateScript;
end; //hmm i guess FindBlackChat isn't working :L yeah it isn't working :L
CloseBank;
end;
end;
end;
procedure CraftShit;
var
x,y:integer;
begin
if FindDTM(dhideDTM2,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
Mouse(RandomRange(570,585), RandomRange(220,240), 0,0,True);
end;
wait(RandomRange(1100,1300));
if FindDTM(needleDTM,x,y,MCX1,MCY1,MCX2,MCY2) then
begin
Mouse(RandomRange(240,265),RandomRange(410,425), 0,0,True);
wait(RandomRange(900,1100));
end;
if FindDTM(thingy,x,y,MCX1,MCY1,MCX2,MCY2) then
begin
Mouse(RandomRange(110,200),RandomRange(400,460),0,0,True);
end;
case random(4) of
1: SetAngle(SRL_ANGLE_HIGH);
2: MakeCompass(RandomRange(1,359));
end;
wait(TimeToWait);
Made := Made + HM;
XPEarned := Made * XPPerItem;
end;
begin
SetupLogin;
SetupSRL;
Setup;
LoginPlayer;
SetDTM;
Declaration;
ActivateClient;
StartTime:=GetSystemTime;
ClearDebug;
repeat
WithdrawDhide;
CraftShit;
proggy;
until(false);
FreDTM;
end.
EDIT: Also, I hope you don't mind my editing and learning with your script! If you do, I will stop and will find something else to try with!
EDIT2: Still has the error "The automatically split characters are too wide. Try decreasing minspacing" but I guess the way I did it brute forced my way past that. Once every few loads the script seems to not want to click the craft button, but seems to correct itself after it rebanks.
PROGGY
=======S1NAioDragonhides 1.2===========
Time Running: 10 Minutes and 51 Seconds
Itemz Made: 180
XP Earned: 37800
XP/H Is: 209353
Items/H Is: 996
====================================
=====================================
EDIT3: New DTM for Blue Dhide Body is
DTMFromString('mfgEAAHicrcxJCoAwEAXR1pVRUHAGB4xew1MJ4vWtwHflUhteAg3VpZk1aFEhRwqHRH/YFagxYMIiK2ZsuuPUZ2rCzV7dCK/Ga/fc7NSF5joP3viz3f6Z6CfvuQErCATf');
Couldn't be bothered with the others
