if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
grrr.
if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
grrr.
Type mismatch is usually allocated on the line above that.
line above is repeat![]()
What do you have Log declared as?
an integer;
show whole piece![]()
~Hermen
![]()
SCAR Code:program skilldTreePwnz0r;
{.include SRL/SRL.scar}
{.include srl/srl/skill/WoodCutting.scar}
{Info:
+Chops and drops Logs, Oaks, Willows, Maples and Teaks.
+Full Anti-Ban and Anti-Randoms.
+Full Auto-Color.
Credits:
+NaumanAkhlaQ for getting the Maple and Teak colors and DTM's for me.
+Timothegreat for his TPA tut.
+P1NKY because his script inspired me to make one so that I could beat his :p
+Iron Man for helping me out whenever I get stuck on something
+and anyone else who has helped me.
}
var
x, y : integer;
Log, Oak, Willow, Maple, Teak, LoadsBeforeSwitch : integer;
NormalsChopped,OaksChopped,WillowsChopped,MaplesChopped,TeaksChopped,Ents,Loads : integer;
const
Whatever = 3; //Loads Before Switching Players
YourSRLId = '2670'; //don't know what it is?
YourSRLPassword = 'blink182'; //leave it blank!
procedure DeclarePlayers;
begin
CurrentPlayer := 0;
NumberOfPlayers(2); // how many players are you using?
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';//3-4 Letters Of Username
Players[0].Strings[1] := 'normal';//normal, oak, willow, maple, teak
Players[0].Active :=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Strings[1] := 'normal';
Players[1].Active :=True;
{Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[0].Strings[1] := 'Willow';
Players[2].Active :=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[0].Strings[1] := 'Willow';
Players[3].Active :=True;}
end;
procedure DTMs;
begin
Maple:= DTMFromString('78DA639CC4C8C010C58002CC159919FE0369A' + //made by nauman
'00CC37F2060EC00B28218D000231209A4E70059FE04D4CC07B212' +
'09A8E902B25208A869C6743356F784E357030034EA0BE1');
Teak:= DTMFromString('78DA6334646460E8016224B0B12F84E13F900' + //made by nauman
'689FE0702464D20AB05550D44164602691B20AB89801A7B206B0A' +
'013520BBA61250630A644D23A0C6884837771150A30C64F5E2570' +
'300458C0D6B');
Log := DTMFromString('78DA636C646660B06562400645E1260C5C409' +
'A1188FF0301631F508D0DAA1A882C8C04D2CD40358604D49400D5' +
'981150530A54E342845DAE04D4F402D5381150530D54638C5F0D0' +
'0DD250B27');
Willow := DTMFromString('78DA63AC6766604864624006AEB6120C5C409' +
'A1188FF0301631FA61A882C8C04D2BD40356904D43401D5641250' +
'530154934D404D01504D0211E6841350D30C54134A404D2761730' +
'009410CCF');
Oak := DTMFromString('78DA636C6466606861624006A551A60C5C409' +
'A1188FF0301631F504D3BAA1A882C8C04D29D4035D504D480ECAA' +
'22A0A614A8A686809A024C3763A82902AAE921A0A606A8A69F809' +
'A16C2E600003F5D0E69');
end;
procedure SkilldAntiBan;
begin
case random(50) of
0: begin
MakeCompass('S');
Wait(50 + random(100));
MakeCompass('W');
Wait(50 + random(100));
MakeCompass('N');
Wait(50 + random(100));
SetAngle(false);
Wait(50 + random(100));
SetAngle(true);
end;
1: begin
MakeCompass('W');
Wait(50 + random(100));
MakeCompass('E');
Wait(50 + random(100));
MakeCompass('S');
Wait(50 + random(100));
MakeCompass('N');
end;
2: begin
KeyDown(VK_Left);
Wait(1000 + random(500));
KeyUp(VK_Left);
Wait(50 + random(100));
KeyDown(VK_Right);
Wait(1000 + random(500));
KeyUp(VK_Right);
Wait(50 + random(100));
MakeCompass('N');
end;
3: begin
KeyDown(VK_Down);
Wait(1000 + random(500));
KeyUp(VK_Down);
Wait(50 + random(100));
KeyDown(VK_Up);
Wait(1000 + random(500));
KeyUp(VK_Up);
end;
4: AlmostLogout;
5, 6, 7: RandomMovement;
8, 9, 10: MMouse(5 + random(250), 5 + random(250), 5, 5);
end
end;
function FindATree:boolean; // taken from timo's TPA tut, edited by me.
var
tx,ty,i: integer;
TreePoints,OakPoints,WillowPoints,MaplePoints,TeakPoints: TPointArray;
Tree2D,Oak2D,Willow2D,Maple2D,Teak2D: T2DPointArray;
TreePoint,OakPoint,WillowPoint,MaplePoint,TeakPoint: TPoint;
begin
if not LoggedIn then exit;
x:= MSCX;
y:= MSCY;
if (Players[CurrentPlayer].Strings[1] = 'tree') then
begin
FindColorsSpiralTolerance(x,y,TreePoints,2443842,MSX1,MSY1,MSX2,MSY2,10);
Tree2D:= TPAtoATPAEx(TreePoints,30,30);
for i:= 0 to length(Tree2D)-1 do
begin
if not LoggedIn then
begin
break;
end;
TreePoint:= MiddleTPA(Tree2D[i]);
tx:= TreePoint.X;
ty:= TreePoint.Y;
MMouse(tx,ty,2,2);
wait(90+random(50));
if IsUpTextMultiCustom(['hop', 'ree'])then
begin
GetMousePos(x,y);
result:= true;
break;
exit;
end;
end;
end;
if Result then exit;
if (Players[CurrentPlayer].Strings[1] = 'oak') then
begin
x:= MSCX;
y:= MSCY;
FindColorsSpiralTolerance(x,y,OakPoints,859416,MSX1,MSY1,MSX2,MSY2,10);
Oak2D:= TPAtoATPAEx(OakPoints,30,30);
for i:= 0 to length(Oak2D)-1 do
begin
if not LoggedIn then
begin
break;
end;
OakPoint:= MiddleTPA(Oak2D[i]);
tx:= OakPoint.X;
ty:= OakPoint.Y;
MMouse(tx,ty,2,2);
wait(90+random(50));
if IsUpTextMultiCustom(['hop', 'ak'])then
begin
GetMousePos(x,y);
result:= true;
break;
exit;
end;
end;
end;
if Result then exit;
if (Players[CurrentPlayer].Strings[1] = 'Willow') then
begin
x:= MSCX;
y:= MSCY;
FindColorsSpiralTolerance(x,y,WillowPoints,3559756,MSX1,MSY1,MSX2,MSY2,10);
Willow2D:= TPAtoATPAEx(WillowPoints,30,30);
for i:= 0 to length(Willow2D)-1 do
begin
if not LoggedIn then
begin
break;
end;
WillowPoint:= MiddleTPA(Willow2D[i]);
tx:= WillowPoint.X;
ty:= WillowPoint.Y;
MMouse(tx,ty,2,2);
wait(90+random(50));
if IsUpTextMultiCustom(['hop', 'illow']) then
begin
GetMousePos(x,y);
result:= true;
break;
exit;
end;
end;
end;
if Result then exit;
if (Players[CurrentPlayer].Strings[1] = 'Maple') then
begin
x:= MSCX;
y:= MSCY;
FindColorsSpiralTolerance(x,y,MaplePoints,1986422,MSX1,MSY1,MSX2,MSY2,10);
Maple2D:= TPAtoATPAEx(MaplePoints,30,30);
for i:= 0 to length(Maple2D)-1 do
begin
if not LoggedIn then
begin
break;
end;
MaplePoint:= MiddleTPA(Maple2D[i]);
tx:= MaplePoint.X;
ty:= MaplePoint.Y;
MMouse(tx,ty,2,2);
wait(90+random(50));
if IsUpTextMultiCustom(['hop', 'aple'])then
begin
GetMousePos(x,y);
result:= true;
break;
exit;
end;
end;
end;
if Result then exit;
if (Players[CurrentPlayer].Strings[1] = 'Teak') then
begin
x:= MSCX;
y:= MSCY;
FindColorsSpiralTolerance(x,y,TeakPoints,5607603,MSX1,MSY1,MSX2,MSY2,10);
Teak2D:= TPAtoATPAEx(TeakPoints,30,30);
for i:= 0 to length(Teak2D)-1 do
begin
if not LoggedIn then
begin
break;
end;
TeakPoint:= MiddleTPA(Teak2D[i]);
tx:= TeakPoint.X;
ty:= TeakPoint.Y;
MMouse(tx,ty,2,2);
wait(90+random(50));
if IsUpTextMultiCustom(['hop', 'eak'])then
begin
GetMousePos(x,y);
result:= true;
break;
exit;
end;
end;
end;
end;
procedure ChopTheTree(whichtree: string);
var
BlackText: string;
begin
BlackText := GetBlackChatMessage;//masterkill ftw
repeat
if FindATree then
begin
if FindEnt(x, y, False) then
begin
Ents := Ents + 1;
Inc(EntsAvoided);
ReportVars[5] := ReportVars[5] + 1;
Exit;
end;
Mouse(x, y, 5, 5, true);
repeat
Wait(500 + random(100));
SkilldAntiBan;
FindNormalRandoms;
until (Pos('get', BlackText) <> 0); //masterkill ftw!
case lowercase(WhichTree) of
'normal': begin
NormalsChopped := NormalsChopped + 1;
ReportVars[0] := ReportVars[0] + 1;
end;
'oak': begin
OaksChopped := OaksChopped + 1;
ReportVars[1] := ReportVars[1] + 1;
end;
'willow': begin
WillowsChopped := WillowsChopped + 1;
ReportVars[2] := ReportVars[2] + 1;
end;
'maple': begin
MaplesChopped := MaplesChopped + 1;
ReportVars[3] := ReportVars[3] + 1;
end;
'teak': begin
TeaksChopped := TeaksChopped + 1;
ReportVars[4] := ReportVars[4] + 1;
end;
end;
end;
until InvFull;
end;
procedure DropThem(Log: string);
begin
case lowercase(log) of
'normal': begin
repeat
if FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 4, 4, false);
Wait(50 + random(250));
ChooseOption('rop');
Wait(500 + random(200));
end;
until not FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2);
LoadsBeforeSwitch := LoadsBeforeSwitch + 1;
Loads := Loads + 1;
ReportVars[6] := ReportVars[6] + 1;
end;
'oak': begin
repeat
if FindDTM(oak, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 4, 4, false);
Wait(50 + random(250));
ChooseOption('rop');
Wait(500 + random(200));
end;
until not FindDTM(oak, x, y, MIX1, MIY1, MIX2, MIY2);
LoadsBeforeSwitch := LoadsBeforeSwitch + 1;
Loads := Loads + 1;
ReportVars[6] := ReportVars[6] + 1;
end;
'willow': begin
repeat
if FindDTM(willow, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 4, 4, false);
ChooseOption('rop');
Wait(500 + random(200));
end;
until not FindDTM(willow, x, y, MIX1, MIY1, MIX2, MIY2);
LoadsBeforeSwitch := LoadsBeforeSwitch + 1;
Loads := Loads + 1;
ReportVars[6] := ReportVars[6] + 1;
end;
'maple': begin
repeat
if FindDTM(maple, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 4, 4, false);
ChooseOption('rop');
Wait(500 + random(200));
end;
until not FindDTM(maple, x, y, MIX1, MIY1, MIX2, MIY2);
LoadsBeforeSwitch := LoadsBeforeSwitch + 1;
Loads := Loads + 1;
ReportVars[6] := ReportVars[6] + 1;
end;
'teak': begin
repeat
if FindDTM(teak, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 4, 4, false);
ChooseOption('rop');
Wait(500 + random(200));
end;
until not FindDTM(teak, x, y, MIX1, MIY1, MIX2, MIY2);
LoadsBeforeSwitch := LoadsBeforeSwitch + 1;
Loads := Loads + 1;
ReportVars[6] := ReportVars[6] + 1;
end;
end;
end;
procedure Report;
begin
ClearReport;
SRLRandomsReport;
AddToReport('--------Skilld--------');
AddToReport('------Tree Pwnz0r-----');
AddToReport('Running For ' + TimeRunning);
AddToReport('---Dropped ' + IntToStr(Loads) + ' Loads---');
AddToReport('-Chopped ' + IntToStr(NormalsChopped) + ' Normal Logs-');
AddToReport('-Chopped ' + IntToStr(OaksChopped) + ' Oak Logs -');
AddToReport('-Chopped ' + IntToStr(WillowsChopped) + ' Willow Logs-');
AddToReport('-Chopped ' + IntToStr(MaplesChopped) + ' Maple Logs-');
AddToReport('-Chopped ' + IntToStr(TeaksChopped) + ' Teak Logs-');
AddToReport('----Avoided ' + IntToStr(Ents) + ' Ents----');
end;
begin
SetupSRL;
ScriptId := '775';
SRLId := YourSRLId;
SRLPassword := YourSRLPassword
DTMs;
LoginPlayer;
repeat
repeat
FindATree;
ChopTheTree(Players[CurrentPlayer].Strings[1]);
DropThem;
Report;
until LoadsBeforeSwitch >= Whatever;
NextPlayer(true);
until False;
FreeDTM(maple);
FreeDTM(teak);
FreeDTM(log);
FreeDTM(willow);
FreeDTM(oak);
end.
Found it! look at your function parameters![]()
~Hermen
what about them? i change the (log: string) part
LOL, you are a srl member you got a dtm called log and you have a string called log ...
~Hermen
shut up.i changed it to (whichone: string);
edit: fixed it. i'm so nub.![]()
you have Log and log which is seen as the same variable, so just change name of one of them
>< I hate my slow internet, I waited like 5 minutes for this to post and now I look like an idiot since you already posted saying you fixed it
By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.
i already do leech iBot scripts![]()
Nice can't wait for the real script to be released.
+NaumanAkhlaQ for getting the Maple and Teak colors and DTM's for me.![]()
No thats in his credits;
i posted the script in free script section; waiting for it to be accepted.![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)