Good first script! I looked throught the script and found a few things:
You made you own procedure to login the player. Pretty creative, but as soon as SRL is back up, you need to use LoginPlayer. For example:
SCAR Code:
If (Not(LoggedIn)) then
LoginPlayer;
You would put this in your main loop.
For the enter username and password you need to use a player array as shown below:
SCAR Code:
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';// Your Username
Players[0].Pass := '';// Your Password
Players[0].Nick := '';// 3-4 letters of your Username
Players[0].Active:=True;//Active True or False
You don't need LampSkill = Whatever because when people setup their SRL they usually set what lampskill they want. Also you don't need the x2 and y2 because there are already set coordinates for the mainscreen, minimap, inventory, and chat window.You could fix it by:
SCAR Code:
if(FindColor(x,y,TreeColour,0,0,X2,Y2)) then
{ transformed to....}
if(FindColor(x,y,TreeColor, MSX1, MSY1, MSX2, MSY2);{<--Mainscreen coordinates
In your drop procedure you don't need to use DropAllLogs because it doesn't work anymore. You could fix it by putting DropTo(2,28). This would drop everything in the inventory from spot 2 to 28.
Thats all I can see now, but if you need anymore help just pm me
Also don't auto until SRL is updated!
P.S: Keep reading tutorials and in no time you will improve!
!