SRL Archive - First Scripts

Hey guys, *Scripter* here well ive just finished making my first script a alcher =) i give credits to Sebo for helping me :).

I recommend that you do this at duely wall (upstairs) becuase theres no randoms there and dont worry iv got a little auto respond.

Heres the script

program AutoAlcher;
{.include srl/srl.scar}

Var
  x, y, Alch : Integer;

Const
    Alchs = 10; //How many alchs to do?
    AlchColor = 0; //The Golden Alch Color.

Procedure AutoRespond;
var
  LastLine : string;
begin;
  LastLine := GetNewChatMsg;
  If (Pos('lvl',LastLine) > 0) Or (Pos('mage',LastLine) > 0) Or (Pos('magic',LastLine) > 0) Or (Pos('lv',LastLine) > 0) Then
  Begin
    case random(5) of
      0: TypeSend(''); //Set To Your Magic Level, Add Smileys On For More Human Like
      1: TypeSend('not saying :P');
      2: TypeSend('1 =S');
      3: TypeSend('im trying to alch -.-');
      4: TypeSend('ill tell you when im 99 =P');
    end;
  end;
end;

var
  LastLine : string;
begin;
  LastLine := GetNewChatMsg;
  If (Pos('hi',LastLine) > 0) Or (Pos('hello',LastLine) > 0) Or (Pos('hey',LastLine) > 0) Or (Pos('sup',LastLine) > 0) Then
  Begin
    case random(5) of
      0: TypeSend('hello');
      1: TypeSend('hi');
      2: TypeSend('hi... can you go away im trying to alch -.-');
      3: TypeSend('yo!');
      4: TypeSend('wassup');
    end;
  end;
end;

Procedure AutoAlch;
begin
repeat
  if (FindColor(x, y, AlchColor, 0, 0, 0, 0)) then
  Mouse(x1, x2, y1, y2, True);
  Wait(3250+random(100));
  Alch := Alch + 1;
until(Alch = Alchs);
end;


begin
SetupSRL;
AntiBanMe;
AutoAlch;
end.

Pls report bugs, and this is very very basic, if you want to help just pm me :)

K, I got to help you a bit more, AFAIK, you didn't change the X1 stuff I told you to :S, oh yeah

FYI dont ask for rep.

I dont think this will work though.. It will won't click the magic tab, it won't log in, and the loop will click the alch button, then it will just keep looking for the alch button while it is in the inventory. It won't click what you would like to alch. This will never work, but nice job for trying. If attemt another script, alteast you know the basics :)

looks good, will try it some time

well what i need to add in?

From: tidla ownage
looks good, will try it some time

all your doing is spamming if you look, it doesn't click on the mage tab. It only with look for it in inventory. DON'T SPAM

its good not bad for 1st /dude dont use typesend…\ and add more anti-ban


keep trying

Why not use typesend? I thought that was best…?
The majority of the script looks solid to me.
If I get time I'll try it out Scripter and let you know.

11-25-2007

don't gravedig.