SCAR Code:writeln('FightMode = '+inttostr(m+1));
SetFightMode(m+1);
In the debug i get:
but it won't change fightmode, just moves the mouse to the upper left cornerCode:FightMode = 1
-_-'
SCAR Code:writeln('FightMode = '+inttostr(m+1));
SetFightMode(m+1);
In the debug i get:
but it won't change fightmode, just moves the mouse to the upper left cornerCode:FightMode = 1
-_-'
Drag the crosshair on the client.
Restart scar, if you use smart, restart smart.
~Hermen
Ive had trouble with it too since #33
Ce ne sont que des gueux






Oh ok my bad. I guess I should have tested before commiting. Anyway fix is up in the Dev SVN. Or here's the fixed procedure:
SCAR Code:{*******************************************************************************
function SetFightMode(oFightMode: Integer): Boolean;
By: Nielsie95, Quickmarch, Timer, and Nava2
Description: Sets fight mode. Returns false if failed to set desired mode.
*******************************************************************************}
function SetFightMode(oFightMode: Variant): Boolean;
var
i, x, y, r: Integer;
b: TBox;
cmbBoxes: array of TBox;
strs: array of array of String;
begin
Result := False;
if not(Loggedin)then Exit;
GameTab(1);
Wait(200 + Random(777));
cmbBoxes := [IntToBox(575, 255, 630, 290), IntToBox(660, 255, 710, 290), IntToBox(575, 310, 630, 345), IntToBox(660, 310, 710, 345)];
strs := [TStringArray(['attack', 'att']), TStringArray(['strength', 'str']), TStringArray(['controlled', 'control', 'ctrl', 'multi']), TStringArray(['defence', 'def', 'defense'])];
case VarType(oFightMode) of
3: begin b := cmbBoxes[Integer(oFightMode) - 1]; r := oFightMode; end;
256: for x := 0 to 3 do
begin
i := High(strs[x]);
for y := 0 to i do
if Lowercase(oFightMode) = strs[x][y] then
begin
b := cmbBoxes[x];
r := x + 1;
Break;
end;
if b.x1 <> 0 then Break;
end;
end;
i := 0;
while (i < 4) do
begin
Result := FindColorTolerance(x, y, 1777020, b.x1, b.y1, b.x2, b.y2, 2);
if (Result) then Exit;
Mouse(RandomRange(b.x1, b.x2), RandomRange(b.y1, b.y2), 0, 0, True);
Wait(500 + Random(300));
Inc(i);
end;
if (not Result) and (r = 4) then
SetFightMode(3);
end;
Only problem I don't like with that function is it uses high trust that all weapons have that setup (att, str, con, def) when they don't. Good thing its Boolean now tho.
(Scripts outdated until I update for new SRL changes)
AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
Summer = me busy, won't be around much.






Hmm, I think I might just remove this..
All it should do is just pick the color, a variant is useless and inaccurate.
We ahve SetCombatType for this..
Redundant, yes?
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
The old one had a fail safe for Range, and weapons with only 3 options.
Originally Posted by irc
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
Well I'm going to figure something out for this. I know I had a nice one that u put in SRL I've heard some problems with it but maybe thats just me. I want to get a fool proof one somehow.
(Scripts outdated until I update for new SRL changes)
AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
Summer = me busy, won't be around much.
Can you not use the the I made Nava2?
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
(Scripts outdated until I update for new SRL changes)
AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
Summer = me busy, won't be around much.
There are currently 1 users browsing this thread. (0 members and 1 guests)