Buckleyindahouse
2007-01-03 15:13:50
Buckleyindahouse - SRL Member Application Form
Buckleyindahouse
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
None
Other Communitys
Sythe, Use to be part of Mopar
How Long have You Played Runescape
2 yrs.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I believe I have been scripting for a little over a month now and I think i have learned fast. I think I would be a great benefit to the SRL team. As I play RuneScape daily and I can inform of new updates and stuff like that. Im 13 going 14 next this Febuary, my grades are all like A's and A-'s and I hardly study :). I have alot of free time at home especially if im not playing football or basketball with my friends down at the park. I hope you consider me a great asset to the SRL team.
Thank You,
Buckleyindahouse.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is a karamaja Powerfisher and seller. I havent been able to test the walk to shop and back part cause i keep getting runtime errors, but I think thats it ok and wont mess up. I tried using DTMs to find the fishing equipment in the inventory if you get that fish random but it doesnt work I don't know why I follow the guide on DTMs.
Anyways here is the script, I think I have some potential.
This is like a version of RS buddy i made by myself. It works and compiles and everything i just got done using it. :P
Here is one of my High and low alchers. This was my very first scar script.
Those are some of my scripts. I hope you vote me into the SRL members team I can be a wonderfull asset to the team.
Thank You For Your Time,
Buckleyindahouse.
——————————————————
Buckleyindahouse
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
None
Other Communitys
Sythe, Use to be part of Mopar
How Long have You Played Runescape
2 yrs.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I believe I have been scripting for a little over a month now and I think i have learned fast. I think I would be a great benefit to the SRL team. As I play RuneScape daily and I can inform of new updates and stuff like that. Im 13 going 14 next this Febuary, my grades are all like A's and A-'s and I hardly study :). I have alot of free time at home especially if im not playing football or basketball with my friends down at the park. I hope you consider me a great asset to the SRL team.
Thank You,
Buckleyindahouse.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is a karamaja Powerfisher and seller. I havent been able to test the walk to shop and back part cause i keep getting runtime errors, but I think thats it ok and wont mess up. I tried using DTMs to find the fishing equipment in the inventory if you get that fish random but it doesnt work I don't know why I follow the guide on DTMs.
Anyways here is the script, I think I have some potential.
program powerfisher;
{.include srl/srl.scar}
{.include srl/srl/skill/Fishing.scar}
//include srl/srl/extended/xmapwalk.scar}
const
LoadsToDo= 2;//Loads to do
pub= 'On';// public chat
TimeWait= 5;//How many minutes to wait before logging in next player(5 = 8 mins)
Priv= 'Off';//private chat
Trade= 'Off';//trade chat
FishingType= 'Cage';//Harpoon or Cage
FishType= 1;//1 = lobbies 2 = swordfish or tuna
TimeToWait= 5;//How many seconds to wait before clicking again
RunDirection= 'N';//Run Direction if fight is found
Sale= True;//True if you want to sell to general Shop/ False if you want to drop
AutoRespond= True;//True if u want to autotalk
var
Loads,Lobbys,EXP,fish,LobsterCage,Harpoon,CageEquipment: integer;
HarpoonEquipment,Responded,RandomChecks,Tuna,Lobster,SwordFish: integer;
WalkedToShop: integer;
procedure DeclareBMPS;
begin
LobsterCage := BitmapFromString(22, 18, 'z78DABD54D96E8430' +
'0CFCA5801D1B1E09C7FF7F52538FBB32A46157EA76411A2172CC7' +
'87CA4549F81CA38A504E4615C2FA894D2EC5888CE9813C905332D' +
'175C68BBE0C1E9079F30FE1B2F5098E9A1E1E3BC409D35C9F1795' +
'EC795A7B46996558A9FC26D2DE37B792796076E521FF890AC2681' +
'AC4C4CEDD9D3FD7FE10DB1CB21934CAAB2CB4669AC2F34E8AA554' +
'65DE7FADA1E7C439BAFDA3DA79B812D63E075768BDAD94D89E742' +
'78E3D135600F5C825ACD478D70E789D557A10A955CBEC56AD1418' +
'75A59A572F570964106BFD36E80034AB2C89299172AAE01DAECBF' +
'BB641323275ED8FF40A1D730B4C5FFA8E7E05B5CF5282C2E28F79' +
'C061F628EB007F1E6CC071FAECD101A32D5B3A7FCA286A33F6DF6' +
'25E73D6F50882AF26A342E77C9D4620FB83C0A683344BC7E33F62' +
'3B3D635277FDAECF7661434C0A5C0EE5C3183C688785B6DDEB9D1' +
'9FB8C73C6CBBE69509E9DA100B3C34AE586931BFD11FDF83BA6DD' +
'8918553D7BF3EA9C0D56A83C321F6E86DEC59B0C7C910F10D332A' +
'76626756440DE84D7C7755B593E77E46057F226FCB1E35A04323D' +
'EAB726DCDFD5DB449F50B7BC37B8FF16CD7B1CE9CBC67FF0214EF' +
'F968');
Harpoon := BitmapFromString(27, 14, 'z78DAC5945B6E03210C45B' +
'704F8C9A7E7B5FF259584A9E4A9434A9A569D480E020267CE85E0' +
'86088AAEC201B51CBE6298F35FF577D966D649B727C71A6712B7E' +
'F325A7966D4CF899C231259050575D5A2A5B77961641C71BEEA67' +
'F48ED192ECC2C29A444515C4C4946491454D73EB255E79A18D848' +
'48976DAFAAF2095F679FF6C3C77384AF364033636522A54600703' +
'232324E4422B5934498806CBC8D23CE7739FBA2B2A9E9956CE9C8' +
'9F0C0CB49E89C9ED0B3FD85CFBE574DCACAB5687BF8684DED24B8' +
'B4A3C73E59DF8E6CBD6786397A8BF564BB53556CD95635969C7B8' +
'E3D5FCFE3A9CEF62091D18E97B7F0A3B127706ABB0769A35B7C35' +
'5B962C91F0C19ACE95EF79BEE33C7964F3E70D72D9CB3E249C713' +
'2DF1F462F6C86F0C9E6D31CE5FB8DAB1F391C254B074AAA9460BB' +
'12FAF5A3BD07F722B24D581A8D9EF6804BB377277CC1553C756F5' +
'81ADE08C796B7DCFFD7BEDA9BAE1FAB42E23B');
Lobster := BitmapFromString(21, 15, 'z78DA9594DDAE02210C845' +
'F89B68070892BBEFF23C9613019D283512F269BA5CCD73F37E5F8' +
'889ABCC6D8ECBEF414E3E2C753B4624FABFAC4B3D7F0F793DCED2' +
'9D757CE1F156E78F6747E8F48C9A2A2B791AEF4AD3AAEF7A44464' +
'377EC3F1CC0571D11FB10CFAD75D65FF78D726E3BD8D16C22D676' +
'B52A11C09B5A6123AE89CC371B21F89A99A49CE62F54D5CCE35A6' +
'5D710BCA31C5E2A5B2A6E372D88841FB502636EB726173E009B77' +
'28B5DADB471C35675DD92649F1BE2FD647FE56282701BC649F368' +
'C46D8C62C620FE1B3A6F11EB72D028437137C4AAEFC84B4656D06' +
'DF766E6EB2E4F64661BC751E89ECE357A22F7B686649A996B4103' +
'86F6F6E17870A1DBD631DD77150EACD3ADF4A46ACC65FACA16796' +
'2228FD4B47067FCA6FD532974B298EEB9ECB31CE6AD8D3BB708DB' +
'78A41397A7C915317D73981DF3FF7AFC5B79B2FE0BC655FB69E2F' +
'4D46DE6FA53BF51A7EFF6E7AEFECA056B6D146DF2E9EBEAB9FED4' +
'E7BCDDA24DE66D677D01FBC68AEE');
Tuna := BitmapFromString(13, 19, 'z78DA8D946B92AC300885B714' +
'F310F8C92BFB5FD260C85469D9D3F77AAA8E65021F10ED1E67B75' +
'E477AEFDC64FBD7F5725D079DA828DC8908A53230FC83F3F2E4A0' +
'61C3468C139D8194443AC7E383F3176DAD2767D35A34C2D491913' +
'FF4F61FFDC084134E3C0001718082BEFD3B617702E0602858F177' +
'C682279E6FFFF3641C3BF61D5931AE9C2B4F9E30F68D840E2A777' +
'F731EF1EB9C77FCA44E9D0B0D1A7956DA8485B50A096A11107870' +
'8C6A28B31A014166E55B63222763E5C26573EEBE98C99183078F7' +
'CCB2CC19B99C5CE95AB146EF1526F311F68CB370D23CF4424B862' +
'D2A567E7024195FBEE833044453ED0A68CF8D0DAD0A1E90AB1369' +
'5B48654AFA5354B4666C560D550F6C03CD977FC19FBB639993B15' +
'15EC22FD9257CCA39FDBF9EF89EEB987466812EC5A9B46D6AD654' +
'C8CE06B908F9E55DEB9579321B5F8506D1A8756959DB5EA3E38D9' +
'CF9AF141F078222F41526F41721F7EF8113B87ED5CEBEAEA77DA9' +
'EA8048FB27A64B899772FA1D35B0883345CFCFA88B316DB08A567' +
'0F6835B46AE57451889D3EB8C75D67F119CA6E97EFD9D7148FD35' +
'82BF75FF71CB387D221EE233CF4EE36EAC51FC13D37BD951A4A7F' +
'EF7EF77B6EFA0F52575158');
SwordFish := BitmapFromString(12, 22, 'z78DA9594EB8E84200C8' +
'55F09A1377EF622EFFF48CB0E6EC204656635694895CFD3630B12' +
'046404D062B8AEE738F2735C9FAEBB9EE24A7BC5F47B1D6BFC2F8' +
'D148213360002A472A24114C63FDABE8A29CF7DA7201B8A64AEC8' +
'DC461C9C9272BFF7158D58954ECD9AB8A8A8B05892842E4C08427' +
'A53E3AAF0B5B653D4C5B224F3C1A942D1B98085F57B558E55FCBC' +
'A125E2CA9231A47E503538A7D6402F15DCCD841DEDE0663AD36E5' +
'42D3DE3A625B2877240248D6023299EB4F169529D93C2706CD0FA' +
'1E28F2D43F41C6E1DED48322DB11D5A99A775D425E2EFF2BE551E' +
'27BA70DF250FBD48D0186A19787AF7A6B93A2500FEE5821EABEAE' +
'EE0DE64C0EF11A1687B5806E1F795BBF75F33727E678A7ABD0389' +
'CB4B9CDBBD6F8344117A768B7DA7AA77A79FBFA7E5216FF8DAB58' +
'AC4A3ECCEFB4BEF44C9EAC3EBCF5C0F64CF8A0643BB9EB247EF06' +
'4C9DCE85CF37BDA3767EFDE876F385B4F86DA1F2D605537');
end;
Procedure DeclareDTMs;
Begin
LobsterCage := DTMFromString('78DA6314606060006124509E9FC7F01F48330' +
'2F17F20609404325818D000231209A49981841001352079315415' +
'060A0AA86AB8810413AA1A0514D31818000F5C0773');
End;
procedure Declareplayers;
begin
HowManyPlayers:=2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :=***; //PlayerName
Players[0].Pass :='********'; //Password
Players[0].Nick :='0l0';//Players nick name( a few letters from playername)
Players[0].Skill :='fishing';//The skill to pick if you get Genie random
Players[0].Loc :=''; //leave this alone
Players[0].Active:=True;// Leave this alone 2
Players[1].Name :=****; //PlayerName
Players[1].Pass :='**********'; //Password
Players[1].Nick :='0l0';//Players nick name( a few letters from playername)
Players[1].Skill :='fishing';//The skill to pick if you get Genie random
Players[1].Loc :=''; //leave this alone
Players[1].Active:=True;// Leave this alone 2
{ Players[2].Name :=****; //PlayerName
Players[2].Pass :='**********'; //Password
Players[2].Nick :='0l0';//Players nick name( a few letters from playername)
Players[2].Skill :='fishing';//The skill to pick if you get Genie random
Players[2].Loc :=''; //leave this alone
Players[2].Active:=True;// Leave this alone 2
Players[3].Name :=****; //PlayerName
Players[3].Pass :='*********'; //Password
Players[3].Nick :='0l0';//Players nick name( a few letters from playername)
Players[3].Skill :='fishing';//The skill to pick if you get Genie random
Players[3].Loc :=''; //leave this alone
Players[3].Active:=True;// Leave this alone 2
Players[4].Name :=****; //PlayerName
Players[4].Pass :='********'; //Password
Players[4].Nick :='0l0';//Players nick name( a few letters from playername)
Players[4].Skill :='fishing';//The skill to pick if you get Genie random
Players[4].Loc :=''; //leave this alone
Players[4].Active:=True;// Leave this alone 2 }
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure WalkToShop;
begin
If(InvCount = 28) Then
Begin
RadialWalk(RoadColor,184,544,54,1,-1);
Flag;
RadialWalk(RoadColor,219,579,52,1,-1);
Flag;
RadialWalk(RoadColor,239,559,541,1,-1);
Flag;
If(Not(FindSymbol(x,y,'shop'))) Then
Writeln('Lost Dammit');
Players[CurrentPlayer].Loc:= 'Lost';
Players[CurrentPlayer].Active:= False;
LogOut;
nextPlayer(True);
End Else
If(FindSymbol(x,y,'shop')) then
begin
Mouse(x,y,2,2,True);
Flag;
End;
End;
procedure FindAndSell;
begin
If(FindObj(x,y,'Talk to',3300743,10)) then
Mouse(X,y,2,2,False);
wait(75+random(150));
ChooseOption(x,y,'Trade');
wait(1500+random(1503));
If(FindBitmapin(Lobster,x,y,MIX1,MIY1,MIX2,MIY2)) or
(FindBitmapin(SwordFish,x,y,MIX1,MIY1,MIX2,MIY2)) or
(FindBitMapIn(Tuna,x,y,MIX1,MIY1,MIX2,MIY2)) Then
Begin
Mouse(x,y,2,2,False);
wait(75+random(150));
ChooseOption(x,y,'Sell 10');
WalkedToShop:= WalkedToShop + 1;
Loads:= Loads + 1;
Lobbys:= Lobbys + 26;
EXP:= EXP + 2340;
end;
end;
procedure WalkBack;
begin
If(FindSymbol(x,y,'Shop')) then
Mouse(x,y,2,2,True);
Flag;
RadialWalk(RoadColor,73,433,49,1,-1);
Flag;
RadialWalk(RoadColor,36,396,51,1,-1);
Flag;
RadialWalk(RoadColor,19,379,40,1,-1);
Flag;
If(Not(FindSymbol(x,y,'fish'))) then
begin
Writeln('Lost');
Players[CurrentPlayer].Loc:= 'Lost';
Players[CurrentPlayer].Active:= False;
LogOut;
nextPlayer(True);
End;
If(FindSymbol(x,y,'fish')) then
Mouse(x,y,2,2,True);
Flag;
End;
procedure CheckForEquipmentCage;
begin
If(FishingType = 'Cage') or (FishingType = 'cage') then
begin
If(Not(GameTab(4))) then
GameTab(4);
If(FindDTM(LobsterCage,x,y,MIX1,MIY1,MIX2,MIY2)) then
DisguiseScar('You Still Have Your Lobster Cage');
CageEquipment:= 1;
end;
end;
procedure NoEquipTwo;
begin
If(Not(GameTab(4))) then
GameTab(4);
If(Not(FindDTM(LobsterCage,x,y,MIX1,MIY1,MIX2,MIY2))) then
begin
repeat
DisguiseScar('LOST CAGE!!!');
HighestAngle;
FindObj(x,y,'Lobster Cage',603728,10)
Mouse(x,y,2,2,False);
wait(75+random(125));
ChooseOption(x,y,'Take Lobster pot');
until(CageEquipment = 1)
end;
end;
procedure CheckForFishingEquipmentHarpoon;
begin
If(FishingType = 'harpoon') or (FishingType = 'Harpoon') then
begin
If(Not(GameTab(4))) then
GameTab(4);
If(FindBitmapin(Harpoon,x,y,MIX1,MIY1,MIX2,MIY2)) then
DisguiseScar('You Still Have Your Harpoon');
HarpoonEquipment:= 2;
end;
end;
procedure NoEquip;
begin
If(Not(GameTab(4))) then
GameTab(4);
if(FishingType = 'harpoon') or (FishingType = 'Harpoon') then
If(Not(FindBitmapIn(harpoon,x,y,MIX1,MIY1,MIX2,MIY2))) then
begin
repeat
DisguiseScar('LOST HARPOON!!!');
HighestAngle;
FindObj(x,y,'Harpoon',8553100,15)
Mouse(x,y,2,2,False);
wait(75+random(100));
ChooseOption(x,y,'Take Harpoon')
Until(HarpoonEquipment = 2)
end;
end;
procedure TalkALilBit;
begin
If(InChat('Fishing lvls?')) or
(InChat('Fishing lvl?')) or
(InChat('Fishing level?')) or
(InChat('Fishing levels?')) or
(InChat('Fishing lvls')) or
(InChat('Fishing lvl')) or
(InChat('Fishing level')) or
(InChat('Fishing levels')) or
(InChat('Fish lvl?')) or
(InChat('Fish lvls?')) or
(InChat('Fish lvl')) or
(InChat('Fish lvls')) or
(InChat('<>< lvls?')) or
(InChat('<>< lvl?')) or
(InChat('<>< lvls')) or
(InChat('<>< lvl')) or
(InChat('><> lvls?')) or
(InChat('><> lvl?')) or
(InChat('><> lvls')) or
(InChat('><> lvl')) then
begin
TypeSend(IntToStr(GetSkillLevel('fishing')))
Responded:= Responded + 1;
end;
end;
procedure Responderr;
begin
if (InChat('Mining lvls') or
InChat('Mining lvls?') or
InChat('Mine lvls') or
Inchat('Mine lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Mining')))
Responded:= Responded + 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')))
Responded:= Responded + 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')))
Responded:= Responded + 1;
end;
if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
Responded:= Responded + 1;
end;
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')))
Responded:= Responded + 1;
end;
if (InChat('Range lvls') or
InChat('Range lvls?') or
InChat('Rangin lvls') or
InChat('Rangin lvls?') or
InChat('Ranged lvls') or
InChat('Ranged lvls?') or
InChat('Ranging lvls') or
InChat('Ranging lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Ranged')))
Responded:= Responded + 1;
end;
if (InChat('Pray lvls') or
InChat('Pray lvls?') or
InChat('Prayer lvls') or
InChat('Prayer lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Prayer')))
Responded:= Responded + 1;
end;
if (InChat('Mage lvls') or
InChat('Mage lvls?') or
InChat('Mag lvls') or
InChat('Mag lvls?') or
InChat('Magic lvls') or
InChat('Magic lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
Responded:= Responded + 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')))
Responded:= Responded + 1;
end;
if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
Responded:= Responded + 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')))
Responded:= Responded + 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')))
Responded:= Responded + 1;
end;
if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
Responded:= Responded + 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')))
Responded:= Responded + 1;
end;
if (InChat('Wna b freinds?') or
InChat('Wna be freinds?') or
InChat('Wana b freinds?') or
InChat('Wana be freinds?') or
InChat('Want 2 b freinds?') or
InChat('Want 2 be freinds?') or
InChat('Want to b freinds?') or
InChat('Want to be freinds?')) then
begin
TypeSend('No ty')
Responded:= Responded + 1;
end;
if (InChat('Hi' + (Players[CurrentPlayer].Name)) or
InChat('Hey' + (Players[CurrentPlayer].Name)) or
InChat('Hello' + (Players[CurrentPlayer].Name))) Then
begin
TypeSend('Hi')
Responded:= Responded + 1;
end;
end;
procedure DoISell;
begin
If(Sale = True) then
begin
MakeCompass('N');
WalkToShop;
FindAndSell;
WalkBack;
end;
end;
procedure FindEquipment;
begin
CheckForEquipmentCage;
NoEquip;
CheckForFishingEquipmentHarpoon;
NoEquipTwo;
end;
procedure ToTalk;
begin
if(Autorespond = True) then
begin
Responderr;
end;
end;
procedure setup;
begin
if(Not(LoggedIn)) then
LoginPlayer;
Setchat(pub,1);
setchat(priv,2);
setchat(trade,3);
SetRun(True);
HighestAngle;
MakeCompass('W');
end;
Procedure MyAntiBan;
var
DBanMe : Integer;
begin
DBanMe:= Random(20);
case DBanMe of
1: RandomRClickEvery(2 + Random(13));
//2: hoverskill('Fishing', 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: DragItem(1, 1+Random(18));
11: GameTab(1 + Random(12));
//12: DoEmote(1 + Random(20));
end;
end;
procedure DumbRandoms;
begin
If(Not(Loggedin)) then
LoginPlayer;
If(FindFight) then
Begin
RunAwayDirection(RunDirection)
wait(10000+random(5000));
RunBack;
FindNormalRandoms;
FindMod;
FindTalk;
FindName;
SolveFrog;
SolveFrogSwamp;
FindFrogCave;
FindEquipment;
FindLamp(Players[CurrentPlayer].Skill);
FindMime;
FindDead;
SolveBox;
HandleWhirlPool;
RandomChecks:= RandomChecks + 1;
end;
end;
procedure StupidReport;
begin
ClearDebug;
Writeln('You have been powerfishing for: '+TimeRunning);
Writeln('You have gained about: '+IntToStr(Exp)+' From Powerfishing');
Writeln('You have fished aproximately: '+intToStr(Lobbys)+' Lobsters');
Writeln('You Have fished aproximately: '+intToStr(fish)+' Tuna or Swordfish');
Writeln('You have dropped aproximately: '+intToStr(Loads)+' Loads of Lobsters');
Writeln('We Have Checked For Randoms: '+IntToStr(RandomChecks)+' Times');
end;
procedure FindEmAndFishEm;
begin
repeat
MouseSpeed:= 15;
if(FindObj(x,y,'Cage',16511192,75)) then
wait(150+random(250));
if(FishType = 1) then
Mouse(x,y,5,5,False);
ChooseOption(x,y,'Cage');
DumbRandoms;
StupidReport;
ToTalk;
MyAntiBan;
If(FishType = 2) then
Mouse(x,y,3,3,False);
ChooseOption(x,y,'Harpoon');
FindEquipment;
StupidReport;
DumbRandoms;
MyAntiBan;
FindEquipment;
Wait(timetowait*1000+random(2500));
ToTalk;
FindEquipment;
DumbRandoms;
MyAntiBan;
until(InvFull)
end;
procedure ToSell;
begin
If(Sale = True) then
begin
WalkToShop;
FindAndSell;
WalkBack;
DumbRandoms;
end;
end;
Procedure DoIDrop;
begin
If(Sale = True) then
exit;
DropTo(3,28);
FindEquipment;
Loads:= Loads + 1;
Lobbys:= Lobbys + 26;
EXP:= EXP + 2340;
if(Fishtype = 2) then
DropTo(3,28);
FindEquipment;
Loads:= Loads + 1;
Fish:= Fish + 26;
EXP:= EXP + 2520;
end;
procedure credits;
begin
cleardebug;
Writeln('This script was made by Buckleyindahouse');
wait(250);
Writeln('I worked really hard on this one so send me bugs');
wait(250);
Writeln('Either Pm them to me on Villu-Reborn or Contact me at');
wait(250);
Writeln('Contact: [email]bigbwoi2000@hotmail.com[/email]');
wait(250);
Writeln('Thank You and im not responsible if you get banned!');
wait(1500);
end;
begin
SetupSRL;
SetupSRLFishing;
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
credits;
wait(1500);
Activateclient;
DeclareDTMs;
DeclareBmps;
If(Not(Loggedin)) then
LoginPlayer;
setup;
repeat
repeat
FindEmAndFishEm;
DumbRandoms;
until(invfull)
DoIDrop;
DoISell;
DumbRandoms;
StupidReport;
until(Loads = LoadsToDO)
Logout;
credits;
wait(TimeWait*100000+random(200000));
NextPlayer(True);
end.This is like a version of RS buddy i made by myself. It works and compiles and everything i just got done using it. :P
{.Script Info:
# ScriptName = RS Hoe 1.0
# Author = Buckleyindahouse
# Description = This is for all those lazy people like me.
# Version = 1.0
# Date = 12/16/06
# Comments = Not Really any randoms yet. So just chill and watch.
/Script Info}
program autodropper;
{.include srl/srl.scar}
const
//IF YOU WANT TO SPECIFY WHAT TO POSITION TO DROP THEN GO TO LINE: 188
Spam='What you want to spam';//this is what u want to spam.
username='Arch U 4Life';//put username for autologin feature.
Password='Pass';//Put password for autologin feature.
howmanyalchs=1;//how many alchs you want to do.
Version='1.0';//NO TOUCHIE
var
Alchtimes: integer; spamtimes: integer; droptimes: integer;Login: integer;
var
Login2: integer;
procedure ClickBMPS;
begin
Mouse(x,y,2,2,True);
wait(150+random(150));
WriteLn('Clicked Bmp');
end;
Procedure LoadBitmaps;
Begin
login := BitmapFromString(19, 18, 'z78DA9554410EC3200CFB523' +
'542D71D9956FEFFA4490D8720E3D4E560554063270EB197999DE6' +
'7858AB3690EDE0FD9FF5DA06E269F8AE7B7DEFC51823638978B18' +
'C38CE887FA12A163FDCF49811A70888A9722902D3CF2AC318315F' +
'C02E2CD450CED2EDE3B85025336EE9625E4FBCC17D9D116B15332' +
'AAD7CCD16D9455FD0299D51E9E7BCAA10E1C6BBEBBE67349D86F8' +
'D3BED0DBB98FF85E98C2C9F1F4C5E555652F94710D7F9F760EB8A' +
'3E438F52DE1F23834473243F2AAE6AF031973FDAC928B8E12E6DB' +
'262CE76533013BE7C15C653AF3B92ACFF99B7FD92461A73ABB5C7' +
'F45DB1F8242D17B');
login2 := BitmapFromString(28, 17, 'z78DAA556410E843008FC52' +
'6371E31E35ABFF7FD226D2C334300891033104CB300E58D9645F4' +
'5AC5F44E4EC67BFE4AB5E23C2F263AFEFEA997B3F44FAA76FD286' +
'D70854C1BA236ECE717C8CE127D7BA67708EBA8A0ABD41E5F0536' +
'589F4E2603055580ECB9C9E01C30596FA82AC2E46C8F77DE02DF4' +
'88B3DDE6B06DFAA5DC22C222125AC5F0E9E0B40AB74A8B7DC85EA' +
'C16C4E0E08C35891896DEFB31BC9D5FCCB99F63FD209214CE705E' +
'2E624CB10FF946B10D2CD6A7A37953114FB33C14F261D66C176CD' +
'E199F31F3EFE3ACAF079C643BB1CC42BCDA57156778CE7B9C944F' +
'B297A8E641AB2C67D23FE98EBDA52ACD6CF296B04C3ED3369B23E' +
'45337985351EF1278A3B091177FFFFC3C4EFF32D8C9139E8CAFDE' +
'4C8C42E27DC5367F19550227DBDB193D3B77989BCF3F9B7384FD');
end;
procedure dropper;
begin
if(IsFKeydown(5)) then
begin
DisguiseScar('Now Dropping You Lazy Bastard');
mousespeed:=5;
dropto(2,28);
droptimes:= droptimes + 1;
DisguiseScar('Done Dropping');
end;
end;
procedure spammer;
begin
if(isfkeydown(6)) then
begin
DisguiseScar('Now Spamming');
wait(2000);
typesend(spam);
spamtimes:= spamtimes + 1;
DisguiseScar('Done Spamming You Line');
end;
end;
procedure highalch;
begin
if(isfkeydown(7)) then
begin
DisguiseScar('Now High Alching');
gametab(7);
repeat
mouse(711,372,5,5,true)
wait(2000+random(700));
mouse(711,372,5,5,true)
AlchTimes:=AlchTimes + 1;
until(Alchtimes = Howmanyalchs)
DisguiseScar('Done High Alching');
end;
end;
procedure lowalch;
begin
if(isfkeydown(8)) then
begin
gametab(7);
DisguiseScar('Now Low Alching');
repeat
mouse(708,294,5,5,true)
wait(2000+random(500));
mouse(708,294,5,5,true)
Alchtimes:=AlchTimes + 1;
until(Alchtimes = Howmanyalchs)
DisguiseScar('Done Low Alching');
end;
end;
procedure Lazy;
begin
if(isfkeydown(9)) then
begin
DisguiseScar('Now Loging In');
if(FindBitmap(Login,x,y)) then
begin
ClickBMPS;
typesend(username);
wait(500+random(150));
typesend(password);
wait(500+random(100));
if(FindBitmap(Login2,x,y)) then
begin
wait(1500+random(1500));
ClickBMPS;
DisguiseScar('Done Loging In');
end;
end;
end;
end;
procedure credits;
begin
ClearDebug;
DisguiseScar('Showing Credits');
writeln('This Script Was Made By Buckleyindahouse');
writeln('This Is My Version Of RS Bitch ');
writeln('You Are Using Buckleyindahouse RS Hoe 1.0');
DisguiseScar('No More Credits');
wait(1000);
DisguiseScar('Scar Your Autoing Friend');
end;
procedure ReportStats;
begin
cleardebug;
DisguiseScar('Now Show Your Report :)');
Writeln('You Have Been Using RS Bitch For'+(timerunning));
writeln('You Have Alched:'+IntToStr(Alchtimes)+'Times');
Writeln('You have Spammed You Line For:'+IntToStr(SpamTimes)+'Times');
Writeln('You Have Auto Dropper You Inventory:'+IntToStr(Droptimes)+'Times');
Writeln('REMEMBER I AM NOT RESPONSIBLE IF YOU GET BANNED AND HAVE FUN');
DisguiseScar('Done Showing Your Report!');
end;
////////////////////////////MAIN LOOP\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
begin
SetupSRL;
credits;
wait(1500);
activateclient;
LoadBitmaps;
repeat
dropper;
spammer;
highalch;
lowalch;
lazy;
until(False)
ReportStats;
end.
Here is one of my High and low alchers. This was my very first scar script.
program autoalcher;
{.include srl/SRL.scar}
///////////////////////////ATTENTION READ LINE BELOW\\\\\\\\\\\\\\\\\\\\\
// if high alching have item in 16th inventory slot if low then 8th slot\\
var
AlchTimes: integer;
const
Whichalch=true; //true for high alch false for low alch
AlchType= 'High Alching';//High Alching or Low Alching
AlchsToDo=5;// amount of times to alch
Skill= 'magic';//skill to pick for lamp random
procedure Declareplayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='USERNAME HERE'; //PlayerName
Players[0].Pass :='PASSWORD HERE'; //Password
Players[0].Nick :='NICK NAME HERE';//Players nick name( a few letters from playername)
Players[0].Loc :=''; //leave this alone
Players[0].Active:=True;// Leave this alone 2
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end; ///////////////////////*************DONT TOUCH BELOW********\\\\\\\\\\\\\\\\\\\\
procedure Randoms;
begin
FindNormalRandoms;
if(FindFight)then begin
RunAwayDirection('N');
wait(10000+random(5000));
RunBack;
FindLamp(Skill);
FindMod;
FindTalk;
Solvebox;
SolveFrog;
end;
end;
procedure credits;
begin
writeln('');
writeln(' This script was made by Buckleyindahouse')
writeln(' Just have fun cheating and getting mage lvl up')
end;
procedure highalch;
begin
mouse(711,372,5,5,true)
randoms;
wait(2000+random(500));
mouse(711,372,5,5,true)
randoms;
AlchTimes:=AlchTimes + 1;
end;
procedure lowalch;
begin
mouse(708,294,5,5,true)
randoms;
wait(2000+random(500));
randoms;
mouse(708,294,5,5,true)
Alchtimes:=AlchTimes + 1;
end;
procedure IfHighAlch;
begin
if(Whichalch = true)then
highalch;
end;
procedure IfLowAlch;
begin
if(whichalch = false)then
lowalch;
end;
procedure settab;
begin
gametab(7)
randoms;
end;
Procedure Reportit;
begin
Writeln('');
Writeln('');
Writeln('You have been '+AlchType+ ' For '+TimeRunning);
Writeln('You have been '+AlchType+' '+IntToStr(Alchtimes));
Writeln('Congrats on your mage lvl and im not responsible for any bans!');
End;
//////*******************Main Loop********************\\\\\\\\\\\\\\\\\\\\\\\\\\
begin
SetupSRL;
credits;
Declareplayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
ActivateClient;
Settab;
Randoms;
repeat
IfHighAlch;
IfLowAlch;
until(AlchsToDo = AlchTimes)
Reportit;
LogOut;
End.Those are some of my scripts. I hope you vote me into the SRL members team I can be a wonderfull asset to the team.
Thank You For Your Time,
Buckleyindahouse.
——————————————————