SRL Archive - First Scripts

/////////////////////////////////////////////////////////////////////////
////////// FireMaker By Pacmanpwns version 1.0 //////////////////////////
////////// V-Bright Setting Start in Varrock E Bank /////////////////////
////////// Logs in First bank slot Tinder Box in first inventory slot ///
////////// Start Logged OUT /////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////

program FireMaker;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Firemaking.scar}

const

//// Setup
Username = ''; // Username of player
Password = ''; // Password of player
Nickname = ''; // First 3 Letters of your char name
BurnColor = 0; // The Log Color your burning
Loads = 2; // Number Of loads to do
Mspeed = 17; // ..Speed of mouse
//// DONE!


/// Do not touch

F1 = 236;
F2 = 69;
F3 = 290;
F4 = 122;

/// Do Not Touch

var i : integer;

Procedure DeclarePlayers;
begin
     HowManyPlayers := 1;
     CurrentPlayer := 0;
     NumberOfPlayers(HowManyPlayers);
     Players[0].Name :=Username;
     Players[0].Pass :=Password;
     Players[0].Nick :=Nickname;
     Players[0].Active:= True;
end;

Procedure Setup;
begin
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
LoadFireMakingBitmaps;
Mousespeed:= Mspeed;
if not(loggedin) then
begin
LoginPlayer;
end
end;

Procedure MyFailSafe;
var x,y,bank : Integer;
begin
if(FindBitmap(Bank,x,y))then
begin
FixBank;
Mouse(x,y,2,1,false);
wait(500+random(500));
ClickOption('se-quickly',1);
Wait(1000+random(500));
Withdraw(1,1,0);
Wait(1000+random(500));
CloseBank;
end
end;

Procedure TheBank;
var x,y : integer;
begin
MakeCompass('W');
LowestAngle;
FindColorTolerance(x,y, 2050396,f1,f2,f3,f4,5);
Wait(500+random(1000));
Mouse(x,y,1,1,false);
wait(500+random(500));
ClickOption('se-quickly',1);
Wait(1000+random(500));
FixBank;
Wait(500+random(200));
Withdraw(1,1,0);
Wait(1000+random(500));
CloseBank;
If(Not(FindColorTolerance(x,y, 2050396,f1,f2,f3,f4,5))) Then
begin
MyFailSafe;
end
end;

Procedure GetToRoad;
var x,y : integer;
begin
FindColorTolerance(x,y,6250343,691,53,699,61,5);
 Mouse(x,y,2,2,true);
 Flag;
end;




Procedure Randoms;
begin
 FindTalk;
Antiban;
end;

Procedure ScriptLoop;
begin
TheBank;
Randoms;
GetToRoad;
end;

var Bank : Integer;
begin
SetupSRL;
Setup;
SetRun(true);
Repeat ScriptLoop; Until (False);
if not(loggedin) then
begin
LoginPlayer;
end
bank := BitmapFromString(63, 9, 'z78DADD96490E83300C45AF143' +
       'CC461C994FB1FA929502995312A0A115022BD058340EF9B0F9EA8' +
       '73AD57E44852953DE125F4E42E6183E387A6E1AB9E397BB667519' +
       '847E8347D6401AF19C00B4CBE634E7B720A0390A6755FEA313C93' +
       'D5CD6BB7FB9E89A62D62C0F756CE0125AD7246ECD22A26018E389' +
       '650807B089AD60C7FF9376CF3406D131722A34BAB1ECF4AB676E2' +
       '8A56ABFC647E66EAF91E608392AA2622C004D3066B2772FBECF65' +
       'B259FDE85EB5195943E739D79CBFC51FE5D52E66CE75FC9DCBCF1' +
       '8E2C13AE799AF9FB27723029ABABADF636DBC9BA6AF69FBE29CEB' +
       '91328C8E91FA384B7F9F3318D19EDBD787E01377BCAA4');
end.

SO FAR I've Learned:
-find color tolerance
-a lot of srl commands/procedures
-bitmaps
-if/ then statements
-If not then statements
-variables
-Progress reports
-const
- a lot more

I am stuck on:
-functions
-some srl commands
-randoms

I want to learn
-Standards
-Forms
-DTMs
-Radial Walking
- a lot more :D

FEEDBACK please, after like 4 hours of scripting lmao.

I know the roadwork needs work.

as for this: Mouse(x,y,2,2,true); if your going to walk to the road like that without radial walking, you need a LOT more then a random 2 pixels to not get banned after running this to long. try 5,5 or a little more then that even. And I may have missed something, but where does this script burn the logs? and as far as standards go, I'd start learning them :) randoms, FindNormalRandoms you need, not just FindTalk. and
if(FindFight=true)then
begin
RunAway('N')
Flag;
wait(5000+random(2300));
RunBack;
end;
like that. so there you have your randoms pretty much. learn standards, and if I missed the log burning procedure, please tell me :) Learn DTM's from yohojo's DTM tut too, great for items in inventory/bank.

From: JAD
as for this: Mouse(x,y,2,2,true); if your going to walk to the road like that without radial walking, you need a LOT more then a random 2 pixels to not get banned after running this to long. try 5,5 or a little more then that even. And I may have missed something, but where does this script burn the logs? and as far as standards go, I'd start learning them :) randoms, FindNormalRandoms you need, not just FindTalk. and
if(FindFight=true)then
begin
RunAway('N')
Flag;
wait(5000+random(2300));
RunBack;
end;
like that. so there you have your randoms pretty much. learn standards, and if I missed the log burning procedure, please tell me :) Learn DTM's from yohojo's DTM tut too, great for items in inventory/bank.

Hey thanks for feedback. No you didn't miss my burning procedure, it hasn't been put in yet. As far as scripting its my first real rs script . Let me revise this and get back to you..