vannilabear
2013-07-26 11:08:40
This is my first ever script, any constructive criticism and/or help would be gladly taken..
The script kills men at edgeville, I later plan on adding a means to loot the unidentified herbs, and bank them. ( Need help doing this )
and adding antibans, antirandoms when I learn how to. ( Also need help doing this )
I owe alot of this work to Le_Don, for his assistance over skype, and putting up with my general lack of simba knowledge.
anyway, without first adieu, Here is my script:
The script kills men at edgeville, I later plan on adding a means to loot the unidentified herbs, and bank them. ( Need help doing this )
and adding antibans, antirandoms when I learn how to. ( Also need help doing this )
I owe alot of this work to Le_Don, for his assistance over skype, and putting up with my general lack of simba knowledge.
anyway, without first adieu, Here is my script:
program EdgevilleManKillerByVannilabear;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{------------------------------------------------------------------------------}
{-----------------------------------CREDITS----------------------------}
{------------------------------------MYSELF--------------------------------------}
{---------------------------LE_DON-FOR-ASSISTANCE-------------------------}
{------------------------------------------------------------------------------}
const
VER = 0.1;
//PLAYER CREDENTIALS
PLAYER_USERNAME = '';
PLAYER_PASSWORD = '';
//COLOR INFORMATION
HPCOLOR = 65280;
MINIMAPITEMCOLOR1 = 3301261; //PLACEHOLDER
MANCOLOR1 = 5400402; //body color man 1
MANCOLOR2 = 4404533; //body color man 2
MANCOLOR3 = 1123909; //body color man 3
MANCOLOR4 = 1720144; //head color man 1
MANCOLOR5 = 1722480; //head color man 2
MANCOLOR6 = 4226955; //head color man 3
BONECOLOR = 11842750; //best with color tolerance 5
//PLAYER INFORMATION
PLAYER_NICK = 'Jay';
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := PLAYER_USERNAME;
Players[0].Pass := PLAYER_PASSWORD;
Players[0].Nick := PLAYER_NICK;
Players[0].Active := True;
end;
procedure Antiban;
begin
case Random(100) of
1: HoverSkill('magic', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: HoverSkill('smithing', False);
6: PickUpMouse;
7: RandomMovement;
8: RandomRClick;
end;
end;
procedure MiniAntiBan; //WE CALL THIS SPECIFICALLY WHILST WAITING FOR MEN TO DIE
var
x, y: integer;
begin
Case Random(20) of
1: BoredHuman;
2: RandomRClick;
3: RandomMovement;
4: SmallRandomMouse;
7: wait(randomrange(1000,2000));
8: begin end;
end;
end;
procedure MiniBreaker;
begin
case Random(160) of
1: Wait(40000 + random(7400));
2: Wait(25500 + random(8550));
3: Wait(60040 + random(6759));
4: Wait(20400 + random(2549));
end;
end;
function InCombat: Boolean;
var
X,Y:Integer;
begin
if (FindColor(x,y,HPCOLOR,200,100,300,200)) then
Result := true
else
Result := false
end;
procedure FindMan;
var
starttime, x, y: integer;
begin
if (not InCombat) then
begin
Writeln('Looking For Man');
if (FindObjCustom(x, y, ['Attack', 'ttack', 'Man','an'], [MANCOLOR1, MANCOLOR2, MANCOLOR3, MANCOLOR4, MANCOLOR5, MANCOLOR6], 10)) then
begin
Writeln('Found Man. Clicking.');
MMouse(x, y, 3, 3);
ClickMouse2(mouse_left);
starttime := getsystemtime;
repeat
Wait(randomrange(300,700));
until (InCombat) or (getsystemtime - starttime > (randomrange(4000, 10000)))
while (InCombat) do MiniAntiBan;
Writeln('We Probably Killed A Man.');
end;
end;
end;
Function CheckLoot:Boolean;
var
X,Y:Integer;
begin
Writeln('[CheckLoot] START');
if FindObjCustom(x,y,['ake','Take', 'erb', 'Herb'],[BONECOLOR], 5) then
begin
Writeln('[CheckLoot] FOUND Herb');
MMouse(x,y, 0, 0);
ClickMouse2(mouse_right);
Wait(RandomRange(150, 300));
ChooseOption('ake');
mmouse(259, 184, 5, 5);
wait(randomRange(1100,1500));
if IsUpTextMultiCustom(['Herb','erb']) then
begin
repeat
Writeln('[CheckLoot] Taking herbs below you');
ClickMouse2(mouse_left);
Wait(RandomRange(150, 300));
until not IsUpTextMultiCustom(['Herb', 'erb']);
end;
wait(200+ random(100));
end;
wait(randomRange(600,900));
Writeln('[CheckLoot] END');
end;
begin //CALL FUNCTION
DeclarePlayers;
SetupSRL;
ActivateClient;
Wait(2000);
LoginPlayer;
repeat
FindMan;
InCombat;
CheckLoot;
Antiban;
MiniBreaker;
Until(False)
end.