Hi, I have a little problem, I made a separate procedure for anti-ban, but when I try to add it in my script, it never works, because the real main loop is the woodcutting, and it still doesn't work as good.
This is the new procedure, and I put the anti-ban in there. But it only works one time.
I can post what I also did to the full script.
(Cut me some slack, I wasn't at SRL for like a year, I didn't even know these things until I re-read a couple of tuts.)
SCAR Code:
Procedure MainStuff;
Var
TalkBack, TalkBack1, TalkBack2, x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'hop', TreeCol, 30) then
begin
If (InChat('hello')) then
TalkBack:= Random(5);
case TalkBack of
1: TypeSend('hello');
2: TypeSend('hey');
3: TypeSend('Good Day');
4: TypeSend('Hello, how are you?');
5: TypeSend('ummm hi...');
end;
begin
if (InChat('noob')) then
begin
TalkBack1:= Random(5);
case TalkBack1 of
0: TypeSend('you the noob');
1: TypeSend('your mom is a noob');
2: TypeSend('look in the mirror noob.');
3: TypeSend('choob');
4: TypeSend('you fail.');
5: TypeSend('well, your garbage.');
end;
begin
if (InChat('auto')) or (InChat('autoer')) then
TalkBack2:= Random(5);
case TalkBack2 of
0: TypeSend('lol, i don''t auto.');
1: TypeSend('??? i don''t do that ???');
2: TypeSend('you wish :)');
3: TypeSend('i never cheated in my life');
4: TypeSend('go away noob.');
5: TypeSend('your family autos');
end;
end;
end;
end;
Mouse(x, y, 2, 3, False);
if ChooseOption('hop') then
Wait(Waiting+Random(760));
FTWait(3); //Anti-Randoms + Anti-Ban
FindFight;
FindNormalRandoms;
SolvePinBall;
DwarfItem;
ClickToContinue;
ClickToContinue;
begin
Exit;
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
until false
end;
So thats the procedure in the main woodcutting procedure.
I wanted it, so it can be used, even when it is woodcutting.
here is full script.
SCAR Code:
{-------------------------------|
| Sebo's PowerCutter |
| Version 0.3 |
| # Setup On Lines 23-51 |
| UPDATES: |
| # Talk-Back |
| # Anti-Randoms |
{-------------------------------|
| Credits: |
| - WT-Fakawi for Anti-Random |
| - The_Rs_Monkey for the WC |
| TuT, Learned a couple new |
| Things, Thanks Man :) |
|-------------------------------}
Program SeboCutter;
{.include SRL/SRL.scar}
{----------------------------Setup Begins----------------------------}
const
LoadsPerPlayer = 5; //Amount of loads to do before switching.
TreeCol = 2188889; //Set the tree color here.
Waiting = 3000; //Wait time per Tree.
Procedure DeclarePlayers;
begin
NumberOfPlayers(4);
CurrentPlayer := 0;
Players[0].Name := 'Fang Sai424';
Players[0].Pass := 'lolkid, dont even try';
Players[0].Nick := 'sai';
Players[0].Active := True;
Players[1].Name := 'Name';
Players[1].Pass := 'Pass';
Players[1].Nick := 'NickName';
Players[1].Active := False;
Players[2].Name := 'Name';
Players[2].Pass := 'Pass';
Players[2].Nick := 'NickName';
Players[2].Active := False;
Players[3].Name := 'Name';
Players[3].Pass := 'Pass';
Players[3].Nick := 'NickName';
Players[3].Active := False;
NumberOfPlayers(4);
end;
{---------------------------Setup Ends---------------------------}
Procedure MainStuff;
Var
TalkBack, TalkBack1, TalkBack2, x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'hop', TreeCol, 30) then
begin
If (InChat('hello')) then
TalkBack:= Random(5);
case TalkBack of
1: TypeSend('hello');
2: TypeSend('hey');
3: TypeSend('Good Day');
4: TypeSend('Hello, how are you?');
5: TypeSend('ummm hi...');
end;
begin
if (InChat('noob')) then
begin
TalkBack1:= Random(5);
case TalkBack1 of
0: TypeSend('you the noob');
1: TypeSend('your mom is a noob');
2: TypeSend('look in the mirror noob.');
3: TypeSend('choob');
4: TypeSend('you fail.');
5: TypeSend('well, your garbage.');
end;
begin
if (InChat('auto')) or (InChat('autoer')) then
TalkBack2:= Random(5);
case TalkBack2 of
0: TypeSend('lol, i don''t auto.');
1: TypeSend('??? i don''t do that ???');
2: TypeSend('you wish :)');
3: TypeSend('i never cheated in my life');
4: TypeSend('go away noob.');
5: TypeSend('your family autos');
end;
end;
end;
end;
Mouse(x, y, 2, 3, False);
if ChooseOption('hop') then
Wait(Waiting+Random(760));
FTWait(3); //Anti-Randoms + Anti-Ban
FindFight;
FindNormalRandoms;
SolvePinBall;
DwarfItem;
ClickToContinue;
ClickToContinue;
begin
Exit;
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
until false
end;
Function FindFastRandoms: Boolean; // Thanks Fakawi for Function :)
var
i: Integer;
begin
for i:=0 to 10 do
begin
case I of
0: If FindTalk then
begin
FindNormalRandoms;
end;
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Logout;
Exit;
end;
end;
9: RC;
end;
FindFight;
FindFightEx;
SolvePinball;
end;
end;
Procedure SetupMyScript;
Begin
SetupSRL;
ActivateClient;
ClearDebug;
End;
Begin
SetupMyScript;
DeclarePlayers;
if Loggedin then Logout;
LoginPlayer;
MakeCompass('n');
HighestAngle;
repeat
FindFastRandoms;
MainStuff;
if InvFull then
begin
DroptoPosition(2, 28);
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
if not Loggedin then NextPlayer(False);
until false
End.
And this is how i want it, but so it works...?
SCAR Code:
{-------------------------------|
| Sebo's PowerCutter |
| Version 0.3 |
| # Setup On Lines 23-51 |
| UPDATES: |
| # Talk-Back |
| # Anti-Randoms |
{-------------------------------|
| Credits: |
| - WT-Fakawi for Anti-Random |
| - The_Rs_Monkey for the WC |
| TuT, Learned a couple new |
| Things, Thanks Man :) |
|-------------------------------}
Program SeboCutter;
{.include SRL/SRL.scar}
{----------------------------Setup Begins----------------------------}
const
LoadsPerPlayer = 5; //Amount of loads to do before switching.
TreeCol = 2188889; //Set the tree color here.
Waiting = 3000; //Wait time per Tree.
Procedure DeclarePlayers;
begin
NumberOfPlayers(4);
CurrentPlayer := 0;
Players[0].Name := 'Fang Sai424';
Players[0].Pass := 'lolkid, dont even try';
Players[0].Nick := 'sai';
Players[0].Active := True;
Players[1].Name := 'Name';
Players[1].Pass := 'Pass';
Players[1].Nick := 'NickName';
Players[1].Active := False;
Players[2].Name := 'Name';
Players[2].Pass := 'Pass';
Players[2].Nick := 'NickName';
Players[2].Active := False;
Players[3].Name := 'Name';
Players[3].Pass := 'Pass';
Players[3].Nick := 'NickName';
Players[3].Active := False;
NumberOfPlayers(4);
end;
{---------------------------Setup Ends---------------------------}
Procedure ChopTheTreeWithRandoms;
Var
TalkBack, TalkBack1, TalkBack2, x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'hop', TreeCol, 30) then
begin
Mouse(x, y, 2, 3, False);
if ChooseOption('hop') then
Wait(Waiting+Random(760));
FTWait(3); //Anti-Randoms + Anti-Ban
FindFight;
FindNormalRandoms;
SolvePinBall;
DwarfItem;
ClickToContinue;
ClickToContinue;
begin
Exit;
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
until false
end;
Procedure AntiBanMe;
Begin
If (InChat('hello')) then
TalkBack:= Random(5);
case TalkBack of
1: TypeSend('hello');
2: TypeSend('hey');
3: TypeSend('Good Day');
4: TypeSend('Hello, how are you?');
5: TypeSend('ummm hi...');
end;
begin
if (InChat('noob')) then
begin
TalkBack1:= Random(5);
case TalkBack1 of
0: TypeSend('you the noob');
1: TypeSend('your mom is a noob');
2: TypeSend('look in the mirror noob.');
3: TypeSend('choob');
4: TypeSend('you fail.');
5: TypeSend('well, your garbage.');
end;
begin
if (InChat('auto')) or (InChat('autoer')) then
TalkBack2:= Random(5);
case TalkBack2 of
0: TypeSend('lol, i don''t auto.');
1: TypeSend('??? i don''t do that ???');
2: TypeSend('you wish :)');
3: TypeSend('i never cheated in my life');
4: TypeSend('go away noob.');
5: TypeSend('your family autos');
end;
end;
end;
end;
end;
Function FindFastRandoms: Boolean; // Thanks Fakawi for Function :)
var
i: Integer;
begin
for i:=0 to 10 do
begin
case I of
0: If FindTalk then
begin
FindNormalRandoms;
end;
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Logout;
Exit;
end;
end;
9: RC;
end;
FindFight;
FindFightEx;
SolvePinball;
end;
end;
Procedure SetupMyScript;
Begin
SetupSRL;
ActivateClient;
ClearDebug;
End;
Begin
SetupMyScript;
DeclarePlayers;
if Loggedin then Logout;
LoginPlayer;
MakeCompass('n');
HighestAngle;
repeat
AntiBanMe;
FindFastRandoms;
ChopTheTreeWithRandoms;
AntiBanMe;
if InvFull then
begin
DroptoPosition(2, 28);
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
if not Loggedin then NextPlayer(False);
until false
End.