Da Der Der
2006-12-23 17:59:43
Da Der Der - SRL Member Application Form
Da Der Der
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Driger
Programming Knowledge
None
Other Communitys
Sythe and Moparisthebest
How Long have You Played Runescape
Around 3 - 4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I used to script a while back when Squig was popular. I quit because I quit Runescape for around a month or two. I had nothing better to do so I started back up on Runescape. I started searching around for Kaitnieks again but I discovered that it was gone. I then searched for scar and found Villu and I started scripting back up again and now I love it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Da Der Der
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Driger
Programming Knowledge
None
Other Communitys
Sythe and Moparisthebest
How Long have You Played Runescape
Around 3 - 4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I used to script a while back when Squig was popular. I quit because I quit Runescape for around a month or two. I had nothing better to do so I started back up on Runescape. I started searching around for Kaitnieks again but I discovered that it was gone. I then searched for scar and found Villu and I started scripting back up again and now I love it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{-------------------------------------------------------------------------}
{-------------------------------------------------------------------------}
{ _________________ _______ }
{ |:::::::::::::::::\ |:::::::\ }
{ |::::::::::::::::::\ |:| \:\ }
{ |::::| \:::::\ |:| |::| }
{ |::::| \:::::\ |:| |::| }
{ |::::| \:::::\ _|:|_/::/ ___ }
{ |::::| \:::::| |:::::::/ /:::\ }
{ |::::| |::::| /:/_\:\ }
{ |::::| /:::::| /:::::::\ }
{ |::::| /:::::/ /::/ \::\ }
{ |::::| /:::::/ __________________ /::/ \::\ }
{ ___|::::|____/:::::/ |::::::::::::::::::| /::/ \::\ }
{ |::::::::::::::::::/ |::::::::::::::::::| }
{ |:::::::::::::::::/ |:::| }
{ |:::| }
{ |:::|________ }
{ |::::::::::::| }
{ |::::::::::::| }
{ |:::| }
{ |:::| }
{ _______ |:::| _______________ }
{ |:::::::\ |:::|______________ |:::::::::::::::\ }
{ |:| \::\ |::::::::::::::::::| |::::::::::::::::\ }
{ |:| |::| |::::::::::::::::::| |:::::| |:::::| }
{ |:| |::| |:::::|_____|:::::| }
{ _|:|_/::/ _______ |::::::::::::::::/ }
{ |:::::::/ |:::::::| |:::::::::::::::/ }
{ |:|___ |:::::::::::\ }
{ |:::::| |:::| \:::\ }
{ |:|_____ ______ |:::| \:::\ }
{ |:::::::| |::::::\ |:::| \:::\ }
{ |::|_|::| |:::| \:::\ }
{ |::::::/ |:::| \:::\ }
{ |::::\ |:::| \:::| }
{ |:| \:\ }
{ |:| \:| }
{ }
{ }
{-------------------------------------------------------------------------}
{-------------------------------------------------------------------------}
Program Lumby_Fisher_Cooker_Giver;
{.include SRL/SRL.scar}
{.include SRL/SRL/misc/trade.scar}
Var
Chat, Name, ChatName : String;
Loads, FishSpot, vx, vy : Integer;
{-------------------------------------------------------------------------}
{ VERSION HISTORY: }
{-------------------------------------------------------------------------}
{ 0.1 - Compiled }
{ 0.2 - Tested it and everything seemed to be }
{ working properly }
{ 0.3 - Added progress report, treecutting procedure, }
{ firemaking procedure and cooking procedure }
{ 0.4 - Used to eat the fish which took too long so }
{ I added a fish dropper }
{ 0.5 - Used to drop the fish but now it walks to }
{ Goblin House and gives them away for free }
{ 0.6 - Added an auto responder }
{ 0.7 - Added anti randoms }
{ 0.8 - Added better fish spot finder }
{ 0.9 - Added better anti randoms }
{ 1.0 - Called the auto responder and anti randoms }
{ up in the main loop rather that putting it }
{ throughout the whole script }
{ 1.1 - Better fish finder for cooking }
{ 1.2 - Made a procedure to check if when you trade }
{ someone, to see if their inventory is full }
{ 1.3 - Finally released to public }
{-------------------------------------------------------------------------}
{=========================================================================}
{ INSTRUCTIONS: }
{=========================================================================}
{ 1) Set your computer to 32 bit colors. }
{ 2) Set your Runescape color to VBRIGHT. }
{ 3) Set up any constants under this. }
{ 4) Declare all of your players under this. }
{ 5) Buy LOTS of feathers. }
{ 6) Have an axe in your first inventory slot }
{ and a tinderbox in your second slot and }
{ the feathers and rod in your other spots. }
{ 7) Start your character by the goblin house }
{ in Lumbridge next to a fishing spot. }
{ 8) START THE SCRIPT LOGGED OUT!!! }
{ 9) Start up the script. }
{=========================================================================}
{=========================================================================}
{-------------------------------------------------------------------------}
{-------------------------------------------------------------------------}
{ SET THESE CONSTANTS: }
{-------------------------------------------------------------------------}
Const
StartPlayer = 0; {Which player will you be starting?}
Load = 1; {How many loads do you want to do?}
DeadTree1 = 2305085; {Color of a DEAD tree TOWARDS THE TOP OF IT!}
DeadTree2 = 3227737; {Color of another DEAD tree MORE TOWARDS THE TRUNK!}
WhichFish = 'Both'; {30+ Fishing = Both... Under 30 Fishing = Trout}
{-------------------------------------------------------------------------}
{-------------------------------------------------------------------------}
{=========================================================================}
{ DECLARE YOUR PLAYERS HERE: }
{=========================================================================}
Procedure DeclarePlayers;
Begin
HowManyPlayers :=1; {How many players will you be using?}
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= StartPlayer;
Players[0].Name :=''; {Name of you character}
Players[0].Pass :=''; {Password of this character}
Players[0].Nick :=''; {3 letters (IN A ROW) from the MIDDLE of your name}
Players[0].Skill:='Fishing'; {What skill will you select for a lamp?}
Players[0].Active:=True; {Are you currently using this player?}
{Players[1].Name :=''; {Name of a second character}
{Players[1].Pass :=''; {Password of this character}
{Players[1].Nick :=''; {3 letters (IN A ROW) from the MIDDLE of your name}
{Players[1].Skill:='Fishing'; {What skill will you select for a lamp?}
{Players[1].Active:=True; {Are you cuttently using this player?}
End;
{=========================================================================}
{ DO NOT TOUCH BELOW THIS SPOT!!! }
{=========================================================================}
Function GetChatName(Name: String): Boolean;
Var
I: Integer;
Begin
ChatName:= Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));
I:= Pos(':', ChatName);
If(I <> 0)then
Begin
Delete(ChatName, I, I);
End
If(Pos(Name, ChatName) <> 0)then
Begin
Result:= True;
End
End;
Function GetChatMessage(Text: String): Boolean;
Var
TX, TY: Integer;
Chat: String;
Begin
If(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
Begin
Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
If(Pos(Text, Chat) <> 0)then
Begin
Result:= True;
End
End
End;
{----------------------------------------------------------------------}
{ Function: AutoTalker }
{ Author: Da Der Der }
{ Description: Will talk to other people in game only if they start }
{ talking to you first. Has many different phrases. }
{ Great for not getting banned! }
{----------------------------------------------------------------------}
Function AutoTalker: Boolean;
Var
Messege, Level: String;
AutoResponce: Integer;
OldLine, NewLine: String;
Begin
OldLine:= TheLine;
TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
NewLine:= TheLine;
If(GetChatName(Players[CurrentPlayer].Name))then
Begin
Exit;
End
If(OldLine=NewLine)then
Begin
Exit;
End
If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= Random(16)+1;
Case (AutoResponce) of
0 : Messege:= ('?');
1 : Messege:= ('what');
2 : Messege:= ('yes');
3 : Messege:= ('yep');
4 : Messege:= ('what do you want');
5 : Messege:= ('me?');
6 : Messege:= ('Yah?');
7 : Messege:= ('who? me?');
8 : Messege:= ('whasup?');
9 : Messege:= ('huh');
10 : Messege:= ('???');
11 : Messege:= ('sup?');
12 : Messege:= ('yer');
13 : Messege:= ('Yessum?');
14 : Messege:= ('yezzer?');
15 : Messege:= ('thats muh name =]');
End
TypeSend(Messege+' '+Name);
Result:= True;
End
If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))Then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= Random(31)+1;
Case (AutoResponce) of
0 : Messege:= ('lolz');
1 : Messege:= ('hah');
2 : Messege:= ('bwaha');
3 : Messege:= ('....');
4 : Messege:= ('funny..');
5 : Messege:= ('heh');
6 : Messege:= ('lololol');
7 : Messege:= ('ha ha!');
8 : Messege:= ('haaaa!');
9 : Messege:= ('lmao');
10 : Messege:= ('Whats so funny?');
11 : Messege:= ('Ur funny lol');
12 : Messege:= ('Hillarious');
13 : Messege:= ('*Giggles*');
14 : Messege:= ('rofllll');
15 : Messege:= ('Gahhaa');
16 : Messege:= ('*laughing* haha');
17 : Messege:= ('tehehe');
18 : Messege:= ('psht');
19 : Messege:= ('uh..ya');
20 : Messege:= ('ya i bet');
21 : Messege:= ('funny lil critter...');
22 : Messege:= ('think thats funny?');
23 : Messege:= ('funny funny');
24 : Messege:= ('*snorts as i laugh*');
25 : Messege:= ('funy');
26 : Messege:= ('if i was in a good mood i would laugh..');
27 : Messege:= ('pretty pretty funny');
28 : Messege:= ('=p');
29 : Messege:= ('X[)');
30 : Messege:= ('roflmao!');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('do')) or (GetChatMessage('do you')) or (GetChatMessage('can')) or (GetChatMessage('can i'))
And
(GetChatMessage('buy')) or (GetChatMessage('have')) or (GetChatMessage('see')) or (GetChatMessage('like'))Then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= Random(11)+1;
Case (AutoResponce) of
0 : Messege:= ('no');
1 : Messege:= ('nah');
2 : Messege:= ('naw');
3 : Messege:= ('huh uh');
4 : Messege:= ('ya, nah im jk lol');
5 : Messege:= ('nope');
6 : Messege:= ('nooo');
7 : Messege:= ('naaahhh');
8 : Messege:= ('me? nope');
9 : Messege:= ('naaaaw');
10 : Messege:= ('no dude');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('agility')) or (GetChatMessage('agil'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' agility here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' agility');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' agility');
5 : Messege:= ('my agility is '+Level);
6 : Messege:= ('agility = '+Level);
7 : Messege:= (+Level+' agility');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('construction')) or (GetChatMessage('con'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('construction'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' construction here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' construction');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' con');
5 : Messege:= ('my con lvl is '+Level);
6 : Messege:= ('construction = '+Level);
7 : Messege:= (+Level+' construction');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('cooking')) or (GetChatMessage('cookin')) or (GetChatMessage('cook'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('cooking'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' cookin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' cooking');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' cooking');
5 : Messege:= ('my cookn is '+Level);
6 : Messege:= ('cooking = '+Level);
7 : Messege:= (+Level+' cookin');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('crafting')) or (GetChatMessage('craft')) or (GetChatMessage('craftin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('crafting'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' craftin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' crafting');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' crafting');
5 : Messege:= ('my craftin is '+Level);
6 : Messege:= ('crafting = '+Level);
7 : Messege:= (+Level+' craftin');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('farming')) or (GetChatMessage('farm')) or (GetChatMessage('farmin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('farming'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' farmin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' farming');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' farmn');
5 : Messege:= ('my farmin is '+Level);
6 : Messege:= ('farming = '+Level);
7 : Messege:= (+Level+' farming');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('fire')) or (GetChatMessage('firemakin')) or (GetChatMessage('firemaking'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('firemaking'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' fm here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' firemakin');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' firemaking');
5 : Messege:= ('my fire lvl is '+Level);
6 : Messege:= ('firemaking = '+Level);
7 : Messege:= (+Level+' fire');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('fishin')) or (GetChatMessage('fishing'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('fishing'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' fishn here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' fishing');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' fishin');
5 : Messege:= ('my fishin is '+Level);
6 : Messege:= ('fishing = '+Level);
7 : Messege:= (+Level+' fishing');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('fletch')) or (GetChatMessage('fletching')) or (GetChatMessage('fletchin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('fletching'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' fletch here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' fletching');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' fletchn');
5 : Messege:= ('my fletching is '+Level);
6 : Messege:= ('fletching = '+Level);
7 : Messege:= (+Level+' fletchin');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('herb')) or (GetChatMessage('herblore')) or (GetChatMessage('herby')) or (GetChatMessage('herblaw'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' herby here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' herblore');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' herblaw');
5 : Messege:= ('my herby is '+Level);
6 : Messege:= ('herblore = '+Level);
7 : Messege:= (+Level+' herby');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('magic')) or (GetChatMessage('mage'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' magic here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' magic');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' magee');
5 : Messege:= ('my magic is '+Level);
6 : Messege:= ('mage = '+Level);
7 : Messege:= (+Level+' magic');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('mining')) or (GetChatMessage('minin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('mining'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' minin here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' mining');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' mining');
5 : Messege:= ('my mining is '+Level);
6 : Messege:= ('mining = '+Level);
7 : Messege:= (+Level+' minin');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('pray')) or (GetChatMessage('prayer'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('prayer'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' pray here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' prayuh');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' prayer');
5 : Messege:= ('my prayer is '+Level);
6 : Messege:= ('prayer = '+Level);
7 : Messege:= (+Level+' prayer');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('range')) or (GetChatMessage('rangin')) or (GetChatMessage('ranging'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('agility'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' range here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' range');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' rangin');
5 : Messege:= ('my range is '+Level);
6 : Messege:= ('ranging = '+Level);
7 : Messege:= (+Level+' rangin');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('runecrafting')) or (GetChatMessage('rc')) or (GetChatMessage('rune crafting')) or (GetChatMessage('rune craftin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('runecrafting'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' rc here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' runecraft');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' runecrafting');
5 : Messege:= ('my rc is '+Level);
6 : Messege:= ('runecraftin = '+Level);
7 : Messege:= (+Level+' rc');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('slayer')) or (GetChatMessage('slay'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('slayer'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' slayer here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' slaying');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' slayer');
5 : Messege:= ('my slayer is '+Level);
6 : Messege:= ('slayer = '+Level);
7 : Messege:= (+Level+' slayer');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('smithing')) or (GetChatMessage('smithin')) or (GetChatMessage('smith'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('smithing'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' smithing here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' smithin');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' smith');
5 : Messege:= ('my smithin is '+Level);
6 : Messege:= ('smithing = '+Level);
7 : Messege:= (+Level+' smithn');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('thieving')) or (GetChatMessage('thievin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('thieving'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' thieving here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' theiving');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' thieving');
5 : Messege:= ('my thievin is '+Level);
6 : Messege:= ('thieving = '+Level);
7 : Messege:= (+Level+' thieving');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('woodcutting')) or (GetChatMessage('woodcuttin')) or (GetChatMessage('wc')) or (GetChatMessage('wood cutting')) or (GetChatMessage('wood cuttin'))
And
(GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
Begin
WriteLn(''+ChatName+': '+Chat);
Level:= IntToStr(GetSkillLevel('woodcutting'));
AutoResponce:= Random(8)+1;
Case(AutoResponce) of
0 : Messege:= ('level '+Level+' wc here');
1 : Messege:= (+Level);
2 : Messege:= ('lvl '+Level+' wc');
3 : Messege:= (+Level+' here =/');
4 : Messege:= ('me im '+Level+' woodcutting');
5 : Messege:= ('my wood cuttin is '+Level);
6 : Messege:= ('wc = '+Level);
7 : Messege:= (+Level+' wc');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('wat')) or (GetChatMessage('what')) or (GetChatMessage('wot')) or (GetChatMessage('wut')) or (GetChatMessage('watcha'))
And
(GetChatMessage('doing')) or (GetChatMessage('doin'))then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= Random(13)+1;
Case (AutoResponce) of
0 : Messege:= ('nuttin');
1 : Messege:= ('nothing');
2 : Messege:= ('nothin');
3 : Messege:= ('eh, nothin');
4 : Messege:= ('being bored');
5 : Messege:= ('bored');
6 : Messege:= ('bored, you?');
7 : Messege:= ('chillin');
8 : Messege:= ('chilling, you?');
9 : Messege:= ('chilling');
10 : Messege:= ('playing runescape haha');
11 : Messege:= ('nothin, im sick =[');
12 : Messege:= ('talkin to you =]');
End
TypeSend(Messege);
Result:= True;
End
If(GetChatMessage('hey')) or (GetChatMessage('hello')) or (GetChatMessage('hi')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
Begin
WriteLn(''+ChatName+': '+Chat);
AutoResponce:= random(16)+1;
Case AutoResponce of
0 : Messege:= ('hello');
1 : Messege:= ('hi');
2 : Messege:= ('hey');
3 : Messege:= ('sup dude');
4 : Messege:= ('watsup');
5 : Messege:= ('yo bro');
6 : Messege:= ('hi');
7 : Messege:= ('hey man');
8 : Messege:= ('*waves*');
9 : Messege:= ('how ya doin');
10 : Messege:= ('good day');
11 : Messege:= ('wat it dooooo');
12 : Messege:= ('helloooooo');
13 : Messege:= ('heya');
14 : Messege:= ('hiiyaaa');
15 : Messege:= ('heeeyyyyy');
End
TypeSend(Messege);
Result:= True;
End
End;
Procedure RCExamine;
Begin
MMouse(Random(MSX1), Random(MSY1), 3, 5);
If(IsUpText('hop down')) or (IsUpText('alk here'))then
Begin
GetMousePos(x, y);
Mouse(x, y, 2, 1, False);
If(ChooseOption(x, y, 'Examine'))then
Begin
Exit;
End else
ChooseOption(x, y, 'Cancel');
End
End;
Procedure NoBannage; {Thank you WT-Fakawi}
var
DBanMe : Integer;
begin
if ( not ( LoggedIn )) then Exit;
DBanMe:= Random(50);
case DBanMe of
1: RandomRClickEvery(2 + Random(13));
2: hoverskill('random', false);
3: RandomChatEvery(10 + Random(5));
4: RotateEvery(20 + Random(10));
5: LeaveScreenEvery(5 + Random(5));
6: HoverEvery(15 + Random(5),'random');
8: PickUpMouse;
9: BoredEvery(9 + Random(24));
10: if ExistsItem ( 1 ) then
DragItem(1, 1+Random(18));
11: GameTab(1 + Random(12));
end;
end;
Procedure FindRandoms; {Thank you WT-Fakawi}
Begin
If ( Not ( LoggedIn )) Then Exit;
RC;
If ( Not ( UseBoxSolver )) Then
If FindNewBox And
Not ( GambleNewBox ) Then
Begin
Players[CurrentPlayer].loc := 'NewBox';
Logout;
Exit;
End;
If InBlack Then
Begin
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
End;
Wait(1);
If NoGameTab then
Begin
Players[CurrentPlayer].loc := 'GameTab';
Logout;
Exit;
End;
FindNormalRandoms;
Wait(1);
End;
Function QuickRandoms: Boolean; {Thank you WT-Fakawi}
Var
i: Integer;
Begin
For i:=1 To 7 Do
Begin
Case I Of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: Begin
if NoGameTab then
Begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
End;
End;
7: Begin
If InBlack then
Begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
End;
End;
8: RC;
End;
wait(1);
End;
End;
Procedure WaitTilStill;
Var
points: Array [0..17] of tpoint;
color: Array [0..17] of integer;
oldcolor: Array [0..17] of integer;
gh,hg,same: integer;
Begin
points[1].x:=600
points[1].y:=30
points[2].x:=630
points[2].y:=30
points[3].x:=660
points[3].y:=30
points[4].x:=690
points[4].y:=30
points[5].x:=600
points[5].y:=60
points[6].x:=630
points[6].y:=60
points[7].x:=660
points[7].y:=60
points[8].x:=690
points[8].y:=60
points[9].x:=600
points[9].y:=90
points[10].x:=630
points[10].y:=90
points[11].x:=660
points[11].y:=90
points[12].x:=690
points[12].y:=90
points[13].x:=600
points[13].y:=120
points[14].x:=630
points[14].y:=120
points[15].x:=660
points[15].y:=120
points[0].x:=690
points[0].y:=120
gh:=17;
Repeat
wait(50);
gh:=gh+1;
hg:=(gh mod 16);
oldcolor[hg]:=color[hg];
color[hg]:=getcolor(points[hg].x,points[hg].y);
If (color[hg]=oldcolor[hg]) then same:=same+1;
If Not(color[hg]=oldcolor[hg]) then same:=0;
Until same>=10;
End;
Procedure OpenInventory;
Begin
If(getcolor(634, 174) = 5531511)Then
Mouse(635+random(10),175+random(10),2,2,true);
End;
Function TreeGone: Boolean;
Begin;
If (FindColorSpiral(vx,vy, DeadTree1,26,51,547,367)) or FindColorSpiral(vx,vy,DeadTree2,26,51,547,367) then
Result := False;
If (Not(FindColorSpiral(vx,vy, DeadTree1,26,51,547,367))) or FindColorSpiral(vx,vy,DeadTree2,26,51,547,367)Then
Result := True;
End;
Procedure CookSalmon;
Begin
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
ClickItemName('Raw Salmon',True);
FindMSColorTol(x,y,3520230,15);
MMouse(x,y,2,2);
If(IsUpTextMulti('-> Fire','> Fire','ire'))Then
Begin
Mouse(x,y,2,2,true);
Wait(1000+random(200));
If(FindMSColorTol(x,y,6582705,15))Then
Begin
MMouse(x,y,2,2);
If(IsUpText('ook 1'))Then
Begin
Mouse(x,y,2,2,False);
Wait(500+random(1000));
ClickOption('All',1);
Repeat
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
Wait(1000+random(3000));
Until
Not(FindItemName('Raw Salmon'));
End;
End;
End;
End;
Procedure CookTrout;
Begin
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
ClickItemName('Raw Trout',True);
FindMSColorTol(x,y,3520230,15);
MMouse(x,y,2,2);
If(IsUpTextMulti('-> Fire','> Fire','ire'))Then
Begin
Mouse(x,y,2,2,true);
Wait(1000+random(200));
If(FindMSColorTol(x,y,9803169,15))Then
Begin
MMouse(x,y,2,2);
If(IsUpText('ook 1'))Then
Begin
Mouse(x,y,2,2,False);
Wait(500+random(1000));
ClickOption('All',1);
Repeat
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
Wait(1000+random(3000));
Until
Not(FindItemName('Raw Trout'));
End;
End;
End;
End;
Procedure LightLog;
Begin
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
GetSymbolColor(x,y,'fishing spot');
Mouse(x+10+random(3),y+random(3),2,2,true);
WaitTilStill;
WaitTilStill;
OpenInventory;
UseItem(2);
Wait(200+random(200));
MouseItem(5,True);
Wait(2000+random(1000));
If(WhichFish = 'Trout')Then
Begin
CookTrout;
End;
If(WhichFish = 'Both')Then
Begin
CookTrout;
CookSalmon;
End;
End;
Procedure CutLog;
Begin
If(FindMSColorTol(x,y,DeadTree1,5)) or FindMSColorTol(x,y,DeadTree2,5)Then
Begin
MMouse(x,y,1,1);
Wait(1000+random(100));
If(IsUpTextMulti('own tree','Dead tree','ead tree'))Then
Mouse(x,y,2,2,true);
Wait(2000+random(2000));
If(TreeGone)Then
Wait(1000+random(2000));
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
End;
If(not(FindMSColorTol(x,y,DeadTree1,5))) or (not(FindMSColorTol(x,y,DeadTree2,5)))Then
Begin
Repeat
FindSymbol(x,y,'fishing spot');
Mouse(x+20,y+random(5),2,2,true);
WaitTilStill;
Until
FindMSColorTol(x,y,DeadTree1,5) or FindMSColorTol(x,y,DeadTree2,5);
End;
End;
Function GiveAwayFish : Boolean;
Var
RandomGiver : Integer;
Msg : String;
Begin
If(InvFull)Then
Begin
RandomGiver:= random(11)+1;
Case(RandomGiver)Of
0 : Msg:= 'giving away free fish just trade me!';
1 : Msg:= 'free fish to whoever trades';
2 : Msg:= 'free food here';
3 : Msg:= 'free cooked fish!';
4 : Msg:= 'givin free food right here';
5 : Msg:= 'freeeee fooood';
6 : Msg:= 'trade for free food';
7 : Msg:= 'free food';
8 : Msg:= 'free fish';
9 : Msg:= 'whoever wants free food trade me';
10 : Msg:= 'trade me if you want free food';
End;
TypeSend(Msg);
Result:= True;
End;
End;
Procedure TradeTrout;
Begin
Repeat
GiveAwayFish;
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
Wait(5000+random(1000));
Until(FindColorTolerance(x,y,8388736,MSX1,MSY1,MSX2,MSY2,15));
MMouse(x,y,2,2);
If(IsUpText('ccept trade'))Then
Begin
Mouse(x,y,2,2,true);
Wait(1000+random(2000));
ClickItemName('Trout',False);
Wait(500+random(1000));
ClickOption('All',1);
Wait(100+random(500));
Accept;
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
End;
End;
Procedure TradeBoth;
Begin
Repeat
GiveAwayFish;
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
Wait(5000+random(1000));
Until(FindColorTolerance(x,y,8388736,MSX1,MSY1,MSX2,MSY2,15));
MMouse(x,y,2,2);
If(IsUpText('ccept trade'))Then
Begin
Mouse(x,y,2,2,true);
Wait(1000+random(2000));
ClickItemName('Trout',False);
Wait(500+random(1000));
ClickOption('All',1);
Wait(100+random(500));
ClickItemName('Salmon',False);
Wait(500+random(1000));
ClickOption('All',1);
Wait(100+random(500));
Accept;
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
End;
End;
Procedure LoadDTMs;
Begin
FishSpot := DTMFromstring('78DA63FCC4C0C070910105CC38F086410E483' +
'342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E3500EE' +
'831204');
End;
Procedure ProggyReport;
Begin
WriteLn('[]<><> Da Der Ders Fisher and Giver Progress Report <><>[]');
WriteLn('Has Been Running For: ' +ScriptTime2(2));
WriteLn('You Have Gave Away: ' +IntToStr(Loads)+ 'Loads of Fish');
WriteLn('[]<><><><><><><><><><><><><><><><><><><><><><><><><><><>[]');
End;
Procedure Intro;
Begin
WriteLn('[]<><><><><><><><><><><><><><><><><><><><><><><><>[]');
WriteLn('[] ________ ________ ______ __ ______ []');
WriteLn('[] | __ \ | ______| | ____ \ \ \ / ____| []');
WriteLn('[] | | \ \ | | | \__/ / /_/ \ \ []');
WriteLn('[] | | | | | |____ | __ \ \ \____ []');
WriteLn('[] | | | | | ____| | | \ \ \____ \ []');
WriteLn('[] | |__/ / | |______ | | \ \ _____/ / []');
WriteLn('[] |________/ |________| |_| |_| |______/ []');
WriteLn('[] Lumbridge Fisher / Cooker / Giver []');
WriteLn('[]<><><><><><><><><><><><><><><><><><><><><><><><>[]');
WriteLn('[] Property of : Da Der Der []');
WriteLn('[] []');
WriteLn('[] Please tell me of any way to make this []');
WriteLn('[] better than it already is []');
WriteLn('[] []');
WriteLn('[] Just post your idea on the SRL Forums []');
WriteLn('[] []');
WriteLn('[] Thanks! []');
WriteLn('[]<><><><><><><><><><><><><><><><><><><><><><><><>[]');
End;
Procedure ToFishSpot;
Begin
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
GetSymbolColor(x,y,'fishing spot');
Wait(1000+random(100));
Mouse(x+random(5),y+random(5),2,2,true);
Wait(1000+random(100));
WaitTilStill;
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
End;
Function FindTheSpot: Boolean;
Begin
Result:= False;
If FindMsDtm(x,y,FishSpot)
Then Result:= True;
End;
Procedure ToGoblinHouse;
Begin
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
If(FindSymbol(x,y,'transportation'))Then
Begin
Mouse(x+7+random(3),y-5+random(3),2,2,true);
WaitTilStill;
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
End;
If(Not(FindSymbol(x,y,'transportation')))Then
Begin
Repeat
GetSymbolColor(x,y,'fishing spot');
Mouse(x+random(3),y+random(3),2,2,true);
WaitTilStill;
Until
FindSymbol(x,y,'transportation');
End;
End;
Procedure DropBurntFish;
Begin
OpenInventory;
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
If(FindItemName('Burnt Fish'))Then
Begin
Repeat
Mouse(x,y,2,2,False);
ClickOption('Drop',1);
Wait(100+random(300));
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
Until
Not(FindItemName('Burnt Fish'));
End;
End;
Procedure Fish;
Begin
If(Not(FindTheSpot))Then
Begin
GetSymbolColor(x,y,'fishing spot');
Mouse(x+random(5),y+random(5),2,2,true);
WaitTilStill;
End;
If(FindTheSpot)Then
Begin
Repeat
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
MMouse(x,y,2,2);
Wait(1000+random(1000));
Until(IsUpText('ure'));
Mouse(x,y,2,2,true);
Repeat
FindRandoms;
QuickRandoms;
NoBannage;
RCExamine;
AutoTalker;
Until(InvFull);
Wait(1000+random(500));
LightLog;
End;
If(Not(IsUpText('ure')))Then
Begin
Repeat
GetSymbolColor(x,y,'fishing spot');
Mouse(x+random(3),y+random(3),2,2,true);
WaitTilStill;
Until(FindTheSpot) And (IsUpText('ure'));
End;
End;
{========================================================================}
{ MAIN LOOP }
{========================================================================}
Begin
SetupSRL;
ClearDebug;
Intro;
DeclarePlayers;
LoginPlayer;
LoadDTMs;
If (WhichFish = 'Both') Then
Begin
Repeat
CutLog;
ToFishSpot;
Fish;
ToGoblinHouse;
TradeBoth;
DropBurntFish;
ProggyReport;
Until(Loads=(Load));
End;
If (WhichFish = 'Trout') Then
Begin
Repeat
CutLog;
ToFishSpot;
Fish;
ToGoblinHouse;
TradeTrout;
DropBurntFish;
ProggyReport;
Until(Loads=(Load));
End;
If(Loads=(Load))Then
Logout;
End.
------------------------------------------------------