Ok, so i read some tut's of how to script and stuff and i want to make my first script. It's gonna be a bucket of water buyer from the gnomecopter place...so if you can help me, post here or pm!!?!?!plx...![]()
Ok, so i read some tut's of how to script and stuff and i want to make my first script. It's gonna be a bucket of water buyer from the gnomecopter place...so if you can help me, post here or pm!!?!?!plx...![]()
well if you want to make a script then you should make it, not us, and if you read tutorials, then you should know the basics, so make a script post here in scar tags, and we can fix it up for yah![]()
Mormons arnt allowed to cheat![]()
~ Metagen
also... sorry for double-post... i need help with depositing items in a deposit box(is it the same as a normal bank?)
No its different, it would be really simple to create a dtm, or TPA for it. If you would like help, just PM me.
-Blumblebee
“Ignorance, the root and the stem of every evil.”
would i just have it look on mainscreen for DTM of the bucket of water and right click then ChooseOption('All')?
That's how I would do it. If you have IRC shoot me a pm, I'll help you. I can help over pm to, but it'd take longer :P.
i got to go to work... will do when i get home!
wait i need help with another thing too... how do i trade with a NPC without using reflection
Umm
SCAR Code:Function FindNPC(Uptex:string; Colors: Integer: Boolean;
Var
TPAs: TPointArray;
TPA: Tpoint;
D2TPA: T2DPointArray;
X,Y,I,N: Integer;
Begin
FindColorsSpiralTolerance(x,y,TPAs,Colors,MMX1, MMY1, MMX2,MMY2,20);
If length(TPAs) = 0 Then
Exit;
D2TPA:= TPAtoATPAEx(TPAs,8,8);
For i:= 0 to length(D2TPA) - 1 Do
begin
TPA:= MiddleTPA(D2TPA[i]);
DebugATPA(D2TPA,'TPA');
MMouse(TPA.X, TPA.Y, 0, 0);
Wait(150 + Random(50));
If IsUpText(UpTex) Then
begin
X:= TPA.X
Y:= TPA.Y
Result:= True;
end;
end;
end;
ok its not working but here it is! comment plz
it doesn't find the DTM for the bank symbol because there aren't bankers dots to use for making the DTM.. i don't wanna use reflection...SCAR Code:program BucketBuyer;
{.include SRL/SRL.scar}
var
x, y : Integer;
WaterBucketDTM : Integer;
procedure BuyWaterBucket;
begin
WaterBucketDTM := DTMFromString('78DA63F466606070654001C5D1FA0CBF80342' +
'310FF0702C66020C38A010D30229140DA0548F811501302243C09' +
'A8710212F604D480DC1C805F0D00FCCA096D');
if (FindDTM(WaterBucketDTM, x, y, MSx1, MSy1, MSx2, MSy2)) then
begin
Wait(500+random(150));
Mouse(x, y, 3, 3, False);
Wait(500+random(150));
if ChooseOption('X') then
begin
Wait(500+random(150));
TypeSend('123');
Wait(500+random(150))
Exit;
end;
end;
FreeDTM(WaterBucketDTM);
end;
var
BankSymbolDTM : Integer;
procedure WalkToDepositBox;
begin
BankSymbolDTM := DTMFromString('78DA6314676060106540012F778B333C04D28' +
'C40FC1F0818A5810C7E881C23540D2323235808CE970312E204D4' +
'80E46508A81104121244A81124A006E4273EFC6A00A2FD0845');
if (FindDTM(BankSymbolDTM, x, y, MMx1, MMy1, MMx2, MMy2)) then
begin
Wait(400+random(150));
Mouse(x,y,4,4, True);
end;
FreeDTM(BankSymbolDTM);
end;
procedure OpenDepositBox;
begin
if (FindColorSpiralTolerance(x, y, 5329483, 0, 0, 520, 340, 8)) then
begin
Wait(400+random(150));
Mouse(x, y, 3, 3, False);
Wait(300+random(150));
ChooseOption('Open');
end;
end;
procedure DepositBucket;
begin
WaterBucketDTM := DTMFromString('78DA63F466606070654001C5D1FA0CBF80342' +
'310FF0702C66020C38A010D30229140DA0548F811501302243C09' +
'A8710212F604D480DC1C805F0D00FCCA096D');
if (FindDTM(WaterBucketDTM, x, y, MSx1, MSy1, MSx2, MSy2)) then
begin
Wait(300+random(150));
Mouse(x,y,3,3, False);
Wait(500+random(150));
ChooseOption('All');
end;
FreeDTM(WaterBucketDTM);
end;
begin
SetupSRL;
ActivateClient;
BuyWaterBucket;
WalkToDepositBox;
OpenDepositBox;
DepositBucket;
end.
don't just say it sucks... i know that(its not done) i haven't added login antiban failsafes or multiplayer... going to learn how tomoro and this weekend! i just need to add the tpa findnpc thingy that nicbaz posted!
ok i got it functional... kinda i don't have anything special... just loops will post tomoro after i get back from school and work
There are currently 1 users browsing this thread. (0 members and 1 guests)