SRL Archive - First Scripts

h this is my powerminer .. jst stand near rocks ect but can someone tell me wat to improve on pls thatwould be good :)

spaz

not bad for your first script ;)

Just remember that it is a VERY bad idea to have random talking in your antiban because although it is randomized it could type the exact same thing two to three times per load and it would look very bot-like.

Maybe you could make a DTM dropper to make it your dropping more reliable…

I would say learn walking techniques and convert this into a banker as well

Keep it up :D

new version? :)

case random(6)+1 of
0: PickUpMouse;

random six will be numbers from 0-5, and since you add 1 to it it'll be numbers from 1-6. meaning it'll never do PickUpMouse:p

  begin
    Writeln('Gas found!');
    Mouse(250, 170, 100, 100, True);
    MarkTime(GasTime);
    while(TimeFromMark(GasTime) < 35000)do
    Wait(RandomRange(500, 1000));
  end;
  end;

Mouse(250, 170, 100, 100, True);
actually i just found something to add to that :p
Mouse(250, 170, 100, 100, False)
ChooseOption('alk here');
that'll be even better :)

also in line 420 you can take that credit out :p

n i would also take out the wait in findgass and do
if FindGass then break; in MineOre. if it finds the gas it'll move away from it and start looking for a different rock.

~RMagician:)

reply bak dude

:f: good script man

sweet man, good luck with getting it better

another idea: for example if he wants to mine coal, but there is no coal make it look for iron. if there is no iron make it look for tin. if there is no tin make it look for copper :)

RMagician

lol btw i jsut noticed i mistake i made you make >.>

lines 360+ need to be changed, otherwise everyone will be mining copper :P we need to put else in there

  If(level >= 38) then
    begin
    Players[CurrentPlayer].Strings[0] := 'Coal';
    end else
  If(level >= 17) then
    begin
    Players[CurrentPlayer].Strings[0] := 'Iron';
    end else
  If(level >= 7) Then
    begin
    Players[CurrentPlayer].Strings[0] := 'Tin';
    end else
  If(level >= 1) Then

i think there's a way to do it without the begins n ends but i gotta leave for school.

RMagician

Great script for be your first, i just try it keep doing like that and you will be a good scripter :)

gud script ….
nice script 4 ur first 1

Hmm Ill give this script a try, thanks for making it =)