SRL Archive - First Scripts

procedure Antiban;
begin
  if not LoggedIn then Exit;
  case Random(13) of
    0: begin
           case Random(7) of
                0: HoverSkill('Ranged', False);
                1: HoverSkill('Fletching', False);
                2: HoverSkill('Attack', False);
                3: HoverSkill('Crafting', False);
                4: HoverSkill('Smithing', False);
                5: HoverSkill('Summoning', False);
                6: HoverSkill('Slayer', False);
           end;
           writeln('Preformed Antiban "HoverSkill". ')
       end;
    1: begin
           GameTab(3 + Random(8));
           wait(1000 + random(800));
           GameTab(4);
           writeln('Preformed Antiban "GameTab swap". ')
       end;
    2: begin
           BoredHuman;
           writeln('Preformed Antiban "Bored Human". ')
       end
    3: begin
           MessageFriendEx(Friend[i], 'Hey nub.');
           writeln('Preformed Antiban "Msg Friend". ')
       end
    4:begin
           DoEmote(Random(36));
           writeln('Preformed Antiban "Random Emote". ')
      end;
  end;
end;

idk if i did anything right..

MessageFriendEx(Friend[i], 'Hey nub.');

for that.. i was thinking int he declare player or whatnot.. you can put the friends name.. idk so that all your players aren't msg'ing the same person. maybe do the same thing for the msg, might look a little suspicious having all your guys saying "hey nub".

Any suggestions or anything?

Ok, Anti-Ban is pretty simple to make , but good job. your standards look alright + i like the little msg "hello nub", my suggestion is maybe add in a different message, or even replies. or just turn p chat off :p

From: joelster134
Ok, Anti-Ban is pretty simple to make , but good job. your standards look alright + i like the little msg "hello nub", my suggestion is maybe add in a different message, or even replies. or just turn p chat off :p

Thanks for the reply, yeah i was thinking of having multiple msg's and maybe set up a little chat.. maybe make it so i can play my main.. and then auto and have convo with my bot to make it seem as if it wasnt botting. so maybe if i said a certain key word it would react to that word. and reply with a preset msg depending on that word.
only prob is i have NO idea how that would be done.

Lol, ill post an example one after school. also you could make it just do a emote when a chat msg/general msg shows up so it could be muted? just ideas :)

From: joelster134
Ok, Anti-Ban is pretty simple to make , but good job. your standards look alright + i like the little msg "hello nub", my suggestion is maybe add in a different message, or even replies. or just turn p chat off :p

I dissagree with turning the chat off. Every account that I have done that with, has been banned.

And s/he's doing well if the person already understands cases', am I right?
I didn't learn them until a little bit ago.

Ive been using an army for a few months now with no chatting , no bans at all. but yeah isee where your coming from. was just a suggestion

From: noidea
I dissagree with turning the chat off. Every account that I have done that with, has been banned.

And s/he's doing well if the person already understands cases', am I right?
I didn't learn them until a little bit ago.

lol he, and thanks. i understand cases cause i used them while coding in vb6 and c++ so the basic idea is the same.. just different syntax.

and yes. i just feel if there is a person thats not talking in normal OR private.. it kinda looks as if its not a real person.

Hey, just two things I've spotted/wondered.

First, you spelled Performed wrong :P.

Second, is it possible to make a case in a case?

Like this:

Case Random(5) Of

0: TypeSend('Text here');

1: Case Random(5) Of
    0: begin
           MessageFriendEx(Friend[i], 'Hey nub.');
           writeln('Preformed Antiban "Msg Friend". ')
    1:  begin
           MessageFriendEx(Friend[i], 'Whats up?.');
           writeln('Preformed Antiban "Msg Friend". ')

Etc.

From: Sand Storm
Hey, just two things I've spotted/wondered.

First, you spelled Performed wrong :P.

Second, is it possible to make a case in a case?

Like this:

Case Random(5) Of

0: TypeSend('Text here');

1: Case Random(5) Of
    0: begin
           MessageFriendEx(Friend[i], 'Hey nub.');
           writeln('Preformed Antiban "Msg Friend". ')
    1:  begin
           MessageFriendEx(Friend[i], 'Whats up?.');
           writeln('Preformed Antiban "Msg Friend". ')

Etc.

well if you can't have a case in a case thats kinda lame.. it should work just like nested if's and lol i suck :D

nice procedure just add anti-ban and randoms and IT will be an Awesome script

I like it. I never even thought of having cases nested inside of other cases. This is a lot more advanced scripting than you usually see in first scripts section. I am glad that you took the time to do more than

program FirstScript;
begin
WriteLn('W00t');
end.

H3y 3v3ry b0dy l00k 4t m3 1 c4n scrip7 sw337!!!!11!!1

ill give u an example send me this in a message to my email [email]impisforrs3@yahoo.com[/email]