putonajonny
02-26-2012, 11:30 AM
Should I send a pull request?
It chooses a random game tab that isn't the one that you have open, then goes to it, if explore = true then it will interact, with it before going back to the original tab.
Procedure RandomTab(Explore : Boolean);
Var
NewTab, CTab, Skill, Level, Time, i, x, y, DTM : integer;
Coords : TPoint;
Box : TBox;
Points : TPointArray;
begin
MouseSpeed := 9;
CTab := GetCurrentTab;
if(CTab = -1) then
CTab := tab_Inv;
Repeat
NewTab := tab_Combat + Random(tab_LogOut - tab_Combat + 1)
Until((NewTab <> CTab) or (NewTab = tab_Inv));
GameTab(NewTab);
if(not Explore)then
begin
Wait(2000+Random(6000));
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
Wait(500+Random(2500))
Case NewTab of
tab_Combat : begin
Case Random(4) of
0 : MouseBox(569, 253, 634, 293, mouse_move);
1 : MouseBox(654, 253, 717, 293, mouse_move);
2 : MouseBox(571, 306, 634, 345, mouse_move);
3 : MouseBox(570, 359, 714, 399, mouse_move);
end;
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(500));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : Wait(200+Random(1800))
end;
end;
tab_Task : begin
if((GetColor(702, 214) = 6533359) and (GetColor(725, 216) = 6533359))then
Mouse(706, 215, 8, 4, mouse_Left);
Wait(1000+Random(1400));
Case Random(6) of
0 : MouseBox(564, 258, 631, 310, mouse_move);
1 : MouseBox(655, 258, 721, 310, mouse_move);
2 : MouseBox(564, 323, 631, 374, mouse_move);
3 : MouseBox(655, 323, 721, 374, mouse_move);
4 : MouseBox(564, 385, 631, 435, mouse_move);
5 : MouseBox(655, 385, 721, 435, mouse_move);
end;
Case Random(2) of
0 : begin
ClickMouse2(Mouse_Left);
Wait(2200+Random(2500));
MouseBox(682, 208, 735, 222, Mouse_Left);
end;
1 : Wait(200+Random(1800))
end;
end;
tab_Stats : begin
Repeat
Skill := Random(SKILL_DUNGEONEERING + 1);
Level := GetSkillLevel(Skill);
inc(i);
if(i > 20) then
begin
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
Until(Level <> 1);
WriteLn(Skill);
WriteLn(Level);
Coords := SkillToCoords(Skill);
WriteLn(Coords);
MMouse(Coords.x, Coords.y, 25, 10);
Case Random(4) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(500));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
ClickMouse2(mouse_Right);
if(Level = 99) then
begin
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
Level := ((Level / 10) + 1) * 10;
if(Level > 99) then
Level := 99;
WaitOption('evel', 500+Random(500));
Wait(1000+Random(2000));
TypeSendEx(IntToStr(Level), True);
Wait(1000+Random(1000));
MMouse(Coords.x, Coords.y, 25, 10);
Wait(200+Random(2800));
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(1000+Random(2000));
MMouse(747, 454, 2, 2);
GetMousePos(x, y);
HoldMouse(x, y, mouse_Left);
Wait(Random(1000));
ReleaseMouse(x, y, mouse_Left);
Wait(200+Random(3000));
CloseWindow;
end;
3 : Wait(2000+Random(3000));
end;
end;
tab_Quest : begin
if(not FindColors(Points, 255, 551, 289, 725, 453))then
begin
MMouse(729, 439, 2, 2);
GetMousePos(x, y);
HoldMouse(x, y, mouse_Left);
MarkTime(Time);
Repeat
if(FindColors(Points, 255, 551, 289, 725, 453))then
break;
if(TimeFromMark(Time) > 1500) then
begin
Wait(200+Random(300));
break;
end;
Wait(200+Random(200));
Until(false);
ReleaseMouse(x, y, mouse_Left);
if(not FindColors(Points, 255, 551, 289, 725, 453)) then
begin
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
i := Random(GetArrayLength(Points));
MMouse(Points[i].x, Points[i].y, 0, 0);
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(500));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
ClickMouse2(mouse_Left);
Wait(3000+Random(5000));
CloseWindow;
end;
end;
end;
end;
tab_Inv : begin
if(InvEmpty)then
begin
MouseBox(556, 215, 729, 458, mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
Repeat
x := 1 + Random(28);
Until(ExistsItem(x))
MouseItem(x, mouse_Right);
Case Random(2) of
0 : MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
1 : WaitOption('amine', 500+Random(500));
end;
end;
tab_Equip : begin
Box := GetEquippedItemBounds(1 + Random(11));
MouseBox(Box.x1, Box.y1, Box.x2, Box.y2, mouse_Right);
Case Random(2) of
0 : MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
1 : WaitOption('amine', 500+Random(500));
end;
end;
tab_Prayer : begin
x := Random(5);
y := Random(6);
Box.x1 := 565 + (x * 37);
Box.x2 := Box.x1 + 14;
Box.y1 := 222 + (y * 37);
Box.y2 := Box.y1 + 10;
Case Random(5) of
0 : begin
MouseBox(Box.x1, Box.y1, Box.x2, Box.y2, mouse_Right);
Wait(200+Random(200));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1..4 : begin
MouseBox(Box.x1, Box.y1, Box.x2, Box.y2, mouse_move);
Wait(1000+Random(2000));
end;
end;
end;
tab_Magic : begin
i := 1 + Random(3);
Repeat
x := Random(6);
y := Random(9);
x := 574 + 24 * x;
y := 229 + 24 * y;
MMouse(x, y, 8, 8);
Case Random(2) of
0 : Wait(500+Random(2500));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(1800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
end;
dec(i);
Until(i <= 0);
end;
tab_Objectives : begin
Wait(200+Random(1800)); //what is tab_objectives?
end;
tab_Friends : begin
if(not FindColors(Points, 8231332, 547, 247, 719, 435))then
begin
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
i := Random(GetArrayLength(Points));
MMouse(Points[i].x, Points[i].y, 0, 0);
Wait(200+Random(200));
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(1000));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
Wait(200+Random(1000));
i := Random(GetArrayLength(Points));
MMouse(Points[i].x, Points[i].y, 0, 0);
end;
end;
end;
tab_Ignore : begin
//due to an update this is now the same tab as Tab_Friends
end;
tab_FriendChat : begin
Case Random(2) of
0 : begin
Mouse(559, 450, 3, 3, mouse_Right);
Wait(200+Random(200));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
MMouse(575, 450, 3, 3);
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(200));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(800));
MouseBox(335, 100, 471, 300, mouse_move);
Case Random(2) of
0 : MouseBox(335, 100, 471, 300, mouse_move);
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(200));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
end;
CloseWindow;
DTM := DTMFromString('mwQAAAHic42RgYJBkYWAQA2IZKAaxRVkg4j JQugaorhKK66EYJlYD5f/ZoIOB7aWkGUKVlBicuLkZnHh4GIgBjERgOAAAlCAQag==');
if(FindDTM(DTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
Mouse(x, y, 3, 3, mouse_Left);
FreeDTM(DTM);
end;
end;
end;
end;
end;
tab_Clan : begin
MouseBox(549, 441, 636, 458, mouse_move);
Case Random(2) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
end;
end;
tab_Options : begin
Case Random(9) of
0 : begin
MMouse(585, 265, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(400));
MouseBox(68, 159, 443, 183, mouse_move);
Case Random(2) of
0 : ClickMouse2(mouse_Right);
end;
CloseWindow;
Wait(200+Random(400));
CloseWindow;
end;
end;
end;
1 : begin
MMouse(643, 265, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(400));
MouseBox(172, 45, 337, 281, mouse_move);
Case Random(2) of
0 : ClickMouse2(mouse_Right);
end;
Wait(200+Random(400));
CloseWindow;
end;
end;
end;
2 : begin
MMouse(698, 265, 5, 5);
Case Random(2) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
end;
end;
3 : begin
MMouse(586, 348, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(500+Random(800));
ClickMouse2(mouse_Left);
end;
end;
end;
4 : begin
MMouse(641, 348, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(500+Random(800));
ClickMouse2(mouse_Left);
end;
end;
end;
5 : begin
MMouse(698, 346, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(400));
MouseBox(550, 237, 736, 254, mouse_Left);
Wait(200+Random(1500));
Mouse(724, 220, 3, 3, mouse_Left);
end;
end;
end;
6 : begin
MMouse(586, 388, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(500+Random(800));
ClickMouse2(mouse_Left);
end;
end;
end;
7 : begin
MMouse(643, 400, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(400));
Mouse(723, 220, 3, 3, mouse_Left);
end;
end;
end;
8 : begin
MMouse(699, 400, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(1200+Random(1800));
CloseWindow;
end;
end;
end;
end;
end;
tab_Emotes : begin
MouseBox(556, 215, 712, 436, mouse_move);
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(1800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : Wait(500+Random(2500));
end;
end;
tab_Music : begin
if(not FindColors(Points, 65280, 551, 289, 725, 453))then
begin
MMouse(729, 446, 2, 2);
GetMousePos(x, y);
HoldMouse(x, y, mouse_Left);
MarkTime(Time);
Repeat
if(FindColors(Points, 255, 551, 289, 725, 453))then
break;
if(TimeFromMark(Time) > 3000) then
begin
Wait(200+Random(300));
break;
end;
Wait(200+Random(200));
Until(false);
ReleaseMouse(x, y, mouse_Left);
if(not FindColors(Points, 65280, 551, 289, 725, 453)) then
begin
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
end;
i := Random(GetArrayLength(Points));
MMouse(Points[i].x, Points[i].y, 0, 0);
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(500));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(1800));
end;
end;
end;
tab_Notes : begin
MMouse(565, 217, 3, 3);
Case Random(2) of
0 : Wait(200+Random(800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
end;
end;
tab_LogOut : Wait(200+Random(1800));
end;
Wait(200+Random(1800));
GameTab(CTab);
MouseSpeed := 15;
end;
(*
RandomTab
~~~~~~~~~~~~~
.. code-block:: pascal
function Procedure RandomTab(Explore : Boolean);
It chooses a random tab that isn't the one that you have open, then goes
to it, if explore = true then it will interact, with it before going back
to the original tab.
.. note::
by putonajonny
Example:
procedure Antiban;
begin
Case Random(100) of
0 : RandomTab(True);
1 : RandomTab(False);
2 : RandomRClick;
3 : PickUpMouse;
4 : BoredHuman;
end;
end;
.. code-block:: pascal
*)
It chooses a random game tab that isn't the one that you have open, then goes to it, if explore = true then it will interact, with it before going back to the original tab.
Procedure RandomTab(Explore : Boolean);
Var
NewTab, CTab, Skill, Level, Time, i, x, y, DTM : integer;
Coords : TPoint;
Box : TBox;
Points : TPointArray;
begin
MouseSpeed := 9;
CTab := GetCurrentTab;
if(CTab = -1) then
CTab := tab_Inv;
Repeat
NewTab := tab_Combat + Random(tab_LogOut - tab_Combat + 1)
Until((NewTab <> CTab) or (NewTab = tab_Inv));
GameTab(NewTab);
if(not Explore)then
begin
Wait(2000+Random(6000));
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
Wait(500+Random(2500))
Case NewTab of
tab_Combat : begin
Case Random(4) of
0 : MouseBox(569, 253, 634, 293, mouse_move);
1 : MouseBox(654, 253, 717, 293, mouse_move);
2 : MouseBox(571, 306, 634, 345, mouse_move);
3 : MouseBox(570, 359, 714, 399, mouse_move);
end;
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(500));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : Wait(200+Random(1800))
end;
end;
tab_Task : begin
if((GetColor(702, 214) = 6533359) and (GetColor(725, 216) = 6533359))then
Mouse(706, 215, 8, 4, mouse_Left);
Wait(1000+Random(1400));
Case Random(6) of
0 : MouseBox(564, 258, 631, 310, mouse_move);
1 : MouseBox(655, 258, 721, 310, mouse_move);
2 : MouseBox(564, 323, 631, 374, mouse_move);
3 : MouseBox(655, 323, 721, 374, mouse_move);
4 : MouseBox(564, 385, 631, 435, mouse_move);
5 : MouseBox(655, 385, 721, 435, mouse_move);
end;
Case Random(2) of
0 : begin
ClickMouse2(Mouse_Left);
Wait(2200+Random(2500));
MouseBox(682, 208, 735, 222, Mouse_Left);
end;
1 : Wait(200+Random(1800))
end;
end;
tab_Stats : begin
Repeat
Skill := Random(SKILL_DUNGEONEERING + 1);
Level := GetSkillLevel(Skill);
inc(i);
if(i > 20) then
begin
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
Until(Level <> 1);
WriteLn(Skill);
WriteLn(Level);
Coords := SkillToCoords(Skill);
WriteLn(Coords);
MMouse(Coords.x, Coords.y, 25, 10);
Case Random(4) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(500));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
ClickMouse2(mouse_Right);
if(Level = 99) then
begin
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
Level := ((Level / 10) + 1) * 10;
if(Level > 99) then
Level := 99;
WaitOption('evel', 500+Random(500));
Wait(1000+Random(2000));
TypeSendEx(IntToStr(Level), True);
Wait(1000+Random(1000));
MMouse(Coords.x, Coords.y, 25, 10);
Wait(200+Random(2800));
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(1000+Random(2000));
MMouse(747, 454, 2, 2);
GetMousePos(x, y);
HoldMouse(x, y, mouse_Left);
Wait(Random(1000));
ReleaseMouse(x, y, mouse_Left);
Wait(200+Random(3000));
CloseWindow;
end;
3 : Wait(2000+Random(3000));
end;
end;
tab_Quest : begin
if(not FindColors(Points, 255, 551, 289, 725, 453))then
begin
MMouse(729, 439, 2, 2);
GetMousePos(x, y);
HoldMouse(x, y, mouse_Left);
MarkTime(Time);
Repeat
if(FindColors(Points, 255, 551, 289, 725, 453))then
break;
if(TimeFromMark(Time) > 1500) then
begin
Wait(200+Random(300));
break;
end;
Wait(200+Random(200));
Until(false);
ReleaseMouse(x, y, mouse_Left);
if(not FindColors(Points, 255, 551, 289, 725, 453)) then
begin
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
i := Random(GetArrayLength(Points));
MMouse(Points[i].x, Points[i].y, 0, 0);
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(500));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
ClickMouse2(mouse_Left);
Wait(3000+Random(5000));
CloseWindow;
end;
end;
end;
end;
tab_Inv : begin
if(InvEmpty)then
begin
MouseBox(556, 215, 729, 458, mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
Repeat
x := 1 + Random(28);
Until(ExistsItem(x))
MouseItem(x, mouse_Right);
Case Random(2) of
0 : MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
1 : WaitOption('amine', 500+Random(500));
end;
end;
tab_Equip : begin
Box := GetEquippedItemBounds(1 + Random(11));
MouseBox(Box.x1, Box.y1, Box.x2, Box.y2, mouse_Right);
Case Random(2) of
0 : MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
1 : WaitOption('amine', 500+Random(500));
end;
end;
tab_Prayer : begin
x := Random(5);
y := Random(6);
Box.x1 := 565 + (x * 37);
Box.x2 := Box.x1 + 14;
Box.y1 := 222 + (y * 37);
Box.y2 := Box.y1 + 10;
Case Random(5) of
0 : begin
MouseBox(Box.x1, Box.y1, Box.x2, Box.y2, mouse_Right);
Wait(200+Random(200));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1..4 : begin
MouseBox(Box.x1, Box.y1, Box.x2, Box.y2, mouse_move);
Wait(1000+Random(2000));
end;
end;
end;
tab_Magic : begin
i := 1 + Random(3);
Repeat
x := Random(6);
y := Random(9);
x := 574 + 24 * x;
y := 229 + 24 * y;
MMouse(x, y, 8, 8);
Case Random(2) of
0 : Wait(500+Random(2500));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(1800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
end;
dec(i);
Until(i <= 0);
end;
tab_Objectives : begin
Wait(200+Random(1800)); //what is tab_objectives?
end;
tab_Friends : begin
if(not FindColors(Points, 8231332, 547, 247, 719, 435))then
begin
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
i := Random(GetArrayLength(Points));
MMouse(Points[i].x, Points[i].y, 0, 0);
Wait(200+Random(200));
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(1000));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
Wait(200+Random(1000));
i := Random(GetArrayLength(Points));
MMouse(Points[i].x, Points[i].y, 0, 0);
end;
end;
end;
tab_Ignore : begin
//due to an update this is now the same tab as Tab_Friends
end;
tab_FriendChat : begin
Case Random(2) of
0 : begin
Mouse(559, 450, 3, 3, mouse_Right);
Wait(200+Random(200));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
MMouse(575, 450, 3, 3);
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(200));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(800));
MouseBox(335, 100, 471, 300, mouse_move);
Case Random(2) of
0 : MouseBox(335, 100, 471, 300, mouse_move);
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(200));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
end;
CloseWindow;
DTM := DTMFromString('mwQAAAHic42RgYJBkYWAQA2IZKAaxRVkg4j JQugaorhKK66EYJlYD5f/ZoIOB7aWkGUKVlBicuLkZnHh4GIgBjERgOAAAlCAQag==');
if(FindDTM(DTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
Mouse(x, y, 3, 3, mouse_Left);
FreeDTM(DTM);
end;
end;
end;
end;
end;
tab_Clan : begin
MouseBox(549, 441, 636, 458, mouse_move);
Case Random(2) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
end;
end;
tab_Options : begin
Case Random(9) of
0 : begin
MMouse(585, 265, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(400));
MouseBox(68, 159, 443, 183, mouse_move);
Case Random(2) of
0 : ClickMouse2(mouse_Right);
end;
CloseWindow;
Wait(200+Random(400));
CloseWindow;
end;
end;
end;
1 : begin
MMouse(643, 265, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(400));
MouseBox(172, 45, 337, 281, mouse_move);
Case Random(2) of
0 : ClickMouse2(mouse_Right);
end;
Wait(200+Random(400));
CloseWindow;
end;
end;
end;
2 : begin
MMouse(698, 265, 5, 5);
Case Random(2) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
end;
end;
3 : begin
MMouse(586, 348, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(500+Random(800));
ClickMouse2(mouse_Left);
end;
end;
end;
4 : begin
MMouse(641, 348, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(500+Random(800));
ClickMouse2(mouse_Left);
end;
end;
end;
5 : begin
MMouse(698, 346, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(400));
MouseBox(550, 237, 736, 254, mouse_Left);
Wait(200+Random(1500));
Mouse(724, 220, 3, 3, mouse_Left);
end;
end;
end;
6 : begin
MMouse(586, 388, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(500+Random(800));
ClickMouse2(mouse_Left);
end;
end;
end;
7 : begin
MMouse(643, 400, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(400));
Mouse(723, 220, 3, 3, mouse_Left);
end;
end;
end;
8 : begin
MMouse(699, 400, 5, 5);
Case Random(3) of
0 : Wait(200+Random(2800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
2 : begin
ClickMouse2(mouse_Left);
Wait(1200+Random(1800));
CloseWindow;
end;
end;
end;
end;
end;
tab_Emotes : begin
MouseBox(556, 215, 712, 436, mouse_move);
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(1800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : Wait(500+Random(2500));
end;
end;
tab_Music : begin
if(not FindColors(Points, 65280, 551, 289, 725, 453))then
begin
MMouse(729, 446, 2, 2);
GetMousePos(x, y);
HoldMouse(x, y, mouse_Left);
MarkTime(Time);
Repeat
if(FindColors(Points, 255, 551, 289, 725, 453))then
break;
if(TimeFromMark(Time) > 3000) then
begin
Wait(200+Random(300));
break;
end;
Wait(200+Random(200));
Until(false);
ReleaseMouse(x, y, mouse_Left);
if(not FindColors(Points, 65280, 551, 289, 725, 453)) then
begin
GameTab(CTab);
MouseSpeed := 15;
exit;
end;
end;
i := Random(GetArrayLength(Points));
MMouse(Points[i].x, Points[i].y, 0, 0);
Case Random(2) of
0 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(500));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
1 : begin
ClickMouse2(mouse_Left);
Wait(200+Random(1800));
end;
end;
end;
tab_Notes : begin
MMouse(565, 217, 3, 3);
Case Random(2) of
0 : Wait(200+Random(800));
1 : begin
ClickMouse2(mouse_Right);
Wait(200+Random(800));
MouseBox(MSCX, MSCY, MSX2, MSY2, mouse_move);
end;
end;
end;
tab_LogOut : Wait(200+Random(1800));
end;
Wait(200+Random(1800));
GameTab(CTab);
MouseSpeed := 15;
end;
(*
RandomTab
~~~~~~~~~~~~~
.. code-block:: pascal
function Procedure RandomTab(Explore : Boolean);
It chooses a random tab that isn't the one that you have open, then goes
to it, if explore = true then it will interact, with it before going back
to the original tab.
.. note::
by putonajonny
Example:
procedure Antiban;
begin
Case Random(100) of
0 : RandomTab(True);
1 : RandomTab(False);
2 : RandomRClick;
3 : PickUpMouse;
4 : BoredHuman;
end;
end;
.. code-block:: pascal
*)