SRL Archive - First Scripts

Ok, this is a horrible script that won't work but look it over to amuse me :)
:cartman: :cartman: :cartman: :cartman: :cartman: :cartman: :cartman: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot:



Yes, i dont even know how to make it into file… lol

//very first script probably dosent work just post suggestions
//i reccomend you look it over it won't run
//edit it and post some comments if you are so kind
//i am happy to support SRL community (even if its a complete failure that needs editing)
//thanks :)
//Willowworker, a new pal of the SRL community's first (serious) but flawed script
//thank you again!





program New;
{.include SRL/SRL.scar}


const
LoadsPerPlayer = 30; //Amounts of loads per player before switching. Default 30

procedure DeclarePlayers;
begin
SetupPlayers;

Players[0].Name := ''; //default 1 player, set false to true if you want more players
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;

Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;

Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := False;

Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := False; //add more if necessary

LoadPlayerArray;
end;

begin
SetupSRL;
DeclarePlayers;
if LoggedIn then Logout;
LoginPlayer;
repeat
Chop;
If Invfull then
begin
Bank;
begin
Antirandoms
repeat
until false


Procedure chop;
GetSkillLevel string:'woodcutting';
SetRun;
ScanMMColorExact(var x, y: integer; color: Integer): Boolean;//set fish symbol color or rock color here at color:
PerfectNorth;
Mouse (x, y: color: Integer;) //set same fish symbol or rock near trees here at color:
wait 500 milleseconds
FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
if false then
begin;
FindDraynorRockColor;
then
Perfect north;
Mouse (x, y integer; color: integer) : Boolean //type in willows color here
repeat
until invfull then
begin;

Procedure bank;
ScanMMcolorExact (var x, y: integer; color: Integer) : Boolean; //write bank symbol color at color: or a part of the bank that stands out from other minimap colors
If true then
Mouse (var x, y: integer; color: Integer) : Boolean;//same color as the bank color you chose
//uh, yeah here i got confused how to get your guy to open the bank… help!

//now, here are the anti-randoms, which i probably did wrong
begin
Procedure Antirandoms;
if InConvo: Boolean;
then SolveTalkingRandom(RawMenuText: String): Boolean;
FindInventoryRandoms: Boolean;
if false
chop;
if true;
SolveBox or SolveLamp if flase or true for LampInInv or BoxinInv
end;

// yeah, its probably all out of order and messed up and wont even compile (lol), but plz post suggestions









end.

:google: :f: :(h): please spam me i want attention

and post lots of these interesting smilies

:google: :f: :bart: :rolleyes: :cartman: :duh: :mad: :fiery:

SPAM ME SPAM ME I WANT FEEDBACK

:eek: :eek: :D
:stirthepot: :stirthepot: :stirthepot:
:spot: :spot: :spot: :sasmokin: :sasmokin: :sasmokin: :spot: (h) :cartman: :cartman: :cartman: :cartman: :D :confused:

Just tell me how to include the SCAR file so it looks like a regular post

:sasmokin: :sasmokin: :sasmokin: :sasmokin: :sasmokin: :sasmokin: :fiery: :fiery: :fiery: :fiery: :fiery: :cartman: :cartman: :cartman: :cartman: :cartman: :cartman: :cartman: :cartman: :cartman: :cartman: :):)

procedure DeclarePlayers;
begin
  NumberOfPlayers(4);
  CurrentPlayer :=(0);
  
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';     //3-4 letters from your name, no caps
  Players[0].Active := True;
  
  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';    //3-4 letters from your name, no caps
  Players[1].Active := True;
  
  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';    //3-4 letters from your name, no caps
  Players[2].Active := True;
  
  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';    //3-4 letters from your name, no caps
  Players[3].Active := True;
  
end;

Try that instead of what you have, you probably used the old woodcutting tut to script (it's what I used, I turned it into a PowerMiner and updated it)

ROFL, no offense but please do some more reading and looking at other scripts for examples of things. You will be surprised at what you can do.