Offline
2012-02-11 17:45:05
Kills Ogres at Combat Training camp.
Enjoy :) This is my first Script.:spot:
The Attachment show the best place to stand.
Anyone can edit this script but can only post their edits on this thread.
can anyone help me with failsafes and randoms :)
Enjoy :) This is my first Script.:spot:
The Attachment show the best place to stand.
Anyone can edit this script but can only post their edits on this thread.
can anyone help me with failsafes and randoms :)
program OfflineOgreKiller;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/skill/fighting.simba}
{$i SRL/SRL/misc/paintsmart.simba}
//================--User Setup--===================\\
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := ''; //Player username.
Pass := ''; //Player password.
Active := True;
End;
End;
//=================================================\\
const
SWorld = 100;
var
T,MSpeed,RandAmount,TPointArray:Integer;
procedure SetupChar;
begin
SetAngle(0);
ClickNorth(0);
end;
Function FindOgre(Var X,Y: Integer): Boolean;
var
CTS,I,T: Integer;
TPA: TPointArray;
begin
FindNormalRandoms;
repeat
Result := False;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.20, 1.60);
FindColorsSpiralTolerance(MSCX, MSCY, TPA,(10525337), MSX1, MSY1, MSX2, MSY2, 8);
ColorToleranceSpeed(CTS);
if (Length(TPA) < 1) then
Exit;
MMouse(TPA[0].X, TPA[0].Y, 5, 5);
if WaitUpText('ack Ogre', 50) then
begin
FindNormalRandoms;
GetMousePos(X, Y);
ClickMouse2(True);
Result := True;
If DidRedClick then
MarkTime(T);
Repeat
wait(2 + Random(10));
If (TimeFromMark(T) > 4000) Then Exit;
Until Infight;
Begin
End;
repeat
until Not(InFight)
Exit;
end;
Until(Result)
end;
procedure KillOgres;
var
sX,sY,X,Y: Integer;
label
fighting;
begin
If FindOgre(X,Y) Then
writeln('Killing Ogre.');
FindNormalRandoms;
fighting:
While IsMoving do
MarkTime(T);
wait(1);
case random(4) of
0 : begin
sX := MSX1;
sY := MSY1;
end;
1 : begin
sX := MSX1;
sY := MSY2;
end;
2 : begin
sX := MSX2;
sY := MSY1;
end;
3 : begin
sX := MSX2;
sY := MSY2;
end;
end;
If FindOgre(X,Y) Then
goto fighting;
begin
if InFight then
begin
repeat
until (hppercent<20)
end;
wait(randomrange(200,300));
end;
end;
procedure Paint;
var
Ogres : String;
begin
begin
SMART_DrawTextEx(false,10,275,LoginChars,'OfflineOgreKiller', clAqua);
end;
end;
procedure Startup;
begin
Smart_Server := SWorld;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
RandAmount := 30;
MSpeed := 200;
DeclarePlayers;
LogInPlayer;
MouseSpeed := MSpeed;
wait(100+random(100));
end;
begin
Startup;
SetupChar;
FindNormalRandoms;
Paint;
repeat
KillOgres;
begin
end;
until (hppercent<10);
TerminateScript;
end.