SRL Archive - SRL Archives

Procedure DontBanMe(mins : Integer);
 var
 DBanMe : Integer;
 if((TimeFromMark(PickUpMouseMark)/1000)/60>=mins)then
  begin
  SetMessageFriendEvery(270000+Random(50000),-1, ['Hey', 'Yo', 'Sup', 'Brb', 'Combat?', 'LOL', 'so what u trainin on??', 'i think that training is BorrrIngggggg!', 'can you give me 10m pls =)', 'lol are u joking??']);
   DBanMe:= Random(20);
    case DBanMe of
     1: RandomRClickEvery(2 + Random(13));
     2: hoverskill('random');
     3: RandomChatEvery(10 + Random(5));
     4: RotateEvery(20 + Random(10));
     5: LeaveScreenEvery(5 + Random(5));
     6: HoverEvery(15 + Random(5),'random');
     7: MessageFriendEvery;
     8: PickUpMouse;
     9: BoredEvery(9 + Random(24));
     10: DragItem(1, 1+Random(18));
     11: GameTab(1 + Random(12));
     12: DoEmote(1 + Random(20));
     13: PolyGlotTalk;
   end;
end;

Maybe you could use an array of possible messages for the case where you talk to a friend. Other than that…Looks good. :)

P.S Formatted it for you.

[PHP] Procedure DontBanMe;
var
DBanMe : Integer;
begin
DBanMe:= random(13);
case DBanMe of
1: RandomRClickEvery(2 + Random(13));
2: hoverskill('random');
3: RandomChatEvery(10 + Random(5));
4: RotateEvery(20 + Random(10));
5: LeaveScreenEvery(5 + Random(5));
6: HoverEvery(15 + Random(5),'random');
7: if(IsOnline(1)) then MessageFriend(1,'Hey Dude, Whats up ?, Brb!')
8: PickUpMouse;
9: BoredEvery(9 + Random(24));
10: DragItem(1, 1+Random(18));
11: GameTab(1 + Random(12));
12: DoEmote(1 + Random(20));
13: PolyGlotTalk;
end;
end;[/PHP]

DBanMe:= Random(13);

Should be

DBanMe:= 1 + Random(13);

Or even higher, my powerminer has such a procedure, you could check it out.

By making 13 higher, it will not alwas use a Antiban. :)

From: Spky

DBanMe:= Random(13);

Should be

DBanMe:= 1 + Random(13);

Oh My God spky your always one step ahead of me. Everytime i see threads like this im like yes time for me to help out and damn youve always got there first.

ill make it so random messages are said to the friends next :)

From: Spky

DBanMe:= Random(13);

Should be

DBanMe:= 1 + Random(13);

This could be easily fixed by making it start from 0+

Why not incorperating 2 of my Procedures::rolleyes:

[PHP]{******************************************************************************}

procedure RemainItems(item : string);
var i: integer;
begin
i:= 28-InvCount
case (random(6)) of
0: TypeSend('only '+IntToStr(i)+' '+item+' left');
1: TypeSend('i have to get '+IntToStr(i)+' more '+item+'');
2: TypeSend(''+IntToStr(i)+' '+item+' left');
3: TypeSend('only '+IntToStr(i)+' more '+item+' left');
4: TypeSend(''+IntToStr(i)+' more '+item+' left');
5: if (i > 20) then TypeSend('almost done') else TypeSend('boring');
end;
wait(50+random(50));
end;

{******************************************************************************}

Procedure RClickExamine;
begin
begin
MMouse(Random(MSX2), Random(MSY2), 0, 0);
If IsUpText('opti') then
begin
GetMousePos(x,y);
Mouse(x, y, 0, 0, False);
case Random(3) of
0: ChooseOption(x, y, 'Examine');
1: ChooseOption(x, y, 'Cancel');
2: MMouse(Random(MSX2), Random(MSY2), 0, 0);
end;
Wait(Random(50) + Random(50));
end;
end;

{******************************************************************************}[/PHP]

No one ever looks at my threads..:( :p

From: Pyro
Oh My God spky your always one step ahead of me. Everytime i see threads like this im like yes time for me to help out and damn youve always got there first.

Sowwy :p.

From: jon buddy
This could be easily fixed by making it start from 0+

Yeh, but then you would have to re-number them all, unless you put 0 at the end, but why ?

Cheesehunk I added your "RemainItems" procedure to SRL :)

Ollie, work on your procedure and I will be gald to add it, make it so that it doesn't always preform and antiban. :)

From: Bebemycat2
Cheesehunk I added your "RemainItems" procedure to SRL :)

Ollie, work on your procedure and I will be gald to add it, make it so that it doesn't always preform and antiban. :)

Thanks Bebe!:)

By the way, not bad ollie!

Edit: maybe replace it with this one Bebe? I updated it a bit.
[PHP]procedure RemainItems(item : string);
var i: integer;
begin
i:= 28-InvCount
case (random(8)) of
0: TypeSend('only '+IntToStr(i)+' '+item+' left');
1: TypeSend('i have to get '+IntToStr(i)+' more '+item+'');
2: TypeSend(''+IntToStr(i)+' '+item+' left');
3: TypeSend('only '+IntToStr(i)+' more '+item+' left');
4: TypeSend(+IntToStr(i)+' more '+item+' left');
5: TypeSend(+IntToStr(i)+' left');
6: TypeSend(+IntToStr(i)+' more');
7: if (i > 20) then TypeSend('almost done') else TypeSend('boring');
end;
wait(50+random(50));
end;[/PHP]

Sorry for using up your thread ollie..:o

;o Yay! My MessageFriend things are in a Script! *Jumps up and down*

There's a MessageFriendEvery if you wish to use it. First you have to set everything in:

SetMessageFriendEvery(Seconds, Row, [Messages]);

Since the last param is an array you can make it send more than 1 message, at random. It dosn't send the same message twice:

SetMessageFriendEvery(Seconds, Row, ['Hey', 'Yo', 'Sup', 'Brb]);

You need those brackets around the messages, as it's an array. Leaving Row at -1 will make it choose a random online person and message them.

After you've done that you just need to put:

MessageFriendEvery;

and it does the rest. You only need to use both of these once in the script, it uses timeouts. ;)

Looks good.

Yes!

You are all finally getting the hang of this! It is not at all about getting as much pixelmoney as we can (though it is nice being rich), it is a bout staying alive and fooling legits.
Though I always feel kinda sorry when people start dancing with me……fools :)

i added a timescale to it and changed it to XxxKanesxxX Message Friend Shit :)

What do you think to my HitOrMiss?