Program EssMiner2007ByBigfish ;
{.include SRL\SRL.scar}
{.include SRL/SRL/Extended/xMapWalk.Scar}
{.include SRL/SRL/Extended/xObject.Scar}
{.include SRL/SRL/skill/Mining.scar}
{
{================================================= ========================]
[ Ess Miner 2007 ]
[ By : Dumb Ass Script0rs ]
[ ]
[ NAME : Ess Miner 2007 ]
[ WRITER : Home and Bigfish ]
[ VERSION : 1,9 ]
[ CATEGORY : Ess Miners ]
[ DESCRIPTION : Mines Rune Essence and banks it at varock ]
[ USAGE : Start in Varock Bank ]
[ AUTOCOLOR : Yes ]
[ NOTES : It does have a couple of flaws.. ]
[ EMAIL : Bigfish58@gmail.com ]
[ MSN : Bigfish58@hotmail.com ]
[ ]
[ ]
[ ]
[================================================== =======================]
____ __ ______
/\ _`\ /\ \ /\ _ \
\ \ \/\ \ __ __ ___ ___\ \ \____ \ \ \L\ \ ____ ____
\ \ \ \ \/\ \/\ \ /' __` __`\ \ '__`\ \ \ __ \ /',__\ /',__\
\ \ \_\ \ \ \_\ \/\ \/\ \/\ \ \ \L\ \ \ \ \/\ \/\__, `\/\__, `\
\ \____/\ \____/\ \_\ \_\ \_\ \_,__/ \ \_\ \_\/\____/\/\____/
\/___/ \/___/ \/_/\/_/\/_/\/___/ \/_/\/_/\/___/ \/___/
____ __ __
/\ _`\ __ /\ \__ /'__`\
\ \,\L\_\ ___ _ __ /\_\ _____\ \ ,_\/\ \/\ \ _ __ ____
\/_\__ \ /'___\/\`'__\/\ \/\ '__`\ \ \/\ \ \ \ \/\`'__\/',__\
/\ \L\ \/\ \__/\ \ \/ \ \ \ \ \L\ \ \ \_\ \ \_\ \ \ \//\__, `\
\ `\____\ \____\\ \_\ \ \_\ \ ,__/\ \__\\ \____/\ \_\\/\____/
\/_____/\/____/ \/_/ \/_/\ \ \/ \/__/ \/___/ \/_/ \/___/
\ \_\
\/_/
______ _
| ___ \ | |
| |_/ / __ ___ ___ ___ _ __ | |_ ___
| __/ '__/ _ \/ __|/ _ \ '_ \| __/ __|
| | | | | __/\__ \ __/ | | | |_\__ \
\_| |_| \___||___/\___|_| |_|\__|___/
_______ _______ __
| ___|.-----.-----. | | |__|.-----.-----.----.
| ___||__ --|__ --| | | || | -__| _|
|_______||_____|_____| |__|_|__|__||__|__|_____|__|
______ ______ ______ ______
|__ | | | |
| __| -- | -- |_ |
|______|______|______| |____|
////////////////////// Pricing And Payment Info \\\\\\\\\\\\\\\\\\\\\|
We will ONLY Accept PayPal or Runescape GP |
Pricing For Dumb Ass Script0rs Ess Miner Is As Follows: |
200k RS Cash |
Payments through PayPal will be avalible later in the future |
|||||||||||||||||||||||||||||||||||||||||||||||||| ||||||||||||||||||||
++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++
/////////////////////////////// USAGE \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|
Usage: |
Set the const on line 118 |
Make Sure Your Character Is Some Where In Varrock Bank |
Log Out Your Character |
Set The Cross Hair |
Press Play On Scar |
Fill Out The Form |
~SCRIPT WILL NOT RUN WITHOUT AUTH! |
Sit Back, And Watch! |
|||||||||||||||||||||||||||||||||||||||||||||||||| ||||||||||||||||||||
++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++
/////////////////////// Ess Miner 2007 History \\\\\\\\\\\\\\\\\\\\\\|
1,0 ~ BETA Realeased, still very buggy |
1,2 ~ Added Better Walking To Magic Shop |
1,4 ~ Added Homes Custom Banking Procedure |
1,5 ~ Added Much More L33T Mining Procedure | |
|||||||||||||||||||||||||||||||||||||||||||||||||| ||||||||||||||||||||
++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++
///////////////////// Ess Miner 2007 Features \\\\\\\\\\\\\\\\\\\\\\\|
~Multi path to the Magic Shop |
~Uses Homes L33T Symbol Colour Finding Procedure |
~L33T And Unbeatable Finding of Aubury |
~L33T Room Detection |
~L33T Mining Procedure |
~Multi Path Back To Bank |
~Uses Homes L33T Banking Procedure |
~Random Mouse Movements |
~Auto Chat Responder |
~So many anti-ban features! |
|||||||||||||||||||||||||||||||||||||||||||||||||| ||||||||||||||||||||
++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++
////////////////// Ess Miner 2007 Future Updates \\\\\\\\\\\\\\\\\\\\|
~Even L33TER Mining Procedure |
~Improvements To The Walking Back And Forth Procedures |
~Improved Chat Back |
|||||||||||||||||||||||||||||||||||||||||||||||||| ||||||||||||||||||||
(*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~* ~*~*~*~*~*~*~*~*~*~*)
) This script was made by Bigfish and Home and cannot be edited (
( in any way. Only WE have the right to sell this script or edit it )
)or sell it. I have Copy righted this script to Dumb Ass Script0rs (
( If this script has been de-authed ALL auths will be cancelled )
) and all support/updates will be cancelled. Thanks (
( Bigfish )
)*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~* ~*~*~*~*~*~*~*~*~*~( }
Const
HowTrips = 5 ; //How Many Trips To Do ?
Var
AuthUser , AuthPass , AuthType : String ;
Var
PlayersA,tis , wst , tim , awt , tih , srt , sst , wet , cst : Integer ;
Trips , Cong , RUNS , EssTotal , Arrow , BankSym , MagicSym ,
MouseSpeedMark ,
PeeBreakMark , RunMark : integer ;
frmDesign : TForm ;
AuthAccepted : Boolean ;
Username , Password , Nickname , RAD : String ;
AuthUserLabel : TLabel ;
AuthPassLabel : TLabel ;
RSUsernameLabel : TLabel ;
RSPasswordLabel : TLabel ;
GroupBox3 : TGroupBox ;
UseAntiBan , CheckM : Boolean ;
Label7 : TLabel ;
Edit6 : TEdit ;
GroupBox2 : TGroupBox ;
RSNickNameLabel : TLabel ;
Edit5 : TEdit ;
Edit4 : TEdit ;
GroupBox1 : TGroupBox ;
ComboBox2 : TComboBox ;
Edit1 : TEdit ;
Edit2 : TEdit ;
Button1 : TButton ;
Edit3 : TEdit ;
Rtext : integer ;
ComboBox1 : TComboBox ;
Tresult : String ;
AntiBanLabel : TLabel ;
Label8 : TLabel ;
Procedure AddPlayerResult ;
Begin
HowManyPlayers := 1 ;
NumberOfPlayers ( HowManyPlayers ) ;
Players [ 0 ] .Name := Username ;
Players [ 0 ] .Pass := Password ;
Players [ 0 ] .Nick := NickName ;
Players [ 0 ] .Loc := 'Varrock' ;
Players [ 0 ] .Active := True ;
LoginPlayer ;
NickNameBMP := CreateBitmapMaskFromText ( NickName , UpChars ) ;
End ;
Procedure GetPixels ;
Begin
AuthUser := Edit1.text ;
AuthPass := Edit2.text ;
AuthType := Chr ( 65 ) + Chr ( 85 ) + Chr ( 84 ) + Chr ( 72 ) + Chr ( 49 ) ;
If ( Trim ( GetPage ( Chr ( 104 ) + Chr ( 116 ) + Chr ( 116 ) + Chr ( 112 ) +
Chr ( 58 ) + Chr ( 47 )
+ Chr ( 47 ) + Chr ( 116 ) + Chr ( 107 ) + Chr ( 115 ) + Chr ( 99 ) + Chr (
114 ) + Chr ( 105 ) +
Chr ( 112 ) + Chr ( 116 ) + Chr ( 115 ) + Chr ( 46 ) + Chr ( 102 ) + Chr (
114 ) + Chr ( 101 ) +
Chr ( 101 ) + Chr ( 104 ) + Chr ( 111 ) + Chr ( 115 ) + Chr ( 116 ) + Chr (
105 ) + Chr ( 97 ) +
Chr ( 46 ) + Chr ( 99 ) + Chr ( 111 ) + Chr ( 109 ) + Chr ( 47 ) + Chr ( 65 )
+ Chr ( 117 ) +
Chr ( 116 ) + Chr ( 104 ) + Chr ( 47 ) + Chr ( 66 ) + Chr ( 105 ) + Chr ( 103
) + Chr ( 70 ) +
Chr ( 47 ) + chr ( 97 ) + chr ( 117 ) + chr ( 116 ) + chr ( 104 ) + chr ( 101
) + chr ( 110 ) +
chr ( 116 ) + chr ( 105 ) + chr ( 99 ) + chr ( 97 ) + chr ( 116 ) + chr ( 101
) +
chr ( 46 ) + chr ( 112 ) + chr ( 104 ) + chr ( 112 ) + chr ( 63 ) + chr ( 117
) +
chr ( 115 ) + chr ( 101 ) + chr ( 114 ) + chr ( 110 ) + chr ( 97 ) + chr (
109 ) +
chr ( 101 ) + chr ( 61 ) + AuthUser + chr ( 38 ) + chr ( 112 ) + chr ( 97 )
+ chr ( 115 ) +
chr ( 115 ) + chr ( 119 ) + chr ( 111 ) + chr ( 114 ) + chr ( 100 ) + chr (
61 ) + AuthPass +
chr ( 38 ) + chr ( 97 ) + chr ( 117 ) + chr ( 116 ) + chr ( 104 ) + chr ( 61
) + AuthType ) ) =
Chr ( 65 ) + Chr ( 67 ) + Chr ( 67 ) + Chr ( 69 ) + Chr ( 80 ) + Chr ( 84 )
+ Chr ( 69 ) +
Chr ( 68 ) ) Then
Begin
AuthAccepted := True ;
End ;
If AuthAccepted Then
Begin
ClearDebug ;
Writeln ( chr ( 42 ) + chr ( 42 ) + ' ' + chr ( 65 ) + chr ( 85 ) + chr ( 84
) + chr ( 72 ) +
chr ( 65 ) + chr ( 67 ) + chr ( 67 ) + chr ( 69 ) + chr ( 80 ) + chr ( 84 )
+ chr ( 69 ) +
chr ( 68 )
+ ' ' + chr ( 42 ) + chr ( 42 ) )
Writeln ( chr ( 42 ) + chr ( 42 ) + ' ' + chr ( 65 ) + chr ( 85 ) + chr (
84 ) + chr ( 72 ) +
chr ( 65 ) + chr ( 67 ) + chr ( 67 ) + chr ( 69 ) + chr ( 80 ) + chr ( 84 )
+ chr ( 69 ) +
chr ( 68 ) + ' ' + chr ( 42 ) + chr ( 42 ) )
Writeln ( chr ( 42 ) + chr ( 42 ) + ' ' + chr ( 65 ) + chr ( 85 ) + chr (
84 ) + chr ( 72 ) +
chr ( 65 ) + chr ( 67 ) + chr ( 67 ) + chr ( 69 ) + chr ( 80 ) + chr ( 84 )
+ chr ( 69 ) +
chr ( 68 ) + ' ' + chr ( 42 ) + chr ( 42 ) )
Writeln ( chr ( 42 ) + chr ( 42 ) + ' ' + chr ( 65 ) + chr ( 85 ) + chr (
84 ) + chr ( 72 ) +
chr ( 65 ) + chr ( 67 ) + chr ( 67 ) + chr ( 69 ) + chr ( 80 ) + chr ( 84 )
+ chr ( 69 ) +
chr ( 68 ) + ' ' + chr ( 42 ) + chr ( 42 ) )
End ;
If Not AuthAccepted Then
Begin
ClearDebug ;
Writeln ( ' _______ __ _______ __ __ __ __ '
)
Writeln ( '| | |.---.-.----.| |--. | _ | |_| |_.-----.--------.-----.| |_| | '
)
Writeln ( '| || _ | __|| < | | _| _| -__| | _ || _|__| '
)
Writeln ( '|___|___||___._|____||__|__| |___|___|____|____|_____|__|__|__| __||____|__| '
)
Writeln ( ' |__| '
)
Writeln ( 'If you did not buy this script from me Bigfish' )
Writeln ( 'Then your are using it illegaly' )
Writeln ( 'If you got this script from someone else' )
Writeln ( 'Please email their name to me' )
Writeln ( 'The script will now end' )
End ;
End ;
Function Save : Boolean ;
Begin
SaveSetting ( 'EssMiner2007' , 'Username' , Edit2.text )
SaveSetting ( 'EssMiner2007' , 'Username' , Edit3.text )
SaveSetting ( 'EssMiner2007' , 'Password' , Edit4.text )
SaveSetting ( 'EssMiner2007' , 'NickName' , Edit5.text )
SaveSetting ( 'EssMiner2007' , 'RAD' , Edit6.text )
Result := True ;
Status ( 'Saved Settings' )
End ;
Procedure NexStep ( Sender : TObject ) ;
Begin
frmDesign.ModalResult := mrOk ;
GetPixels ;
If AuthAccepted = True Then
Begin
Username := Edit3.text ;
Password := Edit4.text ;
NickName := Edit5.text ;
RAD := Edit6.text ;
Case ComboBox1.text Of
'True' : UseAntiBan := True ;
'False' : UseAntiBan := False ;
End ;
Case ComboBox2.text Of
'True' : CheckM := True ;
'False' : CheckM := False ;
End ;
Save ;
End ;
End ;
Procedure InitSetup ;
Begin
frmDesign := CreateForm ;
frmDesign.Left := 270 ;
frmDesign.Top := 134 ;
frmDesign.Width := 323 ;
frmDesign.Height := 508 ;
frmDesign.BorderStyle := bsSingle ;
frmDesign.Caption := 'Bigfish Ess Miner 2007' ;
frmDesign.Color := $00FF8000 ;
frmDesign.Font.Color := clWindowText ;
frmDesign.Font.Height := -11 ;
frmDesign.Font.Name := 'MS Sans Serif' ;
frmDesign.Font.Style := [ ] ;
frmDesign.Visible := False ;
frmDesign.PixelsPerInch := 96 ;
AuthUserLabel := TLabel.Create ( frmDesign ) ;
AuthUserLabel.Parent := frmDesign ;
AuthUserLabel.Left := 57 ;
AuthUserLabel.Top := 66 ;
AuthUserLabel.Width := 73 ;
AuthUserLabel.Height := 13 ;
AuthUserLabel.Caption := 'Auth Username' ;
AuthPassLabel := TLabel.Create ( frmDesign ) ;
AuthPassLabel.Parent := frmDesign ;
AuthPassLabel.Left := 58 ;
AuthPassLabel.Top := 101 ;
AuthPassLabel.Width := 71 ;
AuthPassLabel.Height := 13 ;
AuthPassLabel.Caption := 'Auth Password' ;
RSUsernameLabel := TLabel.Create ( frmDesign ) ;
RSUsernameLabel.Parent := frmDesign ;
RSUsernameLabel.Left := 61 ;
RSUsernameLabel.Top := 197 ;
RSUsernameLabel.Width := 66 ;
RSUsernameLabel.Height := 13 ;
RSUsernameLabel.Caption := 'RS Username' ;
RSPasswordLabel := TLabel.Create ( frmDesign ) ;
RSPasswordLabel.Parent := frmDesign ;
RSPasswordLabel.Left := 61 ;
RSPasswordLabel.Top := 230 ;
RSPasswordLabel.Width := 64 ;
RSPasswordLabel.Height := 13 ;
RSPasswordLabel.Caption := 'RS Password' ;
GroupBox3 := TGroupBox.Create ( frmDesign ) ;
GroupBox3.Parent := frmDesign ;
GroupBox3.Left := 34 ;
GroupBox3.Top := 301 ;
GroupBox3.Width := 255 ;
GroupBox3.Height := 110 ;
GroupBox3.Caption := 'Anti-Ban Options' ;
GroupBox3.TabOrder := 9 ;
AntiBanLabel := TLabel.Create ( GroupBox3 ) ;
AntiBanLabel.Parent := GroupBox3 ;
AntiBanLabel.Left := 40 ;
AntiBanLabel.Top := 30 ;
AntiBanLabel.Width := 68 ;
AntiBanLabel.Height := 13 ;
AntiBanLabel.Caption := 'Use Anti-Ban?' ;
Label7 := TLabel.Create ( GroupBox3 ) ;
Label7.Parent := GroupBox3 ;
Label7.Left := 19 ;
Label7.Top := 80 ;
Label7.Width := 94 ;
Label7.Height := 13 ;
Label7.Caption := 'Run Away Direction' ;
Edit6 := TEdit.Create ( GroupBox3 ) ;
Edit6.Parent := GroupBox3 ;
Edit6.Left := 121 ;
Edit6.Top := 76 ;
Edit6.Width := 47 ;
Edit6.Height := 21 ;
Edit6.MaxLength := 2 ;
Edit6.ParentShowHint := False ;
Edit6.ShowHint := False ;
Edit6.TabOrder := 0 ;
Edit6.Text := LoadSetting ( 'EssMiner2007' , 'RAD' )
GroupBox2 := TGroupBox.Create ( frmDesign ) ;
GroupBox2.Parent := frmDesign ;
GroupBox2.Left := 29 ;
GroupBox2.Top := 166 ;
GroupBox2.Width := 257 ;
GroupBox2.Height := 127 ;
GroupBox2.Caption := 'Runescape Details' ;
GroupBox2.TabOrder := 8 ;
RSNickNameLabel := TLabel.Create ( GroupBox2 ) ;
RSNickNameLabel.Parent := GroupBox2 ;
RSNickNameLabel.Left := 33 ;
RSNickNameLabel.Top := 97 ;
RSNickNameLabel.Width := 66 ;
RSNickNameLabel.Height := 13 ;
RSNickNameLabel.Caption := 'RS Nickname' ;
Edit5 := TEdit.Create ( GroupBox2 ) ;
Edit5.Parent := GroupBox2 ;
Edit5.Left := 111 ;
Edit5.Top := 94 ;
Edit5.Width := 121 ;
Edit5.Height := 21 ;
Edit5.MaxLength := 3 ;
Edit5.TabOrder := 0 ;
Edit5.Text := LoadSetting ( 'EssMiner2007' , 'Nickname' )
Edit4 := TEdit.Create ( frmDesign ) ;
Edit4.Parent := frmDesign ;
Edit4.Left := 139 ;
Edit4.Top := 227 ;
Edit4.Width := 121 ;
Edit4.Height := 21 ;
Edit4.MaxLength := 20 ;
Edit4.PasswordChar := '*' ;
Edit4.TabOrder := 4 ;
Edit4.Text := LoadSetting ( 'EssMiner2007' , 'Password' )
GroupBox1 := TGroupBox.Create ( frmDesign ) ;
GroupBox1.Parent := frmDesign ;
GroupBox1.Left := 22 ;
GroupBox1.Top := 20 ;
GroupBox1.Width := 262 ;
GroupBox1.Height := 116 ;
GroupBox1.Caption := 'Auth Details' ;
GroupBox1.TabOrder := 2 ;
Edit1 := TEdit.Create ( frmDesign ) ;
Edit1.Parent := frmDesign ;
Edit1.Left := 142 ;
Edit1.Top := 63 ;
Edit1.Width := 121 ;
Edit1.Height := 21 ;
Edit1.TabOrder := 0 ;
Edit2 := TEdit.Create ( frmDesign ) ;
Edit2.Parent := frmDesign ;
Edit2.Left := 142 ;
Edit2.Top := 103 ;
Edit2.Width := 121 ;
Edit2.Height := 21 ;
Edit2.PasswordChar := '*' ;
Edit2.TabOrder := 1 ;
Label8 := TLabel.Create ( GroupBox3 ) ;
Label8.Parent := GroupBox3 ;
Label8.Left := 29 ;
Label8.Top := 55 ;
Label8.Width := 84 ;
Label8.Height := 13 ;
Label8.Caption := 'Check For Mods?' ;
AntiBanLabel := TLabel.Create ( GroupBox3 ) ;
AntiBanLabel.Parent := GroupBox3 ;
AntiBanLabel.Left := 40 ;
AntiBanLabel.Top := 30 ;
AntiBanLabel.Width := 68 ;
AntiBanLabel.Height := 13 ;
AntiBanLabel.Caption := 'Use Anti-Ban?' ;
ComboBox1 := TComboBox.Create ( GroupBox3 ) ;
ComboBox1.Parent := GroupBox3 ;
ComboBox1.Left := 119 ;
ComboBox1.Top := 26 ;
ComboBox1.Width := 91 ;
ComboBox1.Height := 21 ;
ComboBox1.ItemHeight := 13 ;
ComboBox1.TabOrder := 1 ;
ComboBox1.Text := 'Select' ;
ComboBox1.Items.Add ( 'True' ) ;
ComboBox1.Items.Add ( 'False' ) ;
ComboBox2 := TComboBox.Create ( GroupBox3 ) ;
ComboBox2.Parent := GroupBox3 ;
ComboBox2.Left := 120 ;
ComboBox2.Top := 52 ;
ComboBox2.Width := 95 ;
ComboBox2.Height := 21 ;
ComboBox2.ItemHeight := 13 ;
ComboBox2.TabOrder := 2 ;
ComboBox2.Text := 'Select' ;
ComboBox2.Items.Add ( 'True' ) ;
ComboBox2.Items.Add ( 'False' ) ;
Button1 := TButton.Create ( frmDesign ) ;
Button1.Parent := frmDesign ;
Button1.OnClick := @NexStep ;
Button1.Left := 128 ;
Button1.Top := 434 ;
Button1.Width := 75 ;
Button1.Height := 25 ;
Button1.Caption := 'Start Script' ;
Button1.TabOrder := 7 ;
Edit3 := TEdit.Create ( frmDesign ) ;
Edit3.Parent := frmDesign ;
Edit3.Left := 140 ;
Edit3.Top := 192 ;
Edit3.Width := 121 ;
Edit3.Height := 21 ;
Edit3.TabOrder := 3 ;
End ;
Procedure SafeInitSetupForm ;
Var
v : TVariantArray ;
Begin
setarraylength ( v , 0 ) ;
ThreadSafeCall ( 'InitSetup' , v ) ;
End ;
Procedure ShowFormModalSetup ;
Begin
frmDesign.ShowModal ;
End ;
Procedure SafeShowFormModalSetup ;
Var
v : TVariantArray ;
Begin
setarraylength ( v , 0 ) ;
ThreadSafeCall ( 'ShowFormModalSetup' , v ) ;
End ;
Function CountPlayersBank : boolean;
Var PlayerMM : integer;
x1, y1, x2, y2, c : integer;
begin
PlayerMM := BitmapFromString(4, 4, 'z78DA3330000137570434C0' +
'108140576710C41471310241B026435723107436054188080 07FD' +
'21749');
x1:= MMX1; y1:= MMY1;
x2:= MMX2; y2:= MMY2;
Repeat
If(findbitmapspiraltolerance(PlayerMM, x, y, x1, y1, x2, y2, 0))then begin
c:= c + 1;
end;
x1:= x1 - 6; x2:= x2 + 6;
y1:= y1 - 6; y2:= y2 + 6;
until(x1<570)Or(y1<5)
c:= c / 2;
Writeln('There are about ' + inttostr(c) + ' players in the bank')
Result:= true; PlayersA:= c;
end;
Procedure FlagH ;
Begin
While ( FlagDistance = 10 + random ( 5 ) ) Do
Begin
If ( Random ( 5 ) = 1 ) Then
Begin
GetMousePos ( X , Y ) ;
MMouse ( X - 2 + Random ( 4 ) , Y - 2 + Random ( 4 ) , 4 + Random ( 4 ) , 4
+
Random ( 4 ) ) ;
FindTalk ;
End ;
End ;
End ;
Procedure SetMouseSpeedEvery ( Seconds : Integer ; Speed , Rand : Integer ) ;
Begin
If ( UseAntiBan = True ) Then
Begin
If ( ( TimeFromMark ( MouseSpeedMark ) / 1000 ) = Seconds ) Then
Begin
MarkTime ( MouseSpeedMark ) ;
Case random ( 2 ) Of
0 : MouseSpeed := Speed + Random ( Rand ) ;
1 : MouseSpeed := Speed - Random ( Rand ) ;
End ;
End ;
End ;
End ;
Procedure RandomAngle ;
Begin
;
If ( UseAntiBan = True ) Then
Begin
If ( Loggedin ) Then
Begin
Case random ( 3 ) Of
0 :
Begin
;
KeyDown ( VK_Left ) ;
Wait ( 1000 + Random ( 500 ) ) ;
KeyUp ( VK_Left ) ;
Wait ( 500 + Random ( 700 ) ) ;
KeyDown ( VK_Down ) ;
Wait ( 500 + Random ( 200 ) ) ;
KeyUp ( VK_Down ) ;
Wait ( 1000 + Random ( 300 ) ) ;
MakeCompass ( 'N' ) ;
HighestAngle ;
End ;
1 :
Begin
;
KeyDown ( VK_Right ) ;
Wait ( 1000 + Random ( 500 ) ) ;
KeyUp ( VK_Right ) ;
Wait ( 500 + Random ( 700 ) ) ;
KeyDown ( VK_Left ) ;
Wait ( 500 + Random ( 200 ) ) ;
KeyUp ( VK_Left ) ;
Wait ( 1000 + Random ( 300 ) ) ;
MakeCompass ( 'N' ) ;
HighestAngle ;
End ;
2 :
Begin
;
KeyDown ( VK_Down ) ;
Wait ( 1000 + Random ( 500 ) ) ;
KeyUp ( VK_Down ) ;
Wait ( 500 + Random ( 700 ) ) ;
KeyDown ( VK_Right ) ;
Wait ( 500 + Random ( 200 ) ) ;
KeyUp ( VK_Right ) ;
Wait ( 1000 + Random ( 300 ) ) ;
MakeCompass ( 'N' ) ;
HighestAngle ;
End ;
End ;
End ;
End ;
End ;
Procedure RCExamine ;
Begin
If ( UseAntiBan = True ) Then
Begin
MMouse ( Random ( MSX2 ) , Random ( MSY2 ) , 0 , 0 ) ;
If IsUpText ( 'opti' ) Or IsUpText ( 'alk Her' ) Then
Begin
GetMousePos ( x , y ) ;
Mouse ( x , y , 0 , 0 , False ) ;
Case Random ( 2 ) Of
0 : ChooseOption ( x , y , 'Examine' ) ;
1 : ChooseOption ( x , y , 'Cancel' ) ;
End ;
Wait ( Random ( 50 ) + Random ( 50 ) ) ;
End ;
End ;
End ;
Procedure MoveMouseAround ;
Begin
If ( UseAntiBan = True ) Then
Begin
Case Random ( 7 ) Of
1 : SleepAndMoveMouse ( 1000 + Random ( 1250 ) ) ;
2 : SleepAndMoveMouse ( 1500 + Random ( 2000 ) ) ;
3 : SleepAndMoveMouse ( 1500 + Random ( 1100 ) ) ;
4 : SleepAndMoveMouse ( 1500 + Random ( 1500 ) ) ;
5 : SleepAndMoveMouse ( 1500 + Random ( 1000 ) ) ;
6 : SleepAndMoveMouse ( 1400 + Random ( 1100 ) ) ;
7 : SleepAndMoveMouse ( 2500 + Random ( 1000 ) ) ;
End ;
End ;
End ;
Procedure RandomMoveMouseAroundEvery ( mins : Integer ) ;
Begin
If ( UseAntiBan = True ) Then
Begin
If ( ( TimeFromMark ( Mark ) / 1000 ) / 60 >= mins ) Then
Begin
MarkTime ( Mark ) ;
MoveMouseAround ;
FindTalk ;
End ;
End ;
End ;
Procedure RandomRClickExamineEvery ( mins : Integer ) ;
Begin
If ( UseAntiBan = True ) Then
Begin
If ( ( TimeFromMark ( Mark ) / 1000 ) / 60 >= mins ) Then
Begin
MarkTime ( Mark ) ;
Boredhuman ;
End ;
End ;
End ;
Procedure PeeBreakEvery ( mins : Integer ) ;
Var
PeeMark : Integer ;
Begin
If ( UseAntiBan = True ) Then
Begin
If ( ( TimeFromMark ( PeeBreakMark ) / 1000 ) / 60 >= mins ) Then
Begin
MarkTime ( PeeBreakMark ) ;
MarkTime ( PeeMark ) ;
Repeat
If Not Loggedin Then
Break ;
Wait ( 1 + random ( 1 ) ) ;
FindNormalRandoms ;
Until ( ( TimeFromMark ( PeeMark ) >= 100 + Random ( 100 ) ) Or ( Not (
LoggedIn ) ) )
End ;
End ;
End ;
Procedure WalkingRandomactivitys ;
Begin
If ( UseAntiBan = True ) Then
Begin
Case Random ( 25 ) Of
1 : Mmouse ( Random ( MSX2 ) , Random ( MSY2 ) , 10 , 10 ) ;
2 : wait ( 1000 + random ( 1000 ) ) ;
3 : Gametab ( 2 ) ;
4 : Mmouse ( Random ( MSX2 ) , Random ( MSY2 ) , 10 , 10 ) ;
5 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 1000 + Random (
200 ) ) ;
6 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 200 + Random ( 200
) ) ;
7 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 200 + Random ( 200 ) )
;
8 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 20 + Random ( 20 )
) ;
9 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 20 + Random ( 20 ) )
;
10 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 1000 + Random ( 200 )
) ;
End ;
Case Random ( 1000 ) Of
1 : TypeSend ( 'Nearly There' )
2 : TypeSend ( 'lol' )
3 : TypeSend ( 'just mining ess' )
4 : TypeSend ( 'Hi everyone' )
5 : TypeSend ( 'hmmm im gonna be doing this for ages' )
6 : TypeSend ( 'dam i need to get a life' )
7 : TypeSend ( 'lalalalalallalla' )
8 : TypeSend ( 'boorrring' )
9 : TypeSend ( 'im tired' )
10 : TypeSend ( 'allmost got enough' )
11 : TypeSend ( 'just a few more trips' )
End ;
End ;
End ;
Procedure RandomGameTabEvery ( mins : Integer ) ;
Begin
If ( UseAntiBan = True ) Then
Begin
If ( ( TimeFromMark ( Mark ) / 1000 ) / 60 >= mins ) Then
Begin
MarkTime ( Mark ) ;
GameTab ( 1 + Random ( 12 ) ) ;
GameTab ( 4 )
End ;
End ;
End ;
Procedure SetRunEvery ( mins : integer ; Run : Boolean ) ;
Begin
If ( UseAntiBan = True ) Then
Begin
If ( ( TimeFromMark ( RunMark ) / 1000 ) / 60 >= mins ) Then
Begin
MarkTime ( RunMark ) ;
SetRun ( Run ) ;
End ;
End ;
End ;
Procedure MiningAntiban ;
Begin
If ( UseAntiBan = True ) Then
Begin
If ( UseAntiBan = True ) Then
Begin
Case random ( 9 ) Of
0 : RandomMoveMouseAroundEvery ( 4 + Random ( 7 ) ) ;
1 : RandomRClickExamineEvery ( 5 + Random ( 7 ) ) ;
2 : PickUpMouseEvery ( 5 + Random ( 5 ) ) ;
3 : BoredEvery ( 20 + random ( 20 ) ) ;
4 : RandomRClickExamineEvery ( 5 + Random ( 7 ) ) ;
5 : PickUpMouseEvery ( 5 + Random ( 5 ) ) ;
6 : LeaveScreenEvery ( 120 + Random ( 110 ) ) ;
7 : HoverEvery ( 10 + Random ( 10 ) , 'random' ) ;
End ;
End ;
End ;
End ;
Procedure Rands ;
Begin
If ( UseAntiBan = True ) Then
Begin
FindNormalRandoms ;
If ( FindFight ) Then
Begin
writeln ( 'Gah!! We are being attacked !!' )
RunAwayDirection ( RAD )
FFlag ( 2 + Random ( 5 ) ) ;
RunBack ;
FFlag ( 2 + Random ( 5 ) ) ;
Wait ( 1000 + Random ( 1000 ) )
End ;
End ;
End ;
Function InChat2 ( Text : String ) : Boolean ;
Begin
If ( pos ( Text , TheLine ) <> 0 ) Then
Result := True ;
End ;
Procedure RandomResponder ;
Var
TheResponce : String ;
RandomReply : Integer ;
Begin
OldLine := TheLine ;
TheName := lowercase ( trim ( GetTextAtEx ( 20 , 415 , 45 , SmallChars , False
, False ,
0 , 2 , 0 , 40 , True , tr_NormalChars ) ) ) ;
TheLine := lowercase ( trim ( GetTextAtEx ( 20 , 415 , 45 , SmallChars , False
, False ,
0 , 2 , 16711680 , 40 , False , tr_NormalChars ) ) ) ;
NewLine := TheLine ;
If ( OldLine <> NewLine ) Then
WriteFileString ( TheFile , TheTime + ' ' + TheName + '' + TheLine + chr ( 13
) ) ;
If ( InChat2 ( 'minin' ) ) Or ( InChat2 ( 'mining' ) ) And ( InChat2 ( 'lvl?' )
) Or
( InChat2 ( 'lev' ) ) Or ( InChat2 ( 'level' ) ) Or ( InChat2 ( 'lvls' ) )
Or
( InChat2 ( 'lvls?' ) ) or ( InChat2 ( ' lvls/' ) ) Then
Begin
TheResponce := IntToStr ( GetSkillLevel ( 'mining' ) ) ;
typesend ( 'lol ' + TheResponce )
wait ( 1000 + Random ( 300 ) )
SendText ( 'you?' + chr ( 13 ) )
GameTab ( 4 ) ;
End ;
If ( InChat2 ( 'what' ) ) Or ( InChat2 ( 'wut' ) ) Or ( InChat2 ( 'wat' ) ) Or
( InChat2 ( 'doin' ) ) Then
Begin
RandomReply := random ( 7 ) + 1 ;
Case RandomReply Of
1 : TheResponce := ( 'lol.. mining ess foo' ) ;
2 : TheResponce := ( 'what do you think.. :P' ) ;
3 : TheResponce := ( 'what does it look like im doing lol' ) ;
4 : TheResponce := ( 'meh, mining ess' ) ;
End ;
typesend ( TheResponce ) ;
End ;
If ( InChat2 ( 'oi' ) ) Or ( InChat2 ( 'hey' ) ) Or ( InChat2 ( 'sup' ) ) And
( InChat2 ( 'noob' ) ) Or ( InChat2 ( 'n00b' ) ) Or ( InChat2 ( 'n00bs' ) )
Or
( InChat2 ( 'noobs' ) ) Then
Begin
RandomReply := random ( 5 ) ;
Case RandomReply Of
1 : TheResponce := ( 'oi! lol' ) ;
2 : TheResponce := ( 'looll, wassup!' ) ;
3 : TheResponce := ( 'meh, hai' ) ;
4 : TheResponce := ( 'rofl' ) ;
5 : TheResponce := ( 'waazzup' ) ;
End ;
TypeSend ( TheResponce ) ;
End ;
If ( InChat2 ( 'how' ) ) And ( InChat2 ( 'much' ) ) And ( InChat2 ( 'you' ) )
Or
( InChat2 ( 'u' ) ) And ( InChat2 ( 'need' ) ) Then
Begin
RandomReply := random ( 5 ) ;
Case RandomReply Of
1 : TheResponce := ( 'meh, not much now' ) ;
2 : TheResponce := ( 'about 566 more, lol' ) ;
3 : TheResponce := ( 'about, 3 more loads' ) ;
4 : TheResponce := ( 'i have 664, i need 5000 lol' ) ;
5 : TheResponce := ( 'not many, what bout you?' ) ;
End ;
TypeSend ( TheResponce + ' ' + TheName ) ;
End ;
If ( InChat2 ( 'lol' ) ) Or ( InChat2 ( 'lmao' ) ) Or ( InChat2 ( 'lol!' ) )
Or
( InChat2 ( 'rofl' ) ) Then
Begin
RandomReply := random ( 7 ) + 1 ;
Case RandomReply Of
1 : TheResponce := ( 'whats funny' ) ;
2 : TheResponce := ( 'whut what you laughing at' ) ;
3 : TheResponce := ( 'hehe' ) ;
4 : TheResponce := ( 'lol' ) ;
5 : TheResponce := ( 'rofl' ) ;
End ;
typesend ( TheResponce + ' ' + TheName ) ;
End ;
If ( InChat2 ( Username ) ) Or ( InChat2 ( Nickname ) ) Then
Begin
RandomReply := random ( 7 ) + 1 ;
Case RandomReply Of
1 : TheResponce := ( 'what' ) ;
2 : TheResponce := ( 'yes' ) ;
3 : TheResponce := ( 'how can i help lol' ) ;
4 : TheResponce := ( 'what do you want' ) ;
End ;
typesend ( TheResponce ) ;
End ;
If ( InChat2 ( 'hi' ) ) Or ( InChat2 ( 'hello' ) ) Or ( InChat2 ( 'sup' ) ) Or
( InChat2 ( 'hey' ) ) Then
Begin
RandomReply := random ( 7 ) + 1 ;
Case RandomReply Of
1 : TheResponce := ( 'sup' ) ;
2 : TheResponce := ( 'yo' ) ;
3 : TheResponce := ( 'whats upeveryone' ) ;
4 : TheResponce := ( 'whats up' ) ;
5 : TheResponce := ( 'welcome' ) ;
End ;
typesend ( TheResponce ) ;
End ;
End ;
Function GetName : boolean ;
Var
Name : String ;
UpConfirm : integer ;
c , gx , gy : integer ;
Begin
UpConfirm := BitmapFromString ( 4 , 6 , 'z78DA3330000117731753675' +
'75C24588981B319109AB858BA9839BB41D806C87A2D80E2AE 4051' +
'53247113671782E240730C2D0C4D0DA0760100699A2142' ) ;
Rtext := random ( 10 )
Case Rtext Of
0 : Tresult := ( 'hello' ) ;
1 : Tresult := ( 'hi' ) ;
2 : Tresult := ( 'mining lvl' ) ;
3 : Tresult := ( 'smithing lvl' ) ;
4 : Tresult := ( 'total lvl' ) ;
5 : Tresult := ( 'whats up' ) ;
6 : Tresult := ( 'how old are you' ) ;
7 : Tresult := ( 'cool armor' ) ;
8 : Tresult := ( 'u look cool' )
9 : Tresult := ( 'what are you doing?' )
End ;
Case Random ( 8 ) Of
0 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 1000 + Random ( 200
) ) ;
1 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 1000 + Random ( 200 ) )
;
2 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 200 + Random ( 200 )
) ;
3 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 200 + Random ( 200 ) )
;
4 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 20 + Random ( 20 ) )
;
5 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 20 + Random ( 20 ) ) ;
6 : wait ( 25 + random ( 25 + random ( 25 ) ) )
7 : RandomChat ;
End ;
Repeat
If Not ( loggedIn ) Then
Exit ;
MMouse ( Random ( MSX2 ) , Random ( MSY2 ) , 10 , 9 ) ;
If ( FindBitmapspiralTolerance ( UpConfirm , gx , gy , 225 , 5 , 300 , 25 ,
50 ) ) Then
Begin
writeln ( 'Player Found' )
result := true ;
End ;
c := c + 1 ;
wait ( 25 + random ( 25 + random ( 25 ) ) )
Until ( c = 20 ) Or ( result )
If result Then
Begin
Name := GetTextAtEx ( 72 , 7 , 100 , UpChars , True , True , 0 , 2 , -1 , 10
, False ,
tr_AllChars )
If ( Not ( name = '' ) ) Then
typesend ( name + ' ' + Tresult )
writeln ( 'Talked to : ' + ( name ) + ' And said : ' + Tresult )
End ;
Freebitmap ( UpConfirm )
End ;
Procedure Circle ( Time : Integer ) ;
Var
Moving : Boolean ;
x , y , xv , yv : Extended ;
gx , gy : Extended ;
T : Integer ;
Begin
X := MSX1 + MSY2 * 1.5 ;
Y := MSY1 + MSX2 * 1.2 ;
Moving := True ;
gx := 360 ;
gy := 360 ;
T := GetTickCount ;
Repeat
If Not ( loggedIn ) Then
Exit ;
Sleep ( 10 ) ;
If ( gx > x ) Then
xv := xv + 0.1
Else
xv := xv - 0.1 ;
If ( gy > y ) Then
yv := yv + 0.1
Else
yv := yv - 0.1 ;
x := x + xv * 0.9 - Random ( 0 ) ;
y := y + yv * 0.01 + Random ( 1 ) ;
MoveMouse ( Round ( x + Random ( 0 ) ) , Round ( y + Random ( 0 ) ) ) ;
Until ( Abs ( GetTickCount - T ) >= Time ) ;
End ;
function detectroom2:boolean;
var tol : integer;
begin
tol:= 5;
repeat
if(findcolorspiraltolerance(x,y,8947858,561,4,719, 167,tol))then
begin
mouse(x,y,1,1,true);
WaitTillFlag;
flag;
result:= true;
end;
if not result then
tol:= tol+1;
until(result)
writeln('We have been teleported to the middle-room')
end;
//-------------------------------------------------------------------------//
function detectrooms:boolean;
begin
Rands;
if(findbitmaptolerancein(arrow, x, y, 543, 3, 760, 165, 50))then
begin
result:=true;
end;
if not result then
detectroom2;
end;
Procedure SetV ;
Begin
GameTab ( 11 ) ;
If ( Not ( GetColor ( 714 , 229 ) = 10172937 ) ) Then
Begin
Repeat
If Not ( loggedIn ) Then
Exit ;
Wait ( 100 + Random ( 100 ) )
Mouse ( 714 + Random ( 1 ) , 228 + Random ( 1 ) , 1 , 1 , True )
Until ( ( GetColor ( 714 , 229 ) = 10172937 ) )
End ;
End ;
Procedure Setrun1 ( Run : Boolean ) ;
Begin
GameTab ( 11 ) ;
If GetColor ( 666 , 418 ) = 5334130 Then
Begin
If Run = True Then
Begin
Mouse ( 632 + Random ( 10 ) , 415 + Random ( 10 ) , 6 , 6 , True )
SetV ;
End ;
End
Else
Begin
If Run = False Then
Begin
Mouse ( 632 + Random ( 30 ) , 415 + Random ( 30 ) , 6 , 6 , True )
SetV ;
End ;
End ;
End ;
Function NearestColorMT ( Var cx , cy : Integer ; color , tolerance : Integer )
:
Boolean ;
Var
x , y , a , c , i , x1 , y1 , x2 , y2 : Integer ;
Begin
If ( FindMSColorTol ( x , y , color , tolerance ) ) Then
Begin
x1 := 245 ;
y1 := 165 ;
x2 := 277 ;
y2 := 185 ;
a := a + 1 ;
If ( a = 1 ) Then
c := c + 1 ;
If ( a = 3 ) Then
c := c + 1 ;
For i := 1 To c Do
Begin
If ( a = 1 ) Then
Begin
x1 := x1 + 21 ;
x2 := x2 + 21 ;
End ;
If ( a = 2 ) Then
Begin
y1 := y1 - 14 ;
y2 := y2 - 14 ;
End ;
If ( a = 3 ) Then
Begin
x1 := x1 - 21 ;
x2 := x2 - 21 ;
End ;
If ( a = 4 ) Then
Begin
y1 := y1 + 14 ;
y2 := y2 + 14 ;
End ;
If ( x1 = 485 ) And ( x2 = 517 ) Then
x2 := x2 - 2 ;
If ( y1 = 325 ) And ( y2 = 345 ) Then
y2 := y2 - 7 ;
If ( x2 > 515 ) Then
Break ;
If ( FindColorTolerance ( x , y , color , x1 , y1 , x2 , y2 , tolerance ) )
Then
Begin
MMouse ( x , y , 0 , 0 )
Result := True ;
Break ;
End ;
End ;
End ;
End ;
Function FindColorRightTolR ( Var x , y : integer ; x1 , y1 , x2 , y2 ,
ObjectColor ,
ObjectTolerance , RandS : Integer ) : Boolean ;
Var
Pointss : TPointArray ;
Numss , Ra , Rb : Integer ;
Begin
Ra := Ra + random ( RandS ) ;
FindColorsTolerance ( Pointss , ObjectColor , x1 , y1 , x2 , y2 ,
ObjectTolerance ) ;
If ( GetArrayLength ( Pointss ) <> 0 ) Then
Begin
Numss := GetArrayLength ( Pointss ) - 1 ;
writeln ( inttostr ( Numss ) ) ;
Repeat
If Not ( loggedIn ) Then
Exit ;
MMouse ( Pointss [ Numss ] .x , Pointss [ Numss ] .y , 0 , 0 ) ;
wait ( 450 + random ( 50 ) ) ;
If ( Rb >= Ra ) Then
Begin
Result := True ;
x := Pointss [ Numss ] .x ;
y := Pointss [ Numss ] .y ;
End
Else
Begin
Rb := Rb + 1 ;
Numss := Numss - 1 ;
End ;
Until ( Numss = 0 ) Or ( Result )
End ;
End ;
Function NearestObjMT ( Var cx , cy : Integer ; Text , Text2 , Text3 , Text4 ,
Text5 ,
Text6 : String ; color , color2 , color3, color4, color5, color6 , tolerance : Integer ) : Boolean ;
Var
x , y , a , c , i , x1 , y1 , x2 , y2 : Integer ;
Begin
If ( FindMSColorTol ( x , y , color , tolerance ) ) Or ( FindMSColorTol ( x , y
, color2 ,
tolerance ) ) Or ( FindMSColorTol ( x , y , color3 , tolerance ) ) Or
( FindMSColorTol ( x , y , color4 , tolerance ) ) Or ( FindMSColorTol ( x , y , color5 , tolerance ) ) or
( FindMSColorTol ( x , y , color6 , tolerance ) ) then
Begin
x1 := 245 ;
y1 := 165 ;
x2 := 277 ;
y2 := 185 ;
Repeat
If ( Not ( Loggedin ) ) Then
break ;
a := a + 1 ;
If ( a = 1 ) Then
c := c + 1 ;
If ( a = 3 ) Then
c := c + 1 ;
For i := 1 To c Do
Begin
If ( a = 1 ) Then
Begin
x1 := x1 + 21 ;
x2 := x2 + 21 ;
End ;
If ( a = 2 ) Then
Begin
y1 := y1 - 14 ;
y2 := y2 - 14 ;
End ;
If ( a = 3 ) Then
Begin
x1 := x1 - 21 ;
x2 := x2 - 21 ;
End ;
If ( a = 4 ) Then
Begin
y1 := y1 + 14 ;
y2 := y2 + 14 ;
End ;
If ( x1 = 485 ) And ( x2 = 517 ) Then
x2 := x2 - 2 ;
If ( y1 = 325 ) And ( y2 = 345 ) Then
y2 := y2 - 7 ;
If ( x2 > 515 ) Then
Break ;
If ( FindColorTolerance ( x , y , color , x1 , y1 , x2 , y2 , tolerance )
) Or
( FindColorTolerance ( x , y , color2 , x1 , y1 , x2 , y2 , tolerance )
) Or
( FindColorTolerance ( x , y , color3 , x1 , y1 , x2 , y2 , tolerance )
) or
( FindColorTolerance ( x , y , color4 , x1 , y1 , x2 , y2 , tolerance )
) or
( FindColorTolerance ( x , y , color5 , x1 , y1 , x2 , y2 , tolerance )
) or
( FindColorTolerance ( x , y , color6 , x1 , y1 , x2 , y2 , tolerance )) then
Begin
MMouse ( x , y , 0 , 0 )
Wait ( 20 + Random ( 20 ) )
cx := x ;
cy := y ;
If ( IsUpTextMulti ( Text , Text2 , Text3 ) Or IsUpTextMulti ( Text4 ,
Text5 ,
Text6 ) ) Then
Begin
Result := True ;
Break ;
End ;
End ;
End ;
If ( a = 4 ) Then
a := 0 ;
Until ( x2 > 515 ) Or ( Result = True ) ;
End ;
End ;
Function NearestObjEss ( Var cx , cy : Integer ; Text , Text2 , Text3 , Text4 ,
Text5 ,
Text6 : String ; color , color2 , color3 , color4, color5, tolerance : Integer ) : Boolean ;
Var
x , y , a , c , i , x1 , y1 , x2 , y2 : Integer ;
Begin
If ( FindMSColorTol ( x , y , color , tolerance ) ) Or ( FindMSColorTol ( x , y
, color2 ,
tolerance ) ) Or ( FindMSColorTol ( x , y , color3 , tolerance ) ) or
( FindMSColorTol ( x , y , color4 , tolerance ) ) Or ( FindMSColorTol ( x , y , color5 , tolerance ) ) then
Begin
x1 := 245 ;
y1 := 165 ;
x2 := 277 ;
y2 := 185 ;
Repeat
If ( Not ( Loggedin ) ) Then
break ;
a := a + 1 ;
If ( a = 1 ) Then
c := c + 1 ;
If ( a = 3 ) Then
c := c + 1 ;
For i := 1 To c Do
Begin
If ( a = 1 ) Then
Begin
x1 := x1 + 21 ;
x2 := x2 + 21 ;
End ;
If ( a = 2 ) Then
Begin
y1 := y1 - 14 ;
y2 := y2 - 14 ;
End ;
If ( a = 3 ) Then
Begin
x1 := x1 - 21 ;
x2 := x2 - 21 ;
End ;
If ( a = 4 ) Then
Begin
y1 := y1 + 14 ;
y2 := y2 + 14 ;
End ;
If ( x1 = 485 ) And ( x2 = 517 ) Then
x2 := x2 - 2 ;
If ( y1 = 325 ) And ( y2 = 345 ) Then
y2 := y2 - 7 ;
If ( x2 > 515 ) Then
Break ;
If ( FindColorTolerance ( x , y , color , x1 , y1 , x2 , y2 , tolerance )
) Or
( FindColorTolerance ( x , y , color2 , x1 , y1 , x2 , y2 , tolerance )
) Or
( FindColorTolerance ( x , y , color3 , x1 , y1 , x2 , y2 , tolerance )
)or
( FindColorTolerance ( x , y , color4 , x1 , y1 , x2 , y2 , tolerance )
)or
( FindColorTolerance ( x , y , color5 , x1 , y1 , x2 , y2 , tolerance )) then
Begin
MMouse ( x , y , 0 , 0 )
Wait ( 20 + Random ( 20 ) )
cx := x ;
cy := y ;
If ( IsUpTextMulti ( Text , Text2 , Text3 ) Or IsUpTextMulti ( Text4 ,
Text5 ,
Text6 ) ) Then
Begin
Result := True ;
Break ;
End ;
End ;
End ;
If ( a = 4 ) Then
a := 0 ;
Until ( x2 > 515 ) Or ( Result = True ) ;
End ;
End ;
Function NearestObjPort ( Var cx , cy : Integer ; Text , Text2 , Text3 , Text4 ,
Text5 ,
Text6 : String ; color , color2 , color3 , color4, color5, tolerance : Integer ) : Boolean ;
Var
x , y , a , c , i , x1 , y1 , x2 , y2 : Integer ;
Begin
If ( FindMSColorTol ( x , y , color , tolerance ) ) Or ( FindMSColorTol ( x , y
, color2 ,
tolerance ) ) Or ( FindMSColorTol ( x , y , color3 , tolerance ) ) or
( FindMSColorTol ( x , y , color4 , tolerance ) ) Or ( FindMSColorTol ( x , y , color5 , tolerance ) ) then
Begin
x1 := 245 ;
y1 := 165 ;
x2 := 277 ;
y2 := 185 ;
Repeat
If ( Not ( Loggedin ) ) Then
break ;
a := a + 1 ;
If ( a = 1 ) Then
c := c + 1 ;
If ( a = 3 ) Then
c := c + 1 ;
For i := 1 To c Do
Begin
If ( a = 1 ) Then
Begin
x1 := x1 + 21 ;
x2 := x2 + 21 ;
End ;
If ( a = 2 ) Then
Begin
y1 := y1 - 14 ;
y2 := y2 - 14 ;
End ;
If ( a = 3 ) Then
Begin
x1 := x1 - 21 ;
x2 := x2 - 21 ;
End ;
If ( a = 4 ) Then
Begin
y1 := y1 + 14 ;
y2 := y2 + 14 ;
End ;
If ( x1 = 485 ) And ( x2 = 517 ) Then
x2 := x2 - 2 ;
If ( y1 = 325 ) And ( y2 = 345 ) Then
y2 := y2 - 7 ;
If ( x2 > 515 ) Then
Break ;
If ( FindColorTolerance ( x , y , color , x1 , y1 , x2 , y2 , tolerance )
) Or
( FindColorTolerance ( x , y , color2 , x1 , y1 , x2 , y2 , tolerance )
) Or
( FindColorTolerance ( x , y , color3 , x1 , y1 , x2 , y2 , tolerance )
)or
( FindColorTolerance ( x , y , color4 , x1 , y1 , x2 , y2 , tolerance )
)or
( FindColorTolerance ( x , y , color5 , x1 , y1 , x2 , y2 , tolerance )) then
Begin
MMouse ( x , y , 0 , 0 )
Wait ( 20 + Random ( 20 ) )
cx := x ;
cy := y ;
If ( IsUpTextMulti ( Text , Text2 , Text3 ) Or IsUpTextMulti ( Text4 ,
Text5 ,
Text6 ) ) Then
Begin
Result := True ;
Break ;
End ;
End ;
End ;
If ( a = 4 ) Then
a := 0 ;
Until ( x2 > 515 ) Or ( Result = True ) ;
End ;
End ;
Function FindObjAreaMTR ( Var x , y : integer ; ObjectText1 , ObjectText2 ,
ObjectText3 , ObjectText4 , ObjectText5 , ObjectText6 : String ; x1 , y1 , x2
, y2 ,
ObjectColor , ObjectTolerance , RandS : Integer ; Center : Boolean ) : Boolean
;
Var
Pointss : TPointArray ;
Numss , CenX , CenY , Ra , Rb : Integer ;
Begin
Ra := Ra + random ( RandS ) ;
Numss := 0 ;
If ( Center ) Then
Begin
CenX := x2 / 2 ;
CenY := y2 / 2 ;
FindColorsSpiralTolerance ( CenX , CenY , Pointss , ObjectColor , x1 , y1 ,
x2 , y2 ,
ObjectTolerance )
End
Else
Begin
FindColorsTolerance ( Pointss , ObjectColor , x1 , y1 , x2 , y2 ,
ObjectTolerance ) ;
End ;
If ( GetArrayLength ( Pointss ) <> 0 ) Then
Begin
Repeat
If Not ( loggedIn ) Then
Exit ;
If ( Rb >= Ra ) Then
Begin
MMouse ( Pointss [ Numss ] .x , Pointss [ Numss ] .y , 0 , 0 ) ;
wait ( 450 + random ( 50 ) ) ;
If ( IsUpTextMulti ( ObjectText1 , ObjectText2 , ObjectText3 ) Or
IsUpTextMulti ( ObjectText4 , ObjectText5 , ObjectText6 ) ) Then
Begin
Result := True ;
x := Pointss [ Numss ] .x ;
y := Pointss [ Numss ] .y ;
End
Else
Begin
Numss := Numss + 1 ;
End ;
End
Else
Begin
Rb := Rb + 1 ;
Numss := Numss + 1 ;
End ;
Until ( Numss = GetArrayLength ( Pointss ) ) Or ( Result )
End ;
End ;
Function FindObjectMTR ( Var x , y : integer ; ObjectText1 , ObjectText2 ,
ObjectText3 ,
ObjectText4 , ObjectText5 , ObjectText6 : String ; ObjectColor ,
ObjectTolerance ,
RandS : Integer ; Center : Boolean ) : Boolean ;
Begin
Result := FindObjAreaMTR ( x , y , ObjectText1 , ObjectText2 , ObjectText3 ,
ObjectText4 , ObjectText5 , ObjectText6 , 1 , 1 , 515 , 336 , ObjectColor ,
ObjectTolerance , RandS , Center )
End ;
Procedure getbank ;
Begin
If ( BankSym = 0 ) Then
Begin
MarkTime ( Mark ) ;
Repeat
If Not ( loggedIn ) Then
Exit ;
wait ( 100 + random ( 10 ) )
Until ( findsymbol ( x , y , 'bank' ) Or ( TimeFromMark ( Mark ) > 12000 ) )
BankSym := GetSymbolColor ( x , y , 'bank' ) ;
If ( BankSym = 0 ) Then
Begin
writeln ( ' Could Not Get Bank Color.. ' ) ;
writeln ( ' Please switch worlds and try again ' )
LogOut ;
DisguiseScar ( 'ERROR' )
TerminateScript ;
End ;
writeln ( ' Bank Color: ' + IntToStr ( BankSym ) + ';' ) ;
End ;
End ;
Procedure Colorshit ;
Begin
If ( MagicSym = 0 ) Then
Begin
MarkTime ( Mark ) ;
Repeat
If Not ( loggedIn ) Then
Exit ;
wait ( 100 + random ( 10 ) )
Until ( findsymbol ( x , y , 'magic shop' ) Or ( TimeFromMark ( Mark ) > 3000
) )
MagicSym := GetSymbolColor ( x , y , 'magic shop' ) ;
If ( MagicSym = 0 ) Then
Begin
Repeat
If Not ( loggedIn ) Then
Exit ;
wait ( 100 + random ( 10 ) )
Until ( findsymbol ( x , y , 'transportation' ) Or ( TimeFromMark ( Mark )
> 12000 ) )
MagicSym := GetSymbolColor ( x , y , 'transportation' ) ;
If ( MagicSym = 0 ) Then
Begin
writeln ( ' Could Not Get Magic Shop Color.. Restart Script' ) ;
TerminateScript ;
End ;
writeln ( ' Magic Shop Color: ' + IntToStr ( MagicSym ) + ';' ) ;
End ;
End ;
End ;
Procedure randomwalk ;
Var
x , y : integer ;
Begin
;
BenMouse := True ;
Mouse ( 626 , 100 , 1 , 1 , true )
SetRun1 ( True ) ;
GameTab ( 4 ) ;
While ( FlagPresent ) Do
Boredhuman ;
WalkingRandomactivitys ;
MoveMouseAround ;
FFlag ( 2 + Random ( 5 ) ) ;
Repeat
If Not ( loggedIn ) Then
Exit ;
Wait ( 100 + Random ( 200 ) )
Until ( FindSymbol ( x , y , 'anvil' ) )
If ( Findsymbol ( x , y , 'anvil' ) ) Then
While ( FlagPresent ) Do
MoveMouseAround ;
Mouse ( x - 10 , y - 5 , 1 , 1 , true )
FFlag ( 2 + Random ( 5 ) ) ;
Repeat
If Not ( loggedIn ) Then
Exit ;
Wait ( 100 + Random ( 200 ) )
Until ( FindSymbol ( x , y , 'magic shop' ) ) Or ( FindSymbol ( x , y ,
'transportation' ) )
If ( findsymbol ( x , y , 'magic shop' ) ) Then
While ( FlagPresent ) Do
MoveMouseAround ;
Mouse ( x , y , 0 , 0 , true )
FFlag ( 2 + Random ( 5 ) ) ;
End ;
Const
version = '1,5' ;
Procedure terms ;
Begin
;
WriteLn ( ' ** Ess Miner 2007 Terms ** ' )
WriteLn ( ' --> This script has been coded by Bigfish58 and cannont be edited '
)
WriteLn ( ' Or changed in anyway' )
WriteLn ( ' --> ONLY Bigfish58 is allowed to sell this script TO ANYONE' )
WriteLn ( ' --> You must not attempt to remove the auth ' )
WriteLn ( ' --> If you recived this from any one but Bigfish58, you are using it'
)
WriteLn ( ' Illegally and MUST send me there email address!' )
End ;
Procedure introtext ;
Begin
;
WriteLn ( ' Welcome ' + AuthUser + '. Thanks for purchasing Ess Miner 2007!' )
Wait ( 100 )
Writeln ( ' _______ _______ __ ' )
Wait ( 100 )
Writeln ( '| ___|.-----.-----. | | |__|.-----.-----.----.' )
Wait ( 100 )
WriteLn ( '| ___||__ --|__ --| | | || | -__| _|' )
Wait ( 100 )
WriteLn ( '|_______||_____|_____| |__|_|__|__||__|__|_____|__| ' )
WriteLn ( '' )
Writeln ( ' ______ ______ ______ ______ ' )
Wait ( 100 )
Writeln ( '|__ | | | | ' )
Wait ( 100 )
Writeln ( '| __| -- | -- |_ | ' )
Wait ( 100 )
Writeln ( '|______|______|______| |____| ' )
Wait ( 100 )
WriteLn ( ' By Dumb Ass Script0rs ' )
Wait ( 1000 )
WriteLn ( 'Script will start in ' )
Wait ( 500 )
WriteLn ( '3' )
Wait ( 1000 )
WriteLn ( '2' )
Wait ( 1000 )
WriteLn ( '1' )
AddToReport ( ' !!CREDITS!! ' )
AddToReport ( ' [HOME] ' )
AddToReport ( ' ToneKray ' )
End ;
Procedure Progress ;
Begin
cst := getsystemTime ;
srt := ( cst - sst ) / 1000 ;
tih := srt / 3600 ;
tim := ( srt / 60 ) - tih * 60 ;
tis := srt - tim * 60 - tih * 3600 ;
awt := wet - wst
SRLRandomsReport ;
Writeln ( '___________ By Bigfish58 _____ __ ' )
Writeln ( '\_ _____/ ______ ______ / \ |__| ____ ___________ ' )
Writeln ( ' | __)_ / ___// ___/ / \ / \| |/ \_/ __ \_ __ \ ' )
Writeln ( ' | \\___ \ \___ \ / Y \ | | \ ___/| | \/ ' )
Writeln ( '/_______ /____ >____ > \____|__ /__|___| /\___ >__| ' )
Writeln ( ' \/ \/ \/ \/ \/ \/ ' )
Writeln ( 'Travelled : ' + IntToStr ( Trips ) + ' / ' + IntToStr (
HowTrips ) +
' Trip''s.' ) ;
Writeln ( 'Worked : ' + inttostr ( tih ) + ' Hour''s ' + inttostr ( tim )
+
' Min''s ' + inttostr ( tis ) + ' Sec''s' ) ;
End ;
Procedure Randomwalkselecter ;
Begin
Case random ( 2 ) Of
0 : randomWalk ;
1 : randomwalk ;
End ;
End ;
Procedure TalkToAubr ;
Begin
Repeat
If ( Not ( loggedin ) ) Then
Break ;
If NearestObjMT ( x , y , 'A' , 'Aubury' , 'Aub' , 'bury' , 'A' , 'Aub' ,
2087158 ,
4870481 ,
2899022 ,
1872854 ,
15724529,
2051445, 5 ) Then
Mouse ( x , y , 0 , 0 , False )
Wait ( 50 + Random ( 50 ) )
Until ( Chooseoption ( x , y , 'Teleport' ) )
Wait ( 7000 + Random ( 1000 ) )
End ;
Procedure BackShop ;
Begin
If ( FindSymbol ( x , y , 'transportation' ) ) Then
Begin
Mouse ( x , y , 5 , 5 , true )
FFlag ( 2 + Random ( 5 ) ) ;
Wait ( 500 + Random ( 500 ) )
Repeat
If ( NearestObjPort ( x , y , 'Portal' , 'Port' , 'orta' , 'tal' , 'al' ,
'rtal' ,
9678001 , 12447987 , 8623514 , 11259346 , 9213855, 1 ) )then
GetMousePos ( x , y )
Case Random ( 2 ) Of
0 : Begin Mouse ( x , y , 0 , 0 , false ) ; Wait ( 100 + Random ( 50 ) ) ; ChooseOption ( x , y , 'Use' ) ; FFlag ( 2 + Random ( 5 ) ) ; End;
1 : Begin Mouse ( x , y , 3 , 2 , true ) ; FFlag ( 2 + Random ( 5 ) ) ; End ;
end;
Until ( Not ( FindColorSpiralTolerance ( x , y , 5922389 , MSX1 , MSX2 , MSY1
, MSY2 , 1 ) ) )
Wait ( 4000 + Random ( 2000 ) )
End ;
end;
Procedure LoadBmb ;
Begin
arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
'6225E26225E26225E26225');
cong := BitmapFromString ( 35 , 19 , 'z78DACD97410EC3200C04BF94' +
'56AA448E20E5FF5F6AD5F6606476B38E49D31C7C48C078581 B9C5' +
'66B2BB521DBEAB6DE7F6A793C4A5474EEF27ACAF2B19363CE 73C9' +
'16514CE0F22C5C055D23CAC23DA4B89468B95DEBA3DC74BAD 389F' +
'4BCF291DBF7F62BF0FC8D13F9C99C18FACEFB6895F12057A1 3A32' +
'91ADBE818EAE4207E3052EB44AB7E27B6E8608E561F75EC86 DC86' +
'52334A41D9753101201FF966B87C8EDC30E91726A79D2A037 3E32' +
'E0F39076F0AB905D6896A2FE4122A4693457E91912AE5F30A BCB4' +
'F94FFE06C4127E76015BD52E65ADE1508377240A3AB88E4CE 275F' +
'299711E931FB9BD42A7B2D8BDCFF2BF7FBE9447AD7812ACB7 329B' +
'75EB4EF4591730AFDCF885AD86BF1BDCAF4F67FF047FC04AA 82AD' +
'E5' ) ;
End ;
Function BankAllEss ( Colour : Integer ) : Integer ;
Begin;
If ( FindColorSpiralTolerance ( x , y , Colour , 607, 216 , 727, 461 , 1 ) )
Then
Begin
Mouse ( x , y , 1 , 1 , false )
Wait ( 500 + Random ( 200 ) )
ChooseOption ( x , y , 'Store All' )
End ;
End ;
procedure OpenBank4;
var
x, y, fs, fs2: Integer;
begin
fs := 0;
fs2 := 0;
if not BankScreen then
repeat
If NearestObjMT(x, y, 'Use', 'Bank', 'Us', 'ank', 'Use ', 'nk', 7772329,
7772329, 7772329,5658720,5532020,2974847 , 10) Then
Mouse(x, y, 4, 4, False)
else
If FindObjectMTR(x, y, 'Use', 'Bank', 'Us', 'ank', 'Use ', 'nk',
7772329, 10, 0, True) Then
Mouse(x, y, 4, 4, False)
Wait(250+Random(300));
if (ClickOption('quickly', 1)) then
begin
Flag;
BankAllEss(4280897);
repeat
Wait(100);
fs := fs + 1;
until (BankScreen) or (fs >= 50);
end;
fs2 := fs2 + 1;
until (BankScreen) or (fs2 > 5);
end;
Procedure backtobank ;
Begin
;
If ( FindColorSpiralTolerance ( x , y , MagicSym , MMX1 , MMY1 , MMX2 , MMY2 ,
1 ) ) Or
( FindSymbol ( x , y , 'transportation' ) ) Then
Begin
;
Rands ;
mouse ( 677 , 56 , 1 , 2 , true )
While ( FlagPresent ) Do
MoveMouseAround ;
Boredhuman ;
FFlag ( 2 + Random ( 5 ) ) ;
Wait ( 1000 + Random ( 500 ) )
If ( FindColorSpiralTolerance ( x , y , BankSym , MMX1 , MMY1 , MMX2 , MMY2
, 1 ) ) Then
Wait ( 1000 )
Mouse ( x , y , 2 , 2 , true )
While ( FlagPresent ) Do
FindNormalRandoms ;
MoveMouseAround ;
FFlag ( 2 + Random ( 5 ) ) ;
Wait ( 500 + Random ( 200 ) )
End ;
End ;
Procedure CheckVer ;
Begin
Writeln ( '' ) ;
Writeln ( ' --- CHECKING VERSION --- ' )
Writeln ( '' ) ;
If ( Trim ( Lowercase ( GetPage ( 'http://tomsot10.100webspace.net/ver.txt' ) )
)
= '1.5' ) Then
Begin
DisguiseScar ( 'Correct Version!' ) ;
Writeln ( '' ) ;
Writeln ( ' *** CORRECT VERSION *** ' )
Writeln ( '' ) ;
End
Else
Begin
DisguiseScar ( 'Need Update!' ) ;
Writeln ( '' ) ;
Writeln ( ' *** BAD VERSION *** ' )
Writeln ( '' ) ;
Writeln ( 'You Have Version ' + version + ' Current Is ' +
( Trim ( Lowercase ( GetPage ( 'http://tomsot10.100webspace.net/ver.txt' )
) ) ) ) ;
Writeln ( '' ) ;
Writeln ( '' ) ;
TerminateScript ;
End ;
End ;
Function FindMime1 : Boolean ;
Var
ax , ay : Integer ;
Begin
If ( FindColor ( ax , ay , 11503238 , 10 , 350 , 479 , 433 ) ) Then
Begin
Mimes := Mimes + 1 ;
Result := True ;
Writeln ( 'Mime Founded, Logging out...' )
LogOut ;
End ;
End ;
Function SolveFrog1 : Boolean ;
Var
FrogTimer , x , y , tx , ty , a , c , cc , CrownColor , i , x1 , y1 , x2 , y2
: Integer ;
Begin
If GetColor ( 650 , 185 ) <> 4902398 Then
Begin
If findcoloredareatolerance ( x , y , 8096848 , MMX1 , MMY1 , MMX2 , MMY2 ,
100 , 20 ) Then
c := getcolor ( x , y ) ;
If findcoloredareatolerance ( x , y , 6189365 , MMX1 , MMY1 , MMX2 , MMY2 ,
100 , 20 ) Then
c := getcolor ( x , y ) ;
x := 0 ;
y := 0 ;
a := 0 ;
For x1 := 570 To 730 Do
For y1 := 5 To 150 Do
If GetColor ( x1 , y1 ) = c Then
Begin
x := x + x1 ;
y := y + y1 ;
a := a + 1 ;
End ;
If a = 0 Then
a := 1 ;
x := x Div a ;
y := y Div a ;
MouseFlag ( x , y , 3 , 3 ) ;
a := 0 ;
x1 := 245 ;
y1 := 165 ;
x2 := 277 ;
y2 := 185 ;
MarkTime ( FrogTimer ) ;
Repeat
If Not ( loggedIn ) Then
Exit ;
If ( TimeFromMark ( FrogTimer ) > 60000 ) Then
Begin
Repeat
If Not ( loggedIn ) Then
Exit ;
Wait ( 1000 ) ;
Until ( Not ( LoggedIn ) ) ;
Result := False ;
NoFrogs := NoFrogs + 1 ;
LogOut ;
Exit ;
End ;
a := a + 1 ;
If ( a = 1 ) Then
c := c + 1 ;
If ( a = 3 ) Then
c := c + 1 ;
For i := 1 To c Do
Begin
If ( a = 1 ) Then
Begin
x1 := x1 + 30 ;
x2 := x2 + 30 ;
End ;
If ( a = 2 ) Then
Begin
y1 := y1 - 20 ;
y2 := y2 - 20 ;
End ;
If ( a = 3 ) Then
Begin
x1 := x1 - 30 ;
x2 := x2 - 30 ;
End ;
If ( a = 4 ) Then
Begin
y1 := y1 + 20 ;
y2 := y2 + 20 ;
End ;
If ( x1 = 485 ) And ( x2 = 517 ) Then
x2 := x2 - 2 ;
If ( y1 = 325 ) And ( y2 = 345 ) Then
y2 := y2 - 7 ;
If ( x1 > 515 ) Then
Break ;
If ( FindColorTolerance ( x , y , 3526651 , x1 , y1 , x2 , y2 , 20 ) )
Then
Begin
MMouse ( x , y , 3 , 3 ) ;
If ( Option2 ( 'alk' ) ) Then
Begin
For cc := 1 To 20 Do
Begin
If ( FindColorTolerance ( tx , ty , 3460859 , x - 20 , y - 20 , x
+ 20 , y
+ 20 , cc ) ) Then
Begin
CrownColor := GetColor ( tx , ty ) ;
Break ;
End ;
End ;
If ( FindColor ( tx , ty , CrownColor , x - 20 , y - 20 , x + 20 , y
+ 20 ) )
And
( Not ( FindColoredAreaTolerance ( tx , tx , 2965499 , x - 25 , y
- 25 , x
+ 25 , y + 25 , 4 , 20 ) ) ) Then
Begin
Mouse ( x , y , 3 , 3 , false ) ;
ClickOption ( 'Talk' , 1 ) ;
FFlag ( 2 + Random ( 5 ) ) ;
Wait ( 2000 + random ( 1000 ) ) ;
TalkToRand ;
Mouse ( 256 , 401 , 3 , 3 , true ) ;
Wait ( 5000 + random ( 1000 ) ) ;
TalkToRand ;
Result := true ;
Frogs := Frogs + 1 ;
Break ;
End ;
End ;
End ;
End ;
If ( a = 4 ) Then
a := 0 ;
If x2 > 515 Then
Begin
x1 := 245 ;
y1 := 165 ;
x2 := 277 ;
y2 := 185 ;
a := 0 ;
c := 0 ;
End ;
Until ( x2 > 515 ) Or ( Result = true )
End ;
Repeat
If Not ( loggedIn ) Then
Exit ;
wait ( 1000 + Random ( 500 ) ) ;
Until ( GetColor ( 650 , 185 ) = 49023980 ) Or ( Not LoggedIn ) ;
End ;
Function FindNewBox1 : Boolean ;
Var
xb , yb : integer ;
Begin
If FindBitMapToleranceIn ( NewBox , xb , yb , MIX1 , MIY1 , MIX2 , MIY2 , 20 )
Then
Begin
Result := True ;
End ;
End ;
Procedure Minethatess ;
Begin ;
If ( NearestObjEss ( x , y , 'Mine' , 'ine' , 'ne' , 'Min' , 'Mi' , 'in' ,
4938078 ,
10855857 , 10461099 , 10526892, 5987427, 1 ) ) Then
Begin
Case Random ( 2 ) Of
0 :
Begin
;
Repeat
If Not ( loggedIn ) Then
Exit ;
Mouse ( x , y , 1 , 1 , false ) ;
Wait ( 500 + Random ( 300 ) ) ;
Until ( ChooseOption ( x , y , 'Mine' ) ) ;
End ;
1 :
Begin
;
Mouse ( x , y , 1 , 1 , true ) ;
End ;
End ;
End ;
(I destroyed parts of the script, so no one copy!)
Theres an error here...
Line 124 : [Error] (19367:1) : Duplicate identifier 'MouseSpeedMark' in script.
Note that this is only from Bigfish's buyer's. Please! help!



' ) ;
' ) ;
Reply With Quote

