n3ss3s
2007-05-06 03:49:03
This is still under work, not released. When I start the script, fill form and press start it just leaves scar window open and laggs. Then it may click somewhere where it is not supposed to!!
program CutUnlimited;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
var
SkillArray: array[1..21] of string;
LogCase: array[1..7] of string;
WiLLogs: integer;
TreeCol1, TreeCol2: integer;
LogColor: integer;
frmDesign: TForm;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
CheckBox1: TCheckBox;
Panel4: TPanel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
const
StartPlayer = 0; // Leave it to 0
procedure declareplayers;
begin
HowManyPlayers := 3;
NumberOfPlayers(howmanyplayers);
CurrentPlayer := StartPlayer;
Players[0].Name := Edit1.Text; //name
Players[0].Pass := Edit6.Text; //pass
Players[0].Nick := Copy(Edit1.Text, 2, 3); // Nick
Players[0].Active := true;
Players[1].Name := Edit2.Text; //name
Players[1].Pass := Edit7.Text; //pass
Players[1].Nick := Copy(Edit2.Text, 2, 3); //Nick
Players[1].Active := true;
Players[2].Name := Edit3.Text; //name
Players[2].Pass := Edit8.Text; //pass
Players[2].Nick := Copy(Edit3.Text, 2, 3); // Nick
Players[2].Active := true;
Writeln('Using ' + inttostr(HowManyPlayers) + ' Player[s]');
end;
procedure buttonclick(sender: TObject);
begin
frmDesign.Caption := frmDesign.Caption + '.';
frmDesign.ModalResult := mrOk;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 256;
frmDesign.Top := 159;
frmDesign.Width := 696;
frmDesign.Height := 480;
frmDesign.Hint := 'Fill in.';
frmDesign.Caption := '[SRL] UberCutter v1 By n3ss3s [SRL]';
frmDesign.Color := clBlack;
frmDesign.Font.Color := clLime;
frmDesign.Font.Height := -16;
frmDesign.Font.Name := 'Comic Sans MS';
frmDesign.Font.Style := [fsBold];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 69;
Label1.Top := 221;
Label1.Width := 7;
Label1.Height := 23;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 57;
Label2.Top := 203;
Label2.Width := 7;
Label2.Height := 23;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 39;
Label3.Top := 209;
Label3.Width := 371;
Label3.Height := 23;
Label3.Caption := ' Check this for dropping, UnCheck for banking.';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 39;
Label4.Top := 296;
Label4.Width := 427;
Label4.Height := 23;
Label4.Caption := ' For a short comment about the forms, type it below.';
Panel1 := TPanel.Create(frmDesign);
Panel1.Parent := frmDesign;
Panel1.Left := 38;
Panel1.Top := 31;
Panel1.Width := 173;
Panel1.Height := 42;
Panel1.Caption := 'Player 1 Setup';
Panel1.Font.Color := clAqua;
Panel1.Font.Height := -16;
Panel1.Font.Name := 'Comic Sans MS';
Panel1.Font.Style := [];
Panel1.ParentFont := False;
Panel1.TabOrder := 8;
Panel2 := TPanel.Create(frmDesign);
Panel2.Parent := frmDesign;
Panel2.Left := 38;
Panel2.Top := 90;
Panel2.Width := 174;
Panel2.Height := 41;
Panel2.Caption := 'Player 2 Setup';
Panel2.Color := clBlack;
Panel2.Font.Color := clAqua;
Panel2.Font.Height := -16;
Panel2.Font.Name := 'Comic Sans MS';
Panel2.Font.Style := [];
Panel2.ParentFont := False;
Panel2.TabOrder := 9;
Panel3 := TPanel.Create(frmDesign);
Panel3.Parent := frmDesign;
Panel3.Left := 38;
Panel3.Top := 147;
Panel3.Width := 175;
Panel3.Height := 41;
Panel3.Caption := 'Player 3 Setup';
Panel3.Font.Color := clAqua;
Panel3.Font.Height := -16;
Panel3.Font.Name := 'Comic Sans MS';
Panel3.Font.Style := [];
Panel3.ParentFont := False;
Panel3.TabOrder := 10;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 252;
Edit1.Top := 31;
Edit1.Width := 176;
Edit1.Height := 31;
Edit1.Color := clBlack;
Edit1.Font.Color := clAqua;
Edit1.Font.Height := -16;
Edit1.Font.Name := 'Comic Sans MS';
Edit1.Font.Style := [];
Edit1.ParentFont := False;
Edit1.TabOrder := 11;
Edit1.Text := 'Username';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 251;
Edit2.Top := 89;
Edit2.Width := 177;
Edit2.Height := 31;
Edit2.Color := clBlack;
Edit2.Font.Color := clAqua;
Edit2.Font.Height := -16;
Edit2.Font.Name := 'Comic Sans MS';
Edit2.Font.Style := [];
Edit2.ParentFont := False;
Edit2.TabOrder := 12;
Edit2.Text := 'Username';
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 250;
Edit3.Top := 145;
Edit3.Width := 179;
Edit3.Height := 31;
Edit3.Color := clBlack;
Edit3.Font.Color := clAqua;
Edit3.Font.Height := -16;
Edit3.Font.Name := 'Comic Sans MS';
Edit3.Font.Style := [];
Edit3.ParentFont := False;
Edit3.TabOrder := 13;
Edit3.Text := 'Username';
Button1 := TButton.Create(frmDesign);
Button1.OnClick := @buttonclick;
Button1.Parent := frmDesign;
Button1.Left := 349;
Button1.Top := 237;
Button1.Width := 93;
Button1.Height := 33;
Button1.Caption := 'Start!!!';
Button1.Font.Color := clRed;
Button1.Font.Height := -13;
Button1.Font.Name := 'Lucida Console';
Button1.Font.Style := [fsBold];
Button1.ParentFont := False;
Button1.TabOrder := 14;
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 413;
CheckBox1.Top := 210;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'CheckBox1';
CheckBox1.TabOrder := 15;
Panel4 := TPanel.Create(frmDesign);
Panel4.Parent := frmDesign;
Panel4.Left := 36;
Panel4.Top := 237;
Panel4.Width := 255;
Panel4.Height := 29;
Panel4.Caption := 'Direction to run away in fight';
Panel4.Font.Color := clAqua;
Panel4.Font.Height := -16;
Panel4.Font.Name := 'Comic Sans MS';
Panel4.Font.Style := [fsBold];
Panel4.ParentFont := False;
Panel4.TabOrder := 16;
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 301;
Edit4.Top := 237;
Edit4.Width := 21;
Edit4.Height := 31;
Edit4.Color := clBlack;
Edit4.Font.Color := clAqua;
Edit4.Font.Height := -16;
Edit4.Font.Name := 'Comic Sans MS';
Edit4.Font.Style := [fsBold];
Edit4.ParentFont := False;
Edit4.TabOrder := 17;
Edit4.Text := 'N';
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 47;
Edit5.Top := 316;
Edit5.Width := 464;
Edit5.Height := 27;
Edit5.Color := clBlack;
Edit5.Font.Color := clAqua;
Edit5.Font.Height := -13;
Edit5.Font.Name := 'Comic Sans MS';
Edit5.Font.Style := [fsBold];
Edit5.ParentFont := False;
Edit5.TabOrder := 18;
Edit5.Text := 'I mean type it here <<<-----';
Edit6 := TEdit.Create(frmDesign);
Edit6.Parent := frmDesign;
Edit6.Left := 445;
Edit6.Top := 31;
Edit6.Width := 169;
Edit6.Height := 31;
Edit6.Color := clBlack;
Edit6.Font.Color := clAqua;
Edit6.Font.Height := -16;
Edit6.Font.Name := 'Comic Sans MS';
Edit6.Font.Style := [fsBold];
Edit6.ParentFont := False;
Edit6.TabOrder := 19;
Edit6.Text := 'Password';
Edit7 := TEdit.Create(frmDesign);
Edit7.Parent := frmDesign;
Edit7.Left := 442;
Edit7.Top := 89;
Edit7.Width := 173;
Edit7.Height := 31;
Edit7.Color := clBlack;
Edit7.Font.Color := clAqua;
Edit7.Font.Height := -16;
Edit7.Font.Name := 'Comic Sans MS';
Edit7.Font.Style := [fsBold];
Edit7.ParentFont := False;
Edit7.TabOrder := 20;
Edit7.Text := 'Password';
Edit8 := TEdit.Create(frmDesign);
Edit8.Parent := frmDesign;
Edit8.Left := 442;
Edit8.Top := 144;
Edit8.Width := 174;
Edit8.Height := 31;
Edit8.Color := clBlack;
Edit8.Font.Color := clAqua;
Edit8.Font.Height := -16;
Edit8.Font.Name := 'Comic Sans MS';
Edit8.Font.Style := [fsBold];
Edit8.ParentFont := False;
Edit8.TabOrder := 21;
Edit8.Text := 'Password';
end;
procedure safeinitform;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure ClickSafe(x, y, RandomX, RandomY: integer; Left: boolean; UpText: string);
begin
MMouse(x, y, RandomX, RandomY);
if (IsUpText(UpText)) then
begin
Mouse(x, y, RandomX, RandomY, Left);
end;
end;
procedure FindMiddleLine(var x, y: integer; FirstX, FirstY, SecondX, SecondY: integer);
{ Author: n3ss3s}
{ Description : Finds the middle of 2 points.}
{ I hope this hasnt been invented yet }
begin
x := (FirstX + SecondX) / 2;
y := (FirstY + SecondY) / 2;
end;
procedure VectorClick(x, y, RandomX, RandomY, Way, Amount: integer);
{ Author: n3ss3s}
{ Description : Clicks mouse specified dist away from x,y.}
{ If didnt understand, try it.}
{ Way 1 = Click to up right Way 2 = Click to down right}
{ Way 3 = Click to up left Way 4 = Click to down left}
begin
case Way of
1: begin
Mouse(x + Amount, y - Amount, RandomX, RandomY, true);
end;
2: begin
Mouse(x + Amount, y + Amount, RandomX, RandomY, true);
end;
3: begin
Mouse(x - Amount, y - Amount, RandomX, RandomY, true);
end;
4: begin
Mouse(x - Amount, y + Amount, RandomX, RandomY, true);
end;
end;
end;
function YoureInBox(Box: TBox): boolean;
begin
if (Box.x1 < MMCX) and (Box.y1 < MMCY) and (Box.x2 > MMCX) and
(Box.y2 > MMCY) then
result := true;
end;
function YoureInBox2(x1, y1, x2, y2: integer): boolean;
{ This time the box is from downleft to upright}
begin
if (x1 < MMCX) and (y1 > MMCY) and (x2 > MMCX) and (y2 < MMCY) then
begin
result := true;
end;
end;
procedure MaintainArea;
var FishX, FishY,
BankX, BankY: integer;
begin
if (FindSymbol(x, y, 'fish')) then
begin
MMouse(x, y, 0, 0);
GetMousePos(FishX, FishY);
end
else
begin
writeln('Fishing symbol NOT found.WARNING');
end;
if (FindSymbol(x, y, 'bank')) then
begin
MMouse(x, y, 0, 0);
GetMousePos(BankX, BankY);
end
else
begin
Writeln('Bank symbol NOT found.Going a bit north and east!');
Mouse(FishX + 10, FishY + 15, 3, 4, true);
end;
if (not (YoureInBox2(FishX, FishY, BankX, BankY))) then
begin
repeat
FindMiddleLine(x, y, FishX, FishY, BankX, BankY);
Mouse(x, y, 0, 0, true);
until (YoureInBox2(FishX, FishY, BankX, BankY));
end;
end;
function GetWillowLogColor: integer;
begin
if (FindDeformed(x, y, willogs, MIX1, MIY1, MIX2, MIY2)) then
begin
result := GetColor(x, y);
end
else
writeln('Could not find willow logs in inventory');
end;
procedure SetVars;
begin
TreeCol1 := 1060904;
TreeCol2 := 3301456;
LogColor := GetWillowLogColor;
end;
procedure RandomRotation; // Simple random rotation.
begin
SendArrowSilentWait(Random(4), 600 + random(550));
end;
procedure TreeWalk;
begin
Mouse(617, 122, 5, 5, true);
flag;
end;
procedure LoadBitMaps;
begin
WiLLogs := BitmapFromString(5, 21, 'z78DA9590D10EC23008457F09CA6DD' +
'D2B73EEFF3F495798B98B91284D4EC83D6D5ADA0543BD070DAE5B' +
'506671F2D5DEF0D09D99F623BFD87B6F85ADCF9616CD5C97E4B0F' +
'D645A4AE0B073F6B494F09FFCF11B4C7EF3EFB69EB7BC77064A14' +
'4E4CDA6B05A338894D7D6043EAE893C02207DDD6B4B37FDBA3275' +
'BD713A1DF8446');
end;
procedure LoadSkillArray;
begin
SkillArray[1] := 'attack';
SkillArray[2] := 'strength';
SkillArray[3] := 'defence';
SkillArray[4] := 'hitpoints';
SkillArray[5] := 'ranged';
SkillArray[6] := 'prayer';
SkillArray[7] := 'magic';
SkillArray[8] := 'cooking';
SkillArray[9] := 'woodcutting';
SkillArray[10] := 'fletching';
SkillArray[11] := 'fishing';
SkillArray[12] := 'firemaking';
SkillArray[13] := 'crafting';
SkillArray[14] := 'smithing';
SkillArray[15] := 'mining';
SkillArray[16] := 'herblore';
SkillArray[17] := 'agility';
SkillArray[18] := 'thieving';
SkillArray[19] := 'slayer';
SkillArray[20] := 'farming';
SkillArray[21] := 'runecraft';
end;
procedure LoadLogCase;
begin
LogCase[1] := 'Sapphire';
LogCase[2] := 'Emerald';
LogCase[3] := 'Ruby';
LogCase[4] := 'Diamond';
LogCase[5] := 'Bird';
LogCase[6] := 'Knife';
LogCase[7] := 'Tinder';
end;
{*******************************************************************************
procedure BankAllLogs(TreeName:string;LogColor:integer);
By: n3ss3s
Description: Will bank all logs, ignoring Birds Nests,
Knifes and Tinder Boxes and Gems.
Use the TreeName like 'illo' for Willow.
*******************************************************************************}
procedure BankAllLogs(TreeName: string; LogColor: integer);
var Log: boolean;
Number: integer;
begin
Number := 0;
Status('Banking Logs');
GameTab(4)
begin
if (FindColor(x, y, LogColor, MIX1, MIY1, MIX2, MIY2)) then
begin
MMouse(x, y, 0, 0);
Wait(100 + Random(100));
repeat
begin
Number := Number + 1;
if (IsUpText(LogCase[Number])) then
begin
Log := False;
end
else
begin
Log := True;
end;
end;
until (Number = 7);
end;
if (Log = True) then
begin
repeat
ClickSafe(x, y, 0, 0, false, TreeName);
ChooseOption(x, y, 'Store All');
wait(250 + random(25));
MMouse(x, y, 0, 0);
until (not (IsUpText(TreeName)));
end;
wait(100 + random(25));
end;
wait(100 + random(25));
end;
function FindInvBmpTolRaiser(var Fx, Fy: integer; Bitmap: integer; UpText: string): boolean;
{ Auth : n3ss3s }
{Description : Finds a bitmap in inventory using FindBitmapTolRaiser}
{ God damit I'll get always an access violation error.}
{ I'll leave it here for me to fix for next vers.}
var Tol, Count: integer;
begin
Tol := 0;
for Count := 1 to 50 do
begin
Tol := Tol + 5;
if (FindBitmapTolRaiser(Bitmap, Fx, Fy, 5, 50, MIX1, MIY1, MIX2, MIY2)) then
begin
Fx := x;
Fy := y;
MMouse(Fx, Fy, 0, 0);
if (IsUpText(UpText)) then
begin
result := true;
end;
Wait(225 + random(55));
end;
Wait(225 + random(55));
end;
Wait(225 + random(55));
end;
procedure AnswerSkillAsked;
var
T: integer;
begin
t := 1;
while T < 22 do
begin
if (FindChatText(SkillArray[T])) then
begin
SayCurrentLevels(SkillArray[T]);
end;
T := T + 1;
GameTab(4);
end;
wait(120 + random(15));
end;
procedure MouseTPoint(Point: TPoint; RandomX, RandomY: integer; Left: boolean);
{ Description : Moves mouse to TPoint and clicks.}
{ Author : n3ss3s }
{ Comments : ownage}
begin
Mouse(Point.x, Point.y, RandomX, RandomY, left);
end;
procedure MMouseTPoint(Point: TPoint; RandomX, RandomY: integer);
{ Description : Moves mouse to TPoint.}
{ Author : n3ss3s }
{ Comments : ownage}
begin
MMouse(Point.x, Point.y, RandomX, RandomY);
end;
procedure Randoms;
var FightMark: integer;
begin
FTWait(1 + random(2));
SolveBox;
FindNormalRandoms;
SolveSandWich;
ClickToContinue;
if (FindFight) then
begin
GameTab(7);
MarkTime(FightMark);
RunAwayDirection('e');
Flag;
while TimeFromMark(FightMark) < 8500 + random(200) do
begin
randoms;
end;
RunBack;
Flag;
end;
Wait(225 + random(55));
end;
function FindWillow: boolean;
begin
if (FindObj(x, y, 'illo', TreeCol1, 20))
or (FindObj(x, y, 'illo', TreeCol2, 20)) then
begin
result := true;
end;
Wait(225 + random(55));
end;
function FindWillow2: boolean;
begin
if (findcolor(x, y, TreeCol1, MSX1, MSY1, MSX2, MSY2))
or (findcolor(x, y, TreeCol2, MSX1, MSY1, MSX2, MSY2)) then
begin
mmouse(x, y, 0, 0);
if (isuptext('illo')) then
begin
result := true;
end;
end;
wait(100 + random(25));
end;
function Ent: boolean; //This needs a little improving.
var
TextTol, UpTextBmp: integer;
begin
UpTextBmp := CreateBitmapMaskFromText('illo', UpChars);
TextTol := 5;
while TextTol < 100 do
begin
if (FindBitmapToleranceIn(UpTextBmp, x, y, 0, 0, 389, 290, TextTol)) then
begin
if (GetColor(x, y) = 65535) then
begin
result := true;
end;
Wait(225 + random(55));
end;
Wait(225 + random(55));
end;
Wait(225 + random(55));
end;
procedure SwingAtWillow(Way: integer);
var Quit, WillowMark: integer;
begin
case Way of
1: begin
if (FindWillow2) then
begin
MMouse(x, y, 0, 0);
if (IsUpText('illo')) then
begin
if (not (FindEnt(TreeCol1)) or (FindEnt(TreeCol2))) then
begin
ClickSafe(x, y, 0, 0, true, 'illo');
end;
Wait(225 + random(55));
end
else
begin
Mouse(x, y + 10, 0, 0, true); // Did not put here any checks for UpText
// Because people may some time misclick if they cough or sumting..
end;
end;
Wait(225 + random(55));
end;
2: begin
if (FindWillow2) then
begin
if (not (FindEnt(TreeCol1)) or (FindEnt(TreeCol2))) then
begin
ClickSafe(x, y, 0, 0, true, 'illo');
end;
end;
Wait(225 + random(55));
end;
end; // End case.
if (FindChatText('swing your')) then
begin
MarkTime(WillowMark);
Quit := 5000 + random(592);
while (not (TimeFromMark(WillowMark) > Quit)) do
begin
Randoms;
RandomRotation;
MaintainArea;
if (not (LoggedIn)) then
begin
Break;
Writeln('Not logged in. Logging in');
LoginPlayer;
end;
if (Random(30) > (19)) then
begin
GhostSpeak('woodcutting');
AnswerSkillAsked;
if (FindChatText('wc')) then
begin
SayCurrentLevels('woodcutting');
wait(150 + random(25));
end;
if (not (LoggedIn)) then
begin
Break;
Writeln('Not logged in. Logging in');
LoginPlayer;
end;
Wait(225 + random(55));
end;
Wait(225 + random(55));
end;
Wait(225 + random(55));
end;
Wait(225 + random(55));
end;
procedure ChopWillows;
var
SwingWay: integer;
begin
SwingWay := 1 + random(1);
repeat
SwingAtWillow(SwingWay);
until (InvFull);
Wait(225 + random(55));
end;
procedure BankWalk;
begin
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x, y, 0, 0, true);
end
else
begin
PerfectNorth;
Mouse(MMCX - 25 + random(2), MMCY - 50 + random(3), 2, 2, true);
end;
while FlagPresent do
begin
FindTalk;
if (random(8) < (4)) then
begin
RandomRotation;
end;
Wait(225 + random(55));
end;
Wait(225 + random(55));
end;
procedure OpenTheBank;
var BC: integer;
begin
BC := GetSymbolColor(x, y, 'bank');
ToBankers(BC, 0, 0);
Flag;
Randoms;
begin
repeat
OpenBankGlass('db', true, true);
until (BankScreen);
end;
Wait(225 + random(55));
end;
procedure StoreWillows;
begin
BankAllLogs('illo', LogColor);
end;
function Noob: boolean;
begin
if (GetCombatLevel < 20) then
begin
Writeln('God damn noob!!Read more about SRL');
TerminateScript;
result := true;
end;
end;
begin
ClearDebug;
SafeInitForm;
SafeShowFormModal;
SetupSrl;
DeclarePlayers
Rs_DeleteUID;
LoadBitMaps;
wait(100 + random(25));
LoadSkillArray;
wait(100 + random(25));
LoadLogCase;
wait(100 + random(25));
SetVars;
ActivateClient;
repeat
if (not (LoggedIn)) then
begin
Break;
Writeln('Not logged in. Logging in');
LoginPlayer;
end;
if (GetCombatLevel < 20) then
begin
TerminateScript;
end; // FailSafe if a noob realizes to remove the function.
PerfectNorth;
TreeWalk;
if (not (LoggedIn)) then
begin
Break;
Writeln('Not logged in. Logging in');
LoginPlayer;
end;
ChopWillows;
if (not (LoggedIn)) then
begin
Break;
Writeln('Not logged in. Logging in');
LoginPlayer;
end;
if (not (CheckBox1.Checked)) then
begin
BankWalk;
OpenTheBank;
StoreWillows;
CloseBank;
if (not (LoggedIn)) then
begin
Break;
Writeln('Not logged in. Logging in');
LoginPlayer;
end;
DwarfItem;
PerfectNorth;
end
else
begin
DropAllLogs;
DwarfItem;
end;
if (GetDebugText = 'Answer') then
begin
ClearDebug;
end;
until (false);
end.