hey, i need help making my dummy hitter work for one thing and I would like it to stop and go to the next player when the attack level is 8 or when it finds the text -there is nothing more you can learn from hitting the dummy.
Could someone please make it work and tell me how/what they did or show/tell me how to do it, thanks.
{
__ __ ___ _ _ _
| \/ |___ __ _ _ _ __ _ __ _ ___ / __| |_ _ _ __| (_)___ ___
| |\/| / -_) _` | ' \/ _` / _` / -_) \__ \ _| || / _` | / _ (_-<
|_| |_\___\__,_|_||_\__,_\__, \___| |___/\__|\_,_\__,_|_\___/__/
|___/
DummySpliter v1
}
program DummySplitter;
{.include srl\srl.scar}
const
// Setup
dummycolor1=8693442;// Dummy Color One.
dummycolor2=8562113;// Dummy Color Two.
rundir='S';
runfar=true;
// Player Setup
procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='hjhghg';
Players[0].Pass :='hhjjhjh';
Players[0].Nick :='Emo';
Players[0].Active:=True;
end;
var
dummysHit : integer;
procedure AntiBan2;
begin
writeln('Antiban');
MouseSpeed := 9 +random(3)
if (random (3)= 0) then
MouseSpeed:= 8 + random(4);
LeaveScreenEvery(5 + random(5));
RotateEvery(4 + random(3));
BoredEvery(50+random(10));
PickUpMouseEvery(64+random(13));
end;
function HitDummy:boolean;
var Tolerance :integer;
DoFNR :integer;
begin
Tolerance:=10;
DoFNR:=0;
begin
repeat
if (FindColorSpiralTolerance(x,y,DummyColor1,197,61,3 84,204,Tolerance))or
(FindColorSpiralTolerance(x,y,DummyColor2,197,61,3 84,204,Tolerance))then
MMouse(x,y,1,1)
if (IsUpText('ummy')) then
result:= true;
if not result then
tolerance:= tolerance+1;
if (tolerance=45) then
begin
writeln('Cant find dummys even if tolerance is rised, terminating.');
logout;
terminatescript;
end;
until (result) or (tolerance=45)
begin
if (FindObject(x,y,'ummy',DummyColor1,tolerance,true) ) or
(FindObject(x,y,'ummy',DummyColor2,tolerance,true) ) then
Mouse(x,y,1,1,true);
end;
if (FlagPresent) then
begin
FFlag(0);
Wait(300+Random(400));
end;
Begin
FindNormalRandoms;
end;
antiban2;
writeln('starting waiting procedure...');
AntiBan2;
end;
end;
Function FindFastRandoms: Boolean; // By WT-Fakawi.
Var
i: Integer;
Begin
For I := 1 To 12 Do
Begin
Case I Of
1: If FindDead Then
Result := True;
2: If FindMod Then
Result := True;
3: If FindMime Then
Result := True;
4: If FindMaze Then
Result := True;
5: If FindQuiz Then
Result := True;
6: If FindDemon Then
Result := True;
7: Begin
If NoGameTab Then
Begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
End;
End;
8 : If RC Then
Result := True;
9 : If FindFight Then
Begin
Result := True;
RunTo(RunDir, RunFar);
End;
10: If FindTalk Then
Result := True;
End;
Wait(1);
End;
End;
procedure SetUp;
begin;
if(not(loggedin)) then begin
loginplayer;
wait(500+random(200))
end;
end;
procedure Done;
BEGIN
if(Players[CurrentPlayer].Level[1] >= 8) or (InChat('is nothing more you can learn'))then
NextPlayer(false);
end;
procedure mainloop2;
Begin
repeat;
SetUp;
hitdummy;
FindFastRandoms;
FindNormalRandoms;
if(Players[CurrentPlayer].Level[1] >= 8) or (InChat('is nothing more you can learn'))then
NextPlayer(false);
mainloop2;
end;
begin
setupSRL;
Setup;
DeclarePlayers:
MainLoop2;
end.





Reply With Quote


