PDA

View Full Version : The Public Private Message Game



Sp0rky
03-09-2009, 05:02 PM
Well, this game is fairly simple and fun, you go into your private messages, find the oldest one you have, and copy paste it here along with what date it's from.

I'll start :p

I have a total of 649 messages of which the latest I can find is :

Re: MSN :( - 08-28-2007, 11:54 AM




It was not me who added you to that mass convo, I swear on my life. I was even AWAY from my computer for 6 hours before I saw my MSN with that convo open, because I was at the beach today, swimming in the lake.. :\ So please, do not get bad at me for something I did not do.

Consider your options please :(

~Harry

That's bullshit. You're the only person I know in that convo, and that means you clearly added me.

Lies.

Give me 3 good reasons why I would even want to add you to that convo. Oh, and btw, have you ever thought of someone picking up your MSN some other time while you were in one of those convos before? And Jason2gs was in there too, as well as other people. Anyone else you know that you want me to prove my chat logs? :@

Plus, I know what happend last time you thought I added you to a convo, so why would I do it again?????

It's some argument with hy about someone inviting me into a mass conversation on msn xD



I also found this one which amused me:

Re: Scar 2.03 - 10-03-2007, 05:39 AM



Heya freddy.

Sorry to bother you again, but I was recently talking to Dylock about the SCAR 2.03 source code. I was told by him, that he would only give it to me with your permission.

I would love your permission for him to send me the source. I am an enthusiastic delphi programmer and it would be a dream come true to view it.

Please reply soon.

~Sp0rky
You have absolutely no permission, SCAR is closed source and it will remain that way.

But I still got it :x Teehee.


Old pms are fun, Share them! =D

Harry
03-09-2009, 05:13 PM
Heh, I feel so embarrassed now :(

I had a huge PM archive, I reformatted it and lost it though.

But probably the oldest PM proof that I have is from when you infracted me :p
http://i43.tinypic.com/35v6v.png
(Yes, I do have 2 pages of infractions, which I regret..)

Torrent of Flame
03-09-2009, 05:13 PM
Hey torrent of flame I was wondering if I could use your procedure from your woodcutting tut. The one i want to use is the one that cuts the willows. I won't use exactly the same things, it just looks a little like it. THANKS you have been a HUGE help!! I'll make sure to credit. P.S. i rep++ u!:D

Yeah mate, thats what the tutorial is for. Help =]


Tis my oldest one.

Sp0rky
03-09-2009, 05:21 PM
Haha, Hy and torrent, both funny pms xD

What date is that from torrent?

Torrent of Flame
03-09-2009, 05:22 PM
03-27-2008, 07:30 Am

EvilChicken!
03-09-2009, 05:50 PM
Tell your mate to not move account to BH. Almost died again. ;/

BTW, you want 99 str on him, right? Dont want attk or def changed?


80 attack and rest str..

Kinda why he got pissed when you sould his whip.. :p
Seriously, don't do that again.

And, stuff keeps dissapearing on y account, whats up with that?

And why auto on lobster fishing?

Just.. wondering.. ^_^
I NEVER SOLD THE WHIP. I never bought / sold anything on any of your accounts. Either other people know your password, or he is a bit confused (not flaming your mate or anything, he sounds like a good kid ^_^)

As I said above, I never touch your items
All I do it equip the best armor and weapons that are non-degradeable and use em.

Lobster fishing = Fail . too many unsolveable randoms.


Then... Someone knows our passwords..?!
I'll change them once I get time and PM 'em to you.

Didn't Markus promise to get fire cape on my account? :p
And, are you saying you don't fish lobsters on my account?! Ø_ø Then who the fuck is it..?
Markus probably :p I'll contact him. He was only supposed to get f cape.

Oldest PM I have in my inbox.
Aah, good times ..

n3ss3s
03-09-2009, 05:55 PM
Somewhy my inbox is 6 pages long, even I have 700+ pms total...



Ok, well thanks for the help before. Got it working finally but now I'm in another problem. I am trying to follow Markus' guide to adding scar to scripts, but every time I run a script I am getting this error in SRL.scar.


Line 78: [Error] (12708:62): Syntax error in script C:\Program Files\SCAR 3.14\includes\SRL/SRL.scar

This is what I placed into the script like he said...


procedure SetupSRL;
begin
{$IFDEF SMART}
SmartSetup({your prefix here}, false, {signed? true/false});
wait(10000+random(5000));
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
{$ENDIF}

Thanks if you can help me, and thanks anyway if you can't!

--Hitman <3

bullzeye95
03-09-2009, 08:52 PM
12-30-07

haha, can i know the way to get around rwt update?
Ray abused his mod powers on my sig..

Dervish
03-09-2009, 08:56 PM
?



~D-M

Nothing funny, just wierd :p

mastaraymond
03-09-2009, 09:49 PM
Ray abused his mod powers on my sig..
huh?

Yakman
03-09-2009, 10:10 PM
this is my oldest one, it involves me fishing around for support to see a non-runescape script, which back then were quite rare.



hi sumilion

you were there when i was made an SRL member, you liked my ice magicks game

well i made another script and i spent a lot of time on it, but im a bit annoyed because no-one around here looks at "other scar scripts"

the script is a utility which has some useful stuff on it, everyone on moparisthebest liked it

so please, take a look in "other scar scripts", the link is also in my sig (but no-one looks at sigs ether)

Sure, i'll check it out ;), im very busy executing my master plan to earn a nintendo wii with runescape tho :biggrin:

anyone seen Sumilion lately? he and i used to be quiet good buddies

bullzeye95
03-09-2009, 10:20 PM
huh?

"I found out how to get around the trade filter. PM me if you want to know!"

Brain
03-09-2009, 10:22 PM
do you use 3.14 with the miner or scar 3.15?

Scar 3.15 , SRL 14

How can i do that?


Ummm....well.....I can send you the install file for 3.15, and you just download subversion 14 from scar

I have 3.15 and rev 15 i just dont understand how to downgrade to rev 14

Alright, It's not too hard, on the scar window click on "File" and then about half way down there are two revision options (with a little green arrow). you wanna click on the "Update SRL SVN to Rev", and then just type in the revision number you want to download, and boom, all set at the lower revision.

Sorry it took so long to respond...I didn't see I got a PM, nothing popped up like usual, hope that helped

Is what i need to click on called revert? Cuz if it is its gray and i cant click on it. If it isn't i don't know what to click on
I'll send ya a screenie after school :)


alright



http://i257.photobucket.com/albums/hh208/brainanator/untitled-2.jpg
Alright, here it is, hope it helps :)

dishes mine 4-24-08

tls
03-09-2009, 10:29 PM
mine isn't very old...





here is a compiling version! your welcome in advance!

-Morm

thnks got it working!

senrath
03-09-2009, 10:33 PM
Hey, as you can see in my sig, I'm making a script to auto do the quest Rune Mysteries, and I'm just making sure that it's okay to use your FindColorArea script in it.

Lol, funny your making once of those because I have one coming out, almost done with it XD :p And yes, you can use my findcolorarea function. Just remember that its 1,2,4 and 5 for the main screen. Just give credits for it please and it will be no problem. Good luck, I hope yours sucks so you don't show me up :p (half kidding lol)
04-17-2007

Ah, I remember that script attempt. Its walking was horrible, it's NPC finding was a joke, and I never finished it. I'll have to do that one of these days.

Shuttleu
03-09-2009, 10:37 PM
oldest one i can find
2008-04-17 20:41

Name: Gabe0002
Pass: amgabes

Anyway, I am trusting you here! Well not like you can steal anything. I'll almost always be in seers anyway. I auto with nexus overnight lol. I am EST time so if you need it for a specific time I might have a different timezone.
:)

~shut

Widget
03-09-2009, 10:42 PM
Hey...You're Making A Merchanter, I Guess We Could Do It Together. How'd You Become A Member Though..?

P.S - I Capitalise Every First Letter Because I Like It That Way (h)
Brings back memories of when that was actually possible to make :p

cause
03-10-2009, 02:43 AM
yo Xerxes, Flyboy told me about this bashing thing (dont tell him i told u what he told me) so, now i get this little logo thing, "Novice Basher" (im gonna bug flyboy to give it a little better title) anyways, (Flyboys my uncel tahts why i can bug him, plus i just worked like 6 hours for him painting his house, so u get the picture) ANYWAYS, got any hints for bashin the pants off kane?

My brian aint working atm but you can always do the following:

Kane was in love with bebemycat2 or something.
Kane ripped my tutorial.
Kanes is a ugly emo that looks like a girl..

hell I know..I am too tired too atm just kick his ass :P

u gotta escuse my noobieness, but what in the earth is "emo"? ive seen kane and man, hes super ugly, also for buggin him, im thinkin, bash up Greenday? what do u think?

dunno man i am too lazy for this stuff i just kick his ass with stuff..you can always call him Asskisser hell i know..:p emo == google.
btw: 03-31-2006, 02:38 PM
Ha those were the good ol days!

JAD
03-10-2009, 03:15 AM
05-10-07

Program YohojosPowerChopper;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\woodcutting.scar}
{.include SRL/SRL/extended/xMapWalk.scar}

var
{->Tree Names / Up Text<-}
ObjTree1,ObjTree2,ObjTree3,TreeT,TreeT2:String;
{->Variables For Progess Report<-}
Cut,Loads:Integer;
{->DTMSt<-}
DTMLogs,Drop,Axe,Axehandle,Ent:Integer;
{->Random Letter Variables<-}
Q,Z,L,I,P,G:Integer;
{->Tree and Axe Colors<-}
TreeColor1,TreeColor2,TreeColor3,PlayerStart,WaitT awime,Tr,Ee:Integer;
{->Variables for Axe Procedures<-}
Handle,CHead,CHead2,CHead3,BrokenHead,FAxColor,Axe LocNum:Integer;
{->Time Variables<-}
Chop:Integer;
{->Color-}
TreeRef,Tolerance:Integer;
{->TPoints-<}
TreeColor:TPointArray;
{->Co-Ords-<}
CurrentPosX,CurrentPosY:integer;

TreeRef


//----------------------------------------------------------------------------//
//---> Players
//----------------------------------------------------------------------------//
Procedure DeclarePlayers;
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0;

Players[0].Name :=''; // Usernmae
Players[0].Pass :=''; // Password
Players[0].Nick :='joh'; // Few letters of username
Players[0].Active:=True; // Use char for this session
Players[0].WaitTime :=3; // Max wait (seconds) before clicking tree
Players[0].Integer1 :=1; //1=Normal 2=Oak 3=Willow 4=Maple 5=Yew 6=Magic
Players[0].Integer3 :=265228; //TreeColor
end;

Function FindTree(Click:Boolean):Boolean; ForWard;
Function RandomTreeColor:Integer; ForWard;

//----------------------------------------------------------------------------//
//---> Loads DTMs
//----------------------------------------------------------------------------//

Procedure Load;
begin
WriteLn('Loading DTMs and Bitmaps');
DTMLogs:= DTMFromString('78DA639CCAC4C0E0C1C8800A18914820BD0 8A' +
'8C695809A79403551F8D50000BF8402CF');
Axe:= DTMFromString('78DA63AC646260B8C18006189148209D055 4F' +
'382809A5CA09A3704D45400D53C20A0A610A8E63A7E3500BD A806' +
'B6');
Axehandle := DTMFromString('78DA637CCFC4C0E0C6C8800CCA227819FE0 36' +
'990E87F2060FC06546389AA06220B2381F473A09A00026ADE 00D5' +
'F81350F316A8C685809A97403541F8D50000D0090D3C');
BrokenHead := DTMFromString('78DA634C656060C86640038C4824900E051 29' +
'504D4A4008974026A6281441A01351940220FBF1A00AA5304 12');
Drop := BitmapFromString(28, 2, 'z78DA737343000330307531353' +
'1317723421C5916BF5E08401687A8245EBD1B05EEC47421A9 7A89' +
'170700C40A5011');
Ent := DTMFromString('78DA636C63606078C68002EEDDBBCB2002A 41' +
'981F83F1030CE0332DE41E458A16AEEDEBD035703028CEB81 C463' +
'5435AF5E3E4155F310483C87B00561E6DC61649043520300A B3E1' +
'46C');
end;

//----------------------------------------------------------------------------//
//---> Axe Position and Colorfinding Procedures
//----------------------------------------------------------------------------//

Procedure GetAxeLoc;
Begin
WriteLn('Fining Axe');
If NoGameTab Then
Logout;
Gametab(4);
Wait(100+Random(300));
If FindDTM(Axe,q,z,551, 203,741, 464)then
Begin
AxeLocNum:=1
WriteLn('You axe is not equiped');
Exit;
end ;
begin
Gametab(5);
Wait(100+Random(300));
If FindDTM(Axe,q,z,MIX1, MIY1,MIX2, MIY2)then
Begin
AxeLocNum:=2;
WriteLn('You axe is equiped');
Exit;
end else
AxeLocNum:=3
Logout;
end;
end;

Procedure OpenAxeTab;
Begin
Writeln('Opening AxeTab');
Case AxeLocNum Of
1: GameTab(4);
2: GameTab(5);
end;
end;

Procedure ReportAxeProblem;
Begin
OpenAxeTab;
If FindDTM(AxeHandle,x,y,MIX1,MIY1,MIX2,MIY2) Then
Begin
WriteLn('Axe Head Missing')
end;
If FindDTM(BrokenHead,x,y,MIX1,MIY1,MIX2,MIY2) Then
Begin
WriteLn('Axe Head Broken')
Logout;
end;
end;

Procedure GetAxeColor;
begin

If (AxeLocNum=1)then
begin
WriteLn('Getting axe colors');
OpenAxeTab;
Wait(100+Random(100));
CHead:=GetColor(589, 221);
CHead2:=Getcolor(592, 221);
CHead3:=Getcolor(589, 218);
Handle:=Getcolor(580, 230);
Writeln('Axe colors are ' + inttostr(CHead) + ' ' + inttostr(CHead2) + ' ' + inttostr(CHead3));
End;
If (AxeLocNum=2)then
begin
WriteLn('Getting axe colors');
OpenAxeTab;
Wait(100+Random(100));
CHead:=GetColor(595, 295);
CHead2:=Getcolor(599, 297);
CHead3:=Getcolor(598, 295);
Handle:=Getcolor(589, 304);
Writeln('Axe colors are ' + inttostr(CHead) + ' ' + inttostr(CHead2) + ' ' + inttostr(CHead3));
end;
end;

Function HandleFound:Boolean;
Begin
If FindDTM(AxeHandle,x,y,MIX1,MIY1,MIX2,MIY2) Then
Begin
Result:=True;
end else
Begin
Result:=False;
Logout;
End;
end;

Function AxeColorsGone:Boolean;
Begin
Case AxeLocNum Of
1: Begin
OpenAxeTab;
Wait(200+Random(200));
If (Not(GetColor(589, 221)=CHead)) and
(Not(Getcolor(592, 221)=CHead2))and
(Not(Getcolor(589, 218)=CHead3))then
Result:=True;
end;
2:Begin
OpenAxeTab;
Wait(200+Random(200));
If (Not(GetColor(595, 295)=CHead)) and
(Not(Getcolor(599, 297)=CHead2))and
(Not(Getcolor(598, 295)=CHead3))then
Result:=True;
end;
end;
end;

Function AxeHeadGone:Boolean;
begin
OpenAxeTab;
Wait(200+RandoM(200));
If HandleFound and AxeColorsGone Then
Result:=True;
end;

Function AxeBroke:Boolean;
Begin
OpenAxeTab;
Wait(200+Random(200));
If FindDTM(BrokenHead,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Result:=True;
Writeln('Im so sorry your axe is is broken')
Logout;
end;
end;

Function CheckAxeIfNeeded:Boolean;
Begin
WriteLn('Checking Axe, If Needed')
If IsChatMessage('You do not') Then
Begin
Result:=True;
WriteLn('Axe Head Missing Or Broken');
End else
Result:=False;
end;

Procedure GoneOrBroken;
Begin
For I:=1 To 2 Do
Case (I) Of
1:AxeBroke
2:Begin
If AxeHeadGone Then
Begin
AxeTalk;
FixAxeHead;
end;

Procedure AxeTalk;
Begin
Case Random (12)+1 of
0:TypeSend('ahh my axe broke');
1:TypeSend('lets see where did that head fly off to');
2:TypeSend('anyone see where my axe head fell?');
3:TypeSend('ugh i hope i find my axe head');
4:TypeSend('wow im so strong that my axe head flew off');
end;
end;

Function FindAxeHead:Boolean;
Begin
WriteLn('Searching For Axe Head');
L:=0;
For I:=1 To 3 Do
Begin
L:=L+1
Case L Of
1: FAxColor:=CHead;
2: FAxColor:=CHead2;
3: FAxColor:=CHead3;
end;
X:=MSCX;
Y:=MSCY;
For P:=0 To 5 Do
Begin
WriteLn('Trying Color ' + InttoStr(FAXColor)+ ' with a tol of ' + IntToStr(p));
If FindColorSpiralTolerance(x,y,FAxColor,MSX1,MSY1,MS X2,MSY2,P) Then
Begin
MMouse(x,y,2,2);
Wait(300+Random(700));
If IsUptext('Ta') Then
Begin
Mouse(x,y,0,0,False);
Wait(300+Random(300));
PopUp('Take');
Result:=True;
G:=1;
WriteLn('Axe Head Found');
end;
If (G=1) Then Exit;
end;
If G=1 Then Exit;
end;
If G=1 Then Exit;
end;
end;


Procedure AllAxeChekcs;
Begin
If CheckAxeIfNeeded Then
Begin
AxeTalk;
If GoneOrBroken=1 Then




Procedure CheckAndFix;
Begin
If CheckAxeIfNeeded Then
Begin
AxeTalk;
AxeBroke;
If AxeHeadGone Then FindAxeHead;
end;
end;

Procedure AxeCheckAndFix;
Begin
GetAxeLoc;
GetAxeColor;
CheckAndFix;
end;

//----------------------------------------------------------------------------//
//---> Random Finding Procedures
//----------------------------------------------------------------------------//

Function FindRandoms(FFight: Boolean; Direction: String) : Boolean;
begin
If FindNormalRandoms Then
Result:= True;
Writeln('Searching For Randoms')
if (FFight)then
begin
if(FindFight)then
begin
Result:= True;
RunAwayDirection(Direction);
Wait(8000+random(1000));
RunBack;
end;
end;
end;

Procedure AnteeTalk;
begin
case (Random(7)+1) of
1: TypeSend('this is kinda borring');
2: TypeSend('wc makes me prety good money');
3: TypeSend('sweet im about to level');
4: TypeSend('i love chopping '+(TreeT2)+'s');
5: TypeSend('wc levels?');
6: TypeSend('i like powerchopping its fast xp');
7: TypeSend('come on hit hit!');
end;
end;

Procedure AnteeBan;
begin
WriteLn('Doing antiban');
case (Random(80))of
5: AlmostLogout;
10: Hoverskill('Woodcut',False);
15: PickUpMouse;
20: RandomRClick;
25: AnteeTalk;
30: RandomRClick;
35: HoverSkill('Random',False);
40: PickUpMouse;
end;
end;

//----------------------------------------------------------------------------//
//---> Converts numbers from Consts into tree names
//---> AND
//---> Converts numbers from Consts into xp per tree
//----------------------------------------------------------------------------//
Procedure ConvertTree;
begin
WriteLn('Converting Trees');
Case Players[CurrentPlayer].Integer1 of
1: TreeT:='Chop down Tree';
2: TreeT:='Chop down Oak';
3: TreeT:='Chop down Willow';
4: TreeT:='Chop down Maple';
5: TreeT:='Chop down Yew';
6: TreeT:='Chop down Magic';
end;
end;

Procedure ConvertTree2;
begin
WriteLn('Converting Trees')
Case Players[CurrentPlayer].Integer1 of
1: TreeT2:='Tree';
2: TreeT2:='Oak';
3: TreeT2:='Willow';
4: TreeT2:='Maple';
5: TreeT2:='Yew';
6: TreeT2:='Magic';
end;
end;

Procedure ConvertTree3;
Begin
WriteLn('Converting Tree Name')
Case Players[CurrentPlayer].Integer1 of
1:Begin
ObjTree1:='Tree';
ObjTree2:='ree';
ObjTree3:='ee';
End;
2:Begin
ObjTree1:='Oak';
ObjTree2:='Oak';
ObjTree3:='ak';
End;
3:Begin
ObjTree1:='Willow';
ObjTree2:='illow';
ObjTree3:='llow';
End;
4:Begin
ObjTree1:='Maple';
ObjTree2:='aple';
ObjTree3:='ple';
End;
5:Begin
ObjTree1:='Yew';
ObjTree2:='Yew';
ObjTree3:='ew';
End;
6:Begin
ObjTree1:='Magic';
ObjTree2:='agic';
ObjTree3:='gic';
End;
end;
end;

Function GetTreeXp:extended;
begin
WriteLn('Converting Xp');
case Players[CurrentPlayer].Integer1 of
1: Result := 25;
2: Result := 37.5;
3: Result := 67.5;
4: Result := 100;
5: Result := 175;
6: Result := 250;
end;
end;

Procedure ConvertWaitTime;
Begin
WriteLn('Converting Player Wait Times');
WaitTawime:=( (Players[CurrentPlayer].WaitTime) * 1000);
Writeln('Wait time set to ' +IntToStr(WaitTawime))
end;

Procedure ConvertTreeColor;
Begin
WriteLn('Converting Tree Color');
TreeRef:=(Players[CurrentPlayer].Integer3);
end;

Procedure Convertall;
Begin
ConvertTree;
ConvertTree2;
GetTreeXp;
ConvertWaitTime;
ConvertTreeColor;
end;

//----------------------------------------------------------------------------//
//---> Ent Handleing Procedures
//----------------------------------------------------------------------------//

Procedure EntTalk;
Begin
Case Random(40) of
0:TypeSend('damn ent');
1:TypeSend('angry tree');
2:TypeSend('nobody chop that! it will break your axe');
3:TypeSend('the tree is spazzing');
4:TypeSend('ahhhhhhhhhhh! an ent...');
end;
end;

Function EntThere:Boolean;
begin
if IsUpTextMulti(ObjTree1,ObjTree2,ObjTree3)and
FindDTM(Ent,x,y,MSX1,MSY1,249, 21) or
FindColorSpiralTolerance(x,y,383705,MSX1,MSY1,233, 24,10) Then
Begin
Result:=True;
WriteLn('Ent Found')
end else
WriteLn('Ent Not Found')
end;

Procedure StandStill;
Begin
WriteLn('Ent Found, Standing Still');
MouseFindFlag(648,83,5,5);
Wait(15000+Random(5000));
end;

Procedure WaitForit;
var w:integer;
Begin
WriteLn('Waiting For Ent');
Repeat
FTWait(7000+Random(1000));
W:=W+1;
Until (W>7) or EntThere=False
end;

Procedure HandleEnt;
Begin
WriteLn('Handeling Ent');
StandStill;
Case Random (5) of
0:EntTalk;
end;
FindTree(False);
WaitForit;
end;

Function OnTree:Boolean;
Begin
If IsUpText(ObjTree1)or
IsUpText(ObjTree2)or
IsUpText(ObjTree3)Then
Begin
Result:=True;
WriteLn('On Tree Results True')
End Else
Writeln('On Tree Results False')
end;

Procedure CheckForEnt;
Begin
WriteLn('Looking for Ents');
If (Not(OnTree)) Then FindTree(False);
If (EntThere=True) Then
HandleEnt;
end;

//WhiteShadow's Function
Function ShortenArray(theArray : TPointArray; valueSelects : Integer) : TPointArray;
var
Size, i : Integer;
begin
Size:= getarraylength(theArray);
setarraylength(Result, valueSelects);
if(valueSelects > Size)then
begin
valueSelects:= Size;
setarraylength(Result, valueSelects);
end;
for i:= 0 to valueSelects - 1 do
begin
Result[i].x:= theArray[i].x;
Result[i].y:= theArray[i].y;
end;
end;

Function FindTree(Click:Boolean) : Boolean;
var
t : TPoint;
TempTreeArray : TPointArray;
treePoints, i: Integer;
begin
if(not(LoggedIn))then Exit;
t.x:= MSCX;
t.y:= MSCY;
Tolerance:=2;
FindColorsSpiralTolerance(t.x, t.y, TreeArray, RandomTreeColor, Msx1, Msy1, Msx2, Msy2, tolerance);
treePoints := getarraylength(treeArray);
TempTreeArray:= ShortenArray(TreeArray, 25);
for i:= 0 to getarraylength(TempTreeArray) - 1 do
begin
WriteLn('Try '+IntToStr(Tolerance/2) + 'Out of '+ IntToStr((getarraylength(TempTreeArray))-1) + 'to Find Tree')
MMouse(TempTreeArray[i].x, TempTreeArray[i].y, 5, 5);
Wait(350 + random(200));
if(IsUpTextMulti(ObjTree1,ObjTree2,ObjTree3))then
begin
Result:= true;
getmousepos(currentPosX, currentPosY);
If Click Then
Mouse(currentPosX,currentPosY,3,3,True)
Break;
end else
Begin
Tolerance:=Tolerance+2;
//Adding More Later;
end;
end;
end;


//----------------------------------------------------------------------------//
//---> Tree Fidning Procedure and Some autocolor
//----------------------------------------------------------------------------//

Procedure GetTreeColors;
var Times:Integer;
Begin
X:=MSCX;
Y:=MSCY;
Repeat
If FindColorSpiralTolerance(x,y,TreeRef,MSX1,MSY1,MSX 2,MSY2,10) then
MMouse(x,y,5,5);
X:=X+15;
Y:=Y+15;
Times:=Times+1;
Wait(1000+RandoM(500));
WriteLn('Try '+(Inttostr(Times))+ ' to find tree out of 20');
Until(IsUpTextMulti(ObjTree1,ObjTree2,ObjTree3)) or (Times>20)
If (IsUpTextMulti(ObjTree1,ObjTree2,ObjTree3)) then
Begin
GetMousePos(x,y);
TreeColor[0]:=TreeRef;
TreeColor[1]:=GetColor(x,y);
TreeColor[2]:=GetColor(x+3,y+3);
TreeColor[3]:=GetColor(x-6,y-6);
WriteLn('Tree colors are ' + inttostr(TreeColor1) + ' ' + inttostr(TreeColor2) + ' ' + inttostr(TreeColor3));
end;
If (Times>20) then
begin
Logout;
Writeln('Cant Find The Tree');
end;
end;

Function RandomTreeColor:Integer;
Begin
Result:=TreeColor[Random(4)]
End;

Procedure ChopLoop;
Begin
FindTree(True);
Flag;
MarkTime(Chop)
QT:=0
Repeat
QT:=QT+1
CheckForEnt;
FindNormalRandoms;
AnteeBan;
CheckAndFix;
Until (TimeFromMark(Chop) > (WaitTawime)) or (QT>10);
end;



//----------------------------------------------------------------------------//
//---> Log Dropping Procedure
//----------------------------------------------------------------------------//
procedure DropLogs;
Begin
GameTab(4);
If InventoryFull then
Repeat
If(findDTM(dtmlogs,x,y,MIX1, MIY1,MIX2, MIY2))then
cut:=cut+1;
mouse(x,y,5,5,false);
Wait(200+Random(50));
if(FindBitmapToleranceIn(Drop,x,y,MIX1, MIY1,MIX2, MIY2,10))then
Mouse(x,y,5,3,true);
Wait(400+Random(100));
FindRandoms(True,'N');
FindNormalRandoms;
until(not(findDTM(dtmlogs,x,y,MIX1, MIY1,MIX2, MIY2))) or (Cut>28)
Loads:=Loads+1;
end;


//----------------------------------------------------------------------------//
//---> Progress Report
//----------------------------------------------------------------------------//
procedure ProgressReport;
begin
writeln('Yohojos Any Tree Anywhere Powercutter Progress Report');
if (cut>0)then writeln('You have cut ' +inttostr(cut)+' logs');
WriteLn(FloatToStr(GetTreeXp * cut));
writeln('You have worked for ' +ScriptTime2(2));
end;

//----------------------------------------------------------------------------//
//---> Loop
//----------------------------------------------------------------------------//

Procedure GetReady;
Begin
ActivateClient;
SetupSRL;
DeclarePlayers
BenMouse:=True;
Load;
Convertall;
AxeCheckAndFix;
GetTreeColors;
end;

Begin
GetReady
Repeat
ChopLoop;
DropLogs;
Until(False)
end.



YoHoJo sending me his old Woodcutter. I hardly remember him sending me this...

It hurts my eyes to read! Lol.

Hobbit
03-10-2009, 03:16 AM
Prize - 08-26-2007, 10:06 AM


Is it too late to claim the prize money still? I have been unable to get on in the last week causing me to miss RAM's post. Just PM me back if its too late. If it is, no big deal.


This was when RAM (RAM_RUNE at that time) was having the competition for people to make him a new avvy. I was in charge of the prizes, being the prize bank guy and all.

King of the Nites
03-10-2009, 03:32 AM
Tis my oldest one.

Ahh, I remember that script!!! I never released it because it sucked and I used to phail at the walking. Good ol' nubbish days...


03-27-2008, 07:30 Am

Almost a year old, wow!