Last edited by DannyRS; 02-25-2013 at 11:12 PM.
Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling
I have drug the green target onto the client. It does not set compass to north either. Maybe I'm doing something wrong... I'll check the code.
Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling
Hey do you think this will work?
Simba Code:(*
RadialWalkTolerance
~~~~~~~~~~~~~~~~~~~
.. code-block:: pascal
function RadialWalkTolerance(Color: Integer; sRadial, eRadial: Variant; r, modX, modY, Tol: Integer): Boolean;
Same as RadialWalk, but with a tolerance.
.. note::
by Coh3n
Last modified: Jan. 08, 2012 by Coh3n
Example:
.. code-block:: pascal
while (RadialWalkTolerance(clRed, 25.5, 60.0, 50, -1, 2, 5)) do
WriteLn('Walking in a ''line''... with tolerance!');
*)
function P_07RadialWalk(TheColor: Integer; StartRadial, EndRadial: Variant; Radius, Xmod, Ymod: Integer): Boolean;
var
TPA: TPointArray;
I: Integer;
begin
Result := False;
if RadialWalkEx(tpa, P_07MMCX, P_07MMCY, TheColor, 0, StartRadial, EndRadial, Radius) then
for i := 0 to High(tpa) do
if MFNF(tpa[i].x, tpa[i].y, Xmod, Ymod) then
begin
P07_FFlag(10);
Result := True;
Exit;
end;
end;
function P07_RadialWalkTolerance(Color: Integer; sRadial, eRadial: Variant; r, modX, modY, Tol: Integer): Boolean;
var
TPA: TPointArray;
i, h: Integer;
begin
Result := False;
if RadialWalkEx(TPA, P07_MMCX, P07_MMCY, Color, Tol, sRadial, eRadial, r) then
begin
h := High(TPA);
for i := 0 to h do
if MFNF(TPA[i].x, TPA[i].y, modX, modY) then
begin
Result := WaitFunc(@Flag, 50, 500);
Exit;
end;
end;
end;
Edited some variables but idk if they are in 07 include
You need to edit RadialWalkEx because that's where the juicy stuff happens, I can try and do it for you tomorrow if you want
Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling
You could still work on it for soulsplit 2006 which will be bigger
Wrong Section
Last edited by Sawyer; 02-26-2013 at 02:07 AM.
Idk man, it doesn't work.
The 2 packages are in the correct folders but it doesn't compile.
Lmao i'm not compiling your include.
I compile my own scripts + othe scripts. It doesn't work anywhere.
Heres a pic that all files are in the correct folders.
see.jpg
Can we make this include compatible with srl-6?
I am currently trying to use a vanilla 2006 RSPS with this.
My Scripts:
TizenX Damage Token Collector
OS-Scape Auto Buyer
Check out an index of all my scripts here: ScriptingSRL
Can I have some help with this?
When I try to run this script:
It gives the error:Code:program new; {$I srl-6/srl.simba} {$I P06Include/P06Include.Simba} begin setupSRL(); SetupP06Include; end.
But when I search for this function in my function box, it shows up.Unknown declaration "GetTextAtExWrap" at line 107
Any help is appreciated, I'm always willing to learn.
Thanks
- Mustakrakish
My Scripts:
TizenX Damage Token Collector
OS-Scape Auto Buyer
Check out an index of all my scripts here: ScriptingSRL
For any missing functions, youll need to copy them from here into the P06 Include, or use this (srl5) instead of srl6. And then probably youll need to use the Pascal Script interpreter.
How did you get past the MMouse and ClickMouse2 unknown declarations?
There are currently 2 users browsing this thread. (0 members and 2 guests)