Neonknight77
2006-04-16 20:50:48
Procedure FightMonster(MColor1,MColor2: Integer; PickUpBones: Boolean; MName: String);
Begin
If(FindColorSpiralTolerance(X,Y,MColor1,MSX1,MSY1,MSX2,MSY2,5))And
FindColorSpiralTolerance(X,Y,MColor1,MSX1,MSY1,MSX2,MSY2,5)Then
MMouse(X,Y,1,1);
If(IsUpText('Attack '+MName))Then
Begin
Sleep(100+Random(200));
Mouse(X,Y,1,1,True);
Flag;
Repeat
InFight;
Until Not(InFight) Or (GetHP<=7);
End;
If(GetHP<=7)Then
Begin
SetRun(True);
RunAwayDirection('S');
Logout;
Writeln('Lost too much HP');
TerminateScript;
End;
If(Not(PickUpBones=False))Then
Begin
If(Not(InFight))Then
Begin
If(FindColorSpiralTolerance(X,Y,BoneColor,MSX1,MSY1,MSX2,MSY2,10))Then
MMouse(X,Y,2,2);
If(IsUpText('Pick'))Then
Mouse(X,Y,1,1,True);
End;
End;
End;