The script will constantly be updated. And I hope you understand that the reason I do it the way I do, is for the safety of the user.
two problem exist in your bot.
1st: http://youtu.be/vNtR1FYBfNU
it happens sometimes.
2rd: http://youtu.be/2hzHDp4srhY
it happens sometimes.
Hope you can fix it.
Siuman101, Those problems are unfortunately misclicks due to the client. The problem fixes itself after a few sec but I'll take care of it in the update.
thx
Simba Code:procedure Path;
begin
if WhatType = 'Gold' then
begin
if Item = 'Bracelet' then
begin
Obj := Bracelet;
end;
if Item = 'Ring' then
begin
Obj := Ring;
end;
if Item = 'Necklace' then
begin
Obj := Necklace;
end;
if Item = 'Amulet' then
begin
Obj := Amulet;
end;
Inc1 := 28;
end else
Inc1 := 14;
end;
Mine^
Yours v
Simba Code:procedure Typeofjewlery;
begin
//Gold
if WhatJewl = 'Gold' then
begin
items := 28;
Jewl := Bar;
end;
if WhatJewl = 'Gold' then
begin
if Item = 'Bracelet' then
begin
MPoint := Point(130, 290);
end else
if Item = 'Ring' then
begin
MPoint := Point(117, 106);
end else
if Item = 'Necklace' then
begin
MPoint := Point(136, 167);
end else
if Item = 'Amulet' then
begin
MPoint := Point(130, 230);
end;
items := 28;
end else
Oh, you thought of that yourself did you?
Simba Code:if BankScreen then
begin
wait(1000);
DepositAll;
Inv1 := InvCount;
if WhatType = 'Gold' then
begin
if FindDTM(Bar,x,y,MBX1,MBy1,MBX2,MBY2) then
begin
Mouse(x,y,1,1,False);
ChooseOption('All');
repeat
wait(100);
Inv2 := InvCount;
until(Inv2 > Inv1);
//MINE]Simba Code:if bankscreen then
begin
wait(1000);
DepositAll;
Inv1 := InvCount;
begin
if whatjewl = 'Gold' then
begin
if FindDTM(bar,x,y,MBX1,MBy1,MBX2,MBY2) then
begin
repeat
humanmmouse(x,y,1,1);
clickmouse2(false);
WaitOptionMulti(['Withdraw-all', 'w-A'], 300)
wait(1500);
if (invcount > 28) then
begin
depositall;
itemwithdrawal;
exit;
end;
until(invcount = 28);
inv2 := Invcount;
//Yours
Lmfao, nerd you forgot to delete the inv2 when you copied it, you call it but dont even use it. Seems familiar? But wait!
Simba Code:StartTime:=GetSystemTime;
if LoggedIn then
ClickNorth(SRL_ANGLE_HIGH);
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
//MineSame variables, same way of calling start time, Seems legit.Simba Code:StartTime:=GetSystemTime;
if LoggedIn then
ClickNorth(SRL_ANGLE_HIGH);
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
//Yours
Yours^Simba Code:egin
GetMousePos(x8,y8);
Mouse(x8,y8,1,1,false);
WaitOptionMulti(['Bank Banker'], 300)
if DidRedClick then
begin
MarkTime(t);
repeat
wait(100);
if TimeFromMark(t) > 7000 then
begin
Bank;
exit;
end;
until(PinScreen or BankScreen);
end;
Mine^Simba Code://if FindChest(x,y) then //TPA's are buggy
if FindObjCustom(x,y,['Use', 'ank', 'Chest'],[2117995,7368821],2) then
begin
GetMousePos(x,y);
Mouse(x,y,1,1,True);
if DidRedClick then
begin
MarkTime(t);
repeat
wait(100);
if TimeFromMark(t) > 7000 then
begin
Bank;
exit;
end;
until(PinScreen or BankScreen);
end;
Wow, doesn't that seem similar??
Rofl, that won't even work.Simba Code:if FindDTM(Bar, x4, y4, MIX1, MIY1, MIX2, MIY2)then
begin
MouseItem(RandomRange(1,14),mouse_move);
ClickMouse2(True);
Mouse(x7,y7,10,10,False);
waitoptionmulti(['-> Furnace'], 300);
if DidRedClick then
begin
if WaitColor(56,164,15724794,7,4000) then
begin
Nice copy and paste.
Simba Code:if FindObjCustom(x,y,['Smelt'],[7372162,8030093], 2) then
begin
GetMousePos(x,y);
MouseItem(RandomRange(25,28),0);
WaitOption('Use',4000);
Mouse(x,y,1,1,False);
ChooseOption('-> Clay');
if DidRedClick then
begin
if WaitColor(56,164,15724794,7,4000) then
begin
wait(1000);
end;
Wowzer, same wait time, same coordinates and same Tolerance in WaitColor?
What you basically did was change the SPS to support for Al Kharid and that's it...
Seriously, I can't wait till you apply for members.
Mine v
Simba Code:if FindDTM(Obj,x2,y2,MSX1,MSY1,MSX2,MSY2) then
begin
Mouse(x2,y2,1,1,False);
ChooseOption('All');
repeat
wait(1000);
case random(300) of
0..10: HoverSkill(SKILL_CRAFTING,False);
20..30: BoredHuman;
60..65: RandomMovement;
end;
until(TimeFromMark(t) > 52000);
Yours v
Simba Code:if whatjewl = 'Gold' then
begin
repeat
wait(1000);
case random(300) of
0..10: HoverSkill(SKILL_CRAFTING,False);
20..30: BoredHuman;
end;
until(TimeFromMark(t) > 52000);
Oh joy, you removed an Antiban line! You're a l33t coder bro.
YoursSimba Code:nv1 := InvCount;
if invcount < 15 then
begin
Made := Made + Items
exit;
end else
Again calling Inv1 without using it.. Made seems familiar no?
Simba Code:until(InvCount = 14);
end;
end;
end;
end;
end;
GameTab(25);
Made := Made + Inc1;
Mine.
Seriously? I can go on if you'd liek..
Hey Sin,
Your claims are invalid. You're making your self look like a whiny 'female dog'.
If he did in anyway copy your script get over it. In the real world everyone gets left with other people's code and they have to make edits to it to make it better. I'm doing it all the time in the C++ class I'm taking. So shut the front door already and kindly step back from this.
@OP script looks great, don't listen to Sin he's on that time of the year where kids will rage. (seriously I had respect for Sin till this immature stunt)
They have similarities but they aren't the same. Get over it Sin.
Seriously.
Sin, the thing is, you think you own the SRL library. Obviously if you want for the bankscreen before you depositall, you put a if this then that to know what your going to withdraw. The last part is only cuz I used your proggy but I took it out. I never claimed to not use it. You don't own the way functions are setup and neither do I. When you make functions like Flight and develop your own library and someone uses it, then you can whine like a girl. Till then get off my thread your really starting to get to me.
Simba Code:procedure Path;
begin
if WhatType = 'Gold' then
begin
if Item = 'Bracelet' then
begin
Obj := Bracelet;
end;
if Item = 'Ring' then
begin
Obj := Ring;
end;
if Item = 'Necklace' then
begin
Obj := Necklace;
end;
if Item = 'Amulet' then
begin
Obj := Amulet;
end;
Inc1 := 28;
end else
Inc1 := 14;
end;
Mine^
Yours v
Simba Code:procedure Typeofjewlery;
begin
//Gold
if WhatJewl = 'Gold' then
begin
items := 28;
Jewl := Bar;
end;
if WhatJewl = 'Gold' then
begin
if Item = 'Bracelet' then
begin
MPoint := Point(130, 290);
end else
if Item = 'Ring' then
begin
MPoint := Point(117, 106);
end else
if Item = 'Necklace' then
begin
MPoint := Point(136, 167);
end else
if Item = 'Amulet' then
begin
MPoint := Point(130, 230);
end;
items := 28;
end else
Sin, you have to think to yourself. Ok these scripts do the same thing, There are only a handful of procedures that can be used. You can own the 'IF' Func. When you do, Let me know I promise I'll delete it.
Simba Code:if BankScreen then
begin
wait(1000);
DepositAll;
Inv1 := InvCount;
if WhatType = 'Gold' then
begin
if FindDTM(Bar,x,y,MBX1,MBy1,MBX2,MBY2) then
begin
Mouse(x,y,1,1,False);
ChooseOption('All');
repeat
wait(100);
Inv2 := InvCount;
until(Inv2 > Inv1);
//MINE]Simba Code:if bankscreen then
begin
wait(1000);
DepositAll;
Inv1 := InvCount;
begin
if whatjewl = 'Gold' then
begin
if FindDTM(bar,x,y,MBX1,MBy1,MBX2,MBY2) then
begin
repeat
humanmmouse(x,y,1,1);
clickmouse2(false);
WaitOptionMulti(['Withdraw-all', 'w-A'], 300)
wait(1500);
if (invcount > 28) then
begin
depositall;
itemwithdrawal;
exit;
end;
until(invcount = 28);
inv2 := Invcount;
//Yours
I didnt forget anything, I used the invcount for cannonball addition, smelting, and so on.
Simba Code:StartTime:=GetSystemTime;
if LoggedIn then
ClickNorth(SRL_ANGLE_HIGH);
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
//MineSimba Code:StartTime:=GetSystemTime;
if LoggedIn then
ClickNorth(SRL_ANGLE_HIGH);
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
//Yours
Like I said before I DID use your proggy, but I removed it. These lines were necessary for it to work. Dnt worry about them anymore
Yours^Simba Code:egin
GetMousePos(x8,y8);
Mouse(x8,y8,1,1,false);
WaitOptionMulti(['Bank Banker'], 300)
if DidRedClick then
begin
MarkTime(t);
repeat
wait(100);
if TimeFromMark(t) > 7000 then
begin
Bank;
exit;
end;
until(PinScreen or BankScreen);
end;
Simba Code://if FindChest(x,y) then //TPA's are buggy
if FindObjCustom(x,y,['Use', 'ank', 'Chest'],[2117995,7368821],2) then
begin
GetMousePos(x,y);
Mouse(x,y,1,1,True);
if DidRedClick then
begin
MarkTime(t);
repeat
wait(100);
if TimeFromMark(t) > 7000 then
begin
Bank;
exit;
end;
until(PinScreen or BankScreen);
end;
Unfortunatly you DONT own The library. The script requires to do the same thing and use a similar procedure.
Simba Code:if FindDTM(Bar, x4, y4, MIX1, MIY1, MIX2, MIY2)then
begin
MouseItem(RandomRange(1,14),mouse_move);
ClickMouse2(True);
Mouse(x7,y7,10,10,False);
waitoptionmulti(['-> Furnace'], 300);
if DidRedClick then
begin
if WaitColor(56,164,15724794,7,4000) then
begin
Trust me IT WORKS. And it works a hell lot better than yours.
Simba Code:if FindObjCustom(x,y,['Smelt'],[7372162,8030093], 2) then
begin
GetMousePos(x,y);
MouseItem(RandomRange(25,28),0);
WaitOption('Use',4000);
Mouse(x,y,1,1,False);
ChooseOption('-> Clay');
if DidRedClick then
begin
if WaitColor(56,164,15724794,7,4000) then
begin
wait(1000);
end;
My procedure uses Edgeville not Al Kharid. Mine use Tpoints to detect the item, yours uses dtms (which are a fail btw)
Mine v
Simba Code:if FindDTM(Obj,x2,y2,MSX1,MSY1,MSX2,MSY2) then
begin
Mouse(x2,y2,1,1,False);
ChooseOption('All');
repeat
wait(1000);
case random(300) of
0..10: HoverSkill(SKILL_CRAFTING,False);
20..30: BoredHuman;
60..65: RandomMovement;
end;
until(TimeFromMark(t) > 52000);
Mine uses a completely different function for detecting the item. Antiban's were used from a guide. I can direct you if you'd like.
Simba Code:if whatjewl = 'Gold' then
begin
repeat
wait(1000);
case random(300) of
0..10: HoverSkill(SKILL_CRAFTING,False);
20..30: BoredHuman;
end;
until(TimeFromMark(t) > 52000);
Oh joy, you removed an Antiban line! You're a l33t coder bro.
YoursSimba Code:nv1 := InvCount;
if invcount < 15 then
begin
Made := Made + Items
exit;
end else
Again calling Inv1 without using it.. Made seems familiar no?
Simba Code:until(InvCount = 14);
end;
end;
end;
end;
end;
GameTab(25);
Made := Made + Inc1;
The Invcounts were for the cannonball addition, Which IS complete. SMARTONE
[/QUOTE]
Lol youmad?
I will get off since Kyle told me too and I also will appreciate that you called it flawless.
Since it's my script, thanks for complimenting me.
IMO it just looks like you took Sins code and made some edits to try and improve/expand it. You should not have released it as your own work. BTW I also edited sins script to expand the crafting, but I would never release it, unless I had his permission (you should always ask about these things first). Structurally pretty much every script writer has their own style, since it is so close to Sin's, it makes it look sketch
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
he at least tryed, i think ur acting like a kid right now ^^
Lol guys. Relax let sin say whatever he wants. Still doesn't change the fact that he's jelous.
Im not judging either way because I wouldnt know, but im just saying that ur comeing off a little harsh sin. Im not saying u dont have the right to or do have it. Im just saying you might get more compliance with different presentation.
ps i love all ur work sin![]()
"The holy grail is to spend less time making the picture then it takes poeple to look at it"- Banksy
Your arguments are pointless. Your just mad because I made what you couldn't.
1)
Explain my points.
2)
Why would I be jealous?
3)
My script performs its task 100x better than this ripoff lmfao.
Incase you didn't see it -
http://puu.sh/lUDu
Great script!
One thing though: In the bank when its withdrawing either the bars or gems (mostly happens on the bars) it right clicks the item and then just stops doing anything. I have to disable smart give the mouse a flick and then enable smart to get it going again.
It is most likely from a lag after clicking. I'll take care of it.
There are currently 1 users browsing this thread. (0 members and 1 guests)