Battousai
02-15-2015, 11:38 PM
Start with arrow shafts in second inventory slot
Features:
Basic antiban (could improve)
Logs out when out of arrow shafts
Program new;
{$Define SMART}
{$I SRL-6/SRL.Simba}
Procedure declarePlayers();
Begin
setLength(players, 1);
With players[0] Do
Begin
loginName := ''; //UserName
password := ''; //Password
isActive := True; //Leave true
isMember := True; //Is user a Member?
End;
currentPlayer := 0;
End;
Procedure antiBan();
Begin
Case random(500) Of
0: Begin ClearDebug; writeLn('Status: Anti Ban - Hover Skill'); hoverSkill(SKILL_FLETCHING); End;
1: Begin ClearDebug; writeLn('Status: Anti Ban - Bored Human'); boredHuman(false); End;
2: Begin ClearDebug; writeLn('Status: Anti Ban - Move Mouse 1'); sleepAndMoveMouse(1000 + random(2000)); End;
3: Begin ClearDebug; writeLn('Status: Anti Ban - Dropped Mouse'); pickUpMouse(); End;
4: Begin ClearDebug; writeLn('Status: Anti Ban - Move Mouse 2'); smallRandomMouse(80); End;
End;
End;
Procedure makeHeadlessArrows();
Begin
ClearDebug;
writeLn('Status: Clicking Arrow Shafts');
tabBackPack.mouseSlot(2, MOUSE_LEFT);
If productionScreen.isOpen(5000) Then
Begin
antiBan();
ClearDebug;
writeLn('Status: Clicking Start');
productionScreen.clickStart();
End;
if progressScreen.isOpen(5000) Then
Begin
Repeat
antiBan();
ClearDebug;
writeLn('Status: Making Headless Arrows');
wait(randomRange(200, 500));
Until(Not progressScreen.isOpen());
End;
End;
Begin
setupSRL;
declarePlayers();
disableSRLDebug := True;
If Not isLoggedIn Then
players[currentPlayer].login();
Repeat
antiBan();
makeHeadlessArrows();
Until(Not tabBackPack.isItemInSlot(2));
players[currentPlayer].logout();
terminateScript;
End.
Features:
Basic antiban (could improve)
Logs out when out of arrow shafts
Program new;
{$Define SMART}
{$I SRL-6/SRL.Simba}
Procedure declarePlayers();
Begin
setLength(players, 1);
With players[0] Do
Begin
loginName := ''; //UserName
password := ''; //Password
isActive := True; //Leave true
isMember := True; //Is user a Member?
End;
currentPlayer := 0;
End;
Procedure antiBan();
Begin
Case random(500) Of
0: Begin ClearDebug; writeLn('Status: Anti Ban - Hover Skill'); hoverSkill(SKILL_FLETCHING); End;
1: Begin ClearDebug; writeLn('Status: Anti Ban - Bored Human'); boredHuman(false); End;
2: Begin ClearDebug; writeLn('Status: Anti Ban - Move Mouse 1'); sleepAndMoveMouse(1000 + random(2000)); End;
3: Begin ClearDebug; writeLn('Status: Anti Ban - Dropped Mouse'); pickUpMouse(); End;
4: Begin ClearDebug; writeLn('Status: Anti Ban - Move Mouse 2'); smallRandomMouse(80); End;
End;
End;
Procedure makeHeadlessArrows();
Begin
ClearDebug;
writeLn('Status: Clicking Arrow Shafts');
tabBackPack.mouseSlot(2, MOUSE_LEFT);
If productionScreen.isOpen(5000) Then
Begin
antiBan();
ClearDebug;
writeLn('Status: Clicking Start');
productionScreen.clickStart();
End;
if progressScreen.isOpen(5000) Then
Begin
Repeat
antiBan();
ClearDebug;
writeLn('Status: Making Headless Arrows');
wait(randomRange(200, 500));
Until(Not progressScreen.isOpen());
End;
End;
Begin
setupSRL;
declarePlayers();
disableSRLDebug := True;
If Not isLoggedIn Then
players[currentPlayer].login();
Repeat
antiBan();
makeHeadlessArrows();
Until(Not tabBackPack.isItemInSlot(2));
players[currentPlayer].logout();
terminateScript;
End.