Kyle Undefined
01-08-2012, 11:37 AM
I made this to used in an Antiban procedure, as it could be useful in a RS Members script.
ExamineAura:
(*
ExamineAura
~~~~~~~~~~~
.. code-block:: pascal
procedure ExamineAura();
Examines the Aura slot and randomly chooses to either "Examine" or check the
time remaining for it to be fully charged.
.. note::
by Kyle Undefined
Example:
.. code-block:: pascal
*)
procedure ExamineAura();
var
X, Y, tab_Cur : Integer;
TP : TPoint;
TB : TBox;
begin
tab_Cur := GetCurrentTab();
GameTab(tab_Equip);
TP := Point(600, 221);
if(not(FindColor(X, Y, srl_outline_black, TP.x - 8, TP.y - 8, TP.x + 8, TP.y + 8)))then
begin
GameTab(tab_Cur);
Exit;
end;
TB := IntToBox(TP.x - 11, TP.y - 11, TP.x + 11, TP.y + 11);
MouseBox(TB.x1, TB.y1, TB.x2, TB.y2, mouse_Right);
if(Random(2) = 0)then
begin
if(not(WaitOption('xamine', 375)))then
if(Random(2) = 0)then
WaitOption('ancel', 375);
end else
begin
if(not(WaitOption('emaining', 375)))then
if(Random(2) = 0)then
WaitOption('ancel', 375);
end;
GameTab(tab_Cur);
end;
ExamineAura:
(*
ExamineAura
~~~~~~~~~~~
.. code-block:: pascal
procedure ExamineAura();
Examines the Aura slot and randomly chooses to either "Examine" or check the
time remaining for it to be fully charged.
.. note::
by Kyle Undefined
Example:
.. code-block:: pascal
*)
procedure ExamineAura();
var
X, Y, tab_Cur : Integer;
TP : TPoint;
TB : TBox;
begin
tab_Cur := GetCurrentTab();
GameTab(tab_Equip);
TP := Point(600, 221);
if(not(FindColor(X, Y, srl_outline_black, TP.x - 8, TP.y - 8, TP.x + 8, TP.y + 8)))then
begin
GameTab(tab_Cur);
Exit;
end;
TB := IntToBox(TP.x - 11, TP.y - 11, TP.x + 11, TP.y + 11);
MouseBox(TB.x1, TB.y1, TB.x2, TB.y2, mouse_Right);
if(Random(2) = 0)then
begin
if(not(WaitOption('xamine', 375)))then
if(Random(2) = 0)then
WaitOption('ancel', 375);
end else
begin
if(not(WaitOption('emaining', 375)))then
if(Random(2) = 0)then
WaitOption('ancel', 375);
end;
GameTab(tab_Cur);
end;