Alright so Im done dinner. here is my script up to the burning part. Keep in mind it has some old functions that I am in the process of changing because it has been on my computer for a bit as it was my bros (sorry forget username for vill) and I just got the computer back now. He is at University right now and he stopped playing so I have some of his stuff here at home. Anyways here it is:
program ChopNBurn;
Simba Code:
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/firemaking.scar}
//have hatchet equipped
//be near some trees you want to cut
//Maples I do not have the colours for
//Colors may be off, fix them as you need to, I will do my best to fix them also
Const
TREE_TOL=5;
TREE = 0;
OAK = 1;
WILLOW = 2;
MAPLE = 3;
YEW = 4;
//Tree_Colors
//Tree_Names
var
TreeDTM: Integer;
Tree_Colors:Array[0..4] of TIntegerArray;
Tree_Names:Array of String;
procedure declarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[1].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
With Players[0] do
begin
Name := ''; //username
Pass := ''; //password
Nick := ''; //3-4 letters from your username
Active := true;
Integers[1] := 2; //tree you wish to cut
end;
end;
procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
procedure setupScript;
begin
ClearDebug;
SetupSRL;
ActivateClient;
declarePlayers;
Tree_Colors[0] := [3622483, 3754069, 3820120] //Trees
Tree_Colors[1] := [1845555, 2437176, 2700350] //Oaks
Tree_Colors[2] := [2964027, 2963771, 2832184] //Willows
Tree_Colors[3] := [] //Maples don't currently have colors for
Tree_Colors[4] := [3358796, 4017756, 4542554] //Yews
Tree_Names := ['ree', 'ak', 'illow', 'aple', 'ew'];
while not(RSReady) do
Wait(1000)
end;
procedure IdentifyTree; //just extra info just in case I make a pure firemaker
var
x,y: integer;
begin
if not LoggedIn then Exit;
if TreeDTM <= 0 then
case Players [CurrentPlayer].Integers[1] of
TREE:
TreeDTM := DTMFromString ('mlwAAAHicY2dgYOhiYWCYDMRtQFwHxM1A3A/EM4A4mZGBIQKIo4A4BYjzgTibESLubiYP1M0ExsUxRnA2BOMGjHgwFAAAwEQIWg==');
OAK:
TreeDTM := DTMFromString ('mlwAAAHicY2dgYOhmYWCYDMRtQFwLxC1A3A/EM4C4nZGBoQaI64C4GYgnA3E/EHcCcaa/HlA3Ew6MGzDiwVAAAPTwCJ8=');
Willow:
TreeDTM := DTMFromString ('mlwAAAHicY2dgYLjPwsDwHIhvAPFFIL4OxI+B+A0QJzEyMEQAcRQQJwNxPhBnQ9nGuvxA3Uw4MG7AiAdDAQCWsAl2');
Maple:
TreeDTM := DTMFromString ('mlwAAAHicY2dgYNjCwsCwF4jXAfFyIN4MxPuA+BAQJzMyMEQAcRQQJwFxLhBnAXEKELvrcwF1M+HAuAEjHgwFAAXtCGk=');
Yew:
TreeDTM := DTMFromString ('mlwAAAHicY2dgYOBiZWAQBGJmIP7NwsDABOWLAXEyIwNDBBBHAXEcEOcDcRYjRNxOlwOomwkHxg0Y8WAoAAAN1ASo');
end; //just showing I can use DTMs :)
end;
procedure setupPlayer;
begin
if LobbyScreen then LeaveLobby;
if not(LoggedIn) then LoginPlayer;
SetAngle(True);
MakeCompass('N');
Players[CurrentPlayer].Integers[1] := 0; //chopped
Players[CurrentPlayer].Integers[2] := 0; //burned
end;
procedure BurnOfChop;
There is more after just the burning part is all I need help with. Anyone think they could help me code it asap.