SRL Archive - First Scripts

Power Chopper

dialeyj2

2009-06-11 23:54:56

DIALEYJ2
POWER CHOPPER


[LEFT]
VERSION 1.5



WHAT IT DOES

[INDENT] Chops any non member trees
Drops all logs when inventory is full
Switches players when desired loads is met
Stops when all players become inactive
Checks for axe before attempting to chop
[/INDENT]
INSTRUCTIONS

[INDENT] 1. Fill in Constants ( ChopTime, World, and Run Direction)
2. Set tree colors in the SetColors procedure
3. Declare players
4. Set up all players in an area with plenty of trees
5. Keep axe in first inventory spot if not equipped
[/INDENT]
IMPORTANT INFO


[INDENT]
SRL Library Version 4


Includes S.M.A.R.T.
Includes Multi-Player
Includes Anti-Randoms
Includes Anti-Ban
[/INDENT][INDENT][INDENT]
[/INDENT]Fault : May keep clicking on trees it can't reach
[/INDENT][INDENT][INDENT] because of fence.
[/INDENT][/INDENT][INDENT][INDENT]

OTHER STUFF

[/INDENT][/INDENT] Please post your progress reports any bugs or suggestions.
[/LEFT]

Caotom

2009-07-11 05:36:46

Script Looks pretty good, I may test it later but this computer lags allot. :redface:

[BUG]


Delete the circle Brace and the script compiles perfectly, haven't tested though.

[SUGGESTION]
Script looks nice, if there was a couple of suggestions I would have to make is draw some attention to 
HowManyPlayers:= 2;
(just for those new people). Also possibly make the breaks a little more frequent. But these aren't exactly nessecary (don't know if second one is possible :redface: ) they're just what I'd maybe add.

~Caotom

Dark Arcana

2009-07-11 06:28:30


procedure SetupScript;                         //SetupScript : Clears debug
 begin                                         //              Disguises
  ClearDebug;                                   //              Sets up SMART and SRL
  Disguise('Running Tree Chopper');
  SmartSetupEx(World,False,True,False);
  SetTargetDC(SmartGetDC);
   repeat
    Wait(200);
   until(SmartGetColor(253,233)<>1118604);
  SetUpSRL;
 end;

^That is the old version, this is the new way to set up SMART:

procedure SetupScript; //SetupScript: Clears debug
begin                         //                  Disguises
  ClearDebug;              //                  Sets up SMART and SRL
  Disguise('Running Tree Chopper');
  Smart_Server := World;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetUpSRL;
end;

You should try to learn about standards, so that it would be easier for people to read your script.