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?
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?