Harry
01-17-2012, 05:13 PM
Herz:=DTMFromString('mbQAAAHicY2VgYNBlZWBQBmIrIDYD Yn0gNgeKewKxGxCHQ7GSkhIcJyUlM+ycwcjADxRHx4xYMBgAAK PDBn0=');
procedure TurnOffOnScreenXPPopup;
var hx,hy:integer;
begin
if Players[CurrentPlayer].Booleans[94] then
Exit;
if FindDTM(Herz,hx,hy,MSX1,MSY1,MSX2,MSCY-30) then
begin
WriteLn('Found XP on-screen popup. Turning it off.');
MouseBox(521, 51, 546, 75, mouse_Right);
Wait(10+Random(100));
ChooseOption('op-up');
Players[CurrentPlayer].Booleans[94] := True;
end;
end;
Turns off those annoying on-screen XP popups. Seems to work 100% on any skill that pops up. :)
Booleans are for so it won't try to find the DTM if it's already toggled it off this script session. Should make a cleaner way to handle it (if it's already turned off it will run the DTM call every time, which isn't THAT bad, DTMs don't use too much CPU, but still..). Mousebox is XP counter interface.
procedure TurnOffOnScreenXPPopup;
var hx,hy:integer;
begin
if Players[CurrentPlayer].Booleans[94] then
Exit;
if FindDTM(Herz,hx,hy,MSX1,MSY1,MSX2,MSCY-30) then
begin
WriteLn('Found XP on-screen popup. Turning it off.');
MouseBox(521, 51, 546, 75, mouse_Right);
Wait(10+Random(100));
ChooseOption('op-up');
Players[CurrentPlayer].Booleans[94] := True;
end;
end;
Turns off those annoying on-screen XP popups. Seems to work 100% on any skill that pops up. :)
Booleans are for so it won't try to find the DTM if it's already toggled it off this script session. Should make a cleaner way to handle it (if it's already turned off it will run the DTM call every time, which isn't THAT bad, DTMs don't use too much CPU, but still..). Mousebox is XP counter interface.