plaxlord
07-19-2007, 10:32 AM
well this is my first script if anyone could post feedback and stuff that would be great, also soz for any poor standards
heres my proggy( to prove it works :) )
-----------REPORT-----------------
--------PROGRESS REPORT--------
Total time Running: 1 Hours, 45 Minutes and 5 Seconds
Loads Done: 78
Logs Cut: 2106
--------PROGRESS REPORT--------
{ty to jad and who cares and anyone elses tut's that i used to make this}
program YewLogCutter;
{.include SRL\SRL.scar}
var yew1,xx,yy:integer;
knife,xxx,yyy:integer;
loads:integer;
Tries: Integer;
yew : Integer;
all,x2,y2:integer;
x1,y1:integer;
tim :integer;
procedure declarePlayers;
begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
Players[0].String1 := '' //Bank pin
NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
for i:=1 to 8 do
begin
case I of
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;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
end;
wait(1);
end;
end;
{procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(10) of
0: RandomRClickEvery(3 + Random(3));
1: begin
HoverSkill('Fishing', false);
wait(2000+random(1000));
GameTab(4);
end;
2: begin
HoverSkill('Cooking', false);
wait(2000+random(1000));
GameTab(4);
end;
3: RandomChatEvery(4 + Random(4));
4: LeaveScreenEvery(10 + Random(4));
5: PickUpMouse;
6: BoredEvery(10 + Random(5));
7: begin
GameTab(1 + Random(12));
wait(1000+random(1000));
GameTab(4);
end;
8: MouseBox(MSX1,MMY1,MMX2,MMY2,3);
9: AntiBan;
10: SleepAndMoveMouse(600000+random(300000));
end;
end;}
procedure openBank1;
begin
MakeCompass('N');
OpenBankQuiet('db');
Flag;
wait(500 + random(500));
FixBank;
end;
procedure deposit1;
begin
MoveMouseSmoothEx(628,227,20,40,45,25,20);
wait(100+random(200));
ClickMouseBox(620, 216, 638, 234, false);
wait(100+random(200));
begin
if(FindBitmap(all, x2, y2))then
begin
MoveMouseSmoothEx(x2, y2,20,40,45,25,20);
wait(1000+random(100));
ClickMouse(x2, y2, True);
end;
end;
end;
procedure withdraw1;
begin
MoveMouseSmoothEx(94,76,20,40,45,25,20);
wait(100+random(200));
ClickMouseBox(90, 73, 110, 86, false);
wait(100+random(200));
begin
if(FindBitmap(all, x1, y1))then
begin
MoveMouseSmoothEx(x1, y1,20,40,45,25,20);
wait(200+random(100));
ClickMouse(x1, y1, True);
end;
FreeBitmap(all)
end;
end;
procedure SelectKnifeLogs;
begin
////////////////////////////////////////////////////////////////////////////
{------------------------select logs---------------------------------------}
////////////////////////////////////////////////////////////////////////////
wait(2000+random(100));
yew1 := DTMFromString('78DA63F4606260E062644006BE569C0C3A4 02' +
'190E87F20607402AA114555039285A901F36C816A9808A8F1 02AA' +
'F9CF805F4D38500D2F0173FC806A0409A8B104AAE1C754832 0813' +
'4C85F0C04D48402D570E0570300FF1109AA');
if FindDTM(yew1,xx, yy,563, 209, 736, 248) then
begin
wait(1000+random(100));
MoveMouseSmoothEx(xx,yy,20,40,45,25,20);
wait(100+random(100));
ClickMouse(xx+random(5), yy+random(5),true);
end else
begin
Writeln('did not find yew in inventory');
end;
////////////////////////////////////////////////////////////////////////////
{------------------------select knife---------------------------------------}
////////////////////////////////////////////////////////////////////////////
wait(200+random(100));
begin
knife := DTMFromString('78DA637467626078C68002CA72731874181 91' +
'88088E13F1030FA01D55C6340038C7035609E1350CD2B026A EC81' +
'6A3E1350E30D54F384809A00A09A5BF8D50000A7C60D7F');
if FindDTM(knife,xxx, yyy,563, 209, 736, 248) then
begin
wait(1000+random(100));
MoveMouseSmoothEx(585+random(5), 227+random(5),20,40,45,25,20);
wait(100+random(100));
ClickMouse(585+random(5), 227+random(5),true);
wait(300+random(100));
end else
begin
Writeln('did not find knife in inventory');
end;
end;
end;
procedure rightselect;
begin
MoveMouseSmoothEx(248+random(5), 415+random(5),20,40,45,25,20);
wait(300+random(100));
ClickMouseBox(238, 387, 283, 421, false);
end;
Procedure LoadBitmaps;
begin
yew := BitmapFromString2(False, 'aD36FB78DAED56490EC3200CFC' +
'924520C0B10BFCFF49C5E90529C232C6216A850F2334215E0 69B0' +
'400206E05C0BA027B4C055DD8711D4C41132C32EE85980F1E 6908' +
'1071FDC4B77CF2051F06D75B02F776D6FA850BB5305736B24 72BD' +
'69CEA7A33A9F7C361B23D5AB1AE53A98ED89B493E19FDF4B7 546A' +
'5551E7205389B6FF5349963987E1E4D01B8B5F9DD6198DA8F 4E56' +
'B3FFCE9A66BE7777EAF67592FE94E81AC976855E933D5BA75 AF9B' +
'B8912F05BFF764B33672EB8EF4A4AE4ABD3C6736A16177FD0 9CC9' +
'CB816CFF73C53A5F35D2DDB03A471FC70785947F5465CB870 E15D' +
'F801805');
all := BitmapFromString2(False, 'a0DA3D78DAED934B0AC0200C05' +
'AF946AE2676DF5FE476AD28214A49222B51BDF629067C8802 0004' +
'0B40C40621066610E9526A09C29098B633A23E3CE6F4C6F52 2552' +
'64DA0CB413A25FBCB334D14C6A7ABD17CEF4F7B4F3FD5EEF7 DDA3' +
'6C73E6219B1F7F3B51D9ACCB7FFF5F2CB3ED37EB1FDE99ADB B7FD' +
'E2BF3C0007B');
end;
Procedure click;
begin
if(FindBitmap(yew, x, y))then
begin
MoveMouseSmoothEx(x, y,20,40,45,25,20);
wait(200+random(100));
ClickMouse(x+3, y+3, True);
end;
FreeBitmap(yew)
end;
procedure select;
begin
LoadBitmaps;
click;
end;
procedure sendnos;
begin
wait(1000+random(200));
SendKeysWait('27',500,500);
wait(500+random(200));
SendKeysWait(chr(13),500,500);
wait(48000+random(2000));
loads:=loads +1;
end;
procedure ProgressReport;
begin
Writeln('-----------REPORT-----------------');
writeln('--------PROGRESS REPORT--------');
Writeln('Total time Running: ' + TimeRunning);
Writeln('Loads Done: ' + inttostr(loads));
Writeln('Logs Cut: ' + inttostr(loads*27));
Writeln('--------PROGRESS REPORT--------');
SRLRandomsReport;
end;
procedure setup;
begin
clearDebug;
LoadBitmaps;
declarePlayers;
NextPlayer(True);
loads:= 0;
end;
begin
setup;
repeat;
openBank1;
deposit1;
withdraw1;
CloseBank;
selectKnifeLogs;
rightselect;
select;
sendnos;
clearDebug;
ProgressReport;
until(false);
end.
heres my proggy( to prove it works :) )
-----------REPORT-----------------
--------PROGRESS REPORT--------
Total time Running: 1 Hours, 45 Minutes and 5 Seconds
Loads Done: 78
Logs Cut: 2106
--------PROGRESS REPORT--------
{ty to jad and who cares and anyone elses tut's that i used to make this}
program YewLogCutter;
{.include SRL\SRL.scar}
var yew1,xx,yy:integer;
knife,xxx,yyy:integer;
loads:integer;
Tries: Integer;
yew : Integer;
all,x2,y2:integer;
x1,y1:integer;
tim :integer;
procedure declarePlayers;
begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
Players[0].String1 := '' //Bank pin
NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
for i:=1 to 8 do
begin
case I of
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;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
end;
wait(1);
end;
end;
{procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
case Random(10) of
0: RandomRClickEvery(3 + Random(3));
1: begin
HoverSkill('Fishing', false);
wait(2000+random(1000));
GameTab(4);
end;
2: begin
HoverSkill('Cooking', false);
wait(2000+random(1000));
GameTab(4);
end;
3: RandomChatEvery(4 + Random(4));
4: LeaveScreenEvery(10 + Random(4));
5: PickUpMouse;
6: BoredEvery(10 + Random(5));
7: begin
GameTab(1 + Random(12));
wait(1000+random(1000));
GameTab(4);
end;
8: MouseBox(MSX1,MMY1,MMX2,MMY2,3);
9: AntiBan;
10: SleepAndMoveMouse(600000+random(300000));
end;
end;}
procedure openBank1;
begin
MakeCompass('N');
OpenBankQuiet('db');
Flag;
wait(500 + random(500));
FixBank;
end;
procedure deposit1;
begin
MoveMouseSmoothEx(628,227,20,40,45,25,20);
wait(100+random(200));
ClickMouseBox(620, 216, 638, 234, false);
wait(100+random(200));
begin
if(FindBitmap(all, x2, y2))then
begin
MoveMouseSmoothEx(x2, y2,20,40,45,25,20);
wait(1000+random(100));
ClickMouse(x2, y2, True);
end;
end;
end;
procedure withdraw1;
begin
MoveMouseSmoothEx(94,76,20,40,45,25,20);
wait(100+random(200));
ClickMouseBox(90, 73, 110, 86, false);
wait(100+random(200));
begin
if(FindBitmap(all, x1, y1))then
begin
MoveMouseSmoothEx(x1, y1,20,40,45,25,20);
wait(200+random(100));
ClickMouse(x1, y1, True);
end;
FreeBitmap(all)
end;
end;
procedure SelectKnifeLogs;
begin
////////////////////////////////////////////////////////////////////////////
{------------------------select logs---------------------------------------}
////////////////////////////////////////////////////////////////////////////
wait(2000+random(100));
yew1 := DTMFromString('78DA63F4606260E062644006BE569C0C3A4 02' +
'190E87F20607402AA114555039285A901F36C816A9808A8F1 02AA' +
'F9CF805F4D38500D2F0173FC806A0409A8B104AAE1C754832 0813' +
'4C85F0C04D48402D570E0570300FF1109AA');
if FindDTM(yew1,xx, yy,563, 209, 736, 248) then
begin
wait(1000+random(100));
MoveMouseSmoothEx(xx,yy,20,40,45,25,20);
wait(100+random(100));
ClickMouse(xx+random(5), yy+random(5),true);
end else
begin
Writeln('did not find yew in inventory');
end;
////////////////////////////////////////////////////////////////////////////
{------------------------select knife---------------------------------------}
////////////////////////////////////////////////////////////////////////////
wait(200+random(100));
begin
knife := DTMFromString('78DA637467626078C68002CA72731874181 91' +
'88088E13F1030FA01D55C6340038C7035609E1350CD2B026A EC81' +
'6A3E1350E30D54F384809A00A09A5BF8D50000A7C60D7F');
if FindDTM(knife,xxx, yyy,563, 209, 736, 248) then
begin
wait(1000+random(100));
MoveMouseSmoothEx(585+random(5), 227+random(5),20,40,45,25,20);
wait(100+random(100));
ClickMouse(585+random(5), 227+random(5),true);
wait(300+random(100));
end else
begin
Writeln('did not find knife in inventory');
end;
end;
end;
procedure rightselect;
begin
MoveMouseSmoothEx(248+random(5), 415+random(5),20,40,45,25,20);
wait(300+random(100));
ClickMouseBox(238, 387, 283, 421, false);
end;
Procedure LoadBitmaps;
begin
yew := BitmapFromString2(False, 'aD36FB78DAED56490EC3200CFC' +
'924520C0B10BFCFF49C5E90529C232C6216A850F2334215E0 69B0' +
'400206E05C0BA027B4C055DD8711D4C41132C32EE85980F1E 6908' +
'1071FDC4B77CF2051F06D75B02F776D6FA850BB5305736B24 72BD' +
'69CEA7A33A9F7C361B23D5AB1AE53A98ED89B493E19FDF4B7 546A' +
'5551E7205389B6FF5349963987E1E4D01B8B5F9DD6198DA8F 4E56' +
'B3FFCE9A66BE7777EAF67592FE94E81AC976855E933D5BA75 AF9B' +
'B8912F05BFF764B33672EB8EF4A4AE4ABD3C6736A16177FD0 9CC9' +
'CB816CFF73C53A5F35D2DDB03A471FC70785947F5465CB870 E15D' +
'F801805');
all := BitmapFromString2(False, 'a0DA3D78DAED934B0AC0200C05' +
'AF946AE2676DF5FE476AD28214A49222B51BDF629067C8802 0004' +
'0B40C40621066610E9526A09C29098B633A23E3CE6F4C6F52 2552' +
'64DA0CB413A25FBCB334D14C6A7ABD17CEF4F7B4F3FD5EEF7 DDA3' +
'6C73E6219B1F7F3B51D9ACCB7FFF5F2CB3ED37EB1FDE99ADB B7FD' +
'E2BF3C0007B');
end;
Procedure click;
begin
if(FindBitmap(yew, x, y))then
begin
MoveMouseSmoothEx(x, y,20,40,45,25,20);
wait(200+random(100));
ClickMouse(x+3, y+3, True);
end;
FreeBitmap(yew)
end;
procedure select;
begin
LoadBitmaps;
click;
end;
procedure sendnos;
begin
wait(1000+random(200));
SendKeysWait('27',500,500);
wait(500+random(200));
SendKeysWait(chr(13),500,500);
wait(48000+random(2000));
loads:=loads +1;
end;
procedure ProgressReport;
begin
Writeln('-----------REPORT-----------------');
writeln('--------PROGRESS REPORT--------');
Writeln('Total time Running: ' + TimeRunning);
Writeln('Loads Done: ' + inttostr(loads));
Writeln('Logs Cut: ' + inttostr(loads*27));
Writeln('--------PROGRESS REPORT--------');
SRLRandomsReport;
end;
procedure setup;
begin
clearDebug;
LoadBitmaps;
declarePlayers;
NextPlayer(True);
loads:= 0;
end;
begin
setup;
repeat;
openBank1;
deposit1;
withdraw1;
CloseBank;
selectKnifeLogs;
rightselect;
select;
sendnos;
clearDebug;
ProgressReport;
until(false);
end.