i would like to get an other rev update, so please post ideas, so i can make the functions, and add them also post functions if you think they should be added to the includes
i would like to get an other rev update, so please post ideas, so i can make the functions, and add them also post functions if you think they should be added to the includes
<TViYH> i had a dream about you again awkwardsaw
Malachi 2:3
find trade (if findtrade then typesend 'nty, what, where are you, etc'
find duel (if findduel then typesend 'nty')
find pm (must include all colors) (maybe for rcon)
find lvl
find xp
find xp till lvl
find bank (maybe make DTM of bank on minimap)
fighting type (controlled, strength, attack, defence)
get inventory (finds all items in inventory, and assigned a # to each item/slot)
/skills/magic
cast spell
/skills/prayer
turn on/off prayer(s)
prayer time (calculates players prayer level, +prayer bonus, selected prayers to be on, math here math there, = time selected prayers can be on until prayer =0)
Last edited by uncfan1119; 11-26-2009 at 09:46 PM.
"SRL is the best SCAR community in the World, with the most talented programmers: adjust your volume."
-Wizzup?
if anyone is willing to loan me there classic acount for about and hour i could make a few of UNCFANS ideas
nvm lol
"SRL is the best SCAR community in the World, with the most talented programmers: adjust your volume."
-Wizzup?
the find bank one would be awesome
wanna start banking ore rather then power mining it hehe
uncfan can you tell me what DTM is..?
hmm I think it would be cool to help out on this, problem is I dont have an account, realistically I don't need one but I do need colors. If I could...
a) borrow an account for a bit
or
b) people could collect colors for me
I could make an autocolor.scar or something for classic?
Writing an SRL Member Application | [Updated] Pascal Scripting Statements
My GitHub
Progress Report:13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you have serious physchological problems 13:46 <@BenLand100> HE GETS IT! 13:46 <@BenLand100> HE FINALLY GETS IT!!!!1
Hey, i got a tool I want to add to the include. I think we should have a tools/plugins folder? So can I make the folder? I wanna have this be a decision. I guess between me and you lol.
I do visit every 2-6 months
Banking is needed yes... twinkered a little with DTMs n shit... got the window open, but depositing shit isnt that easy for me atleast... im a newb.
Last edited by Awkwardsaw; 11-27-2009 at 06:11 PM.
<TViYH> i had a dream about you again awkwardsaw
Malachi 2:3
another to add:
BankDoor; //finds if bank door is open=true, closed=false.
The doors may be different for each bank also. This is very difficult. The bank floor is the same color as the door. So it'd have to rely 100% on the function where it finds the ingame text of open/closed/door
Last edited by uncfan1119; 11-28-2009 at 03:54 AM.
"SRL is the best SCAR community in the World, with the most talented programmers: adjust your volume."
-Wizzup?
I dont have anything cause i rewrote the script with talking the barmaid next to the bank... bad idea lol... but i could redo it... I just got the DTMs and made it to talk with the banker.
Will start right away... sick of fishing anyway.
It talks and opens the bankwindow over and over... i know its sux, but its the start... i could get it to bank my fish i think.Code:program New; {.Include SRL-rsc/SRL_rsc.scar} {.include srl/srl/misc/Reports.scar} const banker_col = 65536; //color of the banker ground_col = 143460; //bank floor color on minimap function Guptext(uptext : string; var x, y : integer): boolean; var dtm : integer; begin case lowercase(uptext) of 'banker' : DTM := DTMFromString('78DA639CC9C0C0C0C98001F8819811CA66EC0' + '612EC0C58015CCD2A20C14B40CD444C35FFFFA3A959896917BA1A' + '00E57C074F'); 'talk' : DTM := DTMFromString('78DA63CC6664603060C000FC40CC086533466' + '257C380ACA60AC8D225A0A602C832C1AF0600DE010293'); 'answer' : DTM := DTMFromString('78DA635CCBC0C0C0C98001F881981188FF030' + '1E37220839D012B6084D10F885033014870E3570300C57A06FA'); end; result := finddtm(dtm, x, y, rssx1, rssy1, rssx2, rssy2); freedtm(dtm); end; procedure IFintalk; var x, y : integer; begin if Guptext('answer', x, y) then begin wait(500 + random(300)); mouse(x, y, 0, 0, true); wait(500 + random(300)); end; wait(3000 + random(2000)); end; procedure TalkBanker; var cts, a, x, y : integer; tpa : TPointArray; begin cts := getcolortolerancespeed; colortolerancespeed(3); findcolorsspiraltolerance(rsscx, rsscy, tpa, banker_col, rssx1, rssy1, rssx2, rssy2, 2); if length(tpa) < 50 then exit; for a := 0 to 50 do begin mmouse(tpa[a].x, tpa[a].y, 0, 0); if Guptext('banker', x, y) then begin mouse(tpa[a].x, tpa[a].y, 0, 0, false); wait(100 + random(200)); if Guptext('talk', x, y) then begin mouse(x, y, 20, 5, true); break; end else mmouse(random(100), random(100), 0, 0); end; wait(10 + random(100)); end; wait(2000 + random(500)); IFintalk; end; begin setuprsc; repeat TalkBanker; wait(10 + random(20)); until(false); end.
Antti mies Could u give me the example of walking? cause im new to scar scripting and i copy paste most of the shit.
Last edited by r4it; 11-28-2009 at 01:13 PM.
We need to get the fonts working
Couldn't we just use something like if (IsTextAt (x, y, 'Door: Open')) then
This is from a old script:
SCAR Code:procedure LockedIn;
begin
i:= 0; j:= 0; x:= 0; y:= 0;
MoveMouse (460, 15)
Wait (300);
ClickMouse (432, 133, True);
wait (300);
repeat
if (FindColorSpiral (x, y, 929884, 1 + j, 1, 500, 320)) or
(FindColorSpiral (x, y, 415860, 1 + j, 1, 500, 320)) or
(FindColorSpiral (x, y, 1859768, 1 + j, 1, 500, 320)) or
(FindColorSpiral (x, y, 1327248, 1 + j, 1, 500, 320)) or
(FindColorSpiral (x, y, 663624, 1 + j, 1, 500, 320)) then
begin
MoveMouse (x, y);
wait (200);
if (IsTextAt (6, 2, 'Door: Open')) then
begin
ClickMouse (x, y, True);
wait (1000);
end;
end;
i:= i + 1;
if (i = 3) then
begin
i:= 0;
j:= j + 50;
end;
wait (100);
until (j > 501) or (IsTextAt (7, 304, 'The door'));
writeln ('Locked in Check Complete. Continue with Autoing.');
end;
"SRL is the best SCAR community in the World, with the most talented programmers: adjust your volume."
-Wizzup?
well, we can, but we still need to load the rsc chars so the function knows what letters to look for
<TViYH> i had a dream about you again awkwardsaw
Malachi 2:3
Oh I thought the SRL text.scar looked through all the text bitmaps no mattter what function
"SRL is the best SCAR community in the World, with the most talented programmers: adjust your volume."
-Wizzup?
Iv managed to talk to the banker and bank my tunas lol... with using DTMs and ClickMouse method... are there any better/safer ways to do this?
I just want to a converter util.
I do visit every 2-6 months
rx and ry as the cords what scar shows meh right?
I knew that i mustnt use clickmouse... feels kinda detectable.
I managed to talk to banker and open bank window and i managed to bank my fish if bankwindow is open, but i failed when i put these 2 things together.
If i open the bank my self and then start the code what banks my fish it was perfect, but if it talked to banker and then was suppose to bank the fish it clicked on to wrong item and just stood there... dnno why.
I know bitmaping would be better, but i havent figured it out yet.Code:program New; {.Include SRL-rsc/SRL_rsc.scar} {.include srl/srl/misc/Reports.scar} const fish_col = 3757396; function Guptext(uptext : string; var x, y : integer): boolean; var dtm : integer; begin case lowercase(uptext) of 'tuna' : DTM := DTMFromString('78DA634C626460B8CE8002162F5ECCC00FA41' + '9A17CC63820EB0EAA9A90504B881C4C4D25907501554D414101AA' + '9A1020EB2A7E350042900A6C'); 'deposit' : DTM := DTMFromString('78DA637CC3C0C0C0C7C8800EF8811824FA1F0' + '818B7810430D53040D580692146C26A8E020951026A98812C1EFC' + '6A00BFE406E6'); end; result := finddtm(dtm, x, y, rssx1, rssy1, rssx2, rssy2); freedtm(dtm); end; procedure DepositAll1; var cts, a, x, y : integer; tpa : TPointArray; begin cts := getcolortolerancespeed; colortolerancespeed(3); findcolorsspiraltolerance(rsscx, rsscy, tpa, fish_col, rssx1, rssy1, rssx2, rssy2, 2); if length(tpa) < 50 then exit; for a := 0 to 50 do begin mmouse(tpa[a].x, tpa[a].y, 0, 0); if Guptext('tuna', x, y) then begin mouse(tpa[a].x, tpa[a].y, 0, 0, false); wait(100 + random(200)); if Guptext('deposit', x, y) then begin MoveMouse (427, 295) wait(300 + random(200)); ClickMouse (427, 294, True); end else wait(10 + random(100)); end; wait(10 + random(100)); end; wait(2000 + random(500)); end; begin setuprsc; repeat DepositAll1; wait(1000 + random(500)); until(false); end.
Its my second or third day twinkering with scar.
There are currently 1 users browsing this thread. (0 members and 1 guests)