Edit: Solved ^_^
Edit: Solved ^_^
Last edited by Main; 08-29-2009 at 08:33 PM.
Oh Hai Dar
What do you define as "correct?" If played, all of them would work.
<3
Originally Posted by Eminem
My current script have a identifier expected problem, so I wanna make sure if my If...then...else... statements are correct.
Do you mind check over my script for me?
Oh Hai Dar
I just noticed in 3, there is a ; missing on one of the ends. That may be your problem. If that doesn't sort it, PM the script to me, and I'll go though it. It's probably not your problem, because it's just an example, but you may have copied it from SCAR...I dunno...
Richard.
Last edited by Rich; 08-29-2009 at 05:10 AM.
<3
Originally Posted by Eminem
oo that end;.. kk
I will now recheck over my entire script, if errors still exist, I will pm you the script ^^ TY!
Oh Hai Dar
No problem. Glad to help. Like you said, if you need any more help, PM me and I'll get back to you ASAP.
<3
Originally Posted by Eminem
SCAR Code:Procedure b;
Begin
condition := 1;
If (condition = 1) Then
Begin
a;
End Else a1;
End;
If thats any help.
Rogeruk's Al-Kharid Tanner V1.1 [Released]
Rogeruk's Barbarian Crafter [Coming Soon]
Rogeruk's Guild Fisher [Coming Soon]
!! - Taking Requests - !!
Ty
*goes away and fix his my standards*
Can any one show me a basic find monster procedure? (find color, then movemouse to the color, then check"ismultiuptext" and finally mouse
Oh Hai Dar
Just a basic color clicker you mean? Something like:
SCAR Code:if(FindColorSpiralTolerance(x,y,2396852,MSX1,MSY1,MSX2,MSY2,5))then
begin
MMouse(x,y,5,5);
if(IsUpText('Monster'))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,true;
Writeln('Clicked monster!');
end;
end;
You could also step through the tolerances using a for loop:
SCAR Code:var i: Integer;
for i := 1 to 10 do
if(FindColorSpiralTolerance(x,y,2396852,MSX1,MSY1,MSX2,MSY2,i))then
begin
MMouse(x,y,5,5);
if(IsUpText('Monster'))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,true;
Writeln('Clicked monster!');
end;
end;
Tyyyyy omg
EDIT:
Is this correct?
SCAR Code:procedure x;
Var x,y,color1:integer
string1:string;
begin
color1:=123;
string1:='hi';
if(FindColorSpiralTolerance(x,y,color1,MSX1,MSY1,MSX2,MSY2,5))then
begin
Writeln('found color');
MMouse(x,y,0,0);
if (IsUpText(string1)) then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,true);
end;
end;
end;
Last edited by Main; 08-29-2009 at 05:57 AM.
Oh Hai Dar

The mouse stays at the top left corner for me(:
I am using normal rs client, not smart.
The color DO EXIST.
Oh Hai Dar

It didn't find the color.
darn.
What else is can I use for finding monsters?
Oh Hai Dar
Use tpa's? ATPAs? Reflection?
I mean color related procedures, I am not that skilled(:
Oh Hai Dar

TPA/ATPA's are color.![]()
I guess I'll start learning then ^_^
Could any one provide me an example of a "basic" fighting procedure?
Oh Hai Dar
Out of any SRL member who uses/knows TPA's, I probably use the most simple methods
I teach them in my tutorial here:
http://www.villavu.com/forum/showthread.php?t=48915
maybe reflection would be best? im not very good at reflection but i think this would atleast click the monsterand im sure theres a way to check if its infight
:
SCAR Code:procedure TalkToGuy;
var
N, P: TNPC;
T: TPoint;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
if FindNPC('NPCNAMEHERE', N) then
begin
if not TileOnMS(N.Tile, 0) then
WalkToTile(N.Tile, 1, 0);
FindNPC(N.NPCType, P);
Mouse(T.x, T.y, 4, 4, False);
if ChooseOption('Attack') then
begin
Writeln('Attacking blablabla!');
end else
Writeln('Could Not fight blablabla!');
end;
end;
maybe..
There are currently 1 users browsing this thread. (0 members and 1 guests)