SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Visual Basic (6), Some C#, a useful (not complete) knowledge of HTML

Other Communitys
Moparisthebest, SSF (Mine! ssf.fsmff.com), Sythe (Not member)

How Long have You Played Runescape
Nearly a year

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

I first heard about Scar and SRL on Frugooscape, in April. This guy was auto-alching and advertising SCAR at the same time. So, I visited www.freddy1990.com, and decided 'Oh, I might aswell see what it can do'. I thaught it would be some program written in VB or C# or something, that has built-in macros. I never expected an entire scripting language!
At first, I didnt use scar much, because all the scripts I had were old, and used Squig or another old include. I knew nothing of SRL, and I only did when I visited a forum showing an example script, that said YOU MUST HAVE THE LATEST SRL. And that site was this site.
I tried to download SRL, and a few SRL scripts, but none worked. I couldn't download SRL, and I had no knowledge of SubVersion.
I plowed through various sites, trying to download SRL, but I couldn't. I had subversion installed on my computer somehow already, but for some reason, It wasn't trying to download SRL using it.
I was on the settings menu a few weeks ago, and was changing settings. I changed it so it downloaded using SVR, and I was suprised to find, the next day, an SRL powerminer worked!
A day later, that account got banned. I was shocked, as it said it had AntiRandoms. For gods sake, Im glad it wasn't my main, so I learnt to auto on new accounts (My new auto account is Burnifire, which doesn't get used that often).
I still practise my programming skills on Dodian. Once I feel I'm good enough working with code, I may move on to RuneScape itself. However, I may need encouragement from all you guys and the SRL forums.
Thanks for reading my backstory.

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

This is the include I use alot. It refers to SRL, and it builds on the Mouse procedure, on the ClickSafe and MoveSafe function.

                                                                                                     {
######                                   #
#     #  ####  #####  #   ##   #    #    #       # #####
#     # #    # #    # #  #  #  ##   #    #       # #    #
#     # #    # #    # # #    # # #  #    #       # #####
#     # #    # #    # # ###### #  # #    #       # #    #
#     # #    # #    # # #    # #   ##    #       # #    #
######   ####  #####  # #    # #    #    ####### # #####

          #     #                    ###         ###
          #     # ###### #####      #   #       #   #
          #     # #      #    #    #     #          #
          #     # #####  #    #    #     #         #
           #   #  #      #####     #     # ###    #
            # #   #      #   #      #   #  ###   #
             #    ###### #    #      ###   ###  #####

             Script in Dodian? This is the lib for you.
             VER 0.1 :First Release.
             VER 0.2 :Added RClickMenuItem, DropItem, ExamineItem and UseItem.
                      Changed DropItem to DropItem2.
}
{.include SRL/SRL.scar}
var Examine, Drop, Use, Inventory, Spellbook, DLogOut, EmptyTab, LOButton:Integer;
procedure MoveSafe(x, y, offset :Integer);
begin
case random(4) of
0: MMouse(x+random(offset), y+random(offset), offset, offset);
1: MMouse(x-random(offset), y-random(offset), offset, offset);
2: MMouse(x+random(offset), y-random(offset), offset, offset);
3: MMouse(x-random(offset), y+random(offset), offset, offset);
end;
case random(4) of
0: MMouse(x+random(offset), y+random(offset), 0, 0);
1: MMouse(x-random(offset), y-random(offset), offset, offset);
2: MMouse(x+random(offset), y-random(offset), offset, offset);
3: MMouse(x-random(offset), y+random(offset), offset, offset);
end;
MMouse(x, y, 1, 1);
MMouse(x, y, 0, 0);
end;
procedure ClickSafe(x,y :Integer; Left :Boolean); //Includes a human-like mistake!
begin
MoveSafe(x, y, random(3));
Mouse(x, y, random(3), random(3), Left);
end;
procedure Think;
begin
wait(10+random(400))
end;
Procedure SendKeysHuman(text:String);
Var
  a1 : Integer;
Begin
  a1:= 1;
  Repeat
    wait(random(22) + 15);
    sendkeys(copy(text, a1, 1));
    a1:= a1 + 1;
  Until a1 > length(text);
End;

Procedure SendKeysHumanSlow(text:String);
Var
  a1 : Integer;
Begin
  a1:= 1;
  Repeat
    wait(random(220) + 15);
    sendkeys(copy(text, a1, 1));
    a1:= a1 + 1;
  Until a1 > length(text);
End;

function MultiplyString(s:String; amount:integer):string;
var ss:string;
var ii:integer;
begin
repeat
ss :=ss + ss;
ii :=ii+1;
until ii = amount;
Result := ss;
end;



procedure ClickSafeOld(x,y :Integer; Left :Boolean); //Includes a human-like mistake! [OLD]
begin
case random(4) of
0:MoveMouseSmooth(x+random(4), y-random(4));
1:MoveMouseSmooth(x-random(4), y+random(4));
2:MoveMouseSmooth(x+random(4), y+random(4));
3:MoveMouseSmooth(x-random(4), y-random(4));
end;
MoveMouseSmooth(x,y);
Wait(random(343));
HoldMouse(x,y,Left);
Wait(random(34));
ReleaseMouse(x,y,Left);
Wait(random(343));
end;


procedure POpenSpellBook;
begin
ClickSafe(737,184,False);
end;

procedure POpenInventory;
begin
ClickSafe(648,186,False);
end;

procedure POpenEquipment;
begin
ClickSafe(683,184,False);
end;

procedure POpenEmptyTabA;
begin
ClickSafe(560,480,False);
end;

procedure PLogOut;
begin
ClickSafe(643,486,False);
Wait(random(123)+123)
ClickSafe(630,376,False);
end;
{
Comment from BadProcessor --
  I recommend not using the above commands with the 'P' prefix unless necessary.
  More reliable versions are available without the 'P' prefix. The only missing
  one is the Equipment tab. I feel this isnt used often enough in Dodian/Frugoo
  scripts.
                          --
}
procedure AlchItem;
begin
Think;
POpenSpellBook;
Think;
ClickSafe(636,327,False);
// ClickSafe(636,327,False);
Think;
ClickSafe(580,230,False);
Wait(3500);
end;
procedure BankAllCash;
begin
Think;
SendKeysHuman('::bank'+Chr(13))
Think;
Think;
ClickSafe(625,229,False);
Think;
ClickSafe(624,297,False);
Think;
ClickSafe(456,40,False);
Think;
end;
procedure StoreWithdrawAllItems(x, y: Integer);
begin
Think;
ClickSafe(x,y,False);
Think;
ClickSafe(x,y+68,False);
Think;
end;
procedure CloseBank2;
begin
Think;
ClickSafe(456,40,False);
Think;
end;
procedure OpenBank2;
begin
Think;
SendKeysHuman('::bank'+Chr(13))
Think;
end;
procedure DropItem2(x, y :Integer);
begin
Think;
ClickSafe(x, y, False);
Think;
ClickSafe(x, y + 34, False);
Think;
end;
function Gcx(a :Integer):Integer;
var x :Integer;
begin
Result := 590;
for x := 1 to a do
begin
Result := Result + 43;
end;
end;
function Gcy(a :Integer):Integer;
var x :Integer;
begin
Result := 253;
for x := 1 to a do
begin
Result := Result + 43;
end;
end;
procedure ClickInvItem(slot,offX, offY :Integer);
begin
case slot of
1: Mouse(590, 253, 0, 0, True);
2: Mouse(Gcx(1)+offX, 253+offY, 0, 0, True);
3: Mouse(Gcx(2)+offX, 253+offY, 0, 0, True);
4: Mouse(Gcx(3)+offX, 253+offY, 0, 0, True);
5: Mouse(590+offX, Gcy(1)+offY, 0, 0, True);
6: Mouse(Gcx(1)+offX, Gcy(1)+offY, 0, 0, True);
7: Mouse(Gcx(2)+offX, Gcy(1)+offY, 0, 0, True);
8: Mouse(Gcx(3)+offX, Gcy(1)+offY, 0, 0, True);
5: Mouse(590+offX, Gcy(2)+offY, 0, 0, True);
6: Mouse(Gcx(1)+offX, Gcy(2)+offY, 0, 0, True);
7: Mouse(Gcx(2)+offX, Gcy(2)+offY, 0, 0, True);
8: Mouse(Gcx(3)+offX, Gcy(2)+offY, 0, 0, True);
5: Mouse(590+offX, Gcy(3)+offY, 0, 0, True);
6: Mouse(Gcx(1)+offX, Gcy(3)+offY, 0, 0, True);
7: Mouse(Gcx(2)+offX, Gcy(3)+offY, 0, 0, True);
8: Mouse(Gcx(3)+offX, Gcy(3)+offY, 0, 0, True);
5: Mouse(590+offX, Gcy(4)+offY, 0, 0, True);
6: Mouse(Gcx(1)+offX, Gcy(4)+offY, 0, 0, True);
7: Mouse(Gcx(2)+offX, Gcy(4)+offY, 0, 0, True);
8: Mouse(Gcx(3)+offX, Gcy(4)+offY, 0, 0, True);
5: Mouse(590+offX, Gcy(5)+offY, 0, 0, True);
6: Mouse(Gcx(1)+offX, Gcy(5)+offY, 0, 0, True);
7: Mouse(Gcx(2)+offX, Gcy(5)+offY, 0, 0, True);
8: Mouse(Gcx(3)+offX, Gcy(5)+offY, 0, 0, True);
end;
end;
procedure RClickInvItem(slot, offX, offY :Integer);
begin
case slot of
1: Mouse(590, 253, 0, 0, False);
2: Mouse(Gcx(1)+offX, 253+offY, 0, 0, False);
3: Mouse(Gcx(2)+offX, 253+offY, 0, 0, False);
4: Mouse(Gcx(3)+offX, 253+offY, 0, 0, False);
5: Mouse(590+offX, Gcy(1)+offY, 0, 0, False);
6: Mouse(Gcx(1)+offX, Gcy(1)+offY, 0, 0, False);
7: Mouse(Gcx(2)+offX, Gcy(1)+offY, 0, 0, False);
8: Mouse(Gcx(3)+offX, Gcy(1)+offY, 0, 0, False);
5: Mouse(590+offX, Gcy(2)+offY, 0, 0, False);
6: Mouse(Gcx(1)+offX, Gcy(2)+offY, 0, 0, False);
7: Mouse(Gcx(2)+offX, Gcy(2)+offY, 0, 0, False);
8: Mouse(Gcx(3)+offX, Gcy(2)+offY, 0, 0, False);
5: Mouse(590+offX, Gcy(3)+offY, 0, 0, False);
6: Mouse(Gcx(1)+offX, Gcy(3)+offY, 0, 0, False);
7: Mouse(Gcx(2)+offX, Gcy(3)+offY, 0, 0, False);
8: Mouse(Gcx(3)+offX, Gcy(3)+offY, 0, 0, False);
5: Mouse(590+offX, Gcy(4)+offY, 0, 0, False);
6: Mouse(Gcx(1)+offX, Gcy(4)+offY, 0, 0, False);
7: Mouse(Gcx(2)+offX, Gcy(4)+offY, 0, 0, False);
8: Mouse(Gcx(3)+offX, Gcy(4)+offY, 0, 0, False);
5: Mouse(590+offX, Gcy(5)+offY, 0, 0, False);
6: Mouse(Gcx(1)+offX, Gcy(5)+offY, 0, 0, False);
7: Mouse(Gcx(2)+offX, Gcy(5)+offY, 0, 0, False);
8: Mouse(Gcx(3)+offX, Gcy(5)+offY, 0, 0, False);
end;
end;
function BankAll: Integer;
begin
Result := 43;
end;
procedure LoadBitmaps;
begin
 Examine := BitmapFromString(19, 6, 'beNpjYIgNcQei/xgAIg5BDG' +
      'CArAyZC2RjMpBlkdkDpRHZF5gMrGzyAQAxKIvM');
 Drop := BitmapFromString(23, 5, 'beNpjYACC2BD3/zDAwIAiAuFC2' +
      'EBBrOJYtaApJoaNKUW2IUCEzIYjBlSAppGaAAA5VnrW');
 Use := BitmapFromString(18, 5, 'beNpjYPiPBGJD3CEIwmVgYEBjQx' +
      'CEzQAGWFUiA2RdyHYhy/5HBXAtcFuwGogpi0cXUQAA2HhW+g==');
 Inventory := BitmapFromString(17, 13, 'beNqdkr0NwlAMhA/xoyh' +
      'FakpECRI0FCnTIWUMBGswAiOwBWOwEvAlFxzT8mRZ9/x89tmJdDvq' +
      'cRoMfN3PsctuWi+1rdSuBMYM8JwIZjOLJyxjgCmF5LTzbgJo+icwT' +
      '/TCG88WI8X0kOQrIjHA+z5qDmEhINJMeT1b8sFQQpukrN9LcDvyLY' +
      'wlEARYJIdBmm+jutCm0qroABQ8XUrpsO58q24oKObGJn2Nlea5rDn' +
      'PkhXGsHkzMcsgaTlWQ4wL5mpRU2kQgCnsv+xL2aM/rPntEjVdMH6Y' +
      '+FiO/HM+YdRtMw==');
 Spellbook := BitmapFromString(12, 9, 'beNpjYGBgZFRVUwWS+7bJ' +
      'AMmtSQxABpAEsqGIgQGiAA1BVMLVYCpAQRAAZiN0YVWGqgaLYiQ1c' +
      'AQR4eHmAqL///4xwABUFmo7CIHUcDC9eXMdbg5EF1AZhAE3BKqGIA' +
      'AAyxglbQ==');
 DLogOut := BitmapFromString(26, 18, 'beNqtk01KxEAQhSviSsWFzG' +
      'xGkHaYiIo/IAoiLiTMbHSbE0jAIwi5US4h4iH0EnOG0Ze85E2lozv' +
      'DW3RXd3+pX7Pv1cqSJLu79IIRKooCR+fp5OJ0hm1ZltPDg7A/9qfY' +
      'UlibtbSn7IbytJ3tLXAobN/eP/hcp0K1wN9ot1cnvA871hBptIgmx' +
      '8Z7uxEtf7x/yK5b4Eba3bfjaYBIWy4/ezRraJMRIY1lTYPkoTLjI0' +
      'XecBOp06lijGjP+QIiE2o8+YIYKS+nRylpEHKIU9olOSmJiXVVVbI' +
      'ThfqSBuHUA+sS40Nl+/JRezviJY09g0X81owxRmJRKNaFtWZRzoLV' +
      'tLBZq3M1JKNhpBB9A1Nb34RK41CiIS0QM8/siaZu1BZkhiaLItWM4' +
      'PnrS85OiGiM3dOiJmcXkYYZAYfSBHHt+yeiKXaOjGh8K5osf9E0g5' +
      '4PYEczT+ME9Wjzuaep4uu8NU2uvHkaJ0g05YEDooYcZhI01tGHybb' +
      'XFnCs6Rt/5OfFx27/+/0AaCJFhA==');
 EmptyTab := BitmapFromString(18, 16, 'beNpjYFBSlNPTUoEjCyNN' +
      'IHKy0gcibydTIArxsgGipBBXOGJggOqCKMbUAtGFrAWiC6hFQ0kBo' +
      'p4BooVJFajYwcnEwYEFiNC0JLm4QHQhOwyX+eXpIXAE0YXVL/h1IX' +
      'sH7ndMXcgaIbogtmDVhWwFVl1wLcghgEsXnqjBqgWuCzlqSNVFpBa' +
      'KdIFTAjGBgKwLzRb86inURQ4AAGVY7gw=');
 LOButton := BitmapFromString(71, 13, 'beNrdVjFSxDAMdLiGoUsX' +
      'Qg644XfUR0cFHS0Pho332NlbO3kAHk9GtqSVLMlySnlb5vfjA+bn0' +
      'xHfr9MjCHw5g+byp45SSper5ffLc3C3FPGVA5h0qQvYYrZ+Eh8TON' +
      'whLMVEOwIk5Vtw3QpYcIAgAndFuu0WCR6uBmBgSsABgU8rdcy0ywU' +
      'IyNyVibMKz4D6OBX5xkGuK65iw4JNfM9VBTseDagwcVIh/rBMr/MU' +
      '+xAeS/GYyIp85r67wSVOKi4C4jTjgy9wnMWI+U7UGFNART9UiIVXA' +
      'hct3VasheKJWH6u6DHZKT9VxZaHuiNt+e07H1CSaVW2DoWMRwfwDI' +
      'KLqZqPTEWKI4ZKbmSqrZmdg7hMe/at8rsd1uI813jWQr0auBHrHJa' +
      'xooGGPO/jZRzvwYU/qTgsFNadwunIupkn9oSSY3ZwP8X4VzNdKwHF' +
      'piGjvAgkRGufeWH6lDv1Uk1tUkzNjbaApo4tWtmkoXgC3IpjdgH9U' +
      'CSgoh4r2r2Sz7plglU04g5G3yYt30irUfMgdMbryp8MYXYBXV6B8l' +
      'jptZJRPQfuuTLLxzHeGipKN8Bb622zah9idyYAV/nDWvYoctwp3A4' +
      'WG18Z0Xp0xlr2Y9XiPiZ0gUBMQokFMamMtf6Jo38D0TANBy5Qh6tb' +
      '44CB2QVk62M9e+/1nxwvfk8KazX+YRRPVpSnz38zuHRaDmCTZU/FL' +
      'qAwu4DlX45fcYgV8Q==');
end;
procedure RClickMenuItem(x, y, MenuItem :Integer);
begin
 if MenuItem = 1 then
  begin
   Think;
   Mouse(x, y, 1, 1, False);
   Think;
   Mouse(x, y + 30, 1, 1, True);
   Think;
  end
 else
  begin
   Think;
   Mouse(x, y, 1, 1, False);
   Think;
   Mouse(x, y + 30 + (16 * MenuItem) - 16, 1, 1, True);
   Think;
  end;
end;
procedure RClickMenuItem2(slot, item :Integer);
var offX, offY :Integer;
begin
case slot of
1: Mouse(590, 253, 0, 0, False);
2: Mouse(Gcx(1)+offX, 253+offY, 0, 0, False);
3: Mouse(Gcx(2)+offX, 253+offY, 0, 0, False);
4: Mouse(Gcx(3)+offX, 253+offY, 0, 0, False);
5: Mouse(590+offX, Gcy(1)+offY, 0, 0, False);
6: Mouse(Gcx(1)+offX, Gcy(1)+offY, 0, 0, False);
7: Mouse(Gcx(2)+offX, Gcy(1)+offY, 0, 0, False);
8: Mouse(Gcx(3)+offX, Gcy(1)+offY, 0, 0, False);
9: Mouse(590+offX, Gcy(2)+offY, 0, 0, False);
10: Mouse(Gcx(1)+offX, Gcy(2)+offY, 0, 0, False);
11: Mouse(Gcx(2)+offX, Gcy(2)+offY, 0, 0, False);
12: Mouse(Gcx(3)+offX, Gcy(2)+offY, 0, 0, False);
13: Mouse(590+offX, Gcy(3)+offY, 0, 0, False);
14: Mouse(Gcx(1)+offX, Gcy(3)+offY, 0, 0, False);
15: Mouse(Gcx(2)+offX, Gcy(3)+offY, 0, 0, False);
16: Mouse(Gcx(3)+offX, Gcy(3)+offY, 0, 0, False);
17: Mouse(590+offX, Gcy(4)+offY, 0, 0, False);
18: Mouse(Gcx(1)+offX, Gcy(4)+offY, 0, 0, False);
19: Mouse(Gcx(2)+offX, Gcy(4)+offY, 0, 0, False);
20: Mouse(Gcx(3)+offX, Gcy(4)+offY, 0, 0, False);
21: Mouse(590+offX, Gcy(5)+offY, 0, 0, False);
22: Mouse(Gcx(1)+offX, Gcy(5)+offY, 0, 0, False);
23: Mouse(Gcx(2)+offX, Gcy(5)+offY, 0, 0, False);
24: Mouse(Gcx(3)+offX, Gcy(5)+offY, 0, 0, False);
25: Mouse(590+offX, Gcy(6)+offY, 0, 0, False);
26: Mouse(Gcx(1)+offX, Gcy(6)+offY, 0, 0, False);
27: Mouse(Gcx(2)+offX, Gcy(6)+offY, 0, 0, False);
28: Mouse(Gcx(3)+offX, Gcy(6)+offY, 0, 0, False);
end;
Think;
case slot of
1: Mouse(590, 299, 0, 0, True);
2: Mouse(Gcx(1)+offX, 253+offY+46, 0, 0, True);
3: Mouse(Gcx(2)+offX, 253+offY+46, 0, 0, True);
4: Mouse(Gcx(3)+offX, 253+offY+46, 0, 0, True);
5: Mouse(590+offX, Gcy(1)+offY+46, 0, 0, True);
6: Mouse(Gcx(1)+offX, Gcy(1)+offY+46, 0, 0, True);
7: Mouse(Gcx(2)+offX, Gcy(1)+offY+46, 0, 0, True);
8: Mouse(Gcx(3)+offX, Gcy(1)+offY+46, 0, 0, True);
9: Mouse(590+offX, Gcy(2)+offY+46, 0, 0, True);
10: Mouse(Gcx(1)+offX, Gcy(2)+offY+46, 0, 0, True);
11: Mouse(Gcx(2)+offX, Gcy(2)+offY+46, 0, 0, True);
12: Mouse(Gcx(3)+offX, Gcy(2)+offY+46, 0, 0, True);
13: Mouse(590+offX, Gcy(3)+offY+46, 0, 0, True);
14: Mouse(Gcx(1)+offX, Gcy(3)+offY+46, 0, 0, True);
15: Mouse(Gcx(2)+offX, Gcy(3)+offY+46, 0, 0, True);
16: Mouse(Gcx(3)+offX, Gcy(3)+offY+46, 0, 0, True);
17: Mouse(590+offX, Gcy(4)+offY+46, 0, 0, True);
18: Mouse(Gcx(1)+offX, Gcy(4)+offY+46, 0, 0, True);
19: Mouse(Gcx(2)+offX, Gcy(4)+offY+46, 0, 0, True);
20: Mouse(Gcx(3)+offX, Gcy(4)+offY+46, 0, 0, True);
21: Mouse(590+offX, Gcy(5)+offY+46, 0, 0, True);
22: Mouse(Gcx(1)+offX, Gcy(5)+offY+46, 0, 0, True);
23: Mouse(Gcx(2)+offX, Gcy(5)+offY+46, 0, 0, True);
24: Mouse(Gcx(3)+offX, Gcy(5)+offY+46, 0, 0, True);
25: Mouse(590+offX, Gcy(6)+offY+46, 0, 0, True);
26: Mouse(Gcx(1)+offX, Gcy(6)+offY+46, 0, 0, True);
27: Mouse(Gcx(2)+offX, Gcy(6)+offY+46, 0, 0, True);
28: Mouse(Gcx(3)+offX, Gcy(6)+offY+46, 0, 0, True);
end;
end;
procedure ExamineItem(x, y :Integer);
 var x2, y2 :Integer;
begin
 LoadBitmaps;
 FindBitmap(Examine, x2, y2);
 Mouse(x, y, 1, 1, False);
 Think;
 Mouse(x2, y2, 1, 1, True);
end;
procedure DropItemP(x, y :Integer);
 var x2, y2 :Integer;
begin
 LoadBitmaps;
 FindBitmap(Drop, x2, y2);
 Mouse(x, y, 1, 1, False);
 Think;
 Mouse(x2, y2, 1, 1, True);
end;
procedure UseItem(x, y :Integer);
 var x2, y2 :Integer;
begin
 LoadBitmaps;
 FindBitmap(Use, x2, y2);
 Mouse(x, y, 1, 1, False);
 Think;
 Mouse(x2, y2, 1, 1, True);
end;
procedure OpenInventory();
 var x2, y2 :Integer;
begin
 LoadBitmaps;
 FindBitmap(Inventory, x2, y2);
 Mouse(x2, y2, 1, 1, True);
end;
procedure OpenSpellbook();
 var x2, y2 :Integer;
begin
 LoadBitmaps;
 FindBitmap(Spellbook, x2, y2);
 Mouse(x2, y2, 1, 1, True);
end;
procedure OpenEmptyTab();
 var x2, y2 :Integer;
begin
 LoadBitmaps;
 FindBitmap(EmptyTab, x2, y2);
 Mouse(x2, y2, 1, 1, True);
end;
procedure LogOutFull();
 var x2, y2, x3, y3 :Integer;
begin
 LoadBitmaps;
 FindBitmap(DLogOut, x2, y2);
 FindBitmap(LOButton, x3, y3);
 Mouse(x2, y2, 1, 1, True);
 Think;
 Mouse(x3, y3, 1, 1, True);
end;

NOTE!!!! For some reason the bitmap functions dont work. Sorry about that, I keep trying to mske it work, but it wont. I think its importing the bitmap incorrectly :(

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

I don't know what it is…

Holding vote.

From: Nava2
I don't know what it is…

Holding vote.

It is a movemousesmooth() application..

No thank you.. :)

You might want to read some other scripts and tutorials on how to use the mouse() procedure, and how to get proper standars.

EDIT: How come 4 voted No and only 1 (me) said why?
EDIT2: This is not even a real script? It is an include?
EDIT3: Did you even made it?
EDIT4: Yes it is an include, I didn't really read what you wrote.. >.<

There are lots of functions that do what you made. Also, you must apply with a RuneScape script. It must have TPA's, (D)DTM's, multi player, and . Sorry. no . Better luck next time :(

Also, read up on standards! My eyes are burning!~!

No, it doesn't do anything. Just an assortment of functions and many of them are really bad in style.

Nuh uh :)

Yes.


























Just joking… NO.

From: GoF
Yes.


























Just joking… NO.

Haha! Okay, its a yes from me.














































I'm such a copier :p NO! I voted NO!!!!!

But on a more serious note, just read some tutorials around the site. Good luck on ur next app ;)

does it even compile? no from me sorry

Its an INclude not ment to compile, No tho sorry.

aww
sorry guys if im unwanted at SRL. Maybe Il spend the rest of my days a leecher :(

















































Joking.:)
PS. I dont even understand DTMs, and my Bitmaps dont work. Never have done. Allways copy wrong.

///////////////////
program DoIUnderstand;
const BrainColor= 4210911;
procedure SmackBrain;
var X, Y :Integer;
begin
FindColor(x, y, BrainColor, 0, 0, 3, 3,  Infinity, Infinity);
Mouse(x, y, VeryHardFalse);
If(IsTextUp(45, 32, 50)= 'Punch Br') then begin
Mouse(45, 32, 3, 3, True);
end;
end;
begin
SmackBrain;
end.
//See, no bitmaps!!! No DTMs! Thats as good as it gets from me.

And yeah, BrainColor is actually pink.

Dude you have a lot to learn. Just start over at the tutorials section. You really need standards.

No standards, doesn't compile. No from me.

Good luck on your next app.

-Shermanator

sorry im with the guys with this 1

don't give up you have a basic knowledge of scar/srl just head over to tut island and begin better knoledge hope to see your app in a month or 2 :)


gl

Thanks guys.
Maybe Il do the halloween event first,
then tomorrow (?? Im in UK, possible out of sync) il head over and look around on tutorial island.
PS. You've actually helped me :)

From: BadProcessor
Thanks guys.
Maybe Il do the halloween event first,
then tomorrow (?? Im in UK, possible out of sync) il head over and look around on tutorial island.
PS. You've actually helped me :)

That's a good attitude :) I'm not gonna vote, but because of the reasons posted by other people, it would be a no. :( Sorry… gl next time!

EDIT: You're the first person to apply in a while :p .

Thanks Tniffoc, (and everyone else).
By the way Tniffoc, do you use linux by any chance? Sorry I just looked at your avatar. :P

From: BadProcessor
Thanks Tniffoc, (and everyone else).
By the way Tniffoc, do you use linux by any chance? Sorry I just looked at your avatar. :P

Yes. Ubuntu FTW~!

From: Tniffoc
Yes. Ubuntu FTW~!

Ubuntu takes ages to install on my machine…
If i use linux i just use Damn Small Linux.
DSL fits on a 60MB iso!!!
W00T

Someone close please :)

BadProcessor, I suggest you read about while do/repeat until loops, they help you shorten your code alot. Also, learn arrays. :)

From: Wizzup?
BadProcessor, I suggest you read about while do/repeat until loops, they help you shorten your code alot. Also, learn arrays. :)

Listen to the master.

Thanks for helping dudes.
And Wizzup, I can do repeat/until loops, but I havent used while/do loops. Thanks.
And yeah I can do arrays I just dont use them yet ;(

– BadProcessor

lol this is your members app not free advertising, and it's usefull if you post proof of your abilities, show us you can use arrays

Sure OK sandos. Heres one:

// Array Test
program ArrayTest;
var MyArray :array [0..3] of string;
var n :Integer;
procedure LoadArray;
begin
MyArray[0]:= 'I ';
MyArray[1]:= 'am ';
MyArray[2]:= 'called ';
MyArray[3]:= 'BadProcessor.';
end;
procedure DoStuff;
begin
for n := 0 to 3 do begin
WriteLn(MyArray[n]);
end;
end;
begin
LoadArray;
DoStuff;
end.

Compile it, it works :)

Ok good but remember 2 spaces after a Begin, 2 spaces back after an end.

Can this be closed now? :o

From: BadProcessor
Thanks for helping dudes.
And Wizzup, I can do repeat/until loops, but I havent used while/do loops. Thanks.
And yeah I can do arrays I just dont use them yet ;(
Btw, you all wanna join my forums?
Just check my sig. Its a scar scripting, mainly for beginners (Not saying you are :l) but you are still welcome to join. I need some members, and the first few to join get upgraded to the 2nd-highest rank (Ultra Hydra).
Please join the HoloHYDRA forums.

– BadProcessor

Spamming your members app with invitations to join some other forum is a good way to make my no a permanent no.

This isn't an advertising forum, so don't do it. I get enough spam in my email account, I don't need to read apps with them too.

Listen to what wizzup said. If you know how to use those things, then use them. Knowing how to use a concept and coding a concept are two different things. Someone that knows how to use a concept generally knows when to use it. The fact that it isn't present in your code (in some areas where it could be) shows that you really don't know how to use said concepts.

Nope