SRL Archive - Other Scripts

Tug-O-War for neopets.


R0b0t1

2007-03-29 21:54:58

I expect to make this into a great script, and to beat the "SEND TO STAFF" feature they recently put in.

I YOU'RE NEED HELP!
What I currently need -
The keys that pop up in the bubble (the yellow one)… The most common.

ANY CODING HELP POSSIBLE . I would really appreciate any thing you have to offer, as long as it is of worth some value. I would really apreciate help on anti ban stuff.

PS. how do I repeat something 3 times?


{MADE BY R0B0T1!!!!!!
Dont' redistribute without this notice.
This is free, if you paid, your got scammed}
program TugOWar;
Var
x, y:Integer;

Procedure Waitl;
begin;
Wait(30+random(11));
end;

Procedure Waitsm;
begin;
Wait(0+random(6));
end;

Procedure Check;
begin;
If (FindColorTolerance(x, y, 3983593, 40, 5, 215, 85, 50))Then
begin;
KeyDown(GetKeyCode('q'));
KeyDown(GetKeyCode('w'));
KeyDown(GetKeyCode('e'));
Waitl; Waitsm;
KeyUp(GetKeyCode('q'));
KeyUp(GetKeyCode('w'));
Keyup(GetKeyCode('e'));
KeyDown(GetKeyCode('q'));
KeyDown(GetKeyCode('w'));
KeyDown(GetKeyCode('e'));
Waitl; Waitsm;
KeyUp(GetKeyCode('q'));
KeyUp(GetKeyCode('w'));
Keyup(GetKeyCode('e'));
KeyDown(GetKeyCode('q'));
KeyDown(GetKeyCode('w'));
KeyDown(GetKeyCode('e'));
Waitl; Waitsm;
KeyUp(GetKeyCode('q'));
KeyUp(GetKeyCode('w'));
Keyup(GetKeyCode('e'));
end;

begin;
repeat;
Check;
KeyDown(GetKeyCode('v'));
KeyDown(GetKeyCode('x'));
KeyDown(GetKeyCode('n'));
KeyDown(GetKeyCode('c'));
KeyDown(GetKeyCode('b'));
KeyDown(GetKeyCode('m'));
waitl; waitsm;
KeyUp(GetKeyCode('v'));
KeyUp(GetKeyCode('x'));
KeyUp(GetKeyCode('n'));
KeyUp(GetKeyCode('c'));
KeyUp(GetKeyCode('b'));
KeyUp(GetKeyCode('m'));
until(False);
end.

Any comments?

wuzbob

2007-04-15 13:17:32

I'll try it out here quick then give u feedback

R0b0t1

2007-04-15 21:45:46

I have a private script that is sure to get you banned

Wizzup?

2007-04-16 05:21:05

Looks ok. :)

Try the Trouble at Neopians Bank game, it is macroable, check the highscores. ;)

http://www.neopets.com/games/play.phtml?game_id=371

wuzbob

2007-04-16 18:34:35

doesnt work..

syberium

2007-04-16 18:40:52

are you sure u made this? i know for a fact that a script very similar to this (spamming all the keys the tug o war uses) was made on moparisthebest. it got took down because of leechers but this looks alot like it.. did u copy the idea from that script?

R0b0t1

2007-04-18 20:55:42

I copied the general IDEA but not the script. You see, I was making a part that would sense the bubble were you type QWE or something. I have made that, and sorry if you thought I copied it.

I also did make one for the bank one, and I ended up getting banned for it. I got 20k points…. Lawl.

teuneboon

2007-05-15 16:16:17

Doesn't work, gives this error: [Error] (66:4): Identifier expected