Nop, SB Ess miner will just login then sit there.. because it can't do fix chats.
Nop, SB Ess miner will just login then sit there.. because it can't do fix chats.
Send SMS messages using Simba
Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!
Probably cause you didn't update the Logged In function, i posted it along some other fixes on the first page. Ill fix SetChats in a minute
<SmarterC> mixster: The only reason so many people are homosexuals
It only sees the second letter. like when your skill lvl is 34. it will only see the 4.
edit:
Fix:
SCAR Code:{*******************************************************************************
function SkillCoords(row, column: Integer): TPoint;
By: RsN
Description: Returns Coords of Skill's Row and Column (Used for GetSkill functions)
*******************************************************************************}
function SkillCoords(row, column: Integer): TPoint;
begin
case Column of
1: Result.x := 580;
2: Result.x := 642;
3: Result.x := 707;
end;
case row of
1: Result.y := 210;
2: Result.y := 241;
3: Result.y := 272;
4: Result.y := 303;
5: Result.y := 334;
6: Result.y := 365;
7: Result.y := 396;
8: Result.y := 429;
end;
end;
Personally, i don't think the make these interface changes at all in attempt to stop us. Unless they don't know they will only stop us for a day or two with these sort of updates, i think they really are doing in for the sake of improving RuneScape.
I like my coffee black just like my metal.
Ya, it actually looks a bit better
Ps- Are you on msn? get on nub!
First time I have ever seen SRL broken so badly...
Lets hope it doesn't take to long to fix.
The jealous temper of mankind, ever more disposed to censure than
to praise the work of others, has constantly made the pursuit of new
methods and systems no less perilous than the search after unknown
lands and seas.
Hey, I got an idea.
RELEASE THE DEV SRL! Sumilion said it was almost working 100% when he logged off an hour ago on MSN.
Send SMS messages using Simba
Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!
SCAR Code:{*******************************************************************************
function MakeCompass(Side: String);
By: Wizzup? and modified by Ron
Description: Aligns RS to specified direction
direction: set to: North='n', South='s', East='e', West='w'
*******************************************************************************}
function MakeCompass(Side: char): Boolean;
var
Fx, Fy, dx, dy, StartPos, EndPos: Integer;
ComMark: Integer;
Left_Right: Boolean;
begin
StartPos := FindCompassAngle;
MarkTime(ComMark);
case LowerCase(Side) of
'n':
begin
Fx := 561;
Fy := 13;
if StartPos > 180 then EndPos := 360 else EndPos := 0;
end;
'e':
begin
Fx := 554;
Fy := 20;
if StartPos < 270 then EndPos := 90 else EndPos := 450;
end;
's':
begin
Fx := 562;
Fy := 26;
EndPos := 180;
end;
'w':
begin
Fx := 567;
Fy := 21;
if StartPos < 90 then EndPos := -90 else EndPos := 270;
end;
else
begin
WriteLn('MakeCompass - Value wasn''t n, e, s, or w!');
Exit;
end;
end;
if FindColor(dx, dy, 723587, Fx - 2, Fy - 2, Fx + 2, Fy + 2) then
begin
Result := True;
Exit;
end
if StartPos > EndPos then Left_Right := True
else if StartPos < EndPos then Left_Right := False
else exit;
if Left_Right then KeyDown(VK_RIGHT)
else KeyDown(VK_Left);
repeat
Wait((10) + Random(10));
if (FindColor(dx, dy, 723587, Fx, Fy, Fx, Fy)) then
begin
Result := True;
Break;
end;
until (TimeFromMark(ComMark) > 7000);
if Left_Right then KeyUp(VK_Right)
else KeyUp(VK_Left);
end;
I need to know what was already fixed. >.>
(Yes rikjess, this is fixed)
meh,, that the make compass function was not working corrently was real. and not only at my computer.
if thats the fix:
I Love you! <333!(now i can continue testing my swamp miner)
i think every thing exept of the setchat is fixed now. srl is ready again to macro![]()
SetChat and Chats off fix, Not tested!
Code:Function SetChat(State: String; WhatChat: Integer): Boolean; :forward; procedure ChatsOff; begin SetChat('Off',1); SetChat('Off',2); SetChat('Off',3); SetChat'Off',4); end; Function SetChat(State: String; WhatChat: Integer): Boolean; Var x1, y1, x, y, Color, wTime, tmpMask: Integer; textthingy:string Begin State := LowerCase(State); Case WhatChat Of 1: Begin x1 := 141; y1 := 482; End; 2: Begin x1 := 206; y1 := 482; End; 3: Begin x1 := 339; y1 := 482; End; 4: //clan Begin x1 := 272; y1 := 482; End; 5: //clan Begin x1 := 272; y1 := 482; End; { 6: //game Begin x1 := 74; y1 := 482; End; 7: //all Begin x1 := 9; y1 := 482; End; } End; Case LowerCase(State) Of 'on': Begin Color := 65280; End; 'friends': Begin Color := 65535; End; 'off': Begin Color := 255; End; 'hide': Begin Color := 16776960 End; End; wTime := GetSystemTime; Repeat If Not (GetColor(421, 480) = 2697867) Then Exit; If Not FindColor(x, y, Color, x1, y1, x1 + 55, y1 + 20) Then Begin textthingy:=UpperCase(Copy(State,1,1))+LowerCase(Copy(State,2,Length(State))); tmpMask := CreateBitmapMaskFromText(textthingy, upchars); if (FindBitmapMaskTolerance(tmpMask, x, y,70, 400, 436, 488,10,50 )) then begin Wait(25 + Random(50)); Mouse(x + (Length(S) * 6 div 2), y + 5, 3, 3, True); end; Else Break; Until GetSystemTime - wTime > 30000; Result := (GetSystemTime - wTime < 3000) End;
<SmarterC> mixster: The only reason so many people are homosexuals
Ok no offence to HISTORY but my gametab fix is a bit cleaner, and it has set the new gametab to 14 so that every single script won't have to be changed to fit in with this new update. I mean, if someone had a GameTab(10) in their script it would stay as that, instead of having to be GameTab(11). Also, I made it earlier than he didHere's my file.
Also, it could be just me but I think that BankScreen has changed? I didn't have time to test the co-ords last night. And also star, those bitmaps I made were from last updateNot this new one. I'll make new ones tonight after school.
lol ive been posting in the wrong place... :
yes i made a new chatset based on the new interface + fixed SRL gametab stuff......
yes this is redistributable ...
here it is:
SCAR Code:Procedure ChatSet(ChatBox : Integer; ChatType : String);
var
Option : String; Color : Integer;
begin
Case LowerCase(ChatType) of
'hide' : Option := 'ide';
'off' : Option := 'ff';
'friend' : Option := 'rie';
'on' : Option := 'On';
end;
Case Option of
'ide' : Color := 16776960;
'ff' : Color := 255;
'rie' : Color := 65535;
'On' : Color := 65280;
end;
Case ChatBox of
1: ChatBox:= 145;
2: Chatbox:= 145 + 70;
3: ChatBox:= 145 + (70*2);
4: ChatBox:= 145 + (70*3);
end;
If FindColor(x, y, Color, ChatBox, 484, ChatBox+30, 510) then
Exit;
Mouse(ChatBox, 484, 15, 15, False)
Wait(100+random(100))
ChooseOption(x, y, Option)
end;
Also text pos in chatbox has changed so:
this one checks if it finds spec text in last message using pos.
SCAR Code:function GetChat( Chat : String ) : Boolean;
var TempChat : String;
begin
Result:=True;
TempChat:=LowerCase(trim(GetTextAtEx(11, 443, 0, SmallChars, False, False, 0, 0,
0, 50, False, tr_allChars)))
if Pos(chat , TempChat) = 0 then
Result:=False;
end;
this one returns the whole last chat message... in lowercase.
SCAR Code:Function ReturnChat : String;
begin
Result:= LowerCase(trim(GetTextAtEx(11, 443, 0, SmallChars, False, False, 0, 0,
0, 50, False, tr_allChars)))
end;
also there is an extra tab along with the new interface update so:
SCAR Code:function GetCurrentTab: Integer;
begin
begin
if GetColor(529, 185) = 1581150 then
Result := 1
else if GetColor(568, 173) = 1910385 then
Result := 2
else if GetColor(597, 172) = 1778795 then
Result := 3
else if GetColor(632, 173) = 1976437 then
Result := 4
else if GetColor(666, 172) = 1910385 then
Result := 5
else if GetColor(698, 173) = 1976437 then
Result := 6
else if GetColor(729, 174) = 2107770 then
Result := 7
else if GetColor(528, 472) = 1910385 then
Result := 8
else if GetColor(565, 471) = 1910385 then
Result := 9
else if GetColor(598, 472) = 2107770 then
Result := 10
else if GetColor(629, 470) = 1778795 then
Result := 11
else if GetColor(666, 474) = 1910385 then
Result := 12
else if GetColor(699, 480) = 1647204 then
Result := 13;
if GetColor(730, 470) = 1778795 then
Result := 14;
end;
end;
this extra tab might screw up other functions that rely on the logout being to 10 instead of 11... same goes with other past the tab of 7... tabs 1-6 are the same though.
this is a working TabExists function
SCAR Code:function TabExists(TabNumber: Integer): Boolean;
var
Tx, Ty:Integer;
begin
case TabNumber of
1: Result := FindColor(Tx, Ty, 3852287, 530, 186, 554, 197);
//GameTab 1 = Fightmode
2: Result := FindColor(Tx, Ty, 65536, 563, 174, 568, 190);
//GameTab 2 = Statistic
3: Result := FindColor(Tx, Ty, 12842487, 598, 175, 610, 188);
//GameTab 3 = Quest
4: Result := FindColor(Tx, Ty, 65536, 632, 170, 650, 179);
//GameTab 4 = Inventory
5: Result := FindColor(Tx, Ty, 65536, 665, 173, 674, 181);
//GameTab 5 = Wield
6: Result := FindColor(Tx, Ty, 65536, 701, 173, 713, 182);
//GameTab 6 = Prayer
7: Result := FindColor(Tx, Ty, 65536, 729, 183, 743, 198);
//GameTab 7 = Mage
8: Result := FindColor(Tx, Ty, 65536, 535, 469, 543, 477);
//GameTab 8 = Clan Talk
9: Result := FindColor(Tx, Ty, 65536, 566, 471, 575, 479);
//GameTab 9 = Add Friend
10: Result := FindColor(Tx, Ty, 65536, 600, 471, 618, 479);
//GameTab 10 = Del Friend
11: Result := FindColor(Tx, Ty, 65536, 632, 469, 653, 476);
//GameTab 11 = LogOut
12: Result := FindColor(Tx, Ty, 65536, 662, 483, 674, 497);
//GameTab 12 = Tools/Run
13: Result := FindColor(Tx, Ty, 65536, 706, 468, 717, 476);
//GameTab 13 = Emotes
14: Result := FindColor(Tx, Ty, 65536, 729, 473, 744, 496);
//GameTab 14 = Music
end; //case Tab
end;
this is a working Gametab function:
SCAR Code:function GameTab(tabnumber: Integer): Boolean;
var
c: Integer;
begin
if GetCurrentTab = tabnumber then
begin
Result := True;
Exit;
end;
if not TabExists(tabnumber) then
begin
Result := False;
Exit;
end;
case tabnumber of
1: if (not (GetColor(527, 185) = 1580634)) then
begin
repeat Mouse(529, 176, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
2: if (not (GetColor(568, 173) = 1910385)) then
begin
repeat Mouse(568, 173, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
3: if (not (GetColor(597, 172) = 1778795)) then
begin
repeat Mouse(597, 172, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
4: if (not (GetColor(632, 173) = 1976437)) then
begin
repeat Mouse(632, 173, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
5: if (not (GetColor(666, 172) = 1910385)) then
begin
repeat Mouse(666, 172, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
6: if (not (GetColor(698, 173) = 1976437)) then
begin
repeat Mouse(698, 173, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
7: if (not (GetColor(729, 174) = 2107770)) then
begin
repeat Mouse(729, 174, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
8: if (not (GetColor(528, 472) = 1910385)) then
begin
repeat Mouse(528, 472, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
9: if (not (GetColor(565, 471) = 1910385)) then
begin
repeat Mouse(565, 471, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
10: if (not (GetColor(598, 472) = 2107770)) then
begin
repeat Mouse(598, 472, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
11: if (not (GetColor(629, 470) = 1778795)) then
begin
repeat Mouse(629, 470, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
12: if (not (GetColor(666, 474) = 1910385)) then
begin
repeat Mouse(666, 474, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
13: if (not (GetColor(699, 480) = 1647204)) then
begin
repeat Mouse(699, 480, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
14: if (not (GetColor(730, 470) = 1778795)) then
begin
repeat Mouse(730, 470, 8, 8, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
end;
if (c < 3) then
begin
Result := True;
Wait(10);
// Wait(300 + Random(300)); //DON'T CHANGE THIS.
end;
end;
SetfightMode Still works
Get Combat lvl is fixed:
SCAR Code:function GetCombatLevel: Integer;
var
Lvl: string;
begin
Gametab(1);
Wait(100 + Random(100));
Lvl := Trim(GetTextAtEx(604, 230, 100, StatChars, True, True, 0, 1, -1, 40, True, tr_AlphaNumericChars));
if (Copy(Lvl, 1, 5) = 'ombat') then
Delete(Lvl, 1, 11);
Lvl := Trim(Lvl);
try
Result := StrToInt(Lvl);
except
Writeln('Could Not Get Combat Level');
end
end;
Updated Skill Coords( DOES NOT ACC FIND RC LVL?):
SCAR Code:function SkillCoords(row, column: Integer): TPoint;
begin
case Column of
1: Result.x := 582;
2: Result.x := 643;
3: Result.x := 708;
end;
case row of
1: Result.y := 210;
2: Result.y := 241;
3: Result.y := 272;
4: Result.y := 303;
5: Result.y := 334;
6: Result.y := 365;
7: Result.y := 396;
8: Result.y := 429;
end;
end;
Rs_monkey took this code and arrayed it :
SCAR Code:function GetCurrentTab: Integer;
var
x, y, color : array of integer;
i : integer;
begin//tab1, 2, 3, 4, 5, 6, 7,etc..
x := [529, 568, 597, 632, 666, 698, 729, 528, 565, 598, 629, 666, 699, 730];
y := [185, 173, 172, 173, 172, 173, 174, 472, 471, 472, 470, 474, 480, 470];
color := [1581150, 1910385, 1778795, 1976437, 1910385, 1976437, 2107770,
1910385, 1910385, 2107770, 1778795, 1910385, 1647204, 1778795];
for i := 1 to 14 do
if GetColor(x[i-1], y[i-1]) = color[i-1] then
begin
Result := i;
Exit; //exit from loop, if none found, will result result := -1;
end;
Result := -1;
end;
SCAR Code:function TabExists(TabNumber: Integer): Boolean;
var
Tx, Ty, i : Integer;
x1, y1, x2, y2, color : array of integer;
begin
x1 := [530, 563, 598, 632, 665, 701, 729, 535, 566, 600, 632, 662, 706, 729];
y1 := [186, 174, 175, 170, 173, 173, 183, 469, 471, 471, 469, 483, 468, 473];
x2 := [554, 568, 610, 650, 674, 713, 743, 543, 575, 618, 653, 674, 717, 744];
y2 := [197, 190, 188, 179, 181, 182, 198, 477, 479, 479, 476, 497, 476, 496];
color := [3852287, 65536, 12842487, 65536, 65536, 65536, 65536, 65536, 65536,
65536, 65536, 65536, 65536, 65536];
Result := FindColor(Tx, Ty, color[TabNumber-1], x1[TabNumber-1], y1[TabNumber-1], x2[TabNumber-1], y2[TabNumber-1]);
end;
Darky has stopped by to say hello :).
10-21-2010
Updated-
10-09-2012
@ Dark_Sniper, very nice.
SCAR Code:{*******************************************************************************
procedure Withdraw(Col, Row, Amount: Integer);
by: Odie5533/Stupid3ooo
Description: Withdraws Amount at Column/Row.
*******************************************************************************}
procedure Withdraw(col, row, Amount: Integer);
var
rx, ry: Integer;
begin
rx := 35 + (col * 49);
ry := 27 + (row * 38);
if (BankScreen) then
begin
if (Amount = 1) then
begin
Mouse(rx, ry, 0, 0, True);
end
else
begin
Mouse(rx, ry, 0, 0, False);
if (Amount = 1) or (Amount = 5) or (Amount = 10) or (Amount = 0) then
begin
if (Amount = 5) then
ChooseOption(rx, ry, 'Withdraw 5');
if (Amount = 10) then
ChooseOption(rx, ry, 'Withdraw 10');
if (Amount = 0) then
ChooseOption(rx, ry, 'Withdraw All');
end
else
begin
ChooseOption(rx, ry, 'Withdraw X');
Wait(1000 + Random(100));
TypeSend(IntToStr(Amount) + Chr(13));
end;
end;
end;
end;
SCAR Code:procedure Deposit(slot, toslot, thetype: Integer);
var
slotnumber, col, row: Integer;
begin
if (BankScreen) then
begin
slotnumber := slot;
while (slotnumber <= toslot) do
begin
if ((slotnumber mod 4) = 0) then
col := 3
else
col := (slotnumber mod 4) - 1;
row := (slotnumber - 1) / 4;
if (FindColor(x, y, 65536, (560 + 44 * col), (216 + 36 * row), (598 + 44 *
col), (248 + 36 * row))) then
begin
if (thetype = 1) then
Mouse(x, y + 3, 5, 5, True);
if (thetype = 2) then
begin
Mouse(x, y + 3, 5, 5, False);
if (ChooseOption(x, y, 'All')) then
Wait(1000 + Random(100));
end;
end;
slotnumber := slotnumber + 1;
end;
end;
end;
More fixes. If you are making a GameTab fix then make sure you include the SkillCoords, SetRun, and TabExists fixes that have been posted.
well in accordance with wizzy they have those fixes already?
they are just tweaking the smaller stuff atm...
Darky has stopped by to say hello :).
10-21-2010
Updated-
10-09-2012
Well, *we* may have them, but *I* don't have them yet. I think with that my scripts are working fine now, though.
ya my SRL has been fixed (to the best of my knowledge) for 4 hours now...
i didnt even post all my fixes ... lol i cant even remember what i fixed... owell.
the new SRL should be out later today or tomorrow by my guess!
Darky has stopped by to say hello :).
10-21-2010
Updated-
10-09-2012


lol ty for most of ur fixies ppl but half of em i dunno wer to put
well you can just search for them on your scar map and replace em thats what i did


ill just wait lol
Thats what i said![]()
I'm going to wait until the new SRL comes out.
I wish I could have helped with one of these.
There are currently 1 users browsing this thread. (0 members and 1 guests)