Doofy
2007-03-16 14:46:49
<!– BEGIN TEMPLATE: formanswers –>
Doofy - SRL Member Application Form
Doofy
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Other Communitys
Im a registered on Fagex and Sythe but I never go on. Doofmeister's Scripts
How Long have You Played Runescape
Almost 3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I applied before but I posted the wrong script and it sucked either way…. but I've been working non-stop lately on my alcher its on version 4.5. I used SRL and I think it works really well. Please say yes because it works and I worked so hard on it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Doofy - SRL Member Application Form
Doofy
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Other Communitys
Im a registered on Fagex and Sythe but I never go on. Doofmeister's Scripts
How Long have You Played Runescape
Almost 3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I applied before but I posted the wrong script and it sucked either way…. but I've been working non-stop lately on my alcher its on version 4.5. I used SRL and I think it works really well. Please say yes because it works and I worked so hard on it.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{-----------------------------BY DOOFMEISTER------------------------------)
DO NOT USE ANYTHING FROM THIS SCRIPT WITHOUT GIVING CREDIT TO ME!
FOR USE WITH THE OFFICIAL RUNESCAPE CLIENT ON V-BRIGHT LOW DETAIL
BE IN A MEMBERS WORLD
ITEMS YOU WANT ALCHED (NOTED) ANYWHERE
WEILD A FIRE STAFF
START LOGGED OUT
SETUP 31-35 (OPTIONAL 36-38) AND 46-48
V1 : VERY BASIC, NOT SO GOOD
V2 : MUCH BETTER USE OF SRL AND USES SOME COLOR FINDING
V2.5 : FIXED ALCHING PROCEDURE
V3 : MINOR TWEAKS AND ADDED PROGRESS REPORT
V3.5 : MUCH BETTER NOTE FINDING PROCEDURE THANKS TO UBER BROTHERS'
UBERALCHER
V4 : WORKING RANDOMS, BETTER AUTORESPONDER, AND BETTER ANTIBAN
V4.5 : MUCH MUCH BETTER AUTORESPONDER AND MINOR TWEAKS
(-------------------------------------------------------------------------}
program DoofyAlcher;
{.include SRL\SRL.scar}
var
TotalAlched,DItem,RespondAmount,Note,c: Integer;
AlchText: String;
const
StartPlayer = 0;{Don't touch}
AlchNumber = 22;{Number of things to alch}
CommonNickname1 = '';{A common name people call you..like part of your name}
CommonNickname2 = '';
CommonNickname3 = '';
CrowdedPlace = True;{True if in crowded place with lots of talk,False if not}
GreenLiquid = 3195184;{Default}
YellowCoins = 849658;{Default}
NoteColor = 8037556;{Default}
///////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name := '';{Username}
Players[0].Pass := '';{Password}
Players[0].Nick := '';{3 Letters from your name NO CAPS}
Players[0].Active:=True;{No Touch}
end;
///////////////////////////////////////////////////////////////////////////
procedure FindRandoms;
begin
FindLamp(LampSkill);
if (FindFight) then
begin
Logout;
TerminateScript;
end;
FindNormalRandoms;
if(InBlack)then
begin
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
SRLRandomsReport;
end;
///////////////////////////////////////////////////////////////////////////
procedure AutoRespond;
begin
if(CrowdedPlace = True) then
begin
if (FindChatText('Hp lvls') or
FindChatText('Hp lvls?') or
FindChatText('Hitpoint lvls') or
FindChatText('Hitpoint lvls?') or
FindChatText('Hitpoints lvls') or
FindChatText('Hitpoints lvls?') or
FindChatText('Hitp lvls') or
FindChatText('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
RespondAmount:=RespondAmount+1;
end;
if (FindChatText('Mining lvls') or
FindChatText('Mining lvls?') or
FindChatText('Mine lvls') or
FindChatText('Mine lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Mining')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Wc lvls') or
FindChatText('Wc lvls?') or
FindChatText('Woodcut lvls') or
FindChatText('Woodcut lvls?') or
FindChatText('Woodcutting lvls') or
FindChatText('Woodcutting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Attack lvls') or
FindChatText('Attack lvls?') or
FindChatText('Atack lvls') or
FindChatText('Atack lvls?') or
FindChatText('Attac lvls') or
FindChatText('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Defenc lvls') or
FindChatText('Defenc lvls?') or
FindChatText('Defence lvls') or
FindChatText('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Magic lvls') or
FindChatText('Magic lvls?') or
FindChatText('Mage lvls') or
FindChatText('Mage lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Cook lvls') or
FindChatText('Cook lvls?') or
FindChatText('Cookin lvls') or
FindChatText('Cookin lvls?') or
FindChatText('Cooking lvls') or
FindChatText('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Fletch lvls') or
FindChatText('Fletch lvls?') or
FindChatText('Fletching lvls') or
FindChatText('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Firemaking lvls') or
FindChatText('FireMaking lvls?') or
FindChatText('Fire making lvls') or
FindChatText('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Craft lvls') or
FindChatText('Craftt lvls?') or
FindChatText('Craftin lvls') or
FindChatText('Crafting lvls?') or
FindChatText('Crafting lvls') or
FindChatText('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Smelt lvls') or
FindChatText('Smelt lvls?') or
FindChatText('Smelting lvls') or
FindChatText('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Rc lvls') or
FindChatText('Rc lvls?') or
FindChatText('Runecraft lvls') or
FindChatText('Runecraft lvls?') or
FindChatText('Runecrafting lvls') or
FindChatText('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
RespondAmount:= RespondAmount+1;
end;
if (FindChatText('Hi') or
FindChatText('Hey') or
FindChatText('Hello') or
FindChatText('Yo')) then
begin
case random(4) of
0: begin
Typesend('hey...just watchin.');
RespondAmount:=RespondAmount+1;
end;
1: begin
Typesend('hey...im gonna do barrows once im lvl 90');
RespondAmount:=RespondAmount+1;
end;
2: begin
Typesend('hi');
RespondAmount:=RespondAmount+1;
end;
3: begin
Typesend('yo');
RespondAmount:=RespondAmount+1;
end;
end;
end;
if (FindChatText((Players[CurrentPlayer].Name)) or
FindChatText((CommonNickname1)) or
FindChatText((CommonNickname2)) or
FindChatText((CommonNickname3))) then
begin
case random(4) of
0: begin
Typesend('im busy leave me alone lol');
RespondAmount:=RespondAmount+1;
end;
1: begin
Typesend('im not talking right now');
RespondAmount:=RespondAmount+1;
end;
2: begin
Typesend('talk to me some other time i dont want to talk now');
RespondAmount:=RespondAmount+1;
end;
3: begin
Typesend('leave me alone');
RespondAmount:=RespondAmount+1;
end;
end;
end;
if (FindChatText('Macroer') or
FindChatText('Macror') or
FindChatText('Macro') or
FindChatText('Macrore')) then
begin
case random(4) of
0: begin
Typesend('omg im not for the last time stop talking to me');
RespondAmount:=RespondAmount+1;
end;
1: begin
Typesend('everyone thinks i am but im not.. dont even talk');
RespondAmount:=RespondAmount+1;
end;
2: begin
Typesend('lol im not leave me alone');
RespondAmount:=RespondAmount+1;
end;
3: begin
Typesend('im not! im not talkin to you');
RespondAmount:=RespondAmount+1;
end;
end;
end;
if (FindChatText('Autoer') or
FindChatText('Auoter') or
FindChatText('Auto') or
FindChatText('Autor')) then
begin
case random(4) of
0: begin
Typesend('omg im not leave me alone');
RespondAmount:=RespondAmount+1;
end;
1: begin
Typesend('im just watching calm down dont talk to me');
RespondAmount:=RespondAmount+1;
end;
2: begin
Typesend('everyone thinks im one...leave me alone');
RespondAmount:=RespondAmount+1;
end;
3: begin
Typesend('im not! i hate them dont even say anything');
RespondAmount:=RespondAmount+1;
end;
end;
end;
end;
if(CrowdedPlace=False) then
begin
if (InChat('Hp lvls') or
InChat('Hp lvls?') or
InChat('Hitpoint lvls') or
InChat('Hitpoint lvls?') or
InChat('Hitpoints lvls') or
InChat('Hitpoints lvls?') or
InChat('Hitp lvls') or
InChat('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
RespondAmount:=RespondAmount+1;
end;
if (InChat('Mining lvls') or
InChat('Mining lvls?') or
InChat('Mine lvls') or
InChat('Mine lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Mining')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Attack lvls') or
InChat('Attack lvls?') or
InChat('Atack lvls') or
InChat('Atack lvls?') or
InChat('Attac lvls') or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Magic lvls') or
InChat('Magic lvls?') or
InChat('Mage lvls') or
InChat('Mage lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Cook lvls') or
InChat('Cook lvls?') or
InChat('Cookin lvls') or
Inchat('Cookin lvls?') or
InChat('Cooking lvls') or
InChat('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Firemaking lvls') or
InChat('FireMaking lvls?') or
Inchat('Fire making lvls') or
InChat('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Craft lvls') or
InChat('Craftt lvls?') or
InChat('Craftin lvls') or
InChat('Crafting lvls?') or
InChat('Crafting lvls') or
InChat('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Rc lvls') or
InChat('Rc lvls?') or
InChat('Runecraft lvls') or
InChat('Runecraft lvls?') or
InChat('Runecrafting lvls') or
InChat('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
RespondAmount:= RespondAmount+1;
end;
if (InChat('Hi') or
InChat('Hey') or
InChat('Hello') or
InChat('Yo')) then
begin
case random(4) of
0: begin
Typesend('hey...just watchin.');
RespondAmount:=RespondAmount+1;
end;
1: begin
Typesend('hey...im gonna do barrows once im lvl 90');
RespondAmount:=RespondAmount+1;
end;
2: begin
Typesend('hi');
RespondAmount:=RespondAmount+1;
end;
3: begin
Typesend('yo');
RespondAmount:=RespondAmount+1;
end;
end;
end;
if (InChat((Players[CurrentPlayer].Name)) or
InChat((CommonNickname1)) or
InChat((CommonNickname2)) or
InChat((CommonNickname3))) then
begin
case random(4) of
0: begin
Typesend('im busy leave me alone lol');
RespondAmount:=RespondAmount+1;
end;
1: begin
Typesend('im not talking right now');
RespondAmount:=RespondAmount+1;
end;
2: begin
Typesend('talk to me some other time i dont want to talk now');
RespondAmount:=RespondAmount+1;
end;
3: begin
Typesend('leave me alone');
RespondAmount:=RespondAmount+1;
end;
end;
end;
if (InChat('Macroer') or
InChat('Macror') or
InChat('Macro') or
InChat('Macrore')) then
begin
case random(4) of
0: begin
Typesend('omg im not for the last time stop talking to me');
RespondAmount:=RespondAmount+1;
end;
1: begin
Typesend('everyone thinks i am but im not.. dont even talk');
RespondAmount:=RespondAmount+1;
end;
2: begin
Typesend('lol im not leave me alone');
RespondAmount:=RespondAmount+1;
end;
3: begin
Typesend('im not! im not talkin to you');
RespondAmount:=RespondAmount+1;
end;
end;
end;
if (InChat('Autoer') or
InChat('Auoter') or
InChat('Auto') or
InChat('Autor')) then
begin
case random(4) of
0: begin
Typesend('omg im not leave me alone');
RespondAmount:=RespondAmount+1;
end;
1: begin
Typesend('im just watching calm down dont talk to me');
RespondAmount:=RespondAmount+1;
end;
2: begin
Typesend('everyone thinks im one...leave me alone');
RespondAmount:=RespondAmount+1;
end;
3: begin
Typesend('im not! i hate them dont even say anything');
RespondAmount:=RespondAmount+1;
end;
end;
end;
end;
end;
///////////////////////////////////////////////////////////////////////////
procedure RandomCompassLeft;
begin
KeyDown(VK_Left);
Wait((1)+ Random(500));
KeyUp(VK_Left);
end;
///////////////////////////////////////////////////////////////////////////
procedure RandomCompassRight;
begin
KeyDown(VK_Right);
Wait((1)+ Random(500));
KeyUp(VK_Right);
end;
///////////////////////////////////////////////////////////////////////////
procedure RandomCompassDirection;
begin
c:=random(2);
case c of
0:RandomCompassRight;
1:RandomCompassLeft;
end;
end;
///////////////////////////////////////////////////////////////////////////
procedure DoofyAntiBan;
begin
if not(LoggedIn)then
begin
Logout;
TerminateScript;
end;
case Random(11) of
0 : MMouse(Random(MSX2), Random(MSY2),0,0);
1 : RandomRClick;
2 : HoverSkill('magic', False);
3 : HoverSkill('magic', False);
4 : HoverSkill('random', False);
5 : RandomCompassDirection;
6 : RandomCompassDirection;
7 : PickupMouse;
8 : begin
DoEmote(1 + Random(20));
Wait(1500+random(1000));
GameTab(4);
end;
9 : begin
DItem:=4+random(14);
if(ExistsItem(DItem))then
DragItem(DItem,15+random(10));
end
10 : begin
GameTab(1+random(12));
wait(1500+random(500));
GameTab(4);
end;
end;
end;
///////////////////////////////////////////////////////////////////////////
procedure CheckTalkAndRandoms;
begin
AutoRespond;
FindRandoms;
DoofyAntiBan;
end;
///////////////////////////////////////////////////////////////////////////
procedure DoofyProgressReport;
begin
Writeln('<----------Doofy Progress Report---------->');
Writeln('Number of Alchs:'+inttostr(TotalAlched));
Writeln('Gained Xp:'+inttostr(TotalAlched*65));
Writeln('Times Responded:'+inttostr(RespondAmount));
Writeln('Time Running:'+(TimeRunning));
Writeln('<----------------------------------------->');
end;
///////////////////////////////////////////////////////////////////////////
procedure LoadDTMS;{From Uber Brothers' UberAlcher}
begin
Note := DTMFromString('78DA63B462626078CE800618914820ED0E54F' +
'391809A50A09A3704D40402D57CC2AF0600A0FE04F2');
end;
///////////////////////////////////////////////////////////////////////////
procedure AlchThatShit;
begin
RespondAmount:=0;
TotalAlched:=0;
AlchText := 'Low Lev';
LoadDTMS;{From Uber Brothers' UberAlcher}
SetChat('On',1);
SetChat('Off',2);
SetChat('Friends',3);
repeat
begin
RotateEvery(1 + Random(2));
if (LoggedIn) then
begin
Wait(100+random(200));
CheckTalkAndRandoms;
DoofyProgressReport;
PickUpMouse;
Gametab(7);
Wait(200+random(300));
if (LoggedIn) then
begin
if (FindColor(x,y,GreenLiquid,715,333,723,341)) or (FindColor(x,y,YellowCoins,715,333,723,341)) then
begin
MMouse(x,y,5,5);
Wait(100+random(200));
Mouse(x,y,4,4,true);
end else
begin
Writeln('Did not find GreenLiquid. Try setting yourself.');
Logout;
TerminateScript;
end;
end else
begin
Logout;
TerminateScript;
end;
end else
begin
Logout;
TerminateScript;
end;
Wait(200+random(200));
if (LoggedIn) then
begin
if(GetCurrentTab = 4)and (IsUpTextMulti((AlchText),'lch','Alchemy'))then {From Uber Brothers' UberAlcher}
begin
if (FindDTM(Note,x,y,557,203,744,468)) or (FindColor(x,y,NoteColor,566,212,602,245)) then {From Uber Brothers' UberAlcher}
begin
PickUpMouse;
MMouse(x,y,7,7);
Wait(100+random(200));
Mouse(x,y,5,5,true);
PickUpMouse;
TotalAlched:=TotalAlched+1;
end else
begin
Logout;
TerminateScript;
end;
end else
begin
Logout;
TerminateScript;
end;
end else
begin
Logout;
TerminateScript;
end;
end;
until(TotalAlched >= AlchNumber)
end;
///////////////////////////////////////////////////////////////////////////
begin
SetUpSrl;
SrlRandomsReport;
DeclarePlayers;
if (loggedin = false) then
begin
LoginPlayer;
end;
Wait(1000+random(700));
AlchThatShit;
Logout;
TerminateScript;
end.
——————————————————
<!– END TEMPLATE: formanswers –>