Pmh1000
2006-12-31 23:45:21
Pmh1000 - SRL Member Application Form
Pmh1000
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
I believe it was starblaster100 who originally modivated me to switch to srl, loved it ever since
Programming Knowledge
Scar, Little Bit Of C++
Other Communitys
Moparisthebest.com
How Long have You Played Runescape
5 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am a seventeen year old male who finds interest in playing online games, doing magic and playing the bass. I have been scripting with scar for over two years now and i started back when kaitneiks.com was up and running with the old scar and the classic includes such as squig. I have created several scripts, most of which i have released for free to the community to use and learn from. i stuck with scar through the run of aryan and stuck with the rs client while most went to SS. I have been around some of the great scipters like stupid and squig. i love to learn new things with scar and im not afriad ot ask questions. i also love to help people out who are actually trying to learn. I HATE leechers who care about nothing other than them selves. I have no problem helping out anyone with a question or a problem when they need it because i know they are trying to learn and thats how i learned, someone took the time to help me along and teach me.
~~Pmh~~
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is My Auto_Alcher That I Made And Released For Free To The Community
Here Are A Few Procedures That I Wrote That Come In My Fletcher, The Most Recent Of My Works, Last Updated
Yesterday, 12/30/06. This Is A Pay Script, The Only One I Have So Ill Only Include A Few Procedure That I Myself Constructed :)
;) :spot: :spot: :spot:
——————————————————
Pmh1000
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
I believe it was starblaster100 who originally modivated me to switch to srl, loved it ever since
Programming Knowledge
Scar, Little Bit Of C++
Other Communitys
Moparisthebest.com
How Long have You Played Runescape
5 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am a seventeen year old male who finds interest in playing online games, doing magic and playing the bass. I have been scripting with scar for over two years now and i started back when kaitneiks.com was up and running with the old scar and the classic includes such as squig. I have created several scripts, most of which i have released for free to the community to use and learn from. i stuck with scar through the run of aryan and stuck with the rs client while most went to SS. I have been around some of the great scipters like stupid and squig. i love to learn new things with scar and im not afriad ot ask questions. i also love to help people out who are actually trying to learn. I HATE leechers who care about nothing other than them selves. I have no problem helping out anyone with a question or a problem when they need it because i know they are trying to learn and thats how i learned, someone took the time to help me along and teach me.
~~Pmh~~
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is My Auto_Alcher That I Made And Released For Free To The Community
{.Script Info:
____ __ _ __ __ __
/\ _`\ /\ \ /' \ /'__`\ /'__`\ /'__`\
\ \ \L\ \ ___ ___\ \ \___ /\_, \/\ \/\ \/\ \/\ \/\ \/\ \ ____
\ \ ,__/' __` __`\ \ _ `\/_/\ \ \ \ \ \ \ \ \ \ \ \ \ \ /',__\
\ \ \//\ \/\ \/\ \ \ \ \ \ \ \ \ \ \_\ \ \ \_\ \ \ \_\ \/\__, `\
\ \_\\ \_\ \_\ \_\ \_\ \_\ \ \_\ \____/\ \____/\ \____/\/\____/
\/_/ \/_/\/_/\/_/\/_/\/_/ \/_/\/___/ \/___/ \/___/ \/___/
______ ___ __
/\ _ \ /\_ \ /\ \
\ \ \L\ \\//\ \ ___\ \ \___ __ _ __
\ \ __ \ \ \ \ /'___\ \ _ `\ /'__`\/\`'__\
\ \ \/\ \ \_\ \_/\ \__/\ \ \ \ \/\ __/\ \ \/
\ \_\ \_\/\____\ \____\\ \_\ \_\ \____\\ \_\
\/_/\/_/\/____/\/____/ \/_/\/_/\/____/ \/_/
__ __ _ _
/\ \/\ \ __ /' \ /' \
\ \ \ \ \ __ _ __ ____/\_\ ___ ___ /\_, \ /\_, \
\ \ \ \ \ /'__`\/\`'__\/',__\/\ \ / __`\ /' _ `\ \/_/\ \ \/_/\ \
\ \ \_/ \/\ __/\ \ \//\__, `\ \ \/\ \L\ \/\ \/\ \ \ \ \ __\ \ \
\ `\___/\ \____\\ \_\\/\____/\ \_\ \____/\ \_\ \_\ \ \_\/\_\\ \_\
`\/__/ \/____/ \/_/ \/___/ \/_/\/___/ \/_/\/_/ \/_/\/_/ \/_/
# ScriptName = Pmh1000's Alcher
# Author = Pmh1000
# Description = High Or Low Alches Items
# Version = 1.1
# Date = Created 6/14/06
# Comments = Dont Distribute This Without My Permission, Enjoy :)
/Script Info}
///////////////////////////////////////////////////////////////////////////
///==========================Setup======================================///
/// Enter In The Values In The Form ///
/// Have Item You Want Alched In 15th Inv Slot ///
/// I Would Suggest Wielding Fire Staff ///
/// I Would Also Suggest Turning All Chat Options To OFF ///
/// Have Fun And Dont Get Caught ;) ///
///////////////////////////////////////////////////////////////////////////
{===========================Version Updates===========================
1.0 - Script Released
1.1 - Fixed The FindFrog Procedure, Since It Was Put In SRL's
FindNormalRandoms Procedure And Fixed The Login/Random Logout
Function, Thanxs To Spky }
program High_Alcher;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Magic.scar}
{.include SRL/SRL/Misc/PlayerForm.scar}
var
Version :String;
NoNats,i,u,e,s,t,w,z :integer;
//FORMER CONSTS
Disguise, LSkill :String;
GoldPer, TotalAlchs, LogAlches, Alchemy :Integer;
//FORM VARS
AlchForm : TForm;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
Button1 : TButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
ComboBox1 : TComboBox;
Button2 : TButton;
Procedure ChangeReport(Reason : String);
Begin
Status(Reason);
Version:= '2.2';
ClearReport;
ChangeReportWidth(260)
AddToReport('Pmh1000''s High Alcher V '+(Version)+'');
AddToReport('++++++++++++++++++++++++++++');
AddToReport('Currently: ' + Reason);
AddToReport('Worked For '+ TimeRunning);
AddToReport('Alched '+Inttostr(i)+' Items')
AddToReport('Gold Gained: '+Inttostr(GoldPer*i)+'')
AddToReport('About '+inttostr(z-u)+' Items B4 Random Log')
AddToReport('Only '+inttostr(Totalalchs-i)+' Alches Left')
end;
Procedure ToScreen;
begin
MMouse(141,445,30,10)
wait(300+random(100))
Getmousepos(x,y)
Mouse(x,y,2,2,true)
wait(1200+random(300))
end;
Procedure ToScreen2;
begin
If ((FindColorTolerance(x,y,16777215,0,0,515,338,10)) And (FindColorTolerance(x,y,14215660,0,0,515,338,10))) Then
begin
MMouse(141,445,30,10)
wait(300+random(100))
Getmousepos(x,y)
Mouse(x,y,2,2,true)
wait(1200+random(300))
end;
end;
Procedure GoToScreen;
begin
Case S Of
0 : ToScreen
1 : ToScreen2
end;
end;
Procedure SetupFormValues;
begin
Disguise:= Edit1.Text;
LSkill:= Edit2.Text;
GoldPer:= StrToInt(Edit3.Text);
TotalAlchs:= StrToInt(Edit4.Text);
LogAlches:= StrToInt(Edit5.Text);
Case ComboBox1.Text Of
'High Alch' : Alchemy:=2
'Low Alch' : Alchemy:=1
end;
SaveSetting('AlchSaver', 'Disguise', Edit1.Text);
SaveSetting('AlchSaver', 'LSkill', Edit2.Text);
SaveSetting('AlchSaver', 'GoldPer', Edit3.Text);
SaveSetting('AlchSaver', 'TotalAlchs', Edit4.Text);
SaveSetting('AlchSaver', 'LogAlches', Edit5.Text);
SaveSetting('AlchSaver', 'Alchemy', ComboBox1.Text);
end;
Procedure LoadPics;
begin
i:=0
u:=0
e:=0
s:=0
MarkTime(t)
z:=LogAlches+Random(30)
ChangeReport('Loading Pic')
nonats := BitmapFromString(108, 8, 'z78DACD58DB0EC23008FD25' +
'1F8C998F9BFAFFBFA4D1646B68391CA02CEE812C0D502EA794B23' +
'DD775796C3A7DDDAF498AF517D1CBF7236D1376EEB2E25FACDC96' +
'43EAF7AFD19D47C8F63C2DC53A35A95971C3EB45BBB77BB55F9FB' +
'B765D70829C0E39BDBEC774F6769A6804D8EB71B8D3A1550C4F00' +
'03ADFEA194F05AD3CCC43C9FB53E7AA4EC107538A719FBA773327' +
'6823AE9C521469DC9198E034620AEF3AE5A94A99CC05A73C5C4A1' +
'3777A5381C469EF788C917A83FA0D6F537F8DCCC6A1D14E9BB694' +
'3A9B566F5E0EFE593AB5CECBC90D1337B218134573D2477CF474C' +
'AB69FF732F3338045D13E89D86B9009DED3955CE153D7CD6C4EEA' +
'6FD3C0ECD7B9C8C2DEFE3AC774A110EF9AA58F1A6C87306FA07D7' +
'3B25E629C349C641F493C042269B9A94868D596F461287B129873' +
'973A89ED2681D515E333339D17CF4DAC0EFA2AD7B73979FC8CD9A' +
'CE7DBC7803309FBA69');
end;
procedure Write;
begin
ChangeReport('Writing')
writeln('This Script Was Made By Pmh1000')
wait(100)
writeln('All Parts Of This Script Are Property Of Pmh1000')
wait(100)
writeln('This Script Should Never Be Sold Without My Permission')
wait(100)
writeln('I Am Not Held Responsible For Misuse Of, Or Being Banned By This Script')
wait(100)
writeln('Use Wisely And Have Fun :)')
wait(100)
writeln(' ')
end;
Procedure ClickHuman(x, y : Integer; left : Boolean);
Begin
holdmouse(x, y, left);
wait(40 + random(50));
releasemouse(x, y, left);
End;
Procedure CastSpell2(choice : Integer);
Var
a, b : Integer;
Begin
wait(random(300) + 300);
If(choice<50)And(getcolor(726, 232)= 1777699)Then
Begin
MMouse(725,220,5,5);
wait(random(300) + 300);
getmousepos(a, b);
holdmouse(a, b, true);
wait(random(300) + 750);
releasemouse(a, b, true);
End
Else If(choice>49)And(getcolor(725, 366)= 1777699)Then
Begin
MMouse(725,370,5,5);
wait(random(300) + 300);
getmousepos(a, b);
holdmouse(a, b, true);
wait(random(300) + 750);
releasemouse(a, b, true);
End;
If(choice= 1)Or(choice= 8)Or(choice= 15)Or(choice= 22)Or(choice= 29)
Or(choice= 36)Or(choice= 43)Or(choice= 50)Or(choice>56)Then
a:= random(5) + 555
Else If(choice= 2)Or(choice= 9)Or(choice= 16)Or(choice= 23)
Or(choice= 30)Or(choice= 37)Or(choice= 44)Or(choice= 51)Then
a:= random(5) + 580
Else If(choice= 3)Or(choice= 10)Or(choice= 17)Or(choice= 24)
Or(choice= 31)Or(choice= 38)Or(choice= 45)Or(choice= 52)Then
a:= random(5) + 605
Else If(choice= 4)Or(choice= 11)Or(choice= 18)Or(choice= 25)
Or(choice= 32)Or(choice= 39)Or(choice= 46)Or(choice= 53)Then
a:= random(5) + 630
Else If(choice= 5)Or(choice= 12)Or(choice= 19)Or(choice= 26)
Or(choice= 33)Or(choice= 40)Or(choice= 47)Or(choice= 54)Then
a:= random(5) + 655
Else If(choice= 6)Or(choice= 13)Or(choice= 20)Or(choice= 27)
Or(choice= 34)Or(choice= 41)Or(choice= 48)Or(choice= 55)Then
a:= random(5) + 675
Else If(choice= 7)Or(choice= 14)Or(choice= 21)Or(choice= 28)
Or(choice= 35)Or(choice= 42)Or(choice= 49)Or(choice= 56)Then
a:= random(5) + 700;
If(choice<8)Then
b:= random(5) + 220
Else If(choice>7)And(choice<15)Then
b:= random(5) + 245
Else If(choice>14)And(choice<22)Then
b:= random(5) + 270
Else If(choice>21)And(choice<29)Then
b:= random(5) + 295
Else If(choice>28)And(choice<36)Then
b:= random(5) + 315
Else If(choice>35)And(choice<43)Then
b:= random(5) + 340
Else If(choice>42)And(choice<50)Then
b:= random(5) + 365
Else If(choice>49)And(choice<57)Then
b:= random(5) + 340
Else If(choice>56)Then
b:= random(5) + 365;
CMouse(a, b, 1, 1, True);
End;
Procedure CheckNats;
begin
If ((InvCount<3) And (i>2)) Then
begin
ChangeReport('Out Of Nats')
Writeln('Could Not Find Any Nats In Your Inventory')
logout;
TerminateScript;
end;
end;
Procedure CastLow;
begin
ChangeReport('Casting Low Alch')
CastSpell2(13)
wait(1500+random(200))
MMouse(660,327,8,10)
wait(300+random(100))
getmousepos(x,y)
Clickhuman(x+random(2),y+random(2),true)
wait(4500+random(500))
i:=i+1
u:=u+1
end;
Procedure CastHigh;
begin
ChangeReport('Casting High Alch')
CastSpell2(33)
wait(1500+random(200))
MMouse(660,327,8,10)
wait(300+random(100))
getmousepos(x,y)
If (not(isuptext('Cas'))) Then
begin
Marktime(w)
Repeat
GameTab(7)
CastSpell2(34)
wait(1500+random(200))
MMouse(660,327,8,10)
wait(300+random(100))
getmousepos(x,y)
If (TimeFromMark(w)>20000) Then Break;
until(isuptext('Cas'))
end;
Clickhuman(x+random(2),y+random(2),true)
wait(4500+random(500))
i:=i+1
u:=u+1
end;
Procedure LowAlch;
begin
ChangeReport('Low Alching')
If (i=0) Then
begin
GameTab(7)
end;
CheckNats;
CastLow;
end;
Procedure HighAlch;
begin
ChangeReport('High Alching')
If (i=0) Then
begin
GameTab(7)
end;
CheckNats;
CastHigh;
end;
procedure FindRandoms;
begin
If (i=0) Then SetRun(True)
RotateEvery(2+random(5))
FindNormalRandoms;
ClickToContinue;
CloseWindow;
If ((TimeFromMark(t)+random(30000)>300000)) Then
begin
MarkTime(t)
BoredHuman;
end;
PickUpMouseEvery(10+random(5))
FindLamp(LSkill);
FindDead;
FindMod;
FindMime;
FindMaze;
FindQuiz;
FindDemon;
LeaveScreenEvery(5+random(3))
HoverEvery(20+random(10),'magic')
if Findname Then FindTalk;
end;
procedure buttonclicked(sender: TObject);
begin
AlchForm.ModalResult:= mrOk;
end;
procedure buttonclicked2(sender: TObject);
begin
SetUpPlayers;
s:=1
end;
Procedure CreateTheForm;
begin
AlchForm := CreateForm;
AlchForm.Left := 394;
AlchForm.Top := 180;
AlchForm.Width := 323;
AlchForm.Height := 332;
AlchForm.Caption := 'Pmh1000'#39's Alcher';
AlchForm.Color := clGreen;
AlchForm.Font.Color := clWindowText;
AlchForm.Font.Height := -11;
AlchForm.Font.Name := 'MS Sans Serif';
AlchForm.Font.Style := [];
AlchForm.Visible := False;
AlchForm.PixelsPerInch := 96;
GroupBox1 := TGroupBox.Create(AlchForm);
GroupBox1.Parent := AlchForm;
GroupBox1.Left := 22;
GroupBox1.Top := 9;
GroupBox1.Width := 271;
GroupBox1.Height := 47;
GroupBox1.Caption := 'Player Manager';
GroupBox1.Color := clGreen;
GroupBox1.ParentColor := False;
GroupBox1.TabOrder := 0;
Button1 := TButton.Create(GroupBox1);
Button1.Parent := GroupBox1;
Button1.Left := 68;
Button1.Top := 15;
Button1.Width := 138;
Button1.Height := 25;
Button1.Caption := 'Player Manager';
Button1.TabOrder := 0;
Button1.OnClick :=@ButtonClicked2
GroupBox2 := TGroupBox.Create(AlchForm);
GroupBox2.Parent := AlchForm;
GroupBox2.Left := 50;
GroupBox2.Top := 64;
GroupBox2.Width := 209;
GroupBox2.Height := 185;
GroupBox2.Caption := 'Settings';
GroupBox2.TabOrder := 1;
Label1 := TLabel.Create(GroupBox2);
Label1.Parent := GroupBox2;
Label1.Left := 8;
Label1.Top := 21;
Label1.Width := 40;
Label1.Height := 13;
Label1.Caption := 'Disguise';
Label2 := TLabel.Create(GroupBox2);
Label2.Parent := GroupBox2;
Label2.Left := 8;
Label2.Top := 50;
Label2.Width := 48;
Label2.Height := 13;
Label2.Caption := 'Lamp Skill';
Label3 := TLabel.Create(GroupBox2);
Label3.Parent := GroupBox2;
Label3.Left := 7;
Label3.Top := 79;
Label3.Width := 65;
Label3.Height := 13;
Label3.Caption := 'Gold Per Alch';
Label4 := TLabel.Create(GroupBox2);
Label4.Parent := GroupBox2;
Label4.Left := 8;
Label4.Top := 105;
Label4.Width := 53;
Label4.Height := 13;
Label4.Caption := 'Total Alchs';
Label5 := TLabel.Create(GroupBox2);
Label5.Parent := GroupBox2;
Label5.Left := 11;
Label5.Top := 132;
Label5.Width := 47;
Label5.Height := 13;
Label5.Caption := 'Log Alchs';
Label6 := TLabel.Create(GroupBox2);
Label6.Parent := GroupBox2;
Label6.Left := 12;
Label6.Top := 159;
Label6.Width := 40;
Label6.Height := 13;
Label6.Caption := 'Alchemy';
Edit1 := TEdit.Create(GroupBox2);
Edit1.Parent := GroupBox2;
Edit1.Left := 80;
Edit1.Top := 18;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 0;
Edit1.Text := LoadSetting('AlchSaver', 'Disguise');
Edit2 := TEdit.Create(GroupBox2);
Edit2.Parent := GroupBox2;
Edit2.Left := 80;
Edit2.Top := 45;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 1;
Edit2.Text := LoadSetting('AlchSaver', 'LSkill');
Edit3 := TEdit.Create(GroupBox2);
Edit3.Parent := GroupBox2;
Edit3.Left := 80;
Edit3.Top := 73;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.Hint := 'Ammount Of Gold You Get Per Alch';
Edit3.TabOrder := 2;
Edit3.Text := LoadSetting('AlchSaver', 'GoldPer');
Edit4 := TEdit.Create(GroupBox2);
Edit4.Parent := GroupBox2;
Edit4.Left := 80;
Edit4.Top := 101;
Edit4.Width := 121;
Edit4.Height := 21;
Edit4.Hint := 'Total Number Of Alchs You Want To Do';
Edit4.TabOrder := 3;
Edit4.Text := LoadSetting('AlchSaver', 'TotalAlchs');
Edit5 := TEdit.Create(GroupBox2);
Edit5.Parent := GroupBox2;
Edit5.Left := 80;
Edit5.Top := 130;
Edit5.Width := 121;
Edit5.Height := 21;
Edit4.Hint := 'Number Of Alches Before You Randomly Logout';
Edit5.TabOrder := 4;
Edit5.Text := LoadSetting('AlchSaver', 'LogAlches');
ComboBox1 := TComboBox.Create(GroupBox2);
ComboBox1.Parent := GroupBox2;
ComboBox1.Left := 80;
ComboBox1.Top := 157;
ComboBox1.Width := 121;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 5;
ComboBox1.Text := LoadSetting('AlchSaver', 'Alchemy')
ComboBox1.Items.Add('High Alch');
ComboBox1.Items.Add('Low Alch');
Button2 := TButton.Create(AlchForm);
Button2.Parent := AlchForm;
Button2.Left := 91;
Button2.Top := 261;
Button2.Width := 138;
Button2.Height := 25;
Button2.Caption := 'Done';
Button2.TabOrder := 10;
Button2.OnClick :=@ButtonClicked
end;
procedure ShowFormsModal;
begin
AlchForm.ShowModal;
end;
procedure ShowzehForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('CreateTheForm', V);
ThreadSafeCall('ShowFormsModal', V);
end;
begin
SetupSRL;
ShowzehForm;
SetupFormValues;
DisguiseScar(disguise)
If (S=0) Then SetUpPlayers;
CurrentPlayer := 0;
loadpics;
write;
GoToScreen;
FixChat;
repeat
Case Alchemy Of
1 : LowAlch;
2 : HighAlch;
end;
e:=e+1
If (e>10+random(3)) Then
begin
e:=0
FindRandoms;
Gametab(7)
end;
If (u>z) Then
begin
u:=0
Logout;
Wait(600000+random(300000))
LoginPlayer;
z:=LogAlches+Random(30)
end;
If (i>TotalAlchs) Then Break;
until(i=TotalAlchs)
ChangeReport('Alched All Items')
end.
Here Are A Few Procedures That I Wrote That Come In My Fletcher, The Most Recent Of My Works, Last Updated
Yesterday, 12/30/06. This Is A Pay Script, The Only One I Have So Ill Only Include A Few Procedure That I Myself Constructed :)
Procedure ChangeReport(Reason : String);
Begin
w:=0
Status(Reason);
NewLine:= '3.0';
ClearReport;
ChangeReportWidth(260)
AddToReport('Pmh1000''s Auto_Fletcher V '+(NewLine)+'');
AddToReport('++++++++++++++++++++++++++++++');
AddToReport('Currently: ' + Reason);
AddToReport('Worked for '+ TimeRunning);
if (fletch=1) then
begin
AddToReport('Fletched ' + inttostr(j) + ' '+(ComboBox5.Text)+' Bows');
end;
if ((j<Logammount) and (fletch=1)) then
begin
AddToReport('Only ' +inttostr(Logammount - j) + ' '+(ComboBox5.Text)+' Logs Left');
end;
if ((j=Logammount) and (fletch=1)) then
begin
AddToReport('Fletched The ' +inttostr(Logammount) + ' '+(ComboBox5.Text)+' Logs You Wanted');
end;
if ((j>Logammount) and (fletch=1)) then
begin
AddToReport('Fletched The ' +inttostr(Logammount) + ''+(ComboBox5.Text)+' Logs You Wanted Plus '+inttostr(j-Logammount)+' Extra!');
end;
if (Stringem=1) then
begin
AddToReport('Strung ' + inttostr(k) + ' '+(ComboBox5.Text)+' Bows');
AddToReport('Only ' +inttostr(Bowammount - k) + ' '+(ComboBox5.Text)+' Bows left');
end;
if ((k>=Bowammount) and (Stringem=1)) then
begin
AddToReport('Strung The ' +inttostr(Bowammount) + ' '+(ComboBox5.Text)+' Bows You Wanted');
end;
AddToReport('Bank Procedure: '+(combobox6.text)+'')
end;
Procedure CheckInUse;
begin
If (FindColorTolerance(x,y,16777215,560,205,740,465,10)) Then
begin
Writeln('MisClicked, Correcting Now')
MMouse(x,y,8,8)
wait(300+random(100))
getmousepos(x,y)
Mouse(x,y,2,2,true)
wait(1500+random(500))
GameTab(4)
wait(500+random(100))
end;
end;
Procedure FindBankBooth;
begin
w:=0
ChangeReport('Finding BankBooth')
repeat
If (FindObj(x,y,'Use',bank,10)) Then
begin
w:=1
GetmousePos(x,y)
end;
If (TimeFromMark(t)>180000) Then Break;
until(w=1)
w:=0
end;
Procedure Openthebank;
begin
t:=0
MarkTime(t)
ChangeReport('Opening Bank')
open := BitmapFromString(49, 16, 'z78DAED963B0EC0300843AF14' +
'55E5005D72FF2355CA54290AB2EBD0A56660C8171EC44A5C11E71' +
'1F680EF0F6367FF49A90DC3674DC9944CE94B4A3DB5FCAE3AC563' +
'2361C7714AF3F8CAF2F54854EFAA809F9FC759D74B78C7E6E737C' +
'0F02A2834745DD27B63CE7A976ED4D158E58564A1BCD08ABFDF5E' +
'4A78C595DE607566977AB38A81D40ED10176A5BE8BF5B92E21F1F' +
'89F636F4AA654E715B5B901B4CD0FD3');
open2 := BitmapFromString(33, 14, 'z78DA337531353131371D76A' +
'41B0618BAEE370083A1E5174CF74300A6ECD0F205F1B2C3C3176E' +
'3800F1F90E977A37BC805ABEC0950E71D945897A62722BB57C416' +
'B714C5F10630EED5C852B9C29311F5759445D5B709986693225BE' +
'C09F1A89CFD794E8A2962F2024FE50222F6CF19B8F4B17A9E2D42' +
'D9F876E8B65A05C0200003D7619');
Repeat
CheckInUse;
Case FBank Of
1 : OpenBankQuiet(BankType2)
2 : OpenBank
3 : OpenBank3
4 : FindRightBank;
5 : FindBankBooth;
6 : OneClickBank;
end;
MMouse(x,y,2,2)
wait(300+Random(100))
Getmousepos(x,y)
if (not(FBank=6)) Then
begin
Mouse(x,y,1,1,False)
wait(2000+random(331))
end;
CheckInUse;
If (CheckingBankError=True) then
begin
CheckBank;
CheckAngle;
end;
If (TimeFromMark(t)>180000) Then
begin
Writeln('Spent Too Long Trying To Open The Bank, Terminating Script.')
TerminateScript;
end;
If (FBank=6) then break;
Until(findbitmaptolerancein(open,x,y,0,0,515,338,15))
If (not(FBank=6)) Then MMouse(x,y,5,2)
wait(300+random(100))
getmousepos(x,y)
Mouse(x,y,1,1,true)
wait(4000+random(133))
Freebitmap(open)
repeat
ClickToContinue;
until(ClickToContinue=false)
end;
;) :spot: :spot: :spot:
——————————————————