SRL Archive - OSR Help

Banking on lunar isle


derik

2012-03-26 09:53:22

For the past few days ive been reading some guides and have tried to start scripting myself a small script.

So far so good i can walk etc but the problem i come across so far is banking on lunar isle

How should i be doing this ?

by:

1: Ddtm
2:Find obj
3:BankNPC
4:BankGlass
5:add my own quickbank with my own dtm
6: any other way that i simply dont know yet

Thanks in advance

Kyle Undefined

2012-03-26 09:58:38

I would try either BankGlass or BankNPC methods, if those don't work, then try making your own :)

derik

2012-03-26 10:47:06

From: Kyle Undefined
I would try either BankGlass or BankNPC methods, if those don't work, then try making your own :)


for bankglass isnt it needed to specify wich bank it is?

and if it is u can not use it?

Ibotlots8D

2012-03-26 10:51:32

I used a TPA for my banking function on Lunar Isle.
TPAs work well there as the bankers are the only things there that are green.

derik

2012-03-26 10:55:13

From: Ibotlots8D
I used a TPA for my banking function on Lunar Isle.
TPAs work well there as the bankers are the only things there that are green.


thanks allot ill go read a guide about TPA,

derik

2012-03-26 11:12:29

holy moly thats not easy :(

Kyle Undefined

2012-03-26 11:14:30

Check out my tutorial, it's in the Beginner section, it thoroughly walks through how to do them :)

derik

2012-03-26 11:26:26

From: Kyle Undefined
Check out my tutorial, it's in the Beginner section, it thoroughly walks through how to do them :)


will do thanks

derik

2012-03-26 12:22:38

From: derik
will do thanks


sorry cant find it

derik

2012-03-26 12:31:22

ive created myself this with my own DTM from the bank would this in any case work? and if it even would work how would i call this function?

    function FindBank(TheBank: string): Boolean;
var
bx, by, TheDTM: Integer;
WhichAngle: Extended;
begin
result := false;
TheBank := LowerCase(TheBank);
case TheBank of
'Lib': TheDTM := DTMFromString('mWAAAAHicY2FgYGhmZWBoBeJCIK4F4jlAsVVAvAKIFwHx9IndDKXZUQzRHuoMLTWFDMiACYgZ0TAIAAArJAnN');

else
begin
srl_Warn('FindBank', 'Invalid bank name', warn_Warning);
Exit;
end;
end;
if FindDtmRotated(TheDTM, bx, by, MMX1, MMY1, MMX2, MMY2, Radians(-30), Radians(30), 0.05, WhichAngle) then
begin
Mouse(bx, by, 0, 0, mouse_left);
FFlag(0);
Wait(300+Random(400));
Result := OpenBank(TheBank, False, False);
end;
FreeDTM(TheDTM);
end;

putonajonny

2012-03-26 18:12:54

From: derik
ive created myself this with my own DTM from the bank would this in any case work? and if it even would work how would i call this function?

    function FindBank(TheBank: string): Boolean;
var
bx, by, TheDTM: Integer;
WhichAngle: Extended;
begin
result := false;
TheBank := LowerCase(TheBank);
case TheBank of
'Lib': TheDTM := DTMFromString('mWAAAAHicY2FgYGhmZWBoBeJCIK4F4jlAsVVAvAKIFwHx9IndDKXZUQzRHuoMLTWFDMiACYgZ0TAIAAArJAnN');

else
begin
srl_Warn('FindBank', 'Invalid bank name', warn_Warning);
Exit;
end;
end;
if FindDtmRotated(TheDTM, bx, by, MMX1, MMY1, MMX2, MMY2, Radians(-30), Radians(30), 0.05, WhichAngle) then
begin
Mouse(bx, by, 0, 0, mouse_left);
FFlag(0);
Wait(300+Random(400));
Result := OpenBank(TheBank, False, False);
end;
FreeDTM(TheDTM);
end;


The easiest thing is normally colour finding on the NCPs, use Auto Color Aid to generate a function, it is cheating but works amazingly well

Mat

2012-03-28 02:01:47

All I did for banking there was get the colours on the lighter part of the bank both. Works like a charm.