tehq
2012-04-15 14:49:27
1. Fill in the details of the account you would like to use.*(If you wish to use an account that is already saved, please begin at step 4. Accounts currently work with tAlch & tTeleport.)
2. Fill in the information for the script to use.
3. Save the data for future applications. (See C:\Simba\TehScripts\Accounts and C:\Simba\TehScripts\tTeleport.)
*Note: See C:\Simba\TehScripts\Stats after each run for overall usage.
4. *(or 1.) Load an account that you have previously saved.
5. Begin the script!
** If you wish to change the Script info without changing the Account info.. First, select the account. Then, clear the account text box. Finally, edit the info you wish to change, save, and begin the script.**
program Teleporter;
{$DEFINE SMART}
{$i SRL/srl.simba}
var
Count, Magic_XP, Antibans, Waits, Mxph, AR: Integer;
i, StartTime: integer;
User1, Pass1, StatsUser1, StatsPass1, World1, DoAntibans, DoBreaking,
ToWhere: string;
Accs: Array of string;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := User1;
Pass := Pass1;
BoxRewards := ['amp', 'XP', 'Xp'];
LampSkill := SKILL_MAGIC;
Active := True;
end;
end;
Procedure Run;
begin
SRL_SIXHOURFIX := TRUE;
SMART_FIXSPEED := TRUE;
SetupSRL;
SetupSRLStats(1010, StatsUser1, StatsPass1);
DeclarePlayers;
if not LoggedIn then
begin
repeat
LoginPlayerToLob;
until LobbyScreen;
OpenWorldScreen;
if not WorldScreen then
OpenWorldScreen;
if WorldScreen then
begin
Writeln('Selecting world: ' + (World1));
SelectWorld(StrToInt(World1));
LoginPlayer;
end;
end;
if LoggedIn then
begin
ClickNorth(SRL_ANGLE_HIGH);
ExitSquealOfFortune;
SetChat('off', CHAT_ASSIST);
SetChat('off', CHAT_PUBLIC);
Setchat('off', CHAT_PRIVATE);
FTab(tab_Inv);
end;
Wait(1000 + RandomRange(-200, 300));
if FindNormalRandoms or FindNonInventoryRandoms then
Exit;
Antibans := 0;
Waits := 0;
AR := 0;
SetAngle(SRL_ANGLE_HIGH);
MouseSpeed := RandomRange(8, 15);
end;
Var
LoadCount, TeleType, THI, Runs: Integer;
frmDesign: TForm;
BeginButton, SaveButton: TButton;
TitleLabel, UserLabel, PassLabel, InventoryLabel, StatsUserLabel,
StatsPassLabel, TeleLabel, WNumLabel, AccLabel, EocLabel, ExLabel: TLabel;
User, Pass, Inventory, StatsUser, StatsPass, InvNum, WNum: TEdit;
Acc, Eoc, ListTele, ListEx: TComboBox;
ImageTH: TImage;
RefTime: TTimer;
Procedure ButtonClick(Sender: TObject);
begin
frmDesign.ModalResult := mrOk;
if (Acc.TEXT <> '') then
begin
if not FileExists('C:\Simba\TehScripts\Accounts\' + Acc.TEXT) or not FileExists('C:\Simba\TehScripts\tTeleport\' + Acc.TEXT) then
begin
Writeln('Could not locate your player information.. Terminating script.');
TerminateScript;
end;
User1 := ReadINI('Name', 'Name', 'C:\Simba\TehScripts\Accounts\' + (Acc.TEXT));
Pass1 := ReadINI('Pass', 'Pass', 'C:\Simba\TehScripts\Accounts\' + (Acc.TEXT));
StatsUser1 := ReadINI('StatsName', 'StatsName', 'C:\Simba\TehScripts\Accounts\' + (Acc.TEXT));
StatsPass1 := ReadINI('StatsPass', 'StatsPass', 'C:\Simba\TehScripts\Accounts\' + (Acc.TEXT));
World1 := ReadINI('World', 'World', 'C:\Simba\TehScripts\tTeleport\' + Acc.TEXT);
Runs := StrToIntDef(ReadINI('Times Run', 'Times Run', 'C:\Simba\TehScripts\Stats\tTeleport\' + Acc.TEXT), 0);
LoadCount := StrToIntDef(ReadINI('Total Loads', 'Total Loads', 'C:\Simba\TehScripts\tTeleport\' + Acc.TEXT), -1);
DoAntibans := ReadINI('Antiban', 'Antiban', 'C:\Simba\TehScripts\tTeleport\' + Acc.TEXT);
DoBreaking := ReadINI('Antiban', 'Antiban', 'C:\Simba\TehScripts\tTeleport\' + Acc.TEXT);
ToWhere := ReadINI('Location', 'Location', 'C:\Simba\TehScripts\tTeleport\' + Acc.TEXT);
end else
begin
User1 := User.TEXT;
Pass1 := Pass.TEXT;
StatsUser1 := StatsUser.TEXT;
StatsPass1 := StatsPass.TEXT;
World1 := WNum.TEXT;
Runs := StrToIntDef(ReadINI('Times Run', 'Times Run', 'C:\Simba\TehScripts\Stats\tTeleport.txt'), 0);
LoadCount := StrToInt(Inventory.TEXT);
DoAntibans := ListEx.TEXT;
DoBreaking := ListEx.TEXT;
ToWhere := ListTele.TEXT;
end;
Wait(2000 + RandomRange(-500, 600));
ClearDebug;
RefTime.Enabled := False;
WriteLn('Thanks for using Teh''s Teleporter. Please leave some feedback.');
FreeBitmap(THI);
end;
Procedure ButtonClick2(Sender: TObject); //saves player info
begin
//ClearDebug;
if FileExists(AppPath + 'TehScripts\Accounts\' + (User.TEXT)+ '.txt') then
DeleteFile(AppPath + 'TehScripts\Accounts\' + (User.TEXT)+ '.txt');
if FileExists(AppPath + 'TehScripts\tTeleport\' + (User.TEXT) + '.txt') then
DeleteFile(AppPath + 'TehScripts\tTeleport\' + (User.TEXT) + '.txt');
if (User.TEXT <> '') then
begin
WriteINI('Name', 'Name', User.TEXT, 'C:\Simba\TehScripts\Accounts\' + (User.TEXT) + '.txt');
WriteINI('Pass', 'Pass', Pass.TEXT, 'C:\Simba\TehScripts\Accounts\' + (User.TEXT) + '.txt');
WriteINI('StatsName', 'StatsName', StatsUser.TEXT, 'C:\Simba\TehScripts\Accounts\' + (User.TEXT) + '.txt');
WriteINI('StatsPass', 'StatsPass', StatsPass.TEXT, 'C:\Simba\TehScripts\Accounts\' + (User.TEXT) + '.txt');
Acc.Items.Add(User.TEXT + '.txt');
WriteINI('Total Loads', 'Total Loads', Inventory.TEXT, 'C:\Simba\TehScripts\tTeleport\' + (User.TEXT) + '.txt');
WriteINI('World', 'World', WNum.TEXT, 'C:\Simba\TehScripts\tTeleport\' + (User.TEXT) + '.txt');
WriteINI('Antiban', 'Antiban', ListEx.TEXT, 'C:\Simba\TehScripts\tTeleport\' + (User.TEXT) + '.txt');
WriteINI('Location', 'Location', ListTele.TEXT, 'C:\Simba\TehScripts\tTeleport\' + (User.TEXT) + '.txt');
end else
Writeln('Please enter a username to save your information.');
WriteLn('Info saved to Simba\TehScripts.');
end;
Procedure OnTimer(Sender: TObject);
begin
if (Acc.TEXT <> '') then
begin
User.TEXT := ReadINI('Name', 'Name', 'C:\Simba\TehScripts\Accounts\' + (Acc.TEXT));
Pass.TEXT := ReadINI('Pass', 'Pass', 'C:\Simba\TehScripts\Accounts\' + (Acc.TEXT));
StatsUser.TEXT := ReadINI('StatsName', 'StatsName', 'C:\Simba\TehScripts\Accounts\' + (Acc.TEXT));
StatsPass.TEXT := ReadINI('StatsPass', 'StatsPass', 'C:\Simba\TehScripts\Accounts\' + (Acc.TEXT));
WNum.TEXT := ReadINI('World', 'World', 'C:\Simba\TehScripts\tTeleport\' + Acc.TEXT);
Inventory.TEXT := ReadINI('Total Loads', 'Total Loads', 'C:\Simba\TehScripts\tTeleport\' + Acc.TEXT);
ListEX.TEXT := ReadINI('Antiban', 'Antiban', 'C:\Simba\TehScripts\tTeleport\' + Acc.TEXT);
ListTele.TEXT := ReadINI('Location', 'Location', 'C:\Simba\TehScripts\tTeleport\' + Acc.TEXT);
end;
end;
Procedure FinishStats;
var
CurrXP, CurrTime: integer;
begin
if (Runs < 1) then
WriteINI('Times Run', 'Times Run', IntToStr(1), 'C:\Simba\TehScripts\Stats\tTeleport.txt')
else
WriteINI('Times Run', 'Times Run', IntToStr(Runs + 1), 'C:\Simba\TehScripts\Stats\tTeleport.txt');
CurrTime := StrToIntDef(ReadINI('Time Running (sec)', 'Time Running (sec)', 'C:\Simba\TehScripts\Stats\tTeleport.txt'), 0);
CurrXP := StrToIntDef(ReadINI('Total XP Gained', 'Total XP Gained', 'C:\Simba\TehScripts\Stats\tTeleport.txt'), 0);
WriteINI('Time Running (sec)', 'Time Running (sec)', IntToStr(CurrTime + Round(TimeFromMark(StartTime)/1000)), 'C:\Simba\TehScripts\Stats\tTeleport.txt');
WriteINI('Total XP Gained', 'Total XP Gained', IntToStr(Magic_XP + CurrXP), 'C:\Simba\TehScripts\Stats\tTeleport.txt');
end;
Procedure CreateFolders();
begin
ClearDebug;
if not DirectoryExists(AppPath + 'TehScripts') then
begin
CreateDirectory(AppPath + 'TehScripts');
CreateDirectory(AppPath + 'TehScripts\tSuperheat');
CreateDirectory(AppPath + 'TehScripts\tAlch');
CreateDirectory(AppPath + 'TehScripts\tTeleport');
CreateDirectory(AppPath + 'TehScripts\tAgility');
CreateDirectory(AppPath + 'TehScripts\tVial');
CreateDirectory(AppPath + 'TehScripts\tQuest');
CreateDirectory(AppPath + 'TehScripts\tWoodcutting');
CreateDirectory(AppPath + 'TehScripts\Accounts');
CreateDirectory(AppPath + 'TehScripts\Stats');
Writeln('Successfully created the directories that are used in my scripts.');
end else
Writeln('Please delete the TehScripts directory in your Simba folder and try again.');
end;
Procedure InitForm;
begin
frmDesign := TForm.Create(nil);;
frmDesign.Left := 270;
frmDesign.Top := 50;
frmDesign.Width := 800;
frmDesign.Height := 500;
frmDesign.Caption := 'Teh''s Teleporter';
frmDesign.Font.Color := ClBlack;
frmDesign.Font.Name := 'Calibri';
frmDesign.Color := ClNavy;
BeginButton := TButton.Create(FrmDesign);
BeginButton.Parent := frmDesign;
BeginButton.Left := 650;
BeginButton.Top := 350;
BeginButton.Height := 30;
BeginButton.Width := 105;
BeginButton.Caption := 'Begin Script';
BeginButton.OnClick := @ButtonClick;
SaveButton := TButton.Create(FrmDesign);
SaveButton.Parent := FrmDesign;
SaveButton.Left := 650;
SaveButton.Top := 300;
SaveButton.Height := 30;
SaveButton.Width := 105;
SaveButton.Caption := 'Save Info';
SaveButton.OnClick := @ButtonClick2;
TitleLabel := TLabel.Create(FrmDesign);
TitleLabel.Parent := FrmDesign;
TitleLabel.Left := 275;
TitleLabel.Top := 10;
TitleLabel.Caption := 'Teh''s Teleporter';
TitleLabel.Font.Size := 30;
TitleLabel.Font.Color := ClWhite;
TitleLabel.Font.Name := 'Calibri';
User := TEdit.Create(FrmDesign);
User.Parent := FrmDesign;
User.Top := 100;
User.Left := 200;
User.Width := 140;
User.Height := 20;
UserLabel := TLabel.Create(FrmDesign);
UserLabel.Parent := FrmDesign;
UserLabel.Top := 100;
UserLabel.Left := 80;
UserLabel.Caption := 'Username';
UserLabel.FONT.Color := ClWhite;
StatsUser := TEdit.Create(FrmDesign);
StatsUser.Parent := FrmDesign;
StatsUser.Top := 200;
StatsUser.Left := 200;
StatsUser.Width := 140;
StatsUser.Height := 20;
StatsUser.Text := '';
StatsUserLabel := TLabel.Create(FrmDesign);
StatsUserLabel.Parent := FrmDesign;
StatsUserLabel.Top := 200;
StatsUserLabel.Left := 80;
StatsUserLabel.Caption := 'Stats User';
StatsUserLabel.FONT.Color := ClWhite;
StatsPass := TEdit.Create(FrmDesign);
StatsPass.Parent := FrmDesign;
StatsPass.Top := 250;
StatsPass.Left := 200;
StatsPass.Width := 140;
StatsPass.Height := 20;
StatsPass.Text := '';
StatsPassLabel := TLabel.Create(FrmDesign);
StatsPassLabel.Parent := FrmDesign;
StatsPassLabel.Top := 250;
StatsPassLabel.Left := 80;
StatsPassLabel.Caption := 'Stats Pass';
StatsPassLabel.FONT.Color := ClWhite;
WNum := TEdit.Create(FrmDesign);
WNum.Parent := FrmDesign;
WNum.Top := 200;
WNum.Left := 450;
WNum.Width := 140;
WNum.Height := 20;
WNum.Text := '44';
WNum.MAXLENGTH := 3;
WNumLabel := TLabel.Create(FrmDesign);
WNumLabel.Parent := FrmDesign;
WNumLabel.Top := 200;
WNumLabel.Left := 370;
WNumLabel.Caption := 'RS World';
WNumLabel.FONT.Color := ClWhite;
Pass := TEdit.Create(FrmDesign);
Pass.Parent := FrmDesign;
Pass.Top := 150;
Pass.Left := 200;
Pass.Width := 140;
Pass.Height := 20;
PassLabel := TLabel.Create(FrmDesign);
PassLabel.Parent := FrmDesign;
PassLabel.Top := 150;
PassLabel.Left := 80;
PassLabel.Caption := 'Password';
PassLabel.FONT.Color := ClWhite;
Inventory := TEdit.Create(FrmDesign);
Inventory.Parent := FrmDesign;
Inventory.Top := 150;
Inventory.Left := 450;
Inventory.Width := 140;
Inventory.Height := 20;
Inventory.TEXT := '75';
Inventory.MAXLENGTH := 4;
InventoryLabel := TLabel.Create(FrmDesign);
InventoryLabel.Parent := FrmDesign;
InventoryLabel.Top := 150;
InventoryLabel.Left := 370;
InventoryLabel.Caption := '# of Ports';
InventoryLabel.FONT.Color := ClWhite;
ListTele := TComboBox.Create(FrmDesign);
ListTele.Parent := FrmDesign;
ListTele.Top := 250;
ListTele.Left := 450;
ListTele.Width := 140;
ListTele.Height := 20;
ListTele.Items.Add('Varrock');
ListTele.Items.Add('Camelot');
ListTele.Items.Add('Lumbridge');
ListTele.Items.Add('Falador');
TeleLabel := TLabel.Create(FrmDesign);
TeleLabel.Parent := FrmDesign;
TeleLabel.Top := 250;
TeleLabel.Left := 370;
TeleLabel.Caption := 'To where?';
TeleLabel.FONT.Color := ClWhite;
ListEx := TComboBox.Create(FrmDesign);
ListEx.Parent := FrmDesign;
ListEx.Top := 350;
ListEx.Left := 450;
ListEx.Width := 140;
ListEx.Height := 20;
ListEx.Items.Add('Yes');
ListEx.Items.Add('No');
ExLabel := TLabel.Create(FrmDesign);
ExLabel.Parent := FrmDesign;
ExLabel.Top := 350;
ExLabel.Left := 370;
ExLabel.Caption := 'Antiban?';
ExLabel.FONT.Color := ClWhite;
Eoc := TComboBox.Create(FrmDesign);
Eoc.Parent := FrmDesign;
Eoc.Top := 100;
Eoc.Left := 450;
Eoc.Width := 140;
Eoc.Height := 150;
Eoc.Items.Add('Yes');
Eoc.Items.Add('No');
EocLabel := TLabel.Create(FrmDesign);
EocLabel.Parent := FrmDesign;
EocLabel.Top := 100;
EocLabel.Left := 370;
EocLabel.Caption := 'EoC?';
EocLabel.FONT.Color := ClWhite;
Accs := GetFiles(AppPath + 'TehScripts\Accounts\', 'txt');
Acc := TComboBox.Create(FrmDesign);
Acc.Parent := FrmDesign;
Acc.Top := 350;
Acc.Left := 200;
Acc.Width := 140;
Acc.Height := 150;
for i := 0 to high(Accs) do
Acc.Items.Add(Accs[i]);
AccLabel := TLabel.Create(FrmDesign);
AccLabel.Parent := FrmDesign;
AccLabel.Top := 350;
AccLabel.Left := 80;
AccLabel.Caption := 'Account?';
AccLabel.FONT.Color := ClWhite;
RefTime := TTimer.Create(FrmDesign);
RefTime.Interval := 200;
RefTime.OnTimer := @OnTimer;
RefTime.Enabled := True;
ImageTH := TImage.Create(FrmDesign);
ImageTH.Parent := FrmDesign;
ImageTH.Left := 652;
ImageTH.Top := 100;
ImageTH.Width := 101;
ImageTH.Height := 158;
THI := BitmapFromString(101, 158, 'meJzVnSuQ47zShhcaGoYGGgaaGgYamhoKBoYsCAwcGDpw4MClCxcuXPrDDx74nZZaanW3LpaT2VP1T3VNJY6vj99utS6Wu+XUL1O/zMGmbjlZG+3yzqydmTu/TvzJ24LrzHY1/Eka/DpcDe7/4PZTMX+4i/GfqyvrMwnnU1uzZYcLXVeggZcmLjlh5c9/Jlzl3cImS2m1w2UFa8TF9yPuTp3Ay5TSA5F+oh4yuOwZwkXhB9ykgosdBS9zTY44BVwzP0TpDBWuVjHst8LR1RJ+tg6dwGVBHcZTDZeZ+U3HNTsvQu+P/Lh2h4DLCFb8plRw/e8tPR97niN9nfny1Jhs5nSHeMlhc8Q1I6J4LIEr7tYuFzfFH4vvZ682Ghe271mem0OR4MI4w4JM8XYrt3XrLMiHbgfDJcjgUZJ9RlzplXLU6V37Qs8tQebLuX/hNYZfRVAKWOKaDMLi+TDJhV3NqGoUNiwMZaU6q8Udbq6E+sOoT1veoOJl7uJZIabPB/UQJJEpqi6mN8HR2HLn2gtwoIWcPD9tWJLF5a7aHi4XEwLnkROY8Y7UUZT89AliqpDCdewlhysKrsFwuZBONNi2djWGaybyfOe4kHDxyG/XDJ7YyRDhWU2LwkW3rKSoRmk1Ik13i7iQmDuTJRhzxouJuEx0RuRQwsV9J5Vc2HBxTj2lp2d3Pp6GUUvrkAt02atrIaaiYgsxf9X+SvX5I64kxDk+QjY6zgtcRhTKIZrNdCy+CZ7SOM+Iy4UvwaruXP58TOHajb58zq3lLuDJIzF//qNYGYM/x4WXkMFlMulWBpfbkB8r3YRwOTtT1FIqLRIr4arapkt6DTCB4SWIzV21jookWHI8nZKglGEVy0rDjhXujmc1Zm4fbHIcTmCICz5gEakUknKrwMy6aulr6qTRTBFXz6I9Eutc4Z7FlbASuEgbFPHSS6YV7FbHoyKGZ+JZGWtKBrAJZS+bQtpgon6SLkzXTo4jN1w8LgcTWJ1GXeT5dHd053w8dl2PhuePVycOZBK2bAXERcS8nTYuCtb/9u1bPLSjR4fO8mkpKfCs5H5C9pXEavwVBWZ/ddIq4mKguHGN+a0KIZfieQbXULxMxPuN/dHN8pdpJh4Q6mWlgkZi5ufMBaZ0jkUYpq/AiuPyl2ZmiMywnCPipw3rDOtMxavAleicWgNSXDmBhWRsPH2Tf3hccbEs6KWsii5s6MRY+DJMYDLVRFxYuynh8nc/UOLnfOj8VWtNZgRGuas9VooLlqSs8Eq/JX8eV8JK3aYmYkz2XF3KJbm67MJ5IVxWLaFogM94LVlcFK7BQISs/XBSGgupvstbxkhpGDP+yHEpT8Q/ez7SlZQvKy/bzNB43YRXHv0VpZFN4QoCs59dqOFxPtXGgAWBwsVP2IVHrBbZAw0ZYpwV5GPooWAZVTtc/PJVHSobptIEg6r5TGBzBOWW8MKLbvphnA9DKBnnhbZCx9m0vrf//Z7NpI1Vxrm0tD/6k3c1Vq46KWxUNZzqwBI2US8oeagpfo2lNv9gfN2ZIoyPZrbpVeHyOaddgYkqVRov3DWueFYz7NMKNWQjpE+xz4hrUrpV5Qv9FDxLVDkzrJbkDibrRAc0ohbjObDlNnyNMdQTcI9rPHW5FELjgggWCl86B5v0BkQqsHNuXqL85JMVsnEgONdcuE17cIn2Lo2LiPloP/rSXOPCgLALF8tpMwnDoLOIRF3O+prvE0BVLqQxc5sYjxixWie6JHier3ChHrg4bUBow8W1lHe3LQJUUxAJfGL0k8BlcliU0lKY8St3wynW+0JFMsR8h2uYCJfwZczYCym9il2vW4QmjwhiQ72pG5SqS9U9W3wwLCngYnl+rOnYM+TZdYhvVBH4n+BSkWpTz1SS4lV3rAIoisiqcT6SmA5rvs5iJnQlpi6Bi3vHl+AitVSsDRfvsl86lcZsxitnsv3cN/0lDQUzp6Fw6fSjwR8bQUFR8nZ/fH7+XI2pQ9vERdLyrFJczeqK2bXLeWwqpeXHmpRz6uJpm5f3C7iA0vfv39/fP8GAlTP7eVlMidjm4WSEmTdYZZW2RFwkJ8w8db7NI5vxOZLGFaoDLeGr7negqNv97Q1wfXy+ffwEUI/HOyyE/7BkWZYU2qYnsvaoJY9rST6rvIKVfRwXVMF03stb4BNcopoZTqN+CSVQYOd5AWld338gotuP/wA6+Hz7+G1xvX/eHg+b70nf3HBGjOQBl/DEnJDoKnQRwAQGH2zmeZzAgBhUQzheWytx1cM8Ll172hCYQoTWuRwA4FzfPq8f/wAWQHT78S98vb3/gg8e1/0NeO7CxUrAxXc81aOTKjSXzAoH1+g3HSYkBnfwNJ7df/p89kuO0Vzt9Wx7Tlcvv9it1lC+xysK0rK4Pv6xuBwii+vjDy0BXMAKVKdKzI3AxVhVApcIv6UsggV8oEG4QjXnDJVTges4aXPLx8m7MLWRNmZEyAo/WFzvv8ztJ3w2bz+tJzqDz9N6Q4EBLkBKmtzGNZ4IF3bSlXIGEZ95YsYDl4/edjVPoyd1MQtYBKhe4MKdiIbrPQIDg4QBtHS+vJnHDwfqX2f/gSX2Vq63N+mMinb+XiwYhUJv5pjLSJNkiY9D4C1gVNhFXFlWR+aVZVzUS9uYgCmDnVinC6Jyny2ut1//grklf1BdtkGGRbxNXF5g2JuWYxWLM/2T/ByrQjM5I4bxAbt7jpP3UASFxHrtjK6LOdczsg/Xcnn/HYj960OWp+e+vnl1DW0tRR3F+VwI0tIyYZhZJSWjssC14nJcJK2Iywf/4LN9Hhfv5dmFC5wOi8WsWZK3N7DL/X2cTcsOfZyvsDJRWrYnpQJqkYnEMhEul30FYhHXlJaMGVyskf/gOv524TJvv1BgKavL7RNivrNfsGYTLhmpfIiQqQKxypBMkq64H6kuHbhEanFOcWFTYWx3ZWNT8z4yrt8O+icI5lAsAo2UFSwkVmCN6tIeVPBEP85zi5ISZMkZJS4UGC9DveQ0rmoCdjjC1jdFDLIXFJh5Qz6/UGzIar1+Lndr6+29XVocVM4TQ12yGq+yW3FnpLxdphYiU41OekRcM69denNFmALlb/10yxIDGtaun2jAByS3XD6A5DjfICXGHp8WXDVQsvHqNVxn4YwiE6PsS658pF42XcHk/R22W3Y2/TDbr4NBYvCVhzjAgoaIwENpSXsY7NyQjHxsl251GHU1p1QgKmJw1RVcwT3P3hMjLm9sUE2wsGe6BHsI+5Pppjc0i2sxeIvHdb3cH1xX+OEcpJV6NGo1LVAoyG/gKkWnFBdVjkICJnGdVexiuFTJ6FWnQpbID9mF4BiJfrlHYosfFLfero/P37YQfI+xK5iN8z9+/vY9Gla0s912mAF4WgTrUTcvGzX3kaEzWmLZCrVKw45Kh+dYRWU9I3h/pSSOEz5EE3BhDQUuEOo4ILDx+uYzB2aw5PH5B3ABUjdOb46bz1fYoQ5oy6lJWu240tr3MuVx9diqc0L5+XVixuVVF+O8FFh667nA4P84e7yX+32++MbwM2Skti3iD9QfT6sB+/Pnz3q/h04KQ8rEoSw6hWhwsV3tz9kqUgUXSauASze6ylRwSgXmR1wwtlDBmVjfASCiz0Dy/eOTPDGwugOrbIWIisWvVBe1mobrAjI1dQlcZxHixo2KKr8WSB6gemj9DgwKiNAUCawAi2j1DfZ///xzcdKijmArTrOe5yWfoO7NDTZtYcV9Ay5eT9TrMFyiTGQH4v74rZv7o4ErhT/bLH9/gIEbgnmGq3jm5Xy7ctWBMgesma4z3LWuy9SzvpiV4VfHcIkaoszqc1VFTiymfOrO0tNhEte3wQ7mAWiQIUCKhY3zn58/kR58RQNR3R4P+G8/3G0V+7v7W40F3vWrtVI+nxRnT/og9UTIzg5d8B0LxMYMriFUtBWxeMQgMHBGxAV2cm3XGIugEg3x/Pr2SanX5f4OAH///g35GNi4fqyQr84LGKCGnQArgJ8NXI2g6qvF/YTaJe8WQXej6F0UWA4XNlaHpldhsT2/O6L1IDDAdbD/bUE5+bwCcF0+fvf3n93y3l8+r+8/IGoBwG55wK9QIxgne0TcthssK4XLsiq3txdpbDsjmX+UGBbKjLSC65xT10nUzYXFlRGXqxqc8e6EsmMZpyvIabi9rcvj0V0gmT++/3r8/AMfgNVhujhWFj7IsnfmWPFhNht9E+rXCqtCfdw7DspMNT57mTXgKlDK4ILNFS5O7Hi5z6O5dSsahDWo/gzDBVjh+aCuCBdnVZeK6rnYJ62ceVzBGanxWTQ162JRqwvHNtdwxSagiMuXyMcz4Lp0Mxiwgv+Qg8ISTGOQVddDvDLoxb6qnms1rfgdC0c72iJiIz/bBM+cWm8irj5CK+Eio6b+Mq5zisveJkjGJmOAUrAZcC1XxOUKQYNFIaortgW1NSlwOe3WlRoDwHBFT+Rt8lwG6eUnDhiBl3FBwKfdHuc7kHG4zmTTsEJ4Py6Pfrh6UBCsAi5sSbMtjZu4lnylb7cPyk04rpijcmdM89gyMWTuZHbWMlPqgqgFuOY7CAyWL98mMPhgGwOX69E8+scvLAS9HSIu+3nrwnWYKnfO7jLWv+OiN2fFHUel/eFzLmoFSqqMOHobuxPHdRqMcz37E/63ywHX5TOAmmwD7LD244pdjTbyj6I7foPVV9iBEglWodaUNK58AtZURB6jwGxBORiPC5YAMQvN5hVoHtfBDXIeLKssrmwa/zdY9aG10CsKcfVJ/nCU3ipbpP2oEhUVaQyPlx+xWjgu+6CKw2XFRugGA18Dro+Qhc4clxXbYHE9zcpPYeEyz/aUFdekMUtaV9kWVNnKGnHVDjTjGMV+vNi2+qMBtdjEdVqPt5/WzIMMQHl05tGBYSE4riku+Fro6CkOtomsGsdeqsFL+IRdCZc0GigOBgLgTToDs+xB7YECLjDrXKCZYerf/1j7/Ke/f0KuBf+t4UKoE81Xr67Jb4i4oFjEUJbi0t2vBWn5EV8FsOrMVV3Y+2A2vHNcLIenFrDYbBisdGedQxmPa1pD7mQQDrDy4+WQ1eMXSAtXs8FKqStUHtWQ2goiJT8U2HNJhajyJBkXfd3Cda7gssTmxbFaLa5RVJAtNKgqLlfb4PD+B0B9O/HnMk4kS/gAmrRx3uFKW42442Q9sQ8DmZ7MKxYW4bmQkiDG036FKzpmFteicVm1qOaXabXeJ0H5n8BnubpcE5Bvmhjn9ECN/hVnsSidcPb5DmrvYnAELhnqKXZh+KKaMhErRX6Ga1XqqpvDFdVlB1pYXNOTuJpN9TvE3gTpjL4Wk4tdSl0U8LmJFkh+9MkrJHXGPbhWCPvOGV0mNrW2cT1jmckx3IWwRwzosSN6vp4elOuXiZ4aS3FRDwgbiiPLlIjL+pStA2Kuvlddy92P5EnV9bXSCq3NqcVB4GEFztBjZMrMRnuurtQlubrs5WN7O9agnVr4AHIkiUasfCLBcFny+wSzZ81Ffl40mZ5m8TIaV4yQLjxy/1XE8AEQ0SOAGra5E6nL4+qHK0R4a5B6OeuWd9sEPd0IpsIFBWhn/dFnqq+3MDStmXNGXI7jxJKHgHS4070hEl3o6o3t9iHV9CWjbZMBLJhlYaZKH9CgoHS42IYrxi5U1/O42jGmGjPeGfnDkvjwta3TES6TwZV6YiHBsP9dMkBp6sUqiliF1FQvgXWGq5SlC/WuZNyB62mkucCFuMjXsD5Fj/ZnXZicsUJJWfApl0gAAZQWICpZgKZwUSIRcDX36XwRMepVD8TcNBEKl25qOO3CZRtRvbpWVJdzxocnhuELKeFn/AoZ/vJoxPWXGm3Sa48zRzFidiHiym01jPnEvopLqAvb/frLp0AkDVhBoVnANftGiXnhjw//RcvlYLT8QDOz5VZuxBW7RSIuH7ugNg0Ksf0U89XmBimu5Y7jBKgGZNvqE1wutUhGaHwJHFOEo5a7aUnUtDO1UL8Hl1eXmCkCpxFYrraWDYl6Z+OA7eY+2l4zwiVC/aBwtRB4CmmBQOqh2eWUd+13RlEy0uRLloxtovfTsMCebfIwTEQyry6PCxPX5qt+mpXRENS8QxFXjvBTuGII4rgADuKivl23JOCCas4o8lsMZYTL1oM2OTzHqiqtyrRyGVxH4rBLXatSF2xu4WBveFCXHb7V+/ktrW+OKu8KbTiDb298JijtlZbRoASr8spopSavBlwidmVxQXoccUV1heZBW0ycnsfVRkyMsSxEpNoUfFLVh2cSiQwu22hfxxXVZby6xhlLVddCaL64HlTy4janK8U6Gl7+LK61ggsl5+eY1bhAXSs+lB3U9XdxVQJUe+z6e7gooBVxjX4+utiGU8KVesdTuHZF9ay97Iyrn/xn8GRocrwWXPj0uh0soXBl+byAqza9aoOH0oYvh3qPC9sG9+LqaFYK1SiRmwLiC2KXTBtKMz1W7PWS0V6vk1YJF6ZermSUWT3HZQWmUy+hhK/DVRJPC7H9zjipNBUuFgfYL4vxQnJ6I1woMKcujYtPJdEPc6bFnp9/I5NK6CtoaXMaZFptr7qsEmSd8TwvOE0QWDI9zuli7mCLa3ZLcalZdDL9Qe1BnolEtCc0QNtk9XTs8q4n1QXE8LECV5vWU3ihjfNN4rooXHZo3CnPCutx/mmaBterPd9Xju3p5LTpwmdwMWKE6/v379lZqsANzeU6D36YE4Z0j+soZnfMj+kNTUyn7BMW7AEKeowitpHWVdpcGnJ6u3ApR1O4lLRIYNf1Oh101zD2nqPR0w2wXF8XawSIT/iyeq6q6sJX7DMt4trKHJTAFLFdoT6dtgtxwRWBM5amQYPAZdVFY4k7wUrZLqlnS6ISrjQ6lVwvS+yJ2KUnduuOyqFK5oew9jVQKTGvnK5qktV08IeoqasgnpayoP2GUnh5wloolQTmFzbgopU3cBkNodEl+ejBbVydxNX9LVz6lJrVlceV8MmTaVDgLlw4/O//Cy7VlaNCUz2OlcS2K7rGZ50ozv9NXLHIq+JSJaNQF/NHVcDxadD4wgoxPhau0RO5wJpwdf7/l6grH8FYMsb3UKtMleN8tuZI0oJybS+uKLAGZ/Tr78fFz6oW6g87cG2Wetk0HiVqR564OVXUGMu6J2ZGuP2vcKXE1Got6oooJEYFLU29XLtBqzPSk3Rdbr6aErrorU84YxcHNKY/CffMBa4KLuFopigzncwfPa4WdZEnogOWcB3Zu8yOw4meWXsOlw3j/QauUrEocFVT0Kz3peoiXJvqgnMWjwCXXunlatO6eRCHWA/7PZEKvl7HK/5rTV1LEuQbGr5K1o6r7+ZNVnVcKqrswvVc0uXVtUiB5VxvU3touM/NkrGXT+JveiL1BL2Iq5VYozMmXRvWxkxpKHyQvYWQO0iFFU7yQDlDRVpZXNTb+CW41PJRlp4c1+mopZWN5Nn8QXALm1PJCP9LIYvmxJhC001FWiku3tv4BK6UWIYhSyE4LjtAq1ph3KQXBLbWEwl/dyIrlo7m5vbJ4tICexlX0Tfr6koqQdl2hpLSrIXpyBCXfaXLSayM73mhZ8yBEhy60RP/Hi4ipn4aWW7WiGtTYCLW4XO4S5RWxDX6/3aMR5BWAMhxHfkUUqi9I3sdYUqshGuqNqvWV+a40pUjrrKWVH4ltMfSD/8+8YCLg0IjXBZR8p5ZYMUn+cFfOa5MOlHGtYtYFl0Nl8kkD2mWleqNLwdcnXvR5+gahYiSINa5KUTcZy0tOYXUJi607NWpIq+dkopdG7iS8lEIz2REKOjhezkHl6lyXKMQGJcW4cI5RvgEZQf5KucSMYGIHnBLkoQNXKr4ruDqa7iipa9LSxql41tfE0oUpmx4H0/2jRKsTIysetOxhuhduEhg83EG8xcOH8C2oKXZDj7Rk64ZR3rnWiRi/NHvn8rk/GHWhTWDi6UW83AG46rArhw70VkX5j17Chex8riOdiKmdVzhaxrS68SwBzZdrTLYW1jIE5RLqmfNEFe/TCVcRMw7TiHBLl0Ob69LWeE6HpezmYixG9RCjBqElaWemE8bLiaFSc+gxSBGM3tIXHBpREllrY24Wi4W94+IgNU6GTQLsHc/9RvQIq5BNK1kcKW6GpmXSXX5zBNDugxxOLMHhazeDdg4z4s954CrxOolXN1EbjgHaaGBumCFq7lf5iuXGTp+Xsa9b1oRNur6dV5dARcvK30j86jZ0muyh8v6eLxPVwMfxnnmETie2NfhGlng4ubmMhZLSpsjPd8CGbrFOS7xKGKhRYKriycP9PLKLC7YZL4YfJ3Wer9zXGMowrLh6xVcFLiEQcnCvmbTg1RdY6c90atLFYtZr4RY5HD5h/rZNBH4xJnE62ePGa4G54PFdwLiadMppbheATUmcd7N1GQna8LykYfNSluWckaFS9RlSn3TGLodLuqpTPdPEfJ09MOiDuMMsQKH/9mRRfYSzsITGa4XWVlP7M8UuMLEVn5uK+2bSYmTVZdiRX6UJp8JsaCuIbO30l3zIfcwYTmFN5oibelsXyemcE2JP9ZdktSliYmHhXUFkC2cFa7s/ovE3KniyU/MGb8QV+YOen88e1xtob5+H7M+qGrWjtjyCq5soCjdwVdw8RPzEX6IrHhu3IiLYhd+yEaqXFa/UK6ebTBp4cNPg376ElylI1KZSCLftTfKUX0KUX4oOGmcibiy/Xq71MXtdVwtGn5ub3x5zLi2aosB1+xx5WpS/tp3PjD1euBq3G3jgdKd8ETiMJ5ECVjuWCRc3XKq4BqncmIzz+nCSjP70xf4VbtKtypGraRrQzhjAZedc35aduIqBpOWa2yRaLuG09NT9evU+9IadAmXulLEVVEXpPfTURMr4foSPx3DgJYWUFliVE8cOz3fSCmC+QpgaPSr4MK3gZSkBVXsFlzYOICzhr6OqxE7V+kGLt4QwUxM2hZxzVQy0pzMdIgKLlvnAFy5WfUaXYyaWahhMNvw8gqreuzSrRCS2HDljQ/+pRs4MSbFrn4xdERbPazgwgac3OntvczsT/QYi3+YheZY25JohRWqS+BKRMXVdXBDREKOGiandY02uAdI8rG+XMdli4CrfWkInR7Onlpi8gSuyh7wQ+WZjhZ16YwrabohXD7O0wvcGS5c4m8EvpU4hwtfNZjiqtQOSkWAfY3C2lTdqwt4L67ShEgC12WlCiOx0rguBi+/hOs0ZnGd+fM1ZCc2ZX2J1VD1L3WxWVx8Sd0Zx1D9iWRyhSOKis3SOfPpfAmXfdj5Yny7Fr6DPsHlndTh2rzveCzcVYri5N6sp3CpXW3iqvNh4o+4xu6Ud0Plj/gCa8YK25YJl52C5mK8h+ZwWdWFF2Fn01RFg782LmHlX4hZSe2+ytRAejGaqwRt8VcaXzHMOqPJd7BVh2ZAPbhsQUkLcZWqk0xa7F29oRiNNmVwKef6KlZq//HZ2GzgIlzhnfI+gpVx+V7+p3CRCVbrysdcwX/6ae8MVxLFtjLZxGsTCxEFXJyVeoF16OshXLDPOi7aSRaX0gPHBSvbNuRgXlrJ/neBwprCrq3wMtN2+JQYRi0+LTNVuhEXXaPwR3Y5A3ufrK0w5s6E31OFC1fAfme6cc/hIlFtxj31fFmmL6OMy792UL5uGLdNcXlibbjSqc8G+fJZKv4m14ZGOxn24yJWdthhodJRUZdq4/LokhzMnts1aoZl+B4XXkt4v96a4hKXn6hLP0EvXz7Lf+U72Vss8mCF7zTcsW2fwVVJupTAeAsYjuRhc2U7XG7lRlxFdbk3QWeXl7KRTVCv4MqIKq1iL0H8TGCsxi2HBIS2HRoljvFN4Frn+ty8MUGVzJVHE67Sruh9TJk74qqu9c1LuJScOvYUngvsMyUAUWDMH3vdSUS9kDMLjLFspW3VoeVU5HNavPpJ2puzEfcStMJPUIFq2APHJWYjkbj4ZXL9c4EpXOH/zATWhEtFSxpTgZu4i6Kpy2eOa9MBK2UB7mQXrjgzc86zAsBw5onAtBvKwTYU8Gk/vGBV0op6Fgf1pQzeGpX+DextzjRJvp+sxnkfj05pUfIELpWL5q49njmdJAlsG5dZD/FBKp225XPjeFBVV9XZsooGanM/nCxs6EazhPdmOqR7q5wWV3gio1IyRlxGC2wTF64shJG+HiIdfy4ZEpwUlziBOERqIXfgClT7p3tHxTrpc5CvjEerdMKmuGzpph0hc7YpLlIXY8XUlQRMAQoHk9M9kqw4dnnXFt8qwmu4i47SlQIrhSBm5q91APl4m4YOOttUYIiLuwxtS16W2yohRuWypHQIE/Kn58DP3ONKev0ErmIEzpSAYnkyUJDj+i+kajtl');
DrawBitmap(THI, ImageTH.canvas, 0, 0);
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;
var
VarrockBmp, LumbridgeBmp, CamelotBmp, FaladorBmp: Integer;
Bitmap, XPGain: integer;
StatsVar: String;
Uptext: TStringArray;
Procedure LoadBMPs;
begin
VarrockBmp := BitmapFromString(15, 13, 'meJybkZyXZhVBEM1Izvt1fWe4oU+mS+jP79+A6PihQ8gKju3dDhEHKgAq29zbCiSBCFkcohIo+P3tE6AIUAqiBqIFiGbWtQGlgAjIgIhUZeSjiUCQr6YDEL17eAsodXHxYgh37YplQC5QEMJFVgmRBUoBUaS5HRBB2EBBuAJk1OCXCVHQ0tAAdAOEDRTEqthByebZsX1ABUAfbVs4GcgAcoGCyArgyEbBAOiXZ1eOwRGQCxREUwNHQKcCTYMjIBdZFmi4kYwmsggwNCAqgQxkcaCyGelxQO0GIlpoSB9DBKjs4bbeq0tb0NTrY7CBCoDKjkwsBgBOB/Tu');
LumbridgeBmp := BitmapFromString(12, 12, 'meJxLs4pIgyBLMLKKyHQJLffzL3VMhnChJBj9/P4NiOBchCxYb7ihDxBB1VgiDIQrgygAou9vnwARkIFQY4mixlfTAaIGyEAoQ1UARO8e3gIiiBqIMrgVEAXIaiAITRaIHJRsIGpsFAyQxX017YEIKAtEQKlnV44BEZABQRBxuCwEPTu2DxPBZfGoMZLRBCIDES19bMgAjCBsACiEpLY=');
FaladorBmp := BitmapFromString(12, 13, 'meJxLs4pIIxr9/P4NE8Flww19gAirGogUHH1/+wSIfDUd4AhNAVAEosZByQarGojIu4e30BBcGVwXVjXICGgFRNxGwQCIMGWBCCj+7MoxIMJUA5GFoGfH9gERhA1xOVw7VjVoyEBECxkZy2jCpYxkNCGCkeZ2aMrQEFABAN1ZuHo=');
CamelotBmp := BitmapFromString(12, 13, 'meJxblF2TbRefbRuXZRebaRudYRMJQUB2lnUMUHxRdk2KVQQIWYYlWgQXB6S2ZVRBUJZLbJJFKEQ20Sw0zjQo1T7i0rEzf39+R0Yndx0ESsWbhUUZ+yfYBN06d+HX5w8Q9P75Uzg7xtgfqCxU33NJ77Qf714B0aOrVwoDk0L1XIG6Vk6YCRSJNvIBKvPTcrp65Mi3l4+BqDG1KFjXOULfPcrQC4jKQ9KjDH2AyEPN/svjOxDkrWGLrAbICNf3BFrkqmr56d41CAKygcYG67gArQMiIAOIArRdHBUtz23b+OHmeSAqj0oBKvNWswYaCERZHhHe6vZAZC9vMq2y7t3lE0B0bc/WOEcfoIiPtj1E0EXJCoispY2Aeq9sX//63EFMZCtrYiNjaiZpYCah76Nnt3vO9JcndyOjpe1tQCmgAgMxXUMxLQhy17YC2gVBNgrGEEGgAgDoSNxf');
end;
Procedure LoadTeleInfo;
begin
case Lowercase(ToWhere) of
'varrock':
begin
Bitmap := VarrockBmp;
Uptext := ['Varr', 'rroc'];
XPGain := 35;
StatsVar := 'Varrock Teleports (Casted)';
end;
'lumbridge':
begin
Bitmap := LumbridgeBmp;
Uptext := ['Lumb', 'brid'];
XPGain := 41;
StatsVar := 'Lumbridge Teleports (Casted)';
end;
'camelot':
begin
Bitmap := CamelotBmp;
Uptext := ['Came', 'elot'];
XPGain := 55;
StatsVar := 'Camelot Teleports (Casted)';
end;
'falador':
begin
Bitmap := FaladorBmp;
Uptext := ['Fala', 'ador'];
XPGain := 48;
StatsVar := 'Falador Teleports (Casted)';
end;
end;
end;
Function WaitFindBitmap(Bitmap: integer; var x, y: integer; xs, ys, xe, ye, Tolerance, WaitPerLoop, MaxTime: integer): boolean;
var
t: integer;
begin
t := (getSystemTime + MaxTime);
while (getSystemTime < t) do
begin
if (FindBitmapToleranceIn(Bitmap, x, y, xs, ys, xe, ye, Tolerance)) then
begin
result := true;
break;
end;
wait(WaitPerLoop);
end;
end;
Procedure Teleport;
var
x, y, TeleTime, CMin, NMin, p, CMin2, NMin2: integer;
CurrSymbols, NewSymbols, CNPCs, NNPCs: TPointArray;
CurrDist, NewDist, CurrDist2, NewDist2: array of integer;
begin
FindSymbols(CurrSymbols, 'water');
for p := 0 to length(CurrSymbols)-1 do
begin
SetLength(CurrDist, Length(CurrSymbols));
CurrDist[p] := Round(Distance(MMCX, MMCY, CurrSymbols[p].x, CurrSymbols[p].y));
end;
FindColorsTolerance(CNPCs, 131820, MMCX-50, MMCY-50, MMCX+50, MMCY+50, 5);
for p := 0 to length(CNPCs)-1 do
begin
SetLength(CurrDist2, Length(CNPCs));
writeln((CNPCS));
CurrDist2[p] := Round(Distance(MMCX, MMCY, CNPCS[p].x, CNPCS[p].y));
end;
CMin := MinA(CurrDist);
CMin2 := MinA(CurrDist2);
if WaitFindBitmap(Bitmap, x, y, MIX1, MIY1, MIX2, MIY2, 7, 500, 2000) then
begin
MarkTime(TeleTime);
MMouse(x, y, 5, 5);
if WaitUpTextMulti(Uptext, 1000) then
begin
ClickMouse2(True);
repeat
FindSymbolsMulti(NewSymbols, ['water']);
for p := 0 to length(NewSymbols)-1 do
begin
SetLength(NewDist, Length(NewSymbols));
NewDist[p] := Round(Distance(MMCX, MMCY, NewSymbols[p].x, NewSymbols[p].y));
end;
FindColorsTolerance(NNPCs, 131820, MMCX-50, MMCY-50, MMCX+50, MMCY+50, 5);
for p := 0 to length(NNPCs)-1 do
begin
SetLength(NewDist2, Length(NNPCs));
Writeln((NNPCS));
NewDist2[p] := Round(Distance(MMCX, MMCY, NNPCS[p].x, NNPCS[p].y));
end;
NMin2 := MinA(NewDist2);
NMin := MinA(NewDist);
wait(200);
until (CMin <> NMin) or (NMin2 <> CMin2) or (TimeFromMark(TeleTime) > 6000);
IncEx(Magic_XP, XPGain);
stats_IncVariable(StatsVar, 1);
end;
end else
FTab(tab_Magic);
end;
Procedure Antiban;
begin
case Random(250) of
50:
begin
HoverSkill('Magic', False);
Inc(Antibans);
end;
100:
begin
HoverSkill('Random', False);
Inc(Antibans);
end;
150:
begin
Boredhuman;
Inc(Antibans);
end;
200:
begin
RandomRClick;
Inc(Antibans);
end;
end;
end;
Procedure Breaking;
begin
case Random(200) of
50:
begin
Wait(16000 + RandomRange(-15999, 15999));
Inc(Waits);
end;
100:
begin
Wait(12000 + RandomRange(-11999, 11999));
Inc(Waits);
end;
150:
begin
Wait(9000 + RandomRange(-8999, 8999));
Inc(Waits);
end;
200:
begin
Wait(3000 + RandomRange(-2999, 2999));
Inc(Waits);
end;
end;
end;
Procedure Proggy;
begin
Mxph := Round((Magic_XP) / (GetTimeRunning / 3600000.0));
ClearDebug;
WriteLn('=-=-=-=-=-=-=-=-=-= Teleporter by Tehq =-=-=-=-=-=-=-=-=-=');
WriteLn(' Player: ' +(Players[0].Name) +' '+' Teleporting to: ' +ToWhere);
WriteLn(' Magic XP Gained: ' +IntToStr(Magic_XP)+' '+' Magic XP / Hour: ' +IntToStr(Mxph));
WriteLn(' Antibans done: ' +IntToStr(Antibans)+' '+' Small breaks taken: ' +IntToStr(Waits));
WriteLn('');
WriteLn(' Time Running: '+TimeRunning);
WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');
//stats_Commit;
end;
Procedure Every15;
begin
Inc(AR);
if (AR = 15) then
begin
AR := 0;
Proggy;
if FindNormalRandoms or FindNonInventoryRandoms then
Exit;
end;
end;
begin
CreateFolders;
MarkTime(StartTime);
SafeInitForm;
SafeShowFormModal;
Freeform(frmdesign);
Run;
LoadBMPs;
LoadTeleInfo;
repeat
AddOnTerminate('FinishStats');
Teleport;
if Lowercase(DoAntibans) = 'yes' then
Antiban;
if Lowercase(DoBreaking) = 'yes' then
Breaking;
Every15;
Inc(Count);
until (Count = LoadCount) or not LoggedIn;
FreeBitmap(FaladorBmp);
FreeBitmap(VarrockBmp);
FreeBitmap(CamelotBmp);
FreeBitmap(LumbridgeBmp);
end.