Thanks for the fast replys!
Can you make a P06_CheckInvEmpty? That'd help me with some scripts :P! Or is there an easy to detect this?
Im using this to detect if inv full.
procedure CheckInvFull;
var
X,Y:integer;
begin
if (P06_InvFull = true) then
repeat
writeln('Your inventory is full');
if FindBitmapToleranceIn(ancho, X, Y, 548, 175, 751, 461, 145) then
mMouse(x,y,1,1);
ClickMouse2(mouse_right);
if FindBitmapToleranceIn(dropan, X, Y, 548, 175, 751, 461, 145) then
begin
mMouse(x,y,1,1);
ClickMouse2(mouse_left);
end;
until (false);
end;
Last edited by Dormik; 02-04-2013 at 08:43 PM.
Last edited by DannyRS; 02-04-2013 at 11:21 PM.
Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling
I dont understand what P06_SetGlobals do. Could someone explain it to me, please?
And is there a way to see if you're in combat?
Last edited by Dormik; 02-05-2013 at 03:32 PM.
Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling
Genie random event solver:
Check if Hyde might exist:
Simba Code:Function FindHydeColors:Boolean;
var
tmpCTS, l, r:Integer;
HydeTPA:TPointArray;
begin
MouseSpeed:=15;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.20, 0.21);
if FindColorsTolerance(HydeTPA, 5337207, 1, 1, 518, 359, 3) then
begin
Result := True;
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
//L := High(BankTPA);
end;
Result := False;
end;
Check if genie might exist:
Simba Code:Function FindGenieColors:Boolean;
var
tmpCTS, l, r:Integer;
GenieTPA:TPointArray;
begin
MouseSpeed:=15;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.14, 1.04);
if FindColorsTolerance(GenieTPA, 6163466, 1, 1, 518, 359, 4) then
begin
Result := True;
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
//L := High(BankTPA);
end;
Result := False;
end;
Solve:
Simba Code:Function FindGenie: Boolean;
Var
tmpCTS,i, L,Counter: Integer;
ObjTPA: TPointArray;
ObjATPA: T2DPointArray;
X,Y,DMCount,Moves: Integer;
Begin
Moves:=0;
DMCount:=0;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.14, 1.04);
FindColorsTolerance(ObjTPA, 6163466, 1, 1, 514, 338, 4);
SplitTPAWrap(ObjTPA, 10, ObjATPA);
SortATPASize(ObjATPA,True);
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
DMCount:=RandomRange(3,5);
L := High(ObjATPA)
MarkTime(Counter);
For i := 0 To L Do
Begin
MiddleTPAEx(ObjATPA[i], X, Y);
Repeat Begin
Moves:=Moves+1;
mmouse(x, y, 1, 1);
Wait(RandomRange(400, 500));
If (P06_IsUpTextMultiCustom(['Talk To G','alk To Gen','k to Gen'])) Then
Begin
clickmouse2(mouse_Left);
Wait(RandomRange(1500, 5000));
Writeln('Solving genie random event');
Exit;
End;
End; Until (Moves > DMCount)
If (TimeFromMark(Counter) > 5000) Then
Begin
Break;
End;
End;
Result:=False;
End;
Mr hyde colors:
EDIT: I am yet to get a genie event, as soon as somebody gets one tell me if there is anything else to be addedCode:MR HYDE COL 5337207 TOL 3 HUE MOD 0.20 SAT MOD 0.21
Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling
Sorry I haven't been any help guys, A lot of work as of late.
Sarcasm related to the lape thread
Pascal can't multi thread without some ridiculous plugins as far as I know, Lape can more easily support it, but I think simba is being kept single threaded for now, if I understand tho Lape will be run from compiled code rather than the way we do it currently and compile execute line by line at runtime and checking the source,
So as far as I can see everything handled by scripts themselves should be faster when Lapes completely finished, I'm not really sure how it all works lol
Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling
I'v just had a quick look, but whats the best way for walking on project rs?
Last edited by imangry; 02-08-2013 at 07:17 PM.
[Hint] C:\Simba\Includes\P06Include/P06Include.Simba(611:3): Variable 'C' never used at line 610
Compiled successfully in 563 ms.
Successfully executed.
thats what im getting when i run this test script is that correct ? i have done the steps
Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling
For those of you with git, you can find it here.
Anyone who wants help update/ dev is welcome to be added as a collaborator
<TViYH> i had a dream about you again awkwardsaw
Malachi 2:3
could one of you guys please use team viewer or logmein to help me? I tried doing all of this but it isn't working.
There are currently 1 users browsing this thread. (0 members and 1 guests)