PDA

View Full Version : Cut em includes!!!



Raskolnikov
12-08-2007, 06:58 AM
Alas!!!(I know it's lame but it brings you in you have to admit) I have compiled a [large(soon)] amount of functions and procedures. Here's how it's supposed to be included:

{.include CutIncludes/CutEmIncludes2.scar}

This means all you have to do is download the file I'll bring up, make a folder named CutIncludes and place the folder with the file in it directly in your includes folder.

This has:

procedure BankWithdraw by IP-Drowner
function TimeOverIt by cut em2 it
function Find And Use by Dumpin
function RandomClick by Dumpin
function FindSymbolCustomColorIn by fORCE_wORKS
function SuperTradeScreen by Rasta Magician

Cut em2 it

P.S. PM me if you want your function/procedure in my include.

Naum
12-08-2007, 09:57 AM
Yea thats pretty good.

Could use some anti ban:p :

procedure Search;
Var f, e : integer;
begin
mouse(645, -15, 1, 1, true)
wait(800 + Random(200))
begin
case Random(7) of
1: SendText('Macro?')
2: SendText('Mining')
7: SendKeys ('-')
end;
MMouse(727, -9, 1, 1)
e := 5 + Random(6); //Of Almost Logout credits to Yakman :)
for f := 0 to e do
begin
case Random(3) of
0, 1: MMouse(727 + Random(10), -9 + Random(10), 0, 0);
2: IdleTime(300 + Random(300), 500, 0.5);
end;
FTwait(2 + Random(1));
end;
end;
end;

Raskolnikov
12-08-2007, 03:55 PM
I'll put that in here.

Naum
12-08-2007, 08:08 PM
KK no problem pm me if you need any more functions/ procedures :p

Dumpin
12-11-2007, 07:46 PM
unction FindAndUse by Dumpin

yeh yeh thanks for asking :o

Np use it ;P but next time ask it plz :D

EDIT: just noticed you did in my topic, didn't saw it soz.

EDIT2:

http://www.villavu.com/forum/showthread.php?t=20556

http://www.villavu.com/forum/showthread.php?t=21058

use it if you want.

Raskolnikov
12-14-2007, 11:30 PM
I will be gathering more

@Dumpin,

Thanks, I used one of those.

Cut em2 it

Naum
12-15-2007, 08:54 AM
Ive got another for you.:

Called ToBankers. Will walk to bankers.

Only works for fally


procedure TryAgain; // Cool procedure :p
var
Banker:integer;
Walked:Boolean;

begin

Banker := DTMFromString('78DA63BCC5C4C0F0870105FCF9C3C4F01F4 83' +
'302F17F2060BC0D54F30B55CDBF7F7C609A11CA67BC0354F3 9701' +
'0D30A2AA01D9F58F809A9B4035BFD1ED124651030006FB145 5');

if (not(FlagPresent)) then
begin
MakeCompass('W')
if FindDTM(Banker,x,y,597, 26,634, 90) then
begin
Mouse(X+15,Y-1,3-2,0+1,True)
Walked:=True
FFlag(0);
end;
end;

FreeDTM(Banker)
end;

Raskolnikov
12-18-2007, 12:18 AM
Thanks, and two things

Edit:Figured it out :D
2) Good job on getting members :D

Daniel
12-18-2007, 05:40 AM
Do not forget to update my BankWithdraw procedure. It now deposits.

Naum
12-18-2007, 05:55 PM
Thx cut em

Sir R. M8gic1an
12-18-2007, 08:03 PM
here:
SuperTradeScreen - RM (http://www.villavu.com/forum/showthread.php?t=17303)

you can add that, it's 100% sure to get you the right answer. :)

Raskolnikov
12-19-2007, 12:27 AM
I will post next revision now.