{.Script Info: PRIVATE SERVERS ONLY!!!
# ScriptName  = Ub3r Auto-Mager
# Author      = Dizzy
# Description = Auto mages enemies for you.
# Version     = 3.2
# Date        = 9/25/06
# Comments    = This script was specialy made for Ub3r Sever
}

{.Buttons
# F2 = Choose monster color to fight
# F3 = Hover mouse over spell you want to use then press F3
# F4 = Start auto maging (make sure you're at the spell list (book)!
# F5 = Stop auto maging
# F6 = Choose enemy coords (only use if enemy doesn't move) good for dueling
# F7 = Start the coord auto mager (for the F6 one)
# F8 = Stop the coord auto mager
}


Program AutoMage;
{.include SSI2.txt}

Var
a,colx,coly,enemyX,enemyY:Integer; //Coords, etc.
MColor,sX,sY:Integer; //Spell stuff, etc.



Procedure Script;
Begin
a:=0;
Repeat
a:=(a+1)
Wait(275);
If(IsFKeyDown(2)) Then
Begin
a:=(a+1)
GetMousePos(colx,coly);
PickColor(MColor,colx,coly);
Writeln('Picked monster color: ' + Inttostr(MColor))
ActivateClient;
End;

If(IsFKeyDown(3)) Then
Begin
a:=(a+1)
GetMousePos(x,y);
sX:=x;
sY:=y;
Writeln('Picked spell coords at: ' + IntToStr(x) + ',' + IntToStr(y));
End;
If(IsFKeyDown(4)) Then
Begin
Repeat
MMouse(sX,sY,5,5);
GetMousePos(x,y);
Wait(200);
ClickMouse(x,y,true);
Wait(300);
If(FindColorSpiralTolerance(x,y,MColor,5,5,514,337,0)) Then
MMouse(x,y,5,5);
GetMousePos(x,y);
Wait(200);
ClickMouse(x,y,true);
Wait(500);
Until(IsFKeyDown(5))
End;
If(IsFKeyDown(6)) Then
Begin
a:=(a+1)
GetMousePos(x,y);
enemyX:=x;
enemyY:=y;
Writeln('Picked enemy coords at: ' + IntToStr(x) + ',' + IntToStr(y));
End;
If(IsFKeyDown(7)) Then
Begin
Repeat
MMouse(sX,sY,1,1);
GetMousePos(x,y);
Wait(200);
ClickMouse(x,y,true);
Wait(300);
MMouse(enemyX,enemyY,1,1);
Wait(200);
ClickMouse(enemyX,enemyY,true);
Wait(500);
Until(IsFKeyDown(8))
End;
Until(a<=0)
End;


Begin
DisguiseScar('Ub3r Mager 3.2 by Dizzy');
Script;
End.