Wanted
2007-04-16 21:40:08
<!– BEGIN TEMPLATE: formanswers –>
Icefire908 - SRL Member Application Form
Icefire908
What is the meaning to life?
Bhudda is a douche.
Where you Referred to SRL? If yes, by whom?
No, I was not.
Programming Knowledge
Some Delphi, Some VB not a whole lot, I really wouldn't count it. Mainly SCAR and PASCAL.
Other Communitys
Scar-Scripts.com, Moparisthebest, Freddy1990.com, sythe, Sevenz.net
How Long have You Played Runescape
Past 3 or 4 years, something like that.
Are you affilated in anyway with Jagex LTD?
Hell No.
—————————————————–
Please write down a paragraph about Yourself.
My real name is James that's what I go by you can call me that instead of Ice or Icefire if you want but people might get confused who your talking about. I'm currently 17 years old attending my Junior Year in high school perusing a good education and a job as an engineer.
Well I've been working on learning this Pascal/ Scar program for quite a few months now and I've been part of the Runescape / Scar community for quite a while. I'm still trying to learn deeper into SCAR/Pascal's more advanced functions but right now I think I have the right amount of knowledge to teach and help others, you could call me a future leader but I would just be among the many that are here at SRL, although I hope to be one of the best some day.
I would have to say my specialty is making scripts as neat and good appearing as well as user friendly as possible. In other words you could call it I always put forth my very best effort.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is for SCAR 2.03 but I also think it will work for SCAR 3.02. Which ever works for you.
If you don't think this is good enough I'll just make a script ten times as good and come back in a month and re-apply.
Well I'd just like to say one last thing before you look through the script, It's my best attempt.
Well here it is love it or hate it.
If you need the bitmap just download it from
http://icefire908.freehostia.com/AirAlter.bmp
——————————————————
<!– END TEMPLATE: formanswers –>
Icefire908 - SRL Member Application Form
Icefire908
What is the meaning to life?
Bhudda is a douche.
Where you Referred to SRL? If yes, by whom?
No, I was not.
Programming Knowledge
Some Delphi, Some VB not a whole lot, I really wouldn't count it. Mainly SCAR and PASCAL.
Other Communitys
Scar-Scripts.com, Moparisthebest, Freddy1990.com, sythe, Sevenz.net
How Long have You Played Runescape
Past 3 or 4 years, something like that.
Are you affilated in anyway with Jagex LTD?
Hell No.
—————————————————–
Please write down a paragraph about Yourself.
My real name is James that's what I go by you can call me that instead of Ice or Icefire if you want but people might get confused who your talking about. I'm currently 17 years old attending my Junior Year in high school perusing a good education and a job as an engineer.
Well I've been working on learning this Pascal/ Scar program for quite a few months now and I've been part of the Runescape / Scar community for quite a while. I'm still trying to learn deeper into SCAR/Pascal's more advanced functions but right now I think I have the right amount of knowledge to teach and help others, you could call me a future leader but I would just be among the many that are here at SRL, although I hope to be one of the best some day.
I would have to say my specialty is making scripts as neat and good appearing as well as user friendly as possible. In other words you could call it I always put forth my very best effort.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is for SCAR 2.03 but I also think it will work for SCAR 3.02. Which ever works for you.
If you don't think this is good enough I'll just make a script ten times as good and come back in a month and re-apply.
Well I'd just like to say one last thing before you look through the script, It's my best attempt.
Well here it is love it or hate it.
If you need the bitmap just download it from
http://icefire908.freehostia.com/AirAlter.bmp
{ ---------------------------------------------------------------------------- ]
[ _____ .__ _________ _____ __ ]
[ / _ \ |__|______ \_ ___ \____________ _/ ____\/ |_ ___________ ]
[ / /_\ \| \_ __ \ / \ \/\_ __ \__ \\ __\\ __\/ __ \_ __ \ ]
[ / | \ || | \/ \ \____| | \// __ \| | | | \ ___/| | \/ ]
[ \____|__ /__||__| \______ /|__| (____ /__| |__| \___ >__| ]
[ \/ \/ \/ \/ ]
[ Version 3.1 by Icefire908 ]
[ ---------------------------------------------------------------------------- ]
[ ||||||||||||||||||||||||||||| WHAT IT DOES ||||||||||||||||||||||||||||||||| ]
[ ---------------------------------------------------------------------------- ]
[ Starts in Falador East Bank (the big one) withdrawals full load, takes it to ]
[ the temple ruins, crafts it, returns to bank, and finally it repeats however ]
[ many times you tell it to. Will log out if mod spotted or when lost. ]
[ ---------------------------------------------------------------------------- ]
[ o Auto Color - Yes, Fully-Auto; no color picking required at all. ]
[ o Multiplayers - Yes, Unlimited. ]
[ o Anti Randoms - Yes, More than you will ever need for an Air Crafter. ]
[ o Anti Ban - Yes, Straight from SRL. ]
[ ---------------------------------------------------------------------------- ]
[ |||||||||||||||||||||||||||||| REQUIRMENTS ||||||||||||||||||||||||||||||||| ]
[ ---------------------------------------------------------------------------- ]
[ o SCAR 2.03 NOT FOR SCAR 3.0 YET! ]
[ o SRL 3.6 -> villu-reborn.com to get it ]
[ o AirAlter.bmp -> icefire908.freehostia.com/AirAlter.bmp to get it. ]
[ o Air Tiara (equiped) ]
[ o Runescape Client by Jagex (Use V-Bright, Low Detail) ]
[ o Low Detail, DEFAULT JAVA recommended!! if not use unsigned applet. ]
[ o Rune Mysteries Quest Completed ]
[ o LEAST CROWDED WORLD AS POSSIBLE! ]
[ ---------------------------------------------------------------------------- ]
[ >> SETUP INSTRUCTIONS << ]
[ ---------------------------------------------------------------------------- ]
[ o Make sure you are Using SCAR 2.03 for this version until I update it. ]
[ o Put AirAlter.Bmp in the same folder with this script file. ]
[ o If you get the error "Cannot find AirAlter.bmp" go to line 694 and ]
[ change AirAlter.bmp to the exact file path. ]
[ if that doesn't work then do ./AirAlter.bmp with it in your SCAR Folder ]
[ o MUST use The Jagex Runescape Client, DO NOT use anything else. ]
[ o Start In Falador EAST Bank(The big one) 2nd closest bank booth towards ]
[ White Caslte. ]
[ o Your Air Tiara must be ON. YOU CANNOT USE A TALISMAN! ]
[ o Drag Cross Hairs over to Runescape Window. ]
[ o Ess in First bank slot, Pure ess in secound bank slot. ]
[ o Log out of Runescape, stay at the username/password screen (Log Screen) ]
[ o Run the Script, fill out the form, Watch the first trip or so...if it ]
[ doesn't work just try againn. ]
[ o If you are confused with anything just hover your mouse over it.(inform)]
[ o DO NOT TRY AND DELETE PLAYER 0! ]
[ o JUST CLICK RUN! NO OTHER SETUP REQUIRERED ]
[ o If you are confused about anything, press the 'help' button in the form.]
[ ---------------------------------------------------------------------------- ]
[ |||||||||||||||||||||||||||||||| CREDITS ||||||||||||||||||||||||||||||||||| ]
[ ---------------------------------------------------------------------------- ]
[ Script by Icefire908 ]
[ Junior - Got some GREAT ideas from your GREAT script thanks ]
[ Starblaster100 - Used your Header and news, Thanks looks nice =) ]
[ Kelvinc2 - Thanks for helping make the background picture! ]
[ SRL Developers - I am speechless, you guys are the best! ]
[ (Special Thanks : Kaitnieks, Freddy1990, Dylock, and other makers of SCAR!) ]
[ (Special Thanks Star) Your Power Skills helped me a great deal with my forms.]
[ (Special Thanks Junior) Your Air Crafter is great script! ]
[ ---------------------------------------------------------------------------- ]
[ |||||||||||||||||||||||||||||||| CONTACT ||||||||||||||||||||||||||||||||||| ]
[ ---------------------------------------------------------------------------- ]
[ Please post/report all bugs/proggys to me! ]
[ [url]http://www.villavu.com/forum/showthread.php?t=7551[/url] ]
[ [url]http://forum.scar-scripts.com/showthread.php?t=1259[/url] ]
[ [BEST WAY TO CONTACT] MSN : [email]Icefire908@netscape.net[/email] ]
[ AIM : Icefire908 ]
[ forum.scar-scripts.com : Icefire908 [MODERATOR] ]
[ villu-reborn.com : Icefire908 [SRL FORUMS USERNAME] ]
[ RS2 : Ranger2dude/ SSMiddleMan ]
[ ---------------------------------------------------------------------------- ]
[ ||||||||||||||||||||||||||||| SCRIPT HISTORY ||||||||||||||||||||||||||||||| ]
[ ---------------------------------------------------------------------------- ]
[ _4/11/07_Version 3.1____________________________________________________ ]
[ | Rewrote some stuff, Hopefully this works for everyone now. | ]
[ | Waling fixed! (I hope) | ]
[ | Still NOT Updated to work for SCAR 3.0 Divi | ]
[ ]
[ _4/05/07_Version 3.0____________________________________________________ ]
[ | Probably the biggest update yet, Walking if officialy fixed! | ]
[ | Anti-ban updated, Anti-ranomds updated, Bank symbol and tree symbol | ]
[ | should be more stable. | ]
[ ]
[ _4/01/07_Version 2.0____________________________________________________ ]
[ | Long Awaited Multiplayers are released!! Fully-Automatic color picking| ]
[ | All Banking errors hopefully fixed, Symbol Clicking should be more | ]
[ | Stable, Forms gone totaly pro w00t. If you continue to use this script| ]
[ | ReWrote Anti-Ban and Randoms + when they occur, should be good now. | ]
[ | Keep doing it and helping me out with your error reports. | ]
[ | Hopefull the walking will be 1337 in the next few releases. | ]
[ ]
[ _3/26/07_Version 1.95___________________________________________________ ]
[ | Fixed the part of the script goes to the bank booth, and opening booth| ]
[ | Currently working on Version 2.0, is a huge undertaking last release | ]
[ | For awhile =(, but script will be amazing with 2.0 =) | ]
[ | AirAlter.bmp Line has been changed to Line 381 | ]
[ ]
[ _3/25/07_Version 1.9____________________________________________________ ]
[ | Fixed both bank and symbol errors. Bank Pin Added! | ]
[ | Efficiency is 2.7 mins per a trip! | ]
[ ]
[ _3/25/07_Version 1.8____________________________________________________ ]
[ | Completly new banking procedure guaranteed to work from any angle! | ]
[ | This script has no-known erros, it's basicly flawless now!!! | ]
[ ]
[ _3/07/07_Version 1.2____________________________________________________ ]
[ | Fixed the portal error, getting inside the bank error, bank window | ]
[ | Error, and all other known errors from Past Versions and Betas | ]
[ ]
[ _3/06/07_Version 1.1____________________________________________________ ]
[ | Efficiency In Increased to 3 trips a min!, New bank find procedure, | ]
[ | Log outs when lost, Fixed anti-ban, Added the Latest News feature! | ]
[ | Fixed all walking known walking problems much more stable. | ]
[ ]
[ _2/19/07_Beta 2_________________________________________________________ ]
[ | Fixed a fatal flaw with the bank finding procedure, Same as beta 1 | ]
[ ]
[ _2/17/07_Beta 1_________________________________________________________ ]
[ | Finished and released. | ]
[ ]
[ ---------------------------------------------------------------------------- }
program IcefiresAirCrafterVersionTHREEReleaseSEVEN;
{.Include SRL/SRL.scar}
var //List of Most Variables in the Script.
LeftButton, RightButton, StartButton, CreatePlayerButton, DeletePlayerButton, HelpButton: TButton;
UsernameLabel, PasswordLabel, TripsLabel, BankPinLabel, ActiveLabel, lbluser: TLabel;
AirsPeress, TripsCompleted, AirsCrafted, BankBooth1, TotalTripsCompleted: Integer;
TotalScriptRUNS, TotalScriptAIRS, EXP, FormPic, TreeColor, CastleMote: Integer;
BankBooth2, BankBooth3, Tolerance, RuneCraftingLevel, mx, my: Integer;
StartScript: Boolean;
UsernameEdit, PasswordEdit, LoadsEdit, BankPinEdit: TEdit;
AirMainCrafterFileName: string;
IsActive: TCheckBox;
FrmDesign: TForm;
SkipItems: array[1..21] of string;
procedure SafePaint;
var
Canvas: TCanvas;
begin
Canvas := GetBitmapCanvas(FormPic);
SafeCopyCanvas(Canvas, frmDesign.Canvas, 0, 0, 500, 500, 0, 0, 500, 500);
end;
procedure PaintForm(Sender: TObject);
begin
SafePaint;
end;
procedure SafeInitForm; //Thanks Star and Yakman
var
V: TVariantArray;
begin
Setarraylength(V, 0);
ThreadSafeCall('InitForm', V);
end;
procedure ShowFormModal; //Thanks Star and Yakman
begin
FrmDesign.ShowModal;
end;
procedure SafeShowFormModal; //Thanks Star and Yakman
var
V: TVariantArray;
begin
Setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', V);
end;
procedure SavePlayersInForm(No: Integer); //Thanks Star and Yakman
begin
Players[no].Name := UsernameEdit.Text;
Players[no].Pass := PasswordEdit.Text;
Players[no].Skill := 'Magic';
Players[no].String1 := BankPinEdit.Text;
Players[no].String2 := LoadsEdit.Text;
Players[no].Active := IsActive.Checked;
end;
procedure LoadPlayersInForm(no: Integer); //Thanks Star and Yakman
begin
try
UsernameEdit.text := Players[no].Name;
PasswordEdit.Text := Players[no].Pass;
BankPinEdit.Text := Players[no].String1;
LoadsEdit.Text := Players[no].String2;
IsActive.Checked := Players[no].Active;
except
end;
end;
procedure SaveUs2; //Thanks Star and Yakman
var
f, CharsFile: Integer;
begin
if (AirMainCrafterFileName = '') then AirMainCrafterFileName := 'AirCrafter'
CharsFile := RewriteFile(ScriptPath + AirMainCrafterFileName + '.dat', False)
for f := 0 to GetArrayLength(players) - 1 do
begin
WriteFileString(CharsFile, 'name' + IntToStr(f) + '=' + players[f].name + Chr(13))
WriteFileString(CharsFile, 'pass' + IntToStr(f) + '=' + players[f].pass + Chr(13))
WriteFileString(CharsFile, 'string1' + IntToStr(f) + '=' + players[f].string1 + Chr(13))
WriteFileString(CharsFile, 'string2' + IntToStr(f) + '=' + players[f].string2 + Chr(13))
WriteFileString(CharsFile, 'active' + IntToStr(f) + '=' + BoolToStr(players[f].Active) + Chr(13))
end;
CloseFile(charsfile)
end;
procedure LoadUs2; //Thanks Star and Yakman
var
f, CharsFile, Temp: Integer;
begin
if (AirMainCrafterFileName = '') then AirMainCrafterFileName := 'AirCrafter';
CharsFile := OpenFile(ScriptPath + AirMainCrafterFileName + '.dat', False)
if (CharsFile < 0) then
begin
SaveUs2;
CharsFile := OpenFile(AppPath + filename + '.dat', False)
if (CharsFile < 0) then
begin
WriteLn('Error Loading Chars');
Exit;
end
end
ReadFileString(CharsFile, CharsFileString, FileSize(CharsFile))
CloseFile(CharsFile)
Temp := CountPlayers;
if (Temp <= 0) then Temp := 1;
SetArrayLength(players, Temp);
HowManyPlayers := GetArrayLength(players)
for f := 0 to HowManyPlayers - 1 do
begin
players[f].Name := GetFileData(f, 'name')
players[f].Pass := GetFileData(f, 'pass')
players[f].String1 := GetFileData(f, 'string1')
players[f].String2 := GetFileData(f, 'string2')
players[f].Active := StrToBool(GetFileData(f, 'active'))
end
CloseFile(CharsFile);
end;
procedure CreateNewUser(sender: Tobject); //Thanks Star and Yakman
begin
SavePlayersInForm(CurrentPlayer);
SetArrayLength(Players, GetArrayLength(Players) + 1);
CurrentPlayer := GetArrayLength(Players) - 1;
UsernameLabel.Caption := 'Username' + IntToStr(CurrentPlayer) + ':';
PasswordLabel.Caption := 'Password' + IntToStr(CurrentPlayer) + ':';
BankPinLabel.Caption := 'Bank Pin' + IntToStr(CurrentPlayer) + ':';
TripsLabel.Caption := 'Trips to do' + IntToStr(CurrentPlayer) + ':';
LblUser.Caption := 'Player # ' + IntToStr(CurrentPlayer);
end;
procedure DeleteAPlayer(sender: tobject); //Thanks Star and Yakman
begin
repeat
if (GetArrayLength(players) = 1) then break
SetArrayLength(players, GetArrayLength(players) - 1);
CurrentPlayer := GetArrayLength(Players) - 1;
UsernameLabel.Caption := 'Username' + IntToStr(CurrentPlayer) + ':';
PasswordLabel.Caption := 'Password' + IntToStr(CurrentPlayer) + ':';
BankPinLabel.Caption := 'Bank Pin' + IntToStr(CurrentPlayer) + ':';
TripsLabel.Caption := 'Trips to do' + IntToStr(CurrentPlayer) + ':';
LblUser.Caption := 'Player # ' + IntToStr(CurrentPlayer);
LoadPlayersInForm(CurrentPlayer);
until (True)
end;
procedure PressNextButton(sender: TObject); //Thanks Star and Yakman
begin
try
players[currentplayer + 1].name := players[currentplayer + 1].name
except
Exit;
end
SavePlayersInForm(CurrentPlayer);
CurrentPlayer := CurrentPlayer + 1;
UsernameLabel.Caption := 'Username' + IntToStr(CurrentPlayer) + ':';
PasswordLabel.Caption := 'Password' + IntToStr(CurrentPlayer) + ':';
BankPinLabel.Caption := 'Bank Pin' + IntToStr(CurrentPlayer) + ':';
TripsLabel.Caption := 'Trips to do' + IntToStr(CurrentPlayer) + ':';
LblUser.Caption := 'Player # ' + IntToStr(CurrentPlayer);
LoadPlayersInForm(CurrentPlayer);
end;
procedure PressBackButton(sender: tobject); //Thanks Star and Yakman
begin
if (Currentplayer <> 0) then
begin
SavePlayersInForm(CurrentPlayer);
CurrentPlayer := CurrentPlayer - 1;
UsernameLabel.Caption := 'Username' + IntToStr(CurrentPlayer) + ':';
PasswordLabel.Caption := 'Password' + IntToStr(CurrentPlayer) + ':';
BankPinLabel.Caption := 'Bank Pin' + IntToStr(CurrentPlayer) + ':';
TripsLabel.Caption := 'Trips to do' + IntToStr(CurrentPlayer) + ':';
LblUser.Caption := 'Player # ' + IntToStr(CurrentPlayer);
LoadPlayersInForm(CurrentPlayer);
end
end;
procedure FormClose2(sender: TObject; var CanClose: Boolean); //Thanks Star and Yakman
begin
SavePlayersInForm(CurrentPlayer);
SaveUs2;
HowManyPlayers := GetArrayLength(players)
CanClose := True
end;
procedure StartClicked(Sender: TObject); //Thanks Star and Yakman
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
FrmDesign.ModalResult := mrOk;
StartScript := True;
end;
procedure HelpClicked(Sender: TObject);
begin
OpenWebPage('http://icefire908.freehostia.com/AirCrafterHelpFile.txt');
Writeln(' -->>>>>> Help file accessed. <<<<<<-- ');
end;
procedure InitForm; //Displays the forum - Custom by Icefire908
begin
LoadUs2;
FrmDesign := CreateForm;
FrmDesign.Left := 269;
FrmDesign.Top := 130;
FrmDesign.Width := 463;
FrmDesign.Height := 246;
FrmDesign.Caption := 'Icefire908'#39's Air Crafter.';
FrmDesign.Color := clBtnShadow;
FrmDesign.Font.Color := clWindowText;
FrmDesign.Font.Height := -11;
FrmDesign.OnPaint := @PaintForm;
FrmDesign.Font.Name := 'MS Sans Serif';
FrmDesign.Font.Style := [];
FrmDesign.Visible := False;
FrmDesign.PixelsPerInch := 96;
FrmDesign.OnCloseQuery := @FormClose2;
CreatePlayerButton := TButton.Create(frmDesign);
CreatePlayerButton.Parent := frmDesign;
CreatePlayerButton.Left := 100;
CreatePlayerButton.Top := 46;
CreatePlayerButton.Width := 74;
CreatePlayerButton.Height := 19;
CreatePlayerButton.Hint := 'Click to Create a New Player';
CreatePlayerButton.Caption := 'Create Player';
CreatePlayerButton.ParentShowHint := False;
CreatePlayerButton.ShowHint := True;
CreatePlayerButton.TabOrder := 13;
CreatePlayerButton.OnClick := @CreateNewUser;
DeletePlayerButton := TButton.Create(frmDesign);
DeletePlayerButton.Parent := frmDesign;
DeletePlayerButton.Left := 176;
DeletePlayerButton.Top := 46;
DeletePlayerButton.Width := 75;
DeletePlayerButton.Height := 19;
DeletePlayerButton.Hint := 'Click to Delete the Current Player, DO NOT DELETE PLAYER0';
DeletePlayerButton.Caption := 'Delete Player';
DeletePlayerButton.ParentShowHint := False;
DeletePlayerButton.ShowHint := True;
DeletePlayerButton.TabOrder := 13;
DeletePlayerButton.OnClick := @DeleteAPlayer;
LeftButton := TButton.Create(frmDesign);
LeftButton.Parent := frmDesign;
LeftButton.Left := 24;
LeftButton.Top := 46;
LeftButton.Width := 75;
LeftButton.Height := 19;
LeftButton.Hint := 'Click to go to the Previous Player';
LeftButton.Caption := '<<';
LeftButton.ParentShowHint := False;
LeftButton.ShowHint := True;
LeftButton.TabOrder := 13;
LeftButton.OnClick := @PressBackButton;
RightButton := TButton.Create(frmDesign);
RightButton.Parent := frmDesign;
RightButton.Left := 253;
RightButton.Top := 46;
RightButton.Width := 75;
RightButton.Height := 19;
RightButton.Hint := 'Click to go to the Next Player';
RightButton.Caption := '>>';
RightButton.ParentShowHint := False;
RightButton.ShowHint := True;
RightButton.TabOrder := 14;
RightButton.OnClick := @PressNextButton;
UsernameLabel := TLabel.Create(frmDesign);
UsernameLabel.Parent := frmDesign;
UsernameLabel.Left := 14;
UsernameLabel.Top := 71;
UsernameLabel.Width := 66;
UsernameLabel.Height := 16;
UsernameLabel.Caption := 'Username0:';
UsernameLabel.Font.Color := clWhite;
UsernameLabel.Font.Height := -13; //----------GOTO LINE 663----------
UsernameLabel.Font.Name := 'MS Sans Serif';
UsernameLabel.Font.Style := [];
UsernameLabel.ParentFont := False;
PasswordLabel := TLabel.Create(frmDesign);
PasswordLabel.Parent := frmDesign;
PasswordLabel.Left := 16;
PasswordLabel.Top := 93;
PasswordLabel.Width := 63;
PasswordLabel.Height := 16;
PasswordLabel.Font.Color := clWhite;
PasswordLabel.Font.Height := -13;
PasswordLabel.Font.Name := 'MS Sans Serif';
PasswordLabel.Font.Style := [];
PasswordLabel.ParentFont := False;
PasswordLabel.Caption := 'Password0:';
BankPinLabel := TLabel.Create(frmDesign);
BankPinLabel.Parent := frmDesign;
BankPinLabel.Left := 22;
BankPinLabel.Top := 116;
BankPinLabel.Width := 56;
BankPinLabel.Height := 16;
BankPinLabel.Caption := 'Bank Pin0:';
BankPinLabel.Font.Color := clWhite;
BankPinLabel.Font.Height := -13;
BankPinLabel.Font.Name := 'MS Sans Serif';
BankPinLabel.Font.Style := [];
BankPinLabel.ParentFont := False;
TripsLabel := TLabel.Create(frmDesign);
TripsLabel.Parent := frmDesign;
TripsLabel.Left := 9;
TripsLabel.Top := 138;
TripsLabel.Width := 70;
TripsLabel.Height := 16;
TripsLabel.Caption := 'Trips to do0:';
TripsLabel.Font.Color := clWhite;
TripsLabel.Font.Height := -13;
TripsLabel.Font.Name := 'MS Sans Serif';
TripsLabel.Font.Style := [];
TripsLabel.ParentFont := False;
LblUser := TLabel.Create(frmDesign);
LblUser.Parent := frmDesign;
LblUser.Left := 5;
LblUser.Top := 34;
LblUser.Width := 448;
LblUser.Height := 13;
LblUser.Caption := 'Player # 0';
LblUser.Font.Color := clWhite;
LblUser.Font.Height := -11;
LblUser.Font.Name := 'MS Sans Serif';
LblUser.Font.Style := [];
LblUser.ParentFont := False;
ActiveLabel := TLabel.Create(frmDesign);
ActiveLabel.Parent := frmDesign;
ActiveLabel.Left := 88;
ActiveLabel.Top := 186;
ActiveLabel.Width := 68;
ActiveLabel.Height := 13;
ActiveLabel.Caption := 'Player Active?';
ActiveLabel.Font.Color := clWhite;
ActiveLabel.Font.Height := -11;
ActiveLabel.Font.Name := 'MS Sans Serif';
ActiveLabel.Font.Style := [];
ActiveLabel.ParentFont := False;
ActiveLabel.ShowHint := True;
ActiveLabel.Hint := 'Should this Player be Active? (Check if True)';
UsernameEdit := TEdit.Create(frmDesign);
UsernameEdit.Parent := frmDesign;
UsernameEdit.Left := 103;
UsernameEdit.Top := 67;
UsernameEdit.Width := 121;
UsernameEdit.Height := 21;
UsernameEdit.Hint := 'Type in your Username here';
UsernameEdit.ParentShowHint := False;
UsernameEdit.ShowHint := True;
UsernameEdit.TabOrder := 8;
UsernameEdit.Text := Players[0].Name;
PasswordEdit := TEdit.Create(frmDesign);
PasswordEdit.Parent := frmDesign;
PasswordEdit.Left := 103;
PasswordEdit.Top := 90;
PasswordEdit.Width := 121;
PasswordEdit.Height := 21;
PasswordEdit.Hint := 'Type in your Password here';
PasswordEdit.ParentShowHint := False;
PasswordEdit.PasswordChar := '*';
PasswordEdit.ShowHint := True;
PasswordEdit.TabOrder := 9;
PasswordEdit.Text := Players[0].Pass;
BankPinEdit := TEdit.Create(frmDesign);
BankPinEdit.Parent := frmDesign;
BankPinEdit.Left := 103;
BankPinEdit.Top := 113;
BankPinEdit.Width := 121;
BankPinEdit.Height := 21;
BankPinEdit.Hint := 'Type in your (4 digit) Bank Pin here, make up one if you do not have.';
BankPinEdit.ParentShowHint := False;
BankPinEdit.PasswordChar := '*';
BankPinEdit.ShowHint := True;
BankPinEdit.TabOrder := 9;
BankPinEdit.Text := Players[0].string1;
LoadsEdit := TEdit.Create(frmDesign);
LoadsEdit.Parent := frmDesign;
LoadsEdit.Left := 103;
LoadsEdit.Top := 136;
LoadsEdit.Width := 121;
LoadsEdit.Height := 21;
LoadsEdit.Hint := 'Type in the number trips before switching players, player inactive if lost.';
LoadsEdit.ParentShowHint := False;
LoadsEdit.ShowHint := True;
LoadsEdit.TabOrder := 10;
LoadsEdit.Text := Players[0].String2;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 168;
StartButton.Top := 181;
StartButton.Width := 136;
StartButton.Height := 29;
StartButton.Hint := 'Click to Start the Script';
StartButton.Caption := 'Start Crafting!';
StartButton.ParentShowHint := False;
StartButton.ShowHint := True;
StartButton.TabOrder := 15;
StartButton.OnClick := @StartClicked;
HelpButton := TButton.Create(frmDesign);
HelpButton.Parent := frmDesign;
HelpButton.Left := 330;
HelpButton.Top := 46;
HelpButton.Width := 31;
HelpButton.Height := 19;
HelpButton.Caption := 'Help ';
HelpButton.TabOrder := 19;
HelpButton.OnClick := @HelpClicked;
IsActive := TCheckBox.Create(frmDesign);
IsActive.Parent := frmDesign;
IsActive.Left := 66;
IsActive.Top := 184;
IsActive.Width := 15;
IsActive.Height := 17;
IsActive.Caption := '';
IsActive.ParentShowHint := False;
IsActive.ShowHint := True;
IsActive.Hint := 'Should this Player be Active? (Check if True)';
IsActive.Checked := Players[0].Active;
end;
procedure LoadNullWords; //Thanks Star And Mad Cow - Credits goto them
begin
SkipItems[1] := 'the';
SkipItems[2] := 'but';
SkipItems[3] := 'yes';
SkipItems[4] := 'lol';
SkipItems[5] := 'brb';
SkipItems[6] := 'gtg';
SkipItems[7] := 'cya';
SkipItems[8] := 'how';
SkipItems[9] := 'hey';
SkipItems[10] := 'wat';
SkipItems[11] := 'umm';
SkipItems[12] := 'him';
SkipItems[13] := 'she';
SkipItems[14] := 'man';
SkipItems[15] := 'wow';
SkipItems[16] := 'god';
SkipItems[17] := 'nub';
SkipItems[18] := 'nop';
SkipItems[19] := 'did';
SkipItems[20] := 'you';
SkipItems[21] := 'ing';
end;
function CreateNick(Username: string): string; //Thanks Star and Madcow - Credits goto them
var
UserLength, NickStart, INick, A: Integer;
Nicks, Temp: string;
BadNick: Boolean;
begin
UserLength := Length(Username);
INick := 0;
LoadNullWords;
repeat
BadNick := False;
NickStart := 2 + INick;
Nicks := Nicks + Copy(Username, NickStart, 3);
for A := 1 to 3 do
begin
Temp := Copy(Nicks, A, 1);
if (Temp = ' ') or (Temp = '_') then
begin
INick := INick + 1;
Nicks := '';
BadNick := True;
end;
end;
for A := 1 to 21 do
begin
if (Nicks = SkipItems[A]) then
begin
INick := INick + 1;
Nicks := '';
BadNick := True;
end;
end;
until ((not (BadNick)) or (NickStart >= 15))
Result := Nicks;
end;
procedure GenerateNickNames; //Thanks to Star and Mad cow, Edited by Icefire908
begin
Writeln('');
Writeln('Creating Nicknames:');
Status('Creating Nicknames');
for X := 0 to HowManyPlayers - 1 do
begin
if (Players[X].Nick = '') then
begin
Players[X].Nick := CreateNick(Players[X].Name);
WriteLn(' Players[' + IntToStr(X) + '].Nick := ' + Players[X].Nick + ';');
Wait(1);
end;
end;
Writeln('');
Status('Setting Players Current Location:');
for X := 0 to HowManyPlayers - 1 do
Players[X].Loc := 'Not Yet Started Autoing';
Status('If you see this Message for Longer than 60 Seconds, Stop the Script and Restart Straight Away!');
end;
procedure WriteNews(HowMany: Integer); //Displays Latest News. Borrowed StarBlaster's, Thanks Star.
var
Timer, i, x, y: integer;
News: array of string;
New, TheNews: string;
begin
SetArrayLength(News, HowMany + 1);
ChangeReportWidth(600);
GetSelf.Width := 1070;
ClearReport;
Status('Downloading Latest News...');
Wait(1);
TheNews := Getpage('http://icefire908.freehostia.com/acNews.txt');
X := 0;
AddToReport(' >> Latest News:');
AddToReport(Chr(32));
Y := 1;
for i := 1 to HowMany do
begin
MarkTime(Timer);
repeat
X := x + 1;
New := copy(TheNews, x, x + 1);
until (copy(new, 1, 1) = ',') or (TimeFromMark(Timer) >= 2000);
News[i] := copy(TheNews, y, (x - y));
Y := x + 1;
AddToReport(' :: ' + news[i]);
Wait(1);
end;
end;
procedure StartupScript; //First Main procedure used in script, doesn't repeat.
begin
TotalScriptRUNS := StrToIntDef(LoadSetting('IcefiresAirCrafter', 'TotalScriptRUNS'), 0);
TotalScriptAIRS := StrToIntDef(Loadsetting('IcefiresAirCrafter', 'TotalScriptAIRS'), 0);
SetUpSRL;
ScriptID := '107';
Cleardebug;
Writeln('Please wait while');
Writeln('the latest news');
Writeln('downloads...');
Wait(100);
WriteNews(5);
Wait(5000);
ClearDebug;
Status('Starting up script...');
ChangeReportWidth(150);
Wait(1000);
Writeln(' _____ .__ _________ _____ __ ');
Wait(100);
Writeln(' / _ \ |__|______ \_ ___ \____________ _/ ____\/ |_ ___________ ');
Wait(100);
Writeln(' / /_\ \| \_ __ \ / \ \/\_ __ \__ \\ __\\ __\/ __ \_ __ \ ');
Wait(100);
Writeln(' / | \ || | \/ \ \____| | \// __ \| | | | \ ___/| | \/ ');
Wait(100);
Writeln(' \____|__ /__||__| \______ /|__| (____ /__| |__| \___ >__| ');
Wait(100);
Writeln(' \/ \/ \/ \/ ');
Wait(100);
Writeln(' Version 3.1 by Icefire908 ');
Writeln('||Total script runs : ' + IntToStr(TotalScriptRUNS) + '|| ||Total Airs using script crafted : ' + IntToStr(TotalScriptAIRS) + '||');
Wait(3500);
Writeln('To begin, read the instructions, then fill out the form.');
FormPic := LoadBitmap('AirAlter.bmp'); //-----THIS IS LINE YOU MIGHT BE LOOKING FOR!-----
try
SafeInitForm;
SafeShowFormModal;
finally
FreeForm(frmDesign);
except
Writeln('[ ---------------------------------------------------------------------- ]');
Writeln('[ This might be your very first script run of my Air Crafter 3.1. ]');
Writeln('[ This error will not appear ever again, please read the directions. ]');
Writeln('[ -Icefire908 ]');
Writeln('[ ---------------------------------------------------------------------- ]');
end;
if not (StartScript) then
begin
Writeln('Script Terminated.');
TerminateScript;
end else ;
if (StartScript) then
begin
GenerateNickNames;
Wait(1000);
Writeln('Disguising SCARE CDE 2 as iTunes =) ');
Wait(500);
DisguiseScar('iTunes');
Wait(700);
ActivateClient;
end;
end;
procedure DontBan; //All Credits Goto SRL.
var
NoBan: Integer;
begin
MouseSpeed := 16 + Random(4);
if (not (LoggedIn)) then Exit;
NoBan := Random(120)
case NoBan of
0: RandomRClickEvery(2 + Random(8));
1: HoverSkill('random', false);
2: RotateEvery(20 + Random(10));
3: LeaveScreenEvery(5 + Random(5));
4: PickUpMouse;
5: BoredEvery(9 + Random(24));
6: SleepAndMoveMouse(2500 + Random(2500));
7: SleepAndMoveMouse(1500 + Random(1500));
8: SleepAndMoveMouse(500 + Random(500));
end;
MouseSpeed := Random(4);
end;
procedure ProgressReport; //Prints in the Debug box every full trip.
begin
Writeln('[------------------------------------------------]');
Writeln('| Icefire908s Air Crafter |');
Writeln('| Progress Report |');
Writeln('| Script Run #' + IntToStr(TotalScriptRUNS));
Writeln('| ' + IntToStr(TotalTripsCompleted) + ' trip(s) completed.');
Writeln('| ' + IntToStr(AirsCrafted) + ' Airs crafted');
Writeln('| ' + IntToStr(EXP) + ' Rune Crafting experience gained so far.');
Writeln('| Script has been running for ' + (TimeRunning) + '.');
Writeln('| ' + IntToStr(TotalScriptAIRS) + ' total Airs crafted by script.');
Writeln('[------------------------------------------------]');
SRLRandomsReport;
end;
procedure FinalReport; //Prints when script is Complete.
begin
Writeln('[------------------------------------------------]');
Writeln('| Icefire908s Air Crafter |');
Writeln('| Progress Report |');
Writeln('| Script Run #' + IntToStr(TotalScriptRUNS));
Writeln('| ' + IntToStr(TotalTripsCompleted) + ' trip(s) completed.');
Writeln('| ' + IntToStr(AirsCrafted) + ' Airs crafted');
Writeln('| ' + IntToStr(EXP) + ' Rune Crafting experience gained so far.');
Writeln('| Script has been running for ' + (TimeRunning) + '.');
Writeln('| ' + IntToStr(TotalScriptAIRS) + ' total Airs crafted by script.');
Writeln('[------------------------------------------------]');
SRLRandomsReport;
end;
function FindSymbolAcc(var mx, my: integer; symbol: string): boolean;
var i: integer;
begin
for i := 8 downto 1 do
begin
SymbolAccuracy := i / 10;
if (Findsymbol(mx, my, symbol)) then
begin
if (symbol = 'bank') and (BankColor = 0) then BankColor := GetColor(mx, my);
Writeln('Bank Color is ' + IntToStr(BankColor));
if (symbol = 'tree') and (TreeColor = 0) then TreeColor := GetColor(mx, my);
Writeln('Tree Color is ' + IntToStr(TreeColor));
result := true;
Break;
end;
end;
end;
procedure LoadBMP; //Converts all Integers used for bitmaps into... bitmaps! Lol.
begin
BankBooth1 := BitmapFromString(28, 6, 'z78DAEDD23D0EC3300805E02BF1F3' +
'1E4E46C789EF7FA4527549143276A854866FB1054F08917F7DAB9' +
'A8452CFC6E08EFDA2302841065AA11360A1D2E0777960FABCD8B0' +
'382C4C753CE58C9949D68B9AD37B742ED9F9EE92AF5A1884CF42D' +
'07C2F348A6F676D7B277DCAC99D8E911B5348FEB79C7856B2C371' +
'37F770F8281C18DE0B57ACDE0A1B9AF3A3F51CF99337F9026D3EC' +
'8B6');
BankBooth2 := BitmapFromString(30, 9, 'z78DA33301805A380303033333532' +
'B6A409696CE2666C4E3C09D4E366644A949B2D4D4D8C1D2922A9E' +
'447535713732327A2DCEC6C6A6EEC4C1449B9EFF09386268EC4B9' +
'79148C02640000CD0E3B4E');
BankBooth3 := BitmapFromString(38, 6, 'z78DABDD2410EC3200C0' +
'4C02F15DB6BC31142F2FF27552A9756D86D909A5CE6866CEFA23B' +
'C0AC9396608C050595F5560D1BE7EF6AD702BBE4AE13D33F6C38B' +
'83AEE9A56CC4999DBAC063D5ED8EC9D098C361B8893E3E9DB7F24' +
'F0DF1F18BD0AA68FDD0021B2F0D2AB1378DBC4319A9EF1A0C351A' +
'4539F95CE8D387C355C4D6071074D523DB18951732C022A8EAFBE' +
'669F28D42639');
end;
procedure FindRandoms;
begin
FindNormalRandoms;
ClickToContinue;
CloseWindow;
FindTalk;
FindMod;
FindDead;
FindMime;
FindMaze;
FindQuiz;
FindDemon;
FindScapeRune;
DwarfItem;
DetectFrogCave;
end;
procedure LoginUser; //Logs in the player and adjusts everything needed. 100% Chance
begin
Wait(2000);
LoginPlayer;
Writeln('Player logged in.');
Wait(1500 + random(250));
Highestangle;
FindRandoms;
SetChat('on', 1);
SetChat('off', 2);
SetChat('on', 3);
Wait(1000);
CastleMote := FindWaterColor;
DontBan;
Wait(2000);
end;
procedure OpenFalladorBank; //Homemade By Icefire908 w00t full proof! Chance of working 99%!
var
BankBoothFindingTime, BankBoothFindingTime2: Integer;
begin
Tolerance := 18;
MakeCompass('S');
Wait(1500 + random(1000));
Flag;
begin
LoadBMP;
MarkTime(BankBoothFindingTime);
repeat
if (FindBitmapToleranceIn(BankBooth1, x, y, 202, 3, MSX2, MSY2, Tolerance)) or
(FindBitmapToleranceIn(BankBooth2, x, y, 202, 3, MSX2, MSY2, Tolerance)) or
(FindBitmapToleranceIn(BankBooth3, x, y, 202, 3, MSX2, MSY2, Tolerance)) then
MMouse(x, y, 15, 15);
Wait(300 + random(160));
Tolerance := Tolerance + 1;
until (IsUpTextMulti('ank', 'nk bo', 'k boot')) or (Tolerance >= 300) or
(TimeFromMark(BankBoothFindingTime) >= 20000) and not (IsUpTextMulti('ank', 'nk bo', 'k boot'))
Wait(500);
if (TimeFromMark(BankBoothFindingtime) >= 20000) and not (IsUpTextMulti('ank', 'nk bo', 'k boot')) then
begin
Tolerance := 18;
MarkTime(BankBoothFindingTime2);
repeat
if (FindBitmapToleranceIn(BankBooth1, x, y, 2, 2, 223, 340, Tolerance)) or
(FindBitmapToleranceIn(BankBooth2, x, y, 2, 2, 223, 340, Tolerance)) or
(FindBitmapToleranceIn(BankBooth3, x, y, 202, 3, MSX2, MSY2, Tolerance)) then
MMouse(x, y, 15, 15);
Wait(500 + random(160));
Tolerance := Tolerance + 1;
until (IsUpTextMulti('ank', 'nk bo', 'k boot')) or (Tolerance >= 300) or
(TimeFromMark(BankBoothFindingTime2) >= 20000) and not (IsUpTextMulti('ank', 'nk bo', 'k boot'))
if (TimeFromMark(BankBoothFindingtime2) >= 20000) and not (IsUpTextMulti('ank', 'nk bo', 'k boot')) then
begin
FreeBitmap(BankBooth1);
FreeBitmap(BankBooth2);
FreeBitmap(BankBooth3);
Writeln('Could not find bank booth, or got lost.');
Logout;
NextPlayer(false);
end;
end else ;
if (IsUpTextMulti('ank', 'nk bo', 'k boot')) then
begin
FreeBitmap(BankBooth1);
FreeBitmap(BankBooth2);
FreeBitmap(BankBooth3);
GetMousePos(x, y);
repeat
Mouse(x, y, 1, 1, False);
ChooseOption(x, y, 'Use-quickly');
Wait(1000 + random(100));
Flag;
until (BankScreen or PinScreen);
if (PinScreen) then
begin
InPin(Players[CurrentPlayer].String1);
end else
if (BankScreen) then
begin
Wait(200);
FixBank;
end;
end;
end;
end;
procedure GetEss; //Gets the essence out of the bank. 99% Chance of working.
begin
if not LoggedIn then Exit;
Writeln('Withdrawing Ess...');
MakeCompass('S');
OpenFalladorBank;
Wait(200 + random(200));
DepositAll;
Wait(400 + random(160));
Withdraw(1, 1, 0);
Wait(500 + random(100));
Mouse(485, 41, 1, 1, true);
Wait(500 + random(100));
DontBan;
Writeln('Finished withdrawing Ess.');
end;
procedure GotoTemple; //Gets you all the way to the temple grounds. 80% Chance of working :[
begin
if not LoggedIn then Exit;
Writeln('Going to Temple...');
MakeCompass('S');
Wait(1000);
if (FindColorSpiralTolerance(x, y, CastleMote, 638, 27, 715, 63, 6)) then
Mouse(x - 15, y + 12, 3, 3, true);
SetRun(true);
Wait(3000);
FFlag(3);
RadialRoadWalk(FindFallyRoadColor, 335, 406, 64, 1, 1); //checked
Wait(700);
FFlag(3);
RadialRoadWalk(FindFallyRoadColor, 32, 72, 44, 1, 1); //checked
Wait(700);
FFlag(4);
if (FindSymbolAcc(mx, my, 'tree')) or (FindMMColorTol(x, y, TreeColor, 16)) then
Mouse(x + random(5), y - random(5), 1, 1, true); //checked
Wait(6500);
FFlag(4);
Mouse(645 + random(5), 40 - random(5), +1, -1, true); //should be good
Wait(700);
FFlag(4);
Mouse(697 + random(5), 47 - random(5), +1, -1, true); //should be good
MMouse(202 + random(30), 149 - random(30), 40, 40);
Wait(1500 + random(500));
MakeCompass('N');
Wait(700);
Flag;
DontBan;
end;
function EnterRCAlter: Boolean; //Made By SRL Edited by Icefire908
var
cx, cy, c: Integer;
begin
repeat
if (not (LoggedIn)) then
Exit;
repeat
c := c + 1;
if (not (LoggedIn)) then
Exit;
Wait(25);
if (c > 100) then
begin
Result := False;
Exit;
end;
until (FindMSColorTol(cx, cy, 6243878, 20));
MMouse(cx, cy, 0, 0);
Wait(300 + random(160));
until (IsUpTextMulti('nter', 'yster', 'ruin'));
Mouse(cx, cy, 0, 0, true);
end;
procedure EnterTemple; //Enters the temple. 99% chance of working
begin
if not LoggedIn then Exit;
Writeln('Entering Temple...');
EnterRCAlter;
Wait(1000 + random(1000));
Writeln('In Temple.');
Wait(1000 + random(1000));
end;
procedure CraftRunes; //Finds the altar and crafts the runes. 99% chance of working.
var
AlterFinder: Integer;
begin
if not LoggedIn then Exit;
Writeln('Crafting Airs...');
MakeCompass('W');
Wait(1000);
RuneCraftingLevel := GetSkillLevel('Runecrafting');
Mouse(648, 187, 1, 1, true);
if (RuneCraftingLevel < 11) then
begin
AirsPerEss := 1;
end else ;
if (RuneCraftingLevel >= 11) then
begin
AirsPerEss := 2;
end else ;
if (RuneCraftingLevel >= 22) then
begin
AirsPerEss := 3;
end else ;
if (RuneCraftingLevel >= 33) then
begin
AirsPerEss := 4;
end else ;
if (RuneCraftingLevel >= 44) then
begin
AirsPerEss := 5;
end else ;
if (RuneCraftingLevel >= 55) then
begin
AirsPerEss := 6;
end else ;
if (RuneCraftingLevel >= 66) then
begin
AirsPerEss := 7;
end else ;
if (RuneCraftingLevel >= 77) then
begin
AirsPerEss := 8;
end else ;
if (RuneCraftingLevel >= 88) then
begin
AirsPerEss := 9;
end else ;
if (RuneCraftingLevel = 99) then
begin
AirsPerEss := 10;
end;
Wait(1000);
MarkTime(AlterFinder);
repeat
MMouse(419, 276, 30, 30);
Wait(300 + random(160));
until (IsUpTextMulti('raft', 'ltar', 'tar')) or (TimeFromMark(AlterFinder) >= 30000)
if (IsUpTextMulti('raft', 'ltar', 'tar')) then
begin
GetMousePos(x, y);
Wait(160 + random(100));
Mouse(x, y, +1, -1, true);
DontBan;
Wait(5500 + random(500));
Writeln('Airs Crafted.');
EXP := EXP + (5 * 28);
AirsCrafted := AirsCrafted + (28 * AirsPerEss);
TotalScriptAIRS := TotalScriptAIRS + (28 * AirsPerEss);
SaveSetting('IcefiresAirCrafter', 'TotalScriptAIRS', IntToStr(TotalScriptAIRS));
end else ;
if (TimeFromMark(AlterFinder) >= 30000) then
begin
FinalReport;
Logout;
NextPlayer(false);
end;
end;
procedure ExitTemple; //Finds the Portal, uses it. 97% Chance of working.
var
PortalExit: Integer;
begin
if not LoggedIn then Exit;
Writeln('Exiting Temple...');
MarkTime(PortalExit);
Tolerance := 12;
repeat
if (FindColorSpiralTolerance(x, y, 11132385, 26, 73, 178, 194, Tolerance)) or
(FindColorSpiralTolerance(x, y, 9750220, 26, 73, 178, 194, Tolerance)) or
(FindColorSpiralTolerance(x, y, 11527656, 26, 73, 178, 194, Tolerance)) then
MMouse(x, y, 15, 15);
Wait(300 + random(160));
Tolerance := Tolerance + 1;
until (IsUpTextMulti('ort', 'rtal', 'se Por')) or (TimeFromMark(PortalExit) >= 30000)
if (IsUpTextMulti('ort', 'rtal', 'se Por')) then
begin
GetMousePos(x, y);
Wait(160 + Random(100));
Mouse(x, y, 0, 0, true);
Wait(700);
Flag;
Writeln('Temple Exited.');
DontBan;
end else ;
if (TimeFromMark(PortalExit) >= 30000) and not (IsUpTextMulti('ort', 'rtal', 'se Por')) then
begin
FinalReport;
Logout;
NextPlayer(False);
end;
end;
procedure GotoBank; //Gets you all the way back to the bank. 75% chance of working. :[
begin
if not LoggedIn then Exit;
Writeln('Returning to Bank...');
Wait(1000 + random(200));
MakeCompass('N');
MMouse(555, 143, 5, 5);
DontBan;
Wait(1000);
Mouse(669 + random(5), 23 - random(5), +1, -1, true);
DontBan;
Wait(2000);
Flag;
if (FindSymbolAcc(mx, my, 'tree')) or (FindMMColorTol(x, y, TreeColor, 16)) then
Mouse(x, y, 1, 1, true);
Wait(700);
FFlag(3);
if (FindColorSpiral(x, y, FindFallyRoadColor, 671, 24, 692, 39)) then
Mouse(x, y, 1, 1, true); //checked
DontBan;
Wait(3000);
FFlag(3);
RadialRoadWalk(FindFallyRoadColor, 334, 390, 50, 1, 1); //checked
DontBan;
Wait(700);
FFlag(3);
RadialRoadWalk(FindFallyRoadColor, 334, 390, 50, 1, 1); //checked
DontBan;
Wait(700);
Flag;
Mouse(675, 59, 1, 1, true); //should work
DontBan;
Wait(700);
Flag;
if (FindSymbolAcc(mx, my, 'bank')) or (FindMMColorTol(mx, my, bankcolor, 16)) then
Mouse(X - 3, Y + 6, 2, 2, true);
Wait(700);
Flag;
MakeCompass('s');
Wait(2000);
end;
//-----------------------------------------//
//////////////////Main Loop /////////////////
//-----------------------------------------//
begin
Status('Air Crafter by Icefire908.');
Wait(1000);
StartupScript;
Wait(2000);
TotalScriptRUNS := TotalScriptRUNS + 1;
SaveSetting('IcefiresAirCrafter', 'TotalScriptRUNS', IntToStr(TotalScriptRUNS));
TotalTripsCompleted := 0;
CurrentPlayer := 0;
BankColor := 0;
TreeColor := 0;
MouseSpeed := Random(4);
repeat
if not (Loggedin) then LoginUser;
Wait(1000);
if not (LoggedIn) then break;
TripsCompleted := 0;
repeat
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
Status('Getting Ess...');
MouseSpeed := Random(4);
GetEss;
Status('Going to Temple...');
FindRandoms;
GotoTemple;
Status('Entering Temple...');
EnterTemple;
Status('Crafting Air Runes...');
CraftRunes;
FindRandoms;
Status('Exiting Temple...');
ExitTemple;
Status('Returning to the Bank...');
FindRandoms;
GotoBank;
TripsCompleted := TripsCompleted + 1;
TotalTripsCompleted := TotalTripsCompleted + 1
ProgressReport;
until (TripsCompleted >= StrToInt(Players[CurrentPlayer].String2)) or not (LoggedIn);
if (LoggedIn) then
NextPlayer(True)
else
NextPlayer(False)
until (false);
FinalReport;
TerminateScript;
end.——————————————————
<!– END TEMPLATE: formanswers –>