SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
inSane - SRL Member Application Form
inSane

What is the meaning to life?
Is there even one :D

Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
HTML,PHP and learning C++

Other Communitys
nope

How Long have You Played Runescape
3+ years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Hello, im inSane scripter :D, just starting but getting better and better by time. Im 14 years old, going to be active not a leecher. I have HTML and PHP knownledge and im trying to learn some C++ too. Im currently scripting 3+ hours a day. I have scripted with scar 4 months and now ive made my first SRL-Script.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{========================[Description and Release Notes]=======================}
{                                                                              }
{          Chicken killer feather/bone picker/buryer V 0.5 by inSane           }
{                                                                              }
{=================================[Signature]==================================}
{      _¦¦¦¦_                                                                  }
{     ¦¦¦¯  ¦¦¦                                                                }
{     ¦¦¦___¦¦¦          _¦                  __            _¦                  }
{      ¯¦¦¦¦¯           ¦¦¦                 ¦¦¦           ¦¦¦   _____          }
{             __        ¦¦¦     ___       _¦¦¦¦ __        ¦¦  _¦¦¦¦¯¦¦¦        }
{       ____  ¦¦¦¦_     ¦¦   _¦¦¦¦¯¯     _¦¦¦¦¦ ¦¦¦__    ¦¦¦ ¦¦¦¯              }
{       ¦¦¦¦¦   ¦¦¦¦¦_  ¦¦¦ _¦¦¦¯        _¦¦¯¦¦¦¦¦¦¦¦¦¦_  ¦¦¦ ¯¦¦¦___          }
{        ¦¦¦   ¦¦¦¯¦¦¦_¦¦¦¦¦¦¦¦¦_____  ¦¦¦¦__¦¦¦ ¦¦¯¯¦¦¦_¦¦¦   ¦¦¦¦¦¦          }
{        ¦¦¦   ¦¦¦  ¯¦¦¦¦¦  ¯¯¯¯¯¦¦¦¦¦_¦¦¦¦¦¦¦¦¦ ¦¦¦  ¯¦¦¦¦¦ _¦¦¦¯¯¯¯          }
{      ___¦¦_  ¦¦¦    ¯¦¦¦  __      ¯¯¦¦¦    ¦¦¦ ¦¦¦    ¯¦¦¦_¦¦¯`     __       }
{     ¦¦ ¦¦¦¦¦_         ¯¯_¦¦         ¦¦¦    ¦¦¦  ¯      ¯¯¦¦¦¦    __¦¦¯       }
{                        ¦¦¦          ¦¦¦     ¦¦           ¦¦¦¦___¦¦¦¯         }
{                        ¦¦¦        _¦¦¯      ¯¯             ¯¦¦¦¦¯            }
{                        ¦¦¦______¦¦¦¯                                         }
{                         ¯¦¦¦¦¦¦¦¯¯                                           }
{                                                                              }
{====================================[About]===================================}
{                                                                              }
{ This is script kills chickens, picks feathers and bones and then burys       }
{ the bones. This has succesfully ran 14 hours without getting lost.           }
{ Do not use this overnight with only 1 player, you will get banned, if you    }
{ want to use this overnight i recommend 8 or over players.                    }
{                                                                              }
{==============================[How to use this]===============================}
{                                                                              }
{ Setup lines 49 - 99. Start at chicken pen, or anywhere wheres chickens.      }
{ Set runescape to V-Bright and your monitor to 32-Bit True colors.            }
{ Start logged out for best results. When you first time run this script watch }
{ it for 5 mins, if it goes good then you may leave it as it is :)             }
{                                                                              }
{==============================[Version History]===============================}
{                                                                              }
{ Future Updates:                                                              }
{  + Will be more accurate counting.                                           }
{                                                                              }
{==============================================================================}
program BoneZ;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Prayer.scar}
{.include SRL\SRL\Skill\Fighting.scar}
{==============================================================================}
var BonezPicked, BonezBuried, ChickenzKilled:integer;
{==============================================================================}
{============================[DECLARE PLAYERS]=================================}
{==============================================================================}
Procedure DeclarePlayers;
Begin
   NumberOfPlayers(6);
   CurrentPlayer:=0;
{==============================================================================}
   Players[0].Name:='NameHere'; //RuneScape name Here
   Players[0].Pass:='PassHere'; //RuneScape password Here
   Players[0].Nick:='NickHere'; //3 chars of your RuneScape name
   Players[0].Active:=True    ; //true or false
   Players[0].Integer1:=1000  ; //Chickz to kill until nextplayer,recommend 1000
   Players[0].Integer2:=500   ; //Bonez to be picked & buried
{==============================================================================}
   Players[1].Name:='NameHere'; //RuneScape name Here
   Players[1].Pass:='PassHere'; //RuneScape password Here
   Players[1].Nick:='NickHere'; //3 chars of your RuneScape name
   Players[1].Active:=True    ; //true or false
   Players[1].Integer1:=1000  ; //Chickz to kill until nextplayer,recommend 1000
   Players[1].Integer2:=500   ; //Bonez to be picked & buried
{==============================================================================}
   Players[2].Name:='NameHere'; //RuneScape name Here
   Players[2].Pass:='PassHere'; //RuneScape password Here
   Players[2].Nick:='NickHere'; //3 chars of your RuneScape name
   Players[2].Active:=True    ; //true or false
   Players[2].Integer1:=1000  ; //Chickz to kill until nextplayer,recommend 1000
   Players[2].Integer2:=500   ; //Bonez to be picked & buried
{==============================================================================}
   Players[3].Name:='NameHere'; //RuneScape name Here
   Players[3].Pass:='PassHere'; //RuneScape password Here
   Players[3].Nick:='NickHere'; //3 chars of your RuneScape name
   Players[3].Active:=True    ; //true or false
   Players[3].Integer1:=1000  ; //Chickz to kill until nextplayer,recommend 1000
   Players[3].Integer2:=500   ; //Bonez to be picked & buried
{==============================================================================}
   Players[4].Name:='NameHere'; //RuneScape name Here
   Players[4].Pass:='PassHere'; //RuneScape password Here
   Players[4].Nick:='NickHere'; //3 chars of your RuneScape name
   Players[4].Active:=True    ; //true or false
   Players[4].Integer1:=1000  ; //Chickz to kill until nextplayer,recommend 1000
   Players[4].Integer2:=500   ; //Bonez to be picked & buried
{==============================================================================}
   Players[5].Name:='NameHere'; //RuneScape name Here
   Players[5].Pass:='PassHere'; //RuneScape password Here
   Players[5].Nick:='NickHere'; //3 chars of your RuneScape name
   Players[5].Active:=True    ; //true or false
   Players[5].Integer1:=1000  ; //Chickz to kill until nextplayer,recommend 1000
   Players[5].Integer2:=500   ; //Bonez to be picked & buried
{==============================================================================}
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,Upchars)
end;
{==============================================================================}
{===============================[PICK BONES]===================================}
{==============================================================================}
Procedure PickBonez;
  Begin
 GameTab(4)
  if(FindColor(x,y,13816536,MSX1,MSY1,MSX2,MSY2))or
(FindColor(x,y,11776957,MSX1,MSY1,MSX2,MSY2))or
(FindColor(x,y,12829643,MSX1,MSY1,MSX2,MSY2))then
MMouse(x,y,2,2)
if(IsUpText('ake'))then
   begin
Mouse(x,y,2,2,false)
if(ChooseOption(x,y,'ones'))
or
(ChooseOption(x,y,'eather'))then
Flag;
Wait(500)
 BonezPicked:=BonezPicked+1;
    FindNormalRandoms;
   end;
end;
{==============================================================================}
{===============================[BURY BONES]===================================}
{==============================================================================}
procedure BuryBones;
begin
 GameTab(4)
repeat
if(FindObj3(x,y,'one',BoneColor,7))then
 begin
  Mouse(x,y,2,2,false)
  ChooseOption(x,y,'ury')
  Wait(809)
  BonezBuried:=BonezBuried+1;
 end;
    FindNormalRandoms;
until(not(FindObj3(x,y,'one',BoneColor,7)))
end;
{==============================================================================}
{==============================[KILL CHICKEN]==================================}
{==============================================================================}
procedure KillChicken;
begin
if(FindColor(x,y,13816536,MSX1,MSY1,MSX2,MSY2))or
(FindColor(x,y,11776957,MSX1,MSY1,MSX2,MSY2))or
(FindColor(x,y,12829643,MSX1,MSY1,MSX2,MSY2))then
MMouse(x,y,2,2)
if(IsUpText('ttack'))then
 begin
  Mouse(x,y,2,2,true)
  Flag;
repeat
    Wait(500)
until(not(InFight))
 end;
  ChickenzKilled:=ChickenzKilled+1;
    FindNormalRandoms;
end;
{==============================================================================}
{===========================[MAKE RANDOM COMPASS]==============================}
{==============================================================================}
procedure MakeRandomCompass;
begin
 case random(4) of
0: MakeCompass('N');
1: MakeCompass('E');
2: MakeCompass('W');
3: MakeCompass('S');
 end;
end;
{==============================================================================}
{============================[PROGRESS REPORT]=================================}
{==============================================================================}
procedure ProgressReport;
begin
ClearDebug;
Writeln('==================================')
Writeln('===== Bonez Burier By inSane =====')
Writeln('==================================')
Writeln('Time Running: '+ ScriptTime2(2))
Writeln('==================================')
Writeln('Bonez Picked: '+inttostr(BonezPicked))
Writeln('Bonez Buried: '+inttostr(BonezBuried))
Writeln('Chikz Killed: '+inttostr(ChickenzKilled))
Writeln('==================================')
end;
{==============================================================================}
{===============================[MAIN LOOP]====================================}
{==============================================================================}
begin
SetupSRL;
DeclarePlayers;
NEWLINE:='';
DisguiseScar('Welcome to Legoland')
repeat
repeat
LogInPlayer;
AntiBan;
MakeRandomCompass;
Repeat
KillChicken;
PickBonez;
FindNormalRandoms;
ProgressReport;
until(InvFull)
MakeRandomCompass;
BuryBones;
ProgressReport;
SRLRandomsReport;
until(Players[CurrentPlayer].Integer1<=ChickenzKilled)or(Players[CurrentPlayer].Integer2<=BonezBuried)
NextPlayer(true)
until(false)
end.
{==============================================================================}

Ok, now my other samples hope ya like them :D :

procedure WalkingPart1;
 begin
  MakeCompass('E')
   Wait(400-random(23))
    RadialRoadWalk(FindRoadColor,-10,10,65,0,0)
   Wait(400-random(23))
  MakeCompass('N')
 Wait(10+random(23))
RadialRoadWalk(FindRoadColor,-45,-25,69,0,0)
 Wait(1000-random(23))
  MakeCompass('W')
 RadialRoadWalk(FindRoadColor,45,55,69,0,0)
Wait(1000+random(23))
 FindSymbol(x,y,'store')
  Mouse(x+random(1),y+random(5),2,2,true)
 Flag;
  Wait(100)
end;

Ok, this one i made for my Rune Mysteries Runner, but it doesnt have enought failsafes so i decided to make a better one for that so this one is just procedure now :D

These functions i made for my woodcutter but i havent made it for a while so they are just functions :D, easy to make but very usefull.

Function Chopped: Boolean;
Begin
  if(Pos('ogs',GetTextAtEx(20, 415, 0, SmallChars, False,False, 0, 1, 0, 80, False, tr_AllChars))<>0)then
  Result:=True;
End;
Function Axe: Boolean;
Begin
  if(Pos('oodcu',GetTextAtEx(20, 415, 0, SmallChars, False,False, 0, 1, 0, 80, False, tr_AllChars))<>0)then
  Result:=True;
End;
Function Reach: Boolean;
Begin
  if(Pos('reach',GetTextAtEx(20, 415, 0, SmallChars, False,False, 0, 1, 0, 80, False, tr_AllChars))<>0)then
  Result:=True;
End;

And heres example about forms (i know you dont allow autotalkers but heres one with forms :D) :

program AutoTalker;
{.include srl/srl.scar}
var
  Typed : Integer;
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Image1 : TImage;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  Label7 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Edit4 : TEdit;
  Edit5 : TEdit;
  Button1 : TButton;
  Button2 : TButton;
  C : TCanvas;
  ChickenMan : Integer;

procedure Clicked(Sender : TObject);
begin
Repeat
Writeln('Writing Text one...')
Wait(1000)
TypeSend(''+Edit1.Text)
Wait(1500)
Writeln('Writing Text two...')
Wait(1000)
TypeSend(''+Edit2.Text)
Wait(1500)
Writeln('Writing Text three...')
Wait(1000)
TypeSend(''+Edit3.Text)
Wait(1500)
Writeln('Writing Text four...')
Wait(1000)
TypeSend(''+Edit4.Text)
Wait(1500)
Typed:=Typed+1;
Until(inttostr(Typed)=Edit5.Text)
end;

procedure Clicked2(Sender : TObject);
begin
frmDesign.ModalResult:=MROK;
end;
procedure DeclareForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 301;
frmDesign.Top := 135;
frmDesign.BorderIcons := [biSystemMenu];
frmDesign.BorderStyle := bsSingle;
frmDesign.Caption := 'Auto Talker';
frmDesign.ClientHeight := 196;
frmDesign.ClientWidth := 482;
frmDesign.Color := clBlack;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 51;
Label1.Top := 11;
Label1.Width := 364;
Label1.Height := 13;
Label1.Caption :=
'This is my AutoTalker, i made this because it is always funny t' +
'o test things! ';
Label1.Font.Color := clWhite;
Label1.Font.Height := -11;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 105;
Label2.Top := 25;
Label2.Width := 241;
Label2.Height := 13;
Label2.Caption := 'I hope you like it, if not please close this window!';
Label2.Font.Color := clWhite;
Label2.Font.Height := -11;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Image1 := TImage.Create(frmDesign);
Image1.Parent := frmDesign;
Image1.Left := 424;
Image1.Top := 68;
Image1.Width := 51;
Image1.Height := 121;
ChickenMan := BitmapFromString(51, 121, 'z78DAED9DEB72E3380' +
       'E465F499478017FF2A6F77FA405F9213DE0D0CAF6EC564D3B96E4' +
       'AA335DDB4E363E014080A2DDDBF65CCFF55CCFF55CCFF55CCFF55' +
       'CCFF5F7EBCC87DBB792F76CE8A4C39AFA3859AF9C766F5C0BC766' +
       '6ADB99B995633715DEC0C792BEAADB8BC960DBF6F645B8C29FCFE' +
       '389B7251F7D77026FB9EEC4D155478C0DE26F4F339E53BBC3C718' +
       '2A98107E06B3ED398B9A06D68DAD3E79CAAEAC3F1CD3EC6D65A47' +
       'D339C9C3DF6C07B5A2A5CABF2C4333B67E91793AD5FD95A6D3EC1' +
       'C715D8F6B657BBB23F72AB54A9D8DA6A2D15BC9DB1C2960CD8420' +
       'BB5BC2035E2320F63A5F273C1B39E851FF94CFC18BC85AB565A76' +
       '5344257E6C9A30A363EC74E7C10FCDF19C3B18AB1B0789D759A62' +
       '951A4880AD66ACBFC5034CEF0154BDCE2A71B435D1A6CA66DBDC5' +
       'EA3CC3E9F9A10827ADB51E96FDB946331F8952B8458C21D7169EE' +
       '6DCF8B130062A94B9AAB1E37A941E8D83F18C5CF46E616CAF26A7' +
       '89883A3811F6DE5E98A2E376AC14174ADB62E4196AEF5D59F2C99' +
       '3BB511DD35491565CB1C9631E97A93C164AA53F2882A7B1F9E84B' +
       '44A51BAD9542CEAE7CC05B0925A404F2C494768FB949BBCA3973C' +
       '435EE718F84EF769F4E6CA2EE695389A972CF5FDD01F6C531E672' +
       '943DED608DD61EE146C6869389DADE88BAAF59A9475AA9DC7CD9A' +
       '9EF4D361E0911780763A83FA84EC26149A8CCF024CE41054E56E9' +
       '68C70E7EB6B117AE14A59AE95842FD777D6F76CDE53B4C94991FF' +
       '4C2D5657DFB96B7301633C5E3FF718529E03EBB1612637A6534C5' +
       'A47F602CA514897A8F119A664C317AFAD83AA63D8C7E55F81BC6F' +
       '2910F5E4259376D9A29260AFBC71AF3C5279295F1F76B1ABE6A30' +
       '9DA9055F7874A23D87EC43D1FC907C1C9150A804CAF2DAD1F36B1' +
       'B2ADE72CD25D2145D5C03439DE8B20DA9D862C9ADFCC1AE8EBC87' +
       '28AF85A388AA66DD2AAF07A0441D7A5A364741086FE33B686388B' +
       '19591BFB5FF91F3660AC907138FB8FB03EC36E276C9C5A790CD11' +
       '694ACD5FABD99E8C6F31C4E0C34F74253469F305ECD112ED0BFE4' +
       'F26C5958A3A31367E3B3FA9E3E29F7FA9C660BFB911C30BAE0E73' +
       '49717FC135DE4635832B904E6AFE27CC8CDF478222D7FC1AE37FE' +
       '1955B45AC9893AB48D155F0AD5DF51BFBF6B20AE9CA8CB552B1CF' +
       '92B1AE9CB272892B103DD864CC9175097C4F57811F9C407AFDD2A' +
       'EF47A07EA57FD7D1469B7E36BD758D5D55E8C6DE1746F9A90EE74' +
       'A73592170B2FE34DDB435DBAAAF6FA992A4AB92FDB42D0C47C44D' +
       'CD6B2B1C1B75B07FBBA67105DC925EB4F50620C5DD3A8C69AC8A0' +
       'A9CFBCE81C84C8F4C1758AD4FFBFD2BDC4482182EFE38A7F9B1B9' +
       'DE9E8FD0E7EB39331AC89C897F1E7D862F51944D688876FFD88A5' +
       '333732C2C53F88BE0B751E33FEFBDC5D22EA8721BE48E4C77D68B' +
       'F6BF63B1741A22BE594C201A20EE3CF925FCB4433F90175977591' +
       'FBB2321EB4BBC85F75C602BE4F8CC198FC3639AE483A79A9BDC39' +
       '85075AD206625D858E79A755A5C337A65C821B903D43B48E340E8' +
       '1B7517FD878A815F8B8B1B88EC78515B4016117274D1060F5EAD7' +
       'A6275A9ED7A35D4D47BDDA08EB4F789B762CA161BF6163431FF82' +
       '9CB89CA0810279D97795E7C0DBB8FB0F8AA5C1294A15F577168E0' +
       'A2FF3FBD8F7B83A99808CF8C3C696F372920BD8EB5344E64A34EA' +
       'DFFE621B244F9ED78825FB22C7A67742D81EE6EB51F75C7A254C4' +
       'EB3F6892A6B66DFEBE89FBD8336ED5CA957DD3B0FDAFA5AC0959F' +
       '5F2F79541589CCE55E2DD8D7D668F04C4D7C071D9342AE0381F0B' +
       '7B5CF679CF83D1E356BE8673A348BEBD9FFC7624C9F0418BF5979' +
       'D5832FF65DE167789B765CB1CF3F28F90B2A6F2F8C212B113F2DD' +
       'BDCBB113FEA98EFA738FACF852E083F43EDFE823E1704FE9BC6A4' +
       '86C09EDEAB1F9C568AE150B206DEE079CDEB11813859A139B9927' +
       '584BBFB0833C5F7AF3B02CB35FC5B60F7D5F79FCE59BBBFC7FB26' +
       '707E49BC8D4AA2897B3D933164E26275ADD212810B91E992EF67B' +
       '4D126C355CDB3AD3E470DC2D8C9DDAEA93A13DFC2185E9D449A5A' +
       'D9554EE17C8EC424A20BE776460CE857AACFF35CF1972B8EB194F' +
       '9BF2788580271C198E65B18F3D597AFD338D89957B508AC7D9E4E' +
       '60EEDDEB21AE9035A356AF944E0F54FE610C673835F5093DFC6C3' +
       'AD2DEC7187A0654DDD2BBF5A8296BFA70C56D13CF943CCB6CE12C' +
       'A3F697B17BA17D8A55AC719657BF08F21CD477BE06735F8FCDCAA' +
       'B9FF0DD220D5517F5B684DE6181D34A040FB1AF93B04127CF974E' +
       '8CE94E49AD71F2FC2596C032F63034AF7738E36E481BC3FFF2C7B' +
       '272D8E057CBF50906C4C358B98478CEE87FB0FAE339B2C60DABE2' +
       '5C11F92BDE06A73B986A2EFBFE3CE76AECCF7AFB954DBDFE205A5' +
       '405D67518F90B6FDAED54F915A5B3FAEAAFFE36210A559FF6BDB1' +
       'EFF92F1BEBAE462CADBF475D37604C53A698C5302819A756491D5' +
       '7577CFF0BC67EA7D2A623ED6456BE386BADB8CE893253E88940F1' +
       'E79E16F8DE989E3D5F585A4FC60E4EFDC60511BD9F676C8EB1BFC' +
       'E5A4CE72E96B9406A3EA6274DB543F2D35D694AE7A926F417EF16' +
       'C1CC757132F66A6E027FEEBB6CAE8C696FB2EFB7CCA1B2C775959' +
       '598C72FF231D658C28F7C772A654FF36CA289BF85B7CB9DD28B3D' +
       '46E925B032AA58BDDA59FA59C6AEA8771EAE2AD88B281A36E4D42' +
       'BAAD6D87F5EB97DD0A55D496EEA773A28BEE81CB0078B4A88BB57' +
       '63C7150E353FDCD855BD525986090894DD69F8D1DF4DADBC9F64A' +
       'CDF7D0B7632A64EFF6A4E33A38A9F7E122C183D35C81EECA8F93F' +
       'B7F25FD6B74A25CC31B6DC13913B23CB1D28B2647D04A75DEBF15' +
       'B108E3B4A1F656C9C37D0C65E4CD6AA86EB67F63BDD7E0725AE14' +
       'B70FBD102193B175C6D1554BE51A3FFAE6FDE0743F7D4FD97FEC3' +
       'B9D43FF4001A7BD4D155EBD3317155E135F2BDF615433EED09CCF' +
       'E076834B8CA9FBB69A53751AE49C0DBE10AF853EF43DDE6034EF6' +
       '34CE26A9CF2D2441469729FE682AD7BE18003E110BC9131DD27F0' +
       '4CE0665A6ACE56572AB9EF7907635C9D36D74FE938472FD862700' +
       '9FCDE15AF11C1EFB78831179BABC2908C3BAF78E58ADB0AE3E376' +
       '9B0BB101E62D456FAF88DAAE5D15976BD86EE4AA24E74DB6A9FA2' +
       '0CCF9F069253257AA3D8C6D2504E1ED8CA96EAA981C7D5B99F6BE' +
       '717DCF3A3F198B69F73C51E6EC4FE1D25FE9ACACB6E4706ADED39' +
       '878CBE508077A2D50C71E580FB654C0ED969736F6AB234DA11F01' +
       '36615F89BFDD6E7C617DC47AC7595669D751A4A93B903B1BC36E8' +
       '366A5BA515DF995B991EEFDA9C2E83C35AF8C49E577C9985C6A4C' +
       '77F5261D97AEED5479DE5E997D3A3D875AB2FD9300FFE2ED8C8DD' +
       'D06DD5D5C1A1B3EDB9688638C623004DECDD8DA83D558F7F882E8' +
       '63EBC64B2669DE3337A5131B7CE14A77B367DCEE5DF9E3198231E' +
       '20AFD58AA47B49AD2D3EA9384B7CC4A6A3E1B03CA4C8DEE2B551B' +
       '8370F4ABC2B14A0A919535F59174F04631667C6563E264CCD7DA9' +
       '89A1FCF2373910351FF9B4BE5ABD3005BFF87336E313D4DF37566' +
       '5751E84B23025B48F597B1F1E7567A78B6960FC34F675D8433C61' +
       'F6B69E9AC24C6E06AED2E46CDC733610944356B1B7F5D063FD558' +
       'DB53E2D70E2266066BA93ECED56C30ED21F21AA172B036FE9B24E' +
       'F4651EFC7F9D8DE355136AEC5DCFFF5A885A7CF7126F22E5168C6' +
       '21DEE00AEF7403F1EE928F3566C8F16B1F9CCE2E524ED7A7408B8' +
       'BF6DEFD58CAB41907EADCD4443482DBEDAF6C89D8C6E0BA162013' +
       '351F635297860DF4A5A8512B716EF631965C289C9583A8519AF00' +
       '93EAEB431BD17F10EEF477BD3F988C26E0CF8A29B451D5355EE31' +
       'A64FF5634ED493F5CAC798DEBB40DE61B216EA896010BB168F37E' +
       'C5DE8EC93F95A73E9D06E6DCC85CD18AC86581FB52B4C04323D3D' +
       'C6B4B7126CFF37DA3AB5315F9DD9DA64EF31A6BD8D1DEC1C289A7' +
       'E9FB7BF5370FC59EFED60A5C0FBD01F635F5D47FFC729F1F92AD3' +
       'CEF6F804273C079FE7804F08798CC9BC393ED1E2ABD68D4F1D199' +
       'FEDF058FA070EC7275D3C1E9EEBB99EEBB99EEBB97EE2F51F9276' +
       '063A');
C:= GetBitmapCanvas(ChickenMan);
CopyCanvas(C, Image1.Canvas, 0, 0, 51, 121, 0, 0, 51, 121);
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 31;
Label3.Top := 84;
Label3.Width := 61;
Label3.Height := 16;
Label3.Caption := 'Text one : ';
Label3.Font.Color := clWhite;
Label3.Font.Height := -13;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 31;
Label4.Top := 106;
Label4.Width := 58;
Label4.Height := 16;
Label4.Caption := 'Text two : ';
Label4.Font.Color := clWhite;
Label4.Font.Height := -13;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 31;
Label5.Top := 128;
Label5.Width := 68;
Label5.Height := 16;
Label5.Caption := 'Text three : ';
Label5.Font.Color := clWhite;
Label5.Font.Height := -13;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 63;
Label6.Top := 141;
Label6.Width := 32;
Label6.Height := 13;
Label6.Caption := 'Label6';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 31;
Label7.Top := 150;
Label7.Width := 60;
Label7.Height := 16;
Label7.Caption := 'Text four : ';
Label7.Font.Color := clWhite;
Label7.Font.Height := -13;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [];
Label7.ParentFont := False;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 100;
Edit1.Top := 84;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := 'Text Here';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 100;
Edit2.Top := 106;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := 'Text Here';
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 100;
Edit3.Top := 128;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.TabOrder := 10;
Edit3.Text := 'Text Here';
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 100;
Edit4.Top := 150;
Edit4.Width := 121;
Edit4.Height := 21;
Edit4.TabOrder := 11;
Edit4.Text := 'Text Here';
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 258;
Edit5.Top := 84;
Edit5.Width := 120;
Edit5.Height := 21;
Edit5.TabOrder := 12;
Edit5.Text := 'Times To Write';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 258;
Button1.Top := 114;
Button1.Width := 120;
Button1.Height := 25;
Button1.Caption := 'Start Script';
Button1.TabOrder := 13;
Button2 := TButton.Create(frmDesign);
Button2.Parent := frmDesign;
Button2.Left := 258;
Button2.Top := 140;
Button2.Width := 120;
Button2.Height := 25;
Button2.Caption := 'Close Script';
Button2.TabOrder := 13;
Button1.onClick:=@Clicked;
Button2.onClick:=@Clicked2;
end;
procedure SafeDeclareFormForm;
var v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('DeclareForm', v);
end;
procedure ShowDeclareFormFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowDeclareFormFormModal;
var v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowDeclareFormFormModal', v);
end;

begin
SetupSRL;
NEWLINE:='';
SafeDeclareFormForm;
SafeShowDeclareFormFormModal;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Its very simple,
Doenst look for randoms very often

procedure BuryBones;
begin
GameTab(4)
repeat
if(FindObj3(x,y,'one',BoneColor,7))then
begin
Mouse(x,y,2,2,false)
ChooseOption(x,y,'ury')
Wait(809)
BonezBuried:=BonezBuried+1;
end;
until(not(FindObj3(x,y,'one',BoneColor,7)))
end;

Needs a failsaife or it will probably search for bones forever or just hover over chickens because their colors are similar.

Try using little bitmaps or something to find chicksn or bones and not just color.

Also in your bone burying procedure you have
if(FindObj3(x,y,'one',BoneColor,7))then

FindOBj i believe is only for the mainscreen, not inventory?

From: YoHoJo
Its very simple,
Doenst look for randoms very often

procedure BuryBones;
begin
GameTab(4)
repeat
if(FindObj3(x,y,'one',BoneColor,7))then
begin
Mouse(x,y,2,2,false)
ChooseOption(x,y,'ury')
Wait(809)
BonezBuried:=BonezBuried+1;
end;
until(not(FindObj3(x,y,'one',BoneColor,7)))
end;

Needs a failsaife or it will probably search for bones forever or just hover over chickens because their colors are similar.

Try using little bitmaps or something to find chicksn or bones and not just color.

Also in your bone burying procedure you have
if(FindObj3(x,y,'one',BoneColor,7))then

FindOBj i believe is only for the mainscreen, not inventory?

Ok, i kinda made this script only for this application :p i am currently making Rune Mysteries Runner, over 50% done and works perfectly :D
EDIT: It burys the bones correctly for me :D

I'm gonna hold off on my vote. I like the neatness of the script, and you have multiplayer, but I don't see much in the way of antirandoms or antiban.

I would also like to see it get a wee bit longer, maybe an improved finding chickenfinding procedure (findcolorskipboxarray would work pretty well)

From: Smartzkid
I'm gonna hold off on my vote. I like the neatness of the script, and you have multiplayer, but I don't see much in the way of antirandoms or antiban.

I would also like to see it get a wee bit longer, maybe an improved finding chickenfinding procedure (findcolorskipboxarray would work pretty well)

I thought you would only want to see how i use the SRL include like multiplayer and that sort of things, didnt knew you would want the script to work flawlessy :D

EDIT: I dont know that, does the AntiBan; need to be in repeat or is it enought when its called once ?

EDIT2: I can post another example of my work tomorrow, i will make one script that shows all the things im able to do!

if you mean things like actionevery(x+random(x));, yes, they do need to be called in the repeat

Ok, thank you very much im not making new updates to this script :D I gonna throw this one to trash can. But i will post another sample of my work tomorow but no w im too drunkk to pst it sry D: