PDA

View Full Version : Real life scripts


MetalancA
05-07-2009, 01:30 PM
Not sure if someone already made a thread about this but I don't give a fuck.




Program TakeOutTrash;
{.include life/life.scar}
{.include srl/srl.scar}

procedure Findtrash;
var
MyTPA : TPointArray;
x, y, i, H : Integer;
ATPA : T2DPointArray;
Trashcolor;= 545974
begin
FindColorsSpiralTolerance(KitchenCC, KitchenCD,MyTPA, TrashColor, KitchenC1, KitchenC2, KitchenC3, KitchenC4, 5);
ATPA := TPAtoATPA(MyTPA, 4);
if Length(MyTPA) = 0 then
begin
writeln('No trash? Not my problem.');
exit;
end;
H := High(ATPA);
For I := 0 To H Do
begin
MiddleTPAEx(ATPA[i], X, Y);
Move(x, y, 0, 0,True); //x, y : var 0, 0 : how many minutes to idle for. True: Take a break on the way?
Grabtrash;
end;
end;
end;

procedure walkoutside;
Doorcolor:= 4574597
DoorWalkDTM:= DTMFromString('78DA637464626078C680026A4B4B18E4803 42' +
'310FF070246909AEB103926B82A460636A81A300FA4E61301 3501' +
'08BB70AA3121428D0F50E6160135664099B74498F39E801A4 BC27' +
'60100B1831046');
begin
if not radialwalk(Doorcolor, 103, 340, 1, 1) then
if find DTMRotated(DoorWalkDTM, x, y, MVX1, MVY1, MVX2, MSY2)Then
begin
move(x, y, 0, 0, true);
end;
end;

procedure OpenDoor;
begin
DoorDTM:= DTMFromString('78DA637464626078C680026A4B4B18E4803 42' +
'310FF070246909AEB103926B82A460636A81A300FA4E61301 3501' +
'08BB70AA3121428D0F50E6160135664099B74498F39E801A4 BC27' +
'60100B1831046');

If DTMRotated(DoorDTM, x, y, MVX1, MVY1, MVX2, MVY2)Then //Main View X1, Y1, X2, Y2
begin
writeln('Fuck I got to the door. I need a break.');
end;
end;

procedure break;
begin
wait(50000+random(5000));
end;

procedure Loosefocus;
begin
if FindSquirrel(MVX1, MVY1, MVX2, MVY2) then
begin
repeat
Followsquirrel;
until(false);
end;
end;

procedure FindGirls;
begin
GirlsDTM:= DTMFromString('78DA637464626078C680026A4B4B18E4803 42' +
'310FF070246909AEB103926B82A460636A81A300FA4E61301 3501' +
'08BB70AA3121428D0F50E6160135664099B74498F39E801A4 BC27' +
'60100B1831046');

If DTMRotated(GirlsDTM, x, y, MVX1, MVY1, MVX2, MVY2)Then
begin
move(x, y, 0, 0, false);
case random(5) of
1: say('Do you have 99 mage? Because you put a spell on me');
2: say('Do you have 99 range? Because you shot an arrow through my heart');
3: say('Do you have 99 firemaking? Because you're smoking!');
4: say('Do you have 99 smithing? Because you're melting my heart');
5: say('Do you have 99 hunter? I've got a beast that needs to be tamed');
end;
if infight then
begin
repeat
radialrun(anywhere, 0, 360, 1, 1);
until(infight=false);
end;
end;
end;



procedure GoPking;
begin
LaptopDTM:= DTMFromString('78DA637464626078C680026A4B4B18E4803 42' +
'310FF070246909AEB103926B82A460636A81A300FA4E61301 3501' +
'08BB70AA3121428D0F50E6160135664099B74498F39E801A4 BC27' +
'60100B1831046');
If DTMRotated(LaptopDTM, x, y, MVX1, MVY1, MVX2, MVY2)Then
move(x, y, 0, 0, false);
Logontorunescape;
if FindBlackChatMessage('dear') then
if FindBlackChatMessage('dead') then
case random(3) of
1: Throwlaptop;
2: Yellatlaptop;
3: Punchlaptop;
end;
repeat
quitrunescape;
until(bored);
end;
end;




procedure FreeDTMs;
begin
if mindboggled then
begin
freedtm(GirlsDTM);
freedtm(DoorDTM);
freedtm(DoorWalkDTM);
freedtm(LaptopDTM);
end;
end;

begin
setupsrl;
setuplife;
repeat
findtrash;
walkoutside;
opendoor;
break;
loosefocus;
FindGirls;
GoPking;
freeDTMs;
until(dinnertime);
end.



MMkay?
Da 0wner
05-07-2009, 01:56 PM
Waste to write that lol. Not that funny.
MetalancA
05-07-2009, 01:58 PM
Waste to write that lol. Not that funny.

Go ---- yourself ;) It's supposed to be interesting not funny.
Shuttleu
05-07-2009, 02:19 PM
:eek: you dont free your DTMs

~shut
Da 0wner
05-07-2009, 02:43 PM
Not interesting either.
MetalancA
05-07-2009, 02:46 PM
Not interesting either.
---- off
Shuttleu
05-07-2009, 02:49 PM
i wanted to compile it
but it wont compile (crys)

~shut
Da 0wner
05-07-2009, 02:49 PM
Lol funny. You get mad so easily. It was a joke so gtfo noob.
Torrent of Flame
05-07-2009, 06:54 PM
Dude, calm the ---- down. Who cares what he says. It isnt interesting and it is a waste of time. Sorry to say it, but shut up, yeh? Not everyone will enjoy it, live with it.
Daniel
05-07-2009, 08:07 PM
Well i don't find it that amusing OR interesting to be honest..
Miitchyy
05-07-2009, 08:34 PM
Lol; If findsquirrel then follow squirrel until(false);
Hobbit
05-07-2009, 10:40 PM
Guy's stop provoking him. You've had your fun with him but stop now okay?
P1nky
05-07-2009, 10:58 PM
Lol this is funny :p
though dont like that useless F Bomb :p
n3ss3s
05-07-2009, 11:27 PM
I hope you faked those DTMs...
Floor66
05-07-2009, 11:40 PM
Lol n3ss. I hope so ;)
Sir R. M8gic1an
05-08-2009, 12:00 AM
your standards are crap. This script might get you srl members tho.

also, your missing repeat:

if FindSquirrel(MVX1, MVY1, MVX2, MVY2) then
begin // should be a repeat here
Followsquirrel;
until(false);


~RM
jakeyboy29
05-08-2009, 12:38 AM
your standards are crap. This script might get you srl members tho.

also, your missing repeat:

if FindSquirrel(MVX1, MVY1, MVX2, MVY2) then
begin // should be a repeat here
Followsquirrel;
until(false);


~RM

u saying we are crap?
Richard
05-08-2009, 12:45 AM
Hes saying the standards are crap, but he could get SRL Members. I have no idea where you got the idea of SRL Members being crap :p
jakeyboy29
05-08-2009, 12:48 AM
he said "your standards are crap. This script might get you srl members tho."
he says his standards are crap, but could still get srl members...
Naum
05-08-2009, 12:56 AM
No. It's wrong. You need to add a failsafe too go into action if the door closes if you outside like UseKey.

@Rm - he won't get members with it, surely not when Nava's on the case!
marpis
05-08-2009, 01:01 AM
writeln('No trash? Not my problem.');
terminatescript;

script = life.
you terminate script.
-> you kill your self?

i lol'd at the squirrel thing :P
ZaSz
05-08-2009, 01:05 AM
Where can I download the life include? I seem to not have 1 :p
MetalancA
05-08-2009, 03:13 AM
I apoligize for the swearing. I was having a bad day yesterday.

Anyways, I updated it with a FindGirls proc :p

My standards are off, but it really doesn't matter unless you're totally incapable of reading a script without spaces after begins and ends :)
noidea
05-08-2009, 03:18 AM
I lol'ed at FindGirls :p
You'd so fffked to say those thing though :p
Heavenzeyez1
05-08-2009, 03:23 AM
FindGirls; <333
I laughed really hard!
Good job.
~Eerik~
Shuttleu
05-08-2009, 03:42 AM
ahhh...
you still havent freed the DTM's

if MemoryFullWithDTM then
begin
Writeln('Uh oh my brain is too full with DTM''s :(');
TerminateScript;
end
:)

~shut
Richard
05-08-2009, 03:49 AM
Do you have 99 prayer? Because you look like you're from heaven
Do you have 99 hitpoints? Because I can feel your strong heart
Do you have 99 mining? Because you sure just made a good pick
Do you have 99 construction? Because you're build like a queen
Do you have 99 agility? Because you'll sure need your energy tonight!
Dynamite
05-08-2009, 03:52 AM
I lol'ed at:
''if infight then''

what happened? you tried to come onto her? :p
quite funny actually

T~M
MetalancA
05-08-2009, 04:45 AM
ahhh...
you still havent freed the DTM's

if MemoryFullWithDTM then
begin
Writeln('Uh oh my brain is too full with DTM''s :(');
TerminateScript;
end
:)

~shut




procedure FreeDTMs;
begin
if mindboggled then
begin
freedtm(GirlsDTM);
freedtm(DoorDTM);
freedtm(DoorWalkDTM);
freedtm(LaptopDTM);
end;
end;



Happy? :p
Sir R. M8gic1an
05-08-2009, 04:53 AM
he said "your standards are crap. This script might get you srl members tho."
he says his standards are crap, but could still get srl members...


will u chill already? this is a spam forum. It's a joke.

besides, he could get members! if someone applied with a script to take the trash out and it actually worked i wouldn't give a ... over him using DDTMs or RadialWalk as long as i wouldn't have to take care of my own trash :)

~RM
Richard
05-08-2009, 05:53 AM
Need to invent SCAR 3D, need 3 no. TPoints :p x, y, z. Then a 3DTBox, ahhh 9 figures!
Blumblebee
05-08-2009, 12:14 PM
my contribution:

Function BeatIt: Boolean;
var Parents, Siblings, PoppedOne, Finished: Boolean;
begin
if Inrange(Computer, 25, 25) and
(Parents = False) and
(Siblings = False) then
begin
repeat
begin
GetPage('www.redtube.com');
PoppedOne := True;
case Random(6) of
0: BeatTheMeat;
1: TugYourPud;
2: TickleYourPickle;
3: FluffyourStuff;
4: ChokeTheChicken;
5: GagtheOneEyedGopher; // Credits to Method: <Method^> gag the one-eyed gopher
end;
if Finished then
begin
Cleanup;
getpage('www.villavu.com');
PostOnThread('ReadLifeScripts');
Result := True;
Exit;
end else
begin
GetPage('MyFreePaySite.com');
Continue;
end;
end;
until Finished;
end else
DoSomethingElse;
end;

feel free to use in one of your scripts, as long as you credit :p
Nose Smasher
05-08-2009, 12:28 PM
Rofls...
tls
05-08-2009, 01:34 PM
add skinthesnake(howmanytimes:integer); to that list.
MetalancA
05-08-2009, 05:28 PM
Loool very funny Blumble :)
Torrent of Flame
05-08-2009, 07:44 PM
CreamSqueezeTheTwinkie;
TameTheTrouserSnake;
marpis
05-09-2009, 12:26 AM
function DinnerTime: boolean;
begin
if players[currentplayer].Loc = 'outdoors' then
if players[currentplayer].Hungry then
if players[currentplayer].Integers[euros] > 0 then
begin
GoToCandyShop;
BuyItem('ChocolateBar');
end
else
begin
CastSpell('Home Teleport');
TypeSend('MOOOM IM HOOOME');
if GetLastChatMessage = 'dinner is served honey!' then
begin
SetRun(true);
GoToKitchen;
case food of
'spaghetti':
begin
if InRange(Cheese, 9, 12) then TakeCheese;
Eat(TooMuch);
Vomit;
exit;
end;
'fish':
begin
if Distance(MyRoom, CurrentPos) < 14 then
begin
RunAway(fast);
Eat(Cookies);
exit;
end;
end;
end;
if InvFull then result:= true;
end;
MetalancA
05-09-2009, 02:59 AM
function DinnerTime: boolean;
begin
if players[currentplayer].Loc = 'outdoors' then
if players[currentplayer].Hungry then
if players[currentplayer].Integers[euros] > 0 then
begin
GoToCandyShop;
BuyItem('ChocolateBar');
end
else
begin
CastSpell('Home Teleport');
TypeSend('MOOOM IM HOOOME');
if GetLastChatMessage = 'dinner is served honey!' then
begin
SetRun(true);
GoToKitchen;
case food of
'spaghetti':
begin
if InRange(Cheese, 9, 12) then TakeCheese;
Eat(TooMuch);
Vomit;
exit;
end;
'fish':
begin
if Distance(MyRoom, CurrentPos) < 14 then
begin
RunAway(fast);
Eat(Cookies);
exit;
end;
end;
end;
if InvFull then result:= true;
end;


I lol at that :p
ShowerThoughts
05-09-2009, 03:06 AM
function DinnerTime: boolean;
begin
if players[currentplayer].Loc = 'outdoors' then
if players[currentplayer].Hungry then
if players[currentplayer].Integers[euros] > 0 then
begin
GoToCandyShop;
BuyItem('ChocolateBar');
end
else
begin
CastSpell('Home Teleport');
TypeSend('MOOOM IM HOOOME');
if GetLastChatMessage = 'dinner is served honey!' then
begin
SetRun(true);
GoToKitchen;
case food of
'spaghetti':
begin
repeat
EatItem('ChocolateBar');
until (ToTall)
exit;
end;
'fish':
begin
if Distance(MyRoom, CurrentPos) < 14 then
begin
RunAway(fast);
Eat(Cookies);
exit;
end;
end;
end;
if InvFull then result:= true;
end;


You made a little mistake.
IMO you should the chocolate bar if you buy one.
/facepalm :p