SRL Archive - First Scripts

Well, the title says what it is. It's my first ever script (duh), PowerChopper, cuts any tree anywhere. Has some anti-random and that's about it.
Please tell me script quality, how it worked for you, and what needs to be improved.

Thanks,
R1ch4.

EDIT: Forgot to upload script. :eek:

good job, but to let you know, you put "this is a powerminer" in your comments :)

Thanks, and I'm going to change that to Chopper.

EDIT: I've changed it to chopper, thanks!

it aint working for me
somethings wrong with line 19

Don't ask me Oh baby, I might know when I get more experienced, but….

Bump, any experienced scripters going to have a look?

Why do I have to bump this thread again? Coz there has been virtually no replies.

Dude, you have double posted 3 times. Don't bump, if you dont get any replies then it means..

• People are not actively viewing the forum at the time
• Your script doesn't have any appeal to people

Well, for one it doesn't compile..

Since its a woodcutter there is no FindEnt?

  if LoggedIn then Logout;
  LoginPlayer;

Whats the reasoning or this?.

Use either..

If(Not LoggedIn)Then LoginPlayer;

That will check if you are logged in, if not it will login

or just use LoginPlayer;
LoginPlayer checks to see if you are loggedin itself.

begin
  if (not SolveChatRandoms) or (not AreTalking) then
    Exit;
  Event := GetNPCEvent;

  case Capitalize(Event) of
    'Unknown': Exit;
    'Pious Pete':                                     // Candle Lighting
      begin
        Writeln(Players[CurrentPlayer].Name + ': Freak!');
        Logout;
        WorldSelect;
        NextPlayer(false);
        LogInSetup;
        Result := True;
        Exit;
      end;
    'Mysterious Old Man':                             // Maze + Pinball
      begin
        if ((GetColor(83, 431) = 0) and (GetColor(88, 418) = 0)) or
           ((GetColor(83, 430) = 0) and (GetColor(88, 417) = 0)) or
           ((GetColor(151, 426) = 0) and (GetColor(470, 393) = 0) and
           (GetColor(372, 370) = 128)) then
          begin
            SolvePinball;
          end
       Exit;
      end;
    'Quiz Master': FindQuiz;                          // Quiz Master
    'Prison Pete':                                    // ScapeRune balloons
      begin
        Inc(ScapeRunes);
        Writeln(Players[CurrentPlayer].Name + ': W00T! Party!');
        Logout;
        WorldSelect;
        NextPlayer(false);
        LogInSetup;
        Result := True;
        Exit;
      end;
    'Sergeant Damien': FindDemon;                     // Camo
    'Leo The Gravedigger':                            // Zombie
      begin
        Writeln(Players[CurrentPlayer].Name + ': I aint digging no graves! ');
        Logout;
        WorldSelect;
        NextPlayer(false);
        LogInSetup;
        Result := True;
        Exit;
      end;
    'Evil Bob':                                       // ScapeRune island
      begin
        Inc(ScapeRunes);
        Writeln(Players[CurrentPlayer].Name + ': An Evil Cat? AWESOME!!');
        Logout;
        WorldSelect;
        NextPlayer(false);
        LogInSetup;
        Result := True;
        Exit;
      end;
     'Freaky Forester':                               // Lederhosen
      begin
        Writeln(Players[CurrentPlayer].Name + ': Erm...Werid Birds');
        Logout;
        WorldSelect;
        NextPlayer(false);
        LogInSetup;
        Result := True;
        Exit;
      end;
     'Mr Mordaut':                                   // Surprise Exam
      begin
        Writeln(Players[CurrentPlayer].Name + ': I dont wanna go to school!');
        Logout;
        WorldSelect;
        NextPlayer(false);
        LogInSetup;
        Result := True;
        Exit;
      end;
  end;
end;

You dont even have a procedure name for this one..

How was it originally PowerMiner ?

TBH (Not trying to insult you or say this is the fact) but it sounds like you did not make this at all.

works great dude!!!!!!!!!!!!!!!!!!!!!!!!!!!!your going to be a great scripter

From: chip111
works great dude!!!!!!!!!!!!!!!!!!!!!!!!!!!!your going to be a great scripter

Spam or what? The script doesn't even compile.. Newbs..