SRL Archive - Archive

How Long have You Played Runescape?
5 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
HTML, Bit of Java, bit of PHP


Are you a member of any other communities?
RiD and RsBot's


Tell us about yourself…

From: Aligndude
Age 15, To busy to Play Rs so Botted with RsBots till the Nuke and then used RiD but to expensive to keep botting, then I found Simba and and Making scripts that are useful to me.

Please show us one (or multiple) of your scripts.

program NewMultiFletch;
{$define SMART}
{.include SRL/SRL.scar}
Var
//Needed Vars...
X, Y,
//My Vars
BS{BowString},YL{YewLog}, ML{Maple Log}, OL{Oak Log},
L{Log}, WL{Willow Log}, MG{Magic Log}, YLBU{YewLongUnk},
MLBU{MapleLongUnk}, OLU{OakLongUnk}, WLU{WillowLongUnk},
LLU{LongUnk}, MGLU{MagicLongUnk}, YSBU{YewShortUnk},
MSBU{MapleShortUnk}, OSBU{OakShortUnk}, WSBU{WillowShortBowUnk},
LSBU{ShortBowUnk}, MGSU{MagicShortUnk}, YLB{YewLongBow}, MLB{MapleLongBow},
OLB{OakLongBow}, LB{LogLongBow}, WLB{WillowLongBow}, MGLB{MagicLongBow},
LS{LogShortBow}, OSB{OakShortBow}, WSB{WillowShortBow}, MSB{MapleShortBow},
YSB{YewShortBow},MGSB{MagicShortBow}, Knife{Bank/Invent}, YesKnife{ToolBelt},
CB{CloseBelt}, NB{NextButton},Belt{Icon},BowUnk,
BowDone, Log, KnifeCB:Integer;
//Others//
Clock: TIntegerArray;
ActionText: TStringArray;
////GUI////
Const
LogType = ('');//What Type Of Log L =Log OL = OakLog WL = Willow Log ML = Maple Log
              //YL = Yew Log and MG = Magic Log E.g. LogType =('WL');
BowType = (''); //Short Or Long
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // True if you are using this player
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Integers[1] := 10000; // Number of loads
end;
////GUI END!////
Procedure FreeBitmaps;
Begin
//Normal Logs BitMaps Freed//
  FreeBitMap(L);
  FreeBitMap(LSBU);
  FreeBitMap(LS);
  FreeBitMap(LLU);
  FreeBitMap(LB);
//Oak//
  FreeBitMap(OL);
  FreeBitMap(OSBU);
  FreeBitMap(OSB);
  FreeBitMap(OLU);
  FreeBitMap(OLB);
//Willow//
  FreeBitMap(WL);
  FreeBitMap(WSBU);
  FreeBitMap(WSB);
  FreeBitMap(WLU);
  FreeBitMap(WLB);
//Maple//
  FreeBitMap(ML);
  FreeBitMap(MSBU);
  FreeBitMap(MSB);
  FreeBitMap(MLBU);
  FreeBitMap(MLB);
//Yew//
  FreeBitMap(YL);
  FreeBitMap(YSBU);
  FreeBitMap(YSB);
  FreeBitMap(YLBU);
  FreeBitMap(YLB);
//Magic//
  FreeBitMap(MG);
  FreeBitMap(MGSU);
  FreeBitMap(MGSB);
  FreeBitMap(MGLU);
  FreeBitMap(MGLB);
End;
Procedure Shutdown;
begin
  ClearDebug;
  Writeln('Bot Shutting Down');
  Wait(RandomRange(1000,1300));
  CloseBank;
  Logout;
  FreeBitmaps;
  TerminateScript;
end;
procedure SmallReport(Action: Integer);
begin
  ActionText := ['Belt Check','Banking','Cutting', 'String', 'AntiBan'];
  Clock := [0,0,0];
  ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]);
  writeln('-*-*-*-*-*-*Mutli Fletch-*-*-*-*-*-*');
  Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]));
  writeln('Current action: '+ActionText[Action]);
End;
Procedure CheckBelt;
Begin
  //BitMaps//
  Belt := BitmapFromString(12, 8, 'meJwTllbz8vKuqqo6e/b85MmTnZy' +
        'dOXWDmQ2TgaSoRTSQBCJhmJpjx09A1Wj5sBlECxv4AhGnqjMQwdUc' +
        'OnwYoUbBlplbmFVAhlVYmUNUCa5m7779EDVABYysnEDGzJkz7969+' +
        '/3nN7iaLVu2AgWBUiyKTkA1xsbGUVFRnV1dQEGImuLi4p27d0HUgN' +
        'yp6gy0i5lPikdSTVrNGKImMzML4R7dYA69cCDJo+kqZBQsaRYkLKs' +
        'JFE9KSgKqAZpsZWUFlAX6i8swStg0Auh9IAkAcqRZkA==');
  NB := BitmapFromString(3, 5, 'meJzjlDPl5WQUEeBxnH5EObKBiUNI' +
        'MWYyEAlaZfAapbCJmzIyMDCycHGyMQrwcgIAxYQHZg==');
  YesKnife := BitmapFromString(9, 6, 'meJxjVnVmUo9i1AlkkjJmlLIGkkyM' +
        'jJwcHIKCQow6QcxAWWVvRlkXCX3XyNyWqqpqTS0dBgYGLlEFRmWQr' +
        'K5b1MJFq/YePNTVNamyqikyOklURIRbWComNqOvLrMov3Dlqs07dh' +
        'wGSmVkFUlLSQkJCqorKRYVVgERUBCot7GpA8hWUlQUFxMT4BdUVFI' +
        'rLm4CSgHFIVIAkgUwTQ==');
  CB := BitmapFromString(4, 4, 'meJxTUgqQlLLhF1G3tnHUssg0ypkp' +
        'oBPAwCBs0X3MbuMHmaBWRiYVh10/1ArX8wj6MDBaAQAiPg0F');
  Knife := BitmapFromString(7, 5, 'meJwztnc3tndnYmDg1HaCICDb0tkT' +
        'WRDIUFAwAAoCGYGBoSkpGWXlNRBBIOnt7RcXl5SRkQMRgQj6+gZGR' +
        'MQkJKRABIGmAQCh5xLq');
  //End//
  If FindNormalRandoms Then
    ShutDown;
  GameTab(Tab_Equip);
  If FindBitMapTolerancein(Belt, X, Y, MIX1, MIY1, MIX2, MIY2, 85) then
    Begin
      Mouse(X, Y, 7, 7, True);
      Wait(RandomRange(800, 900));
      SmallReport(0);
      If FindBitMapTolerancein(NB, X, Y, MSX1, MSY1, MSX2, MSY2, 45) then
        Begin
          MMouse(X, Y, 7, 7);
          GetMousePos(X,Y);
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));
          If FindBitMapTolerancein(YesKnife,X, Y, MSX1, MSY1, MSX2, MSY2, 45) then
            Begin
              If FindBitMapTolerancein(CB, X, Y, MSX1, MSY1, MSX2, MSY2, 45) then
                Begin
                  SmallReport(0);
                  Mouse(X, Y, 7, 7, True);
                  Wait(RandomRange(900, 1062));
                  OpenBank('vwb',True,True);
                  If Pinscreen then
                  InPin(Players[CurrentPlayer].Pin);
                End;

            End
              else
                Begin
                  If FindBitMapTolerancein(CB, X, Y, MSX1, MSY1, MSX2, MSY2, 45) then
                    Begin
                      Mouse(X, Y, 7, 7, True);
                      Wait(RandomRange(900, 1062));
                      OpenBank('vwb',True,True);
                      If Pinscreen then
                      InPin(Players[CurrentPlayer].Pin);
                      If bankScreen then
                        SmallReport(1);
                        If FindBitMapTolerancein(Knife, X, Y, MSX1, MSY1, MSX2, MSY2, 45) then
                          Begin
                            Mouse(X, Y, 7, 7, True);
                            Wait(RandomRange(403, 451));
                            CloseBank;
                            Wait(RandomRange(1004, 1103));
                            If FindBitMapTolerancein(Knife, X, Y, MIX1, MIY1, MIX2, MIY2, 45) then
                              Begin
                                Mouse(X, Y, 7, 7, False);
                                Wait(RandomRange(402, 516));
                                ChooseOption('Add-to-Belt');
                                OpenBank('vwb',True,True);
                                If Pinscreen then
                                InPin(Players[CurrentPlayer].Pin);
                              End;
                          End;
                    End;
                End;
        End;
    End;
    //FreeBitMaps//
      FreeBitMap(Belt);
      FreeBitMap(NB);
      FreeBitMap(CB);
      FreeBitMap(YesKnife);
      FreeBitMap(Knife);
   //////End//////
End;
Procedure AntiBan;
Begin
  SmallReport(4);
  Case Random(100) of
    1..25:RandomRClick;
    26..48:PickUpMouse;
    50..72:ExamineInv;
    77..98:BoredHuman;
  end;
End;
Procedure Matcher;
Begin
    //BitMaps//
    //Normal//
  L := BitmapFromString(7, 10, 'meJxTsQ2UtouQtAwUN/NVd4qAIBX' +
        'bQKvMJgiSsg7Rco/XdIvBFAQiUUM3hKBNmLZnIlAQaAKmoKp9CFwQ' +
        'iICCQMTEwICsEmgsUFBBwQAuDhSE2K5r4aBtbgsUh7gWKKLmGAYUh' +
        'CCgOBwBAGLENi0=');
  LSBU := BitmapFromString(10, 7, 'meJwzdvAwQUJMDAxwxOecbowqwu+' +
        'ey++aCRTnc0rls08Eigh4FQp45iOLo6t3y0YWUVAwgCCQLFgKLgJB' +
        'cGcADYTIGtu7AxHchUAnAblwjZbOnsgKgLIAT8IgMg==');
  LS := BitmapFromString(8, 6, 'meJwztndnYmAAorCwKCCCsBUUDOAi' +
        'EEGICKZKIOJzTOazT4SI8zmn8zmlAkV47eJ5bWJ4rUHKICIQNXBkD' +
        'LMXYjgcAQAASxPy');
  LLU := BitmapFromString(6, 9, 'meJzjd80U8MxnYmAwsHLStXAAkrzW' +
        'UfyumUARBQUDIBeIgGw+53S4iKG1M0jEPhEiCFEDFXRMxqIMLAgRg' +
        'ZpmnwhRBhfhtYmBCEJEIHohagBO8Bjk');
  LB := BitmapFromString(8, 7, 'meJwLC4sKC4tiVzDksQhjYmBQUDDQ' +
        'tXAAIiA7JCQCKMVl6MXvlg3kGtu7G9m7mjh4QKSAWnhtYiBagOJAW' +
        'QMrJ4gUt5GvgHcxkA0RB5JABJHic0qFaIGLAxlAEaDtggHVEFsgCG' +
        'gaxECIegBrih5w');
        //Oak//
  OL := BitmapFromString(10, 10, 'meJwziShVDa1UDihU9M62iK9HQy' +
        'YRpRF1cyFIObDYOrXNKqXFKqkJiCwTG7HLwhTIuSXDZVWCSoGyyAr' +
        'M42rhsqoh5TZpHcgKTKPK4bJABJSFKwAiJgYGZL1AwyGyQCeZRlcq' +
        'KBjAFQBlIWYCrTMMyQeKG1g5ARGQAfE10CVAu4BcIAJqhMhCFMARU' +
        'ByCAFfXYsg=');
  OSBU := BitmapFromString(8, 7, 'meJwzsnc1tnc3sHICIiCDiYEBgpDZ' +
        'QCSc2SKU1iiUWg9ki+T3COd0CGe3CWU0AUWEkmuhanI6gCLIuhQUD' +
        'CB6IWxkBBQBGggRhzsAiIzsXeGKgeJwKQDyGBt2');
  OSB := BitmapFromString(7, 8, 'meJwzsHIygCEmBoawsCggwhSBCAK5' +
        'cBEIG1kBkK2gYIBVjVBGE0RQOKdDOLMFyBVKrRdMqgYKwrlwxXCLI' +
        'AZCEADD/R4a');
  OLU := BitmapFromString(6, 8, 'meJwTTKoWKehlYmBQUDAwtnU3sHIC' +
        'soXzuiAiQC5QEMgWymiCCAJFIAikLLsNrgwiAlIGFkRWBhREV5ZaL' +
        '5TWiKYMogYAV4UY0Q==');
  OLB := BitmapFromString(9, 9, 'meJyLiIxhYmDgMncTiCkWq5oFZBtY' +
        'OUFQRGRMBFiWLyBVOLsNyFBQMIBIAdkQWZDG2FJkKWN7d7gsX1C6S' +
        'PFEZDPhejlNnYVS65E1Isvyh2aL1cxB0wiXFc7pwNQIkQU6RrxlGa' +
        'ZGiCxEFwDfiDCh');
        //Willow//
  WL := BitmapFromString(9, 9, 'meJwTMrG2CY2CIMuAMBFrZzgSQpUS' +
        'tXWDSxk4e8ClrIMigFIQBJK1dMQqBUTIBgIRshQTAwOyLoh1EAMVF' +
        'AzgshADIbYIGlkaWDkBEUTWwi8EKC5sbgfkAhFECiILR0CjgAgAL4' +
        'sziA==');
  WSBU := BitmapFromString(9, 7, 'meJwzsHIysHLStXAAIiCDiYEBjtC4' +
        'KnmlyjnFylmFSmm5QK5acbVqYaVqfjlUMCMfrhIiiKxXQcEAiCCGw' +
        'LlwBLEIogXChTsJ7iq4SjgCSgEAFP8esg==');
  WSB := BitmapFromString(7, 9, 'meJwzsHIytnc3sHIysncFkkwMDGFh' +
        'UUAROIKIQAVtUUSACKIFLgJhIysAshUUDLCqUc4phgiqFlaq5JUCu' +
        'UoZ+UppuUBBCFc5qxCuGGIvBAENhCAAKVIjNQ==');
  WLU := BitmapFromString(7, 9, 'meJwTc/ZQLaxUL69nYmAwtnc3tnU3' +
        'sHICshWSMlXzy0EMBQOgCAQBuSp5pRBBoGK4oFJGPkQcLmhk7wrkK' +
        'mcVwhVDpCCKIeJALkQQSELEMa1TTMlWSsuFKNa1cICLQ1QCAGUyIn0=');
  WLB := BitmapFromString(8, 9, 'meJxjYmAQtrKTj0/Vqu9gYmAwtnc3' +
        'sHICoojIGCBXOihCNb8cyFBQMDC2dQcioDgQCVlYKySkQ8Qh6oHss' +
        'LAooJRMaJRGRSOQCxEHGgiRAmpRyshH1gKXkgmP0WrsQrYdLqVaWI' +
        'mmBegGkEhCum7XZLgtcAQUgagHALvbKw8=');
        //Maple//
  ML := BitmapFromString(9, 7, 'meJxTDa1UBSOVoFJeu3hemxgoso5S' +
        'hUmphpSDpOCyyFKhlShSNjHIuuBm8lhF8JiHMDEwIAwEm8NjEcZt4' +
        'g8UN7Z3h8gqBxSCxMGKgUhBwQAoBZGFI6AgBAEAWuUoog==');
  MSBU := BitmapFromString(9, 7, 'meJwzsHIyQEJMDAxwhMYtLG3KL27M' +
        'KajNzKkEcstrukoq2orKWyCCWXnVcJVAcaBiZL0KCgZABDEEzoUji' +
        'EW5RfUQKQNUJ0Fk4SqREQCNoyQg');
  MSB := BitmapFromString(8, 10, 'meJwzsHIysHIytneHIyYGhpCQCAM' +
        'kcaAIRBCIjOxdgeJAEi4CREA2UBlQHE0QiNAE84sbc4vqs/KqgYJl' +
        'VR1F5S2FpU0QkcycSogWoCBQGYQNQQoKBkASIghkIyOgSE5BLUQc4' +
        'ga4y+GK4V4DigMAIXczgw==');
  MLBU := BitmapFromString(7, 8, 'meJxjYmBISMkvqWhjYmAwsHLStXAA' +
        'IiDbxz+isLQJyFBQMICIA0kgNz27HCIO5EIQkB0QHJNbVA9XDBfPy' +
        'quGiOuY2sMFQyOTgeKYioEm5xTUIpsMEYeoBAC2aiJN');
  MLB := BitmapFromString(9, 10, 'meJxjYmBgYmDwC4zKzKkEMhQUDIz' +
        't3Q2snIAoLCwKKGJh5RibkF3bNBHIhohDpCCyAcExuUX1EI0QKSAb' +
        'ImtmYZeQkg+RMrJ3BUoBTQZyQ0IigLIh4YllVR1ALlAQjiCyQI3p2' +
        'eVwx0DcA5cNj06tb5mMphEum1/ciKwRWTYuKbejdy7cF2iyEF0AYn' +
        'Y6/g==');
        //Yews//
  YL := BitmapFromString(12, 10, 'meJzjNHTmVHfmVLHjULTkMvFAQW' +
        'ZeEMRp6GwcUwxBQJXcFr5ABJclXg27vBlCjaojRA26MhMPrGrgykA' +
        'MIze4GiBCVgNVZuLBxMCAbA7cKJCskRvQtZz6jgoKBnBlEAUQvUAp' +
        'oDgEGdu7AxGQAQkliHaIFFA7BEHUQJTBEZosANWhQx8=');
  YSBU := BitmapFromString(9, 7, 'meJwztnc3BiNLZ08gycTAAEdoXOHy' +
        'LuGSNqGCJqHceiBXpHaiSFUvQjC/Ea5SpKJHuLQDWa+CggEQgQwBi' +
        '0O4cASxSLioBSIFcQkygmtBSNmCSACyHiB3');
  YSB := BitmapFromString(9, 8, 'meJwzsHIygCEmBoaIyBgIArIhgroW' +
        'DmjiCgoGEMVwcQgbKA5EmIohspjqgUi4qEUov1EopxYiJVzeJVzSB' +
        'hcUzKiEKoMJIhuF7Ay47XAEAPoPJYk=');
  YLBU := BitmapFromString(6, 7, 'meJxjYmAQKmhiYmBQUDAwsHICIiBb' +
        'MKsaIggR0bVwALKFcuvhyiAiIGVgQWRlQEF009LLBTMq4cogghA1A' +
        'DTEFKM=');
  YLB := BitmapFromString(8, 11, 'meJzjtHLmj84ULu1gYmAwtneHIyC' +
        'X1y9KMKMSyFBQMIAIGlg5AbmcFo78cbkitRORtYSERIC0BMUL5dYj' +
        'awGKAxGnqZ1AQj5EHGgIxHyIFF9wonB5F7JRECmgFsH0cmSj4FJ84' +
        'ami9ZMxHQyUEspvhGgxsncFCgJJiJuBDhZrmwNkAEUgUkBxiBREPQ' +
        'BzxDRA');
        //Magics//
  MG := BitmapFromString(9, 10, 'meJzzzy+3zyg0j04Gkg5ZxRDkmF0' +
        'KRIGFlQ8e37x197JVfLpzbjkQueRXQlBQcfWjZ3fuPrg2Ya6hbUpu' +
        'dH0HEEXVtQFRcGnt05f3pi8xnrLQyDohEyIFkdUMjoFITZpvCDQzp' +
        'rELLuufXw6UmrEMJAV0DFAKLsvEwPDwyS2IVNc0PYgUBCkoGABlgS' +
        '68euO8Vmi8bmw60DFAZJOUbWDlBERA2YtXTutEJsPF4VIQWTQEAFZ' +
        'ybq4=');
  MGSU := BitmapFromString(9, 7, 'meJwzsHIyQEJMDAxwhMYNjJD2D5Py' +
        'DZHyDpQEckNjZIKjZNAEIQgijqxXQcEAiCCGwLlwBLEIaA5ECsjVM' +
        'bXXtXCAIC0TG7gWCBfiVCAbAHJaGtw=');
  MGSB := BitmapFromString(8, 9, 'meJwzsHIygCEmBgYgioiMASJkQYgI' +
        'EAHZWAWBSNfCAVkwNEYmOEomMEIaKBiZKBceLwsX8Q+TgmiBiEDYE' +
        'KSgYAAkIYJANjICikBMA7INkNwMsReiBsiGiwMAkeMmmA==');
  MGLU := BitmapFromString(5, 6, 'meJzzDpT0D5NiYmDQtXAwsHICMnxD' +
        'QFwFBQOgCJDhHSgJEQFytUxsICIQBRD1nv4SEBGgAogWiCwAVgQMSw==');
  MGLB := BitmapFromString(8, 8, 'meJyLiIxhYmCwdhQJjJAGMhQUDHRM' +
        '7XUtHCIiY4BIXZvXzVccIg4UBCIgGyJl5ywSHi8L5BpYOSFLAbV4B' +
        '0rCtQBlgQgi5eAmGpsqD2RD1CPrCo6SQbYFLgW0PSVXCcgAugqItE' +
        'xsIAygCEQ9AGr1IjY=');
 //End Of BitMap//
  If LogType = ('L') then
    Begin
    If BowType = ('Short')then
      Begin
        Log := L;
        BowUnk := LSBU;
        BowDone := LS;
      End
        else
          Begin
            Log :=L;
            BowUnk := LLU;
            BowDone := LB;
          End;
    End
      else
  If LogType = ('OL') then
    Begin
    If BowType = ('Short')then
      Begin
        Log :=OL;
        BowUnk := OSBU;
        BowDone := OSB;
      End
        else
          Begin
            Log :=OL;
            BowUnk := OLU;
            BowDone := OLB;
          End;
    end
      else
  If LogType = ('WL') then
    Begin
    If BowType = ('Short')then
      Begin
        Log :=WL;
        BowUnk := WSBU;
        BowDone := WSB;
      End
        else
          Begin
            Log :=WL;
            BowUnk := WLU;
            BowDone := WLB;
          End;
    end
      else
  If LogType = ('ML') then
    Begin
    If BowType = ('Short')then
      Begin
        Log :=ML;
        BowUnk := MSBU;
        BowDone := MSB;
      End
        else
          Begin
            Log :=ML;
            BowUnk := MLBU;
            BowDone := MLB;
          End;
    end
      else
  If LogType = ('YL') then
    Begin
    If BowType = ('Short')then
      Begin
        Log :=YL;
        BowUnk := YSBU;
        BowDone := YSB;
      End
        else
          Begin
            Log :=YL;
            BowUnk := YLBU;
            BowDone := YLB;

          End;
    end
      else
  If LogType = ('MG') then
    Begin
    If BowType = ('Short')then
      Begin
        Log :=MG;
        BowUnk := MGSU;
        BowDone := MGSB;
      End
        else
          Begin
            Log :=MG;
            BowUnk := MGLU;
            BowDone := MGLB;
          End;
    end;
End;
Procedure FirstWithDraw;
Begin
  BS := BitmapFromString(7, 7, 'meJyz9AuzBCP/hHRGBgYg0ja0BJKW' +
        'SOIQKTRxiBRQECIOkYIohgvCRbh5eNDUQESQrYCIGBkZAQAHzh6F');
  If FindNormalRandoms Then
    ShutDown;
  If BankScreen then
    SmallReport(1);
  If FindBitMapTolerancein(Log,X, Y, MSX1, MSY1, MSX2, MSY2, 45) then
    begin
      Mouse(x,y,7,7,False);
      Wait(Randomrange(300,400));
      ChooseOption('X');
      Wait(RandomRange(800, 900));
      TypeSend('14');
      Wait(RandomRange(1200, 1241));
      If FindBitMapTolerancein(BS, X, Y, MSX1, MSY1, MSX2, MSY2, 70) then
        Begin
          Mouse(x,y,7,7,False);
          Wait(RandomRange(400,520));
          Chooseoption('14');
        End;
   End
      else
        Begin
          FreeBitMap(BS);
          ShutDown;
        End;
   CloseBank;
   GameTab(Tab_Inv);
   FreeBitMap(BS);
End;
Procedure Bank;
Begin
  BS := BitmapFromString(10, 7, 'meJwztnc3xoaYGBgwReDILiQGogB' +
        'ZBIhC0nKBbF5ePjRBoAgEQcQVFAyQxeGGAMUhCE0xHCG7BE0Qgozs' +
        'XQE/uB5u');
  If FindNormalRandoms Then
    ShutDown;
  OpenBank('vwb',True,True);
  If Pinscreen then
    InPin(Players[CurrentPlayer].Pin);
  If BankScreen then
    SmallReport(1);
  If FindBitMapTolerancein(BowDone, X, Y, MIX1, MIY1, MIX2, MIY2, 55) then
    Begin
    Mouse(X, Y, 7,7, False);
    Wait(RandomRange(500, 600));
    ChooseOption('Deposit-All');
    End;
  If FindBitMapTolerancein(Log, X, Y, MSX1,MSY1, MSX2, MSY2, 55) then
    begin
      Mouse(x,y,7,7,False);
      Wait(Randomrange(300,400));
      ChooseOption('14');
      Wait(RandomRange(1200, 1241));
      If FindBitMapTolerancein(BS,x,y,MSX1,MSY1,MSX2,MSY2,55) then
        Begin
          SmallReport(1);
          Mouse(X, Y, 7, 7, False);
          Wait(RandomRange(200,420));
          Chooseoption('14');
        End
          else
            WriteLn('No Bow String Found');
     end
      else
        Begin
          FreeBitMap(BS);
          ShutDown;
        End;
  CloseBank;
  FreeBitMap(BS);
End;
Procedure CutandString;
Begin
  KnifeCB := BitmapFromString(5, 7, 'meJwztnNjZGDg0HKEICNbVzgXyACi' +
        'gICQpOT04pJKINvLyzcmNjElNRPIlpfX9/HxDwmJAIpAuM7ObkCRs' +
        'PAoCBeiHcIGIgDdYRI/');
  BS := BitmapFromString(10, 7, 'meJwztnc3xoaYGBgwReDILiQGogB' +
        'ZBIhC0nKBbF5ePjRBoAgEQcQVFAyQxeGGAMUhCE0xHCG7BE0Qgozs' +
        'XQE/uB5u');
  Wait(RandomRange(500, 700));
  If FindNormalRandoms Then
    ShutDown;
  If FindBitMapTolerancein(Log, X, Y, MIX1, MIY1, MIX2, MIY2, 45)then
    begin
      Mouse(X, Y, 7, 7, True);
      Wait(RandomRange(2000, 2500));
      If FindBitMapTolerancein(KnifeCB, X, Y, MCX1, MCY1, MCX2, MCY2, 70) then
          Begin
            Mouse(X, Y, 7, 7, True);
            Wait(RandomRange(1025, 1132));
          End;
      If BowType=('Short') then
        Begin
          Mouse(160, 420, 30, 16, True);//Clicking ShortBow
        End
          else
            If BowType=('Long') then
              Begin
                Mouse(260, 420, 30, 16, True);//Clicking LowBow
              End;
              AntiBan;
              SmallReport(2);
         Wait(RandomRange(24280, 25000));
      If FindBitMapTolerancein(BowUnk, X, Y, MIX1, MIY1, MIX2, MIY2, 45)then
        Begin
          Mouse(X, Y, 7, 7, True);
          Wait(RandomRange(400, 500));
          If FindBitMapTolerancein(BS, X, Y, MIX1, MIY1, MIX2, MIY2, 45)then
            Begin
              Mouse(X, Y, 7 ,7, True);
              Wait(RandomRange(1031, 1137));
              Mouse(260, 420, 35, 16, True);
              AntiBan;
              SmallReport(3);
            End;
        End;
    End
      else
        ShutDown;
    Wait(RandomRange(15500,16000));
    //FreeBitMaps//
      FreeBitMap(BS);
      FreeBitMap(KnifeCB);
    //FreeBitMaps//
End;
Begin
  MouseSpeed := RandomRange(16,23);
  Smart_Server := 18;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  Matcher;
  CheckBelt;
  FirstWithdraw;
  CutandString;
Repeat
  Bank;
  FreeBitmaps;
  Matcher;
  CutandString;
Until(Not (Loggedin));
End.

program AligndudesAstralCrafter;
{$DEFINE SMART}
{$i srl/srl.scar}
{$i sps/sps.simba}
Var
x,y,Ess:integer;
ToAltar: TPointArray;
ToBank: TPoint;
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // True if you are using this player
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Integers[1] := 10000; // Number of loads
end;

Procedure WalkingToAltar;
Begin
  if (LoggedIn) then
  begin
    If not FindNormalRandoms then
    begin

      SPS_Setup(RUNESCAPE_SURFACE,['0_2','1_2']);
      ToAltar := [Point(275, 968), Point(288, 986), Point(288, 1034), Point(288, 1069), Point(330, 1100),
      Point(369, 1133), Point(405, 1171), Point(437, 1173), Point(468, 1176)];
      SPS_WalkPath(ToAltar);
        SetAngle(True);
        Wait(RandomRange(700, 900));
    End;
  End;
End;
Function TeleToBank: Boolean;
Var
Tele:Integer;
Begin
  Tele := BitmapFromString(7, 7, 'meJxbH8i0PpDJSJ6dkYEBiPjEeFkT' +
        'pIAifdYMEBGgFG+rGMMMBqBgsDZIGRc3N0QEIgjRC9SILIhVJdxMT' +
        'lMxoDgQrQfbbgizHYIA4mkWqA==');
  If (LoggedIn) then
    Begin
    If Not FindNormalRandoms then
    Begin
      GameTab(Tab_Magic);
      Wait(400);
      If FindBitMapTolerancein(Tele,x,y,MIX1,MIY1,MIX2,MIY2,45)then
      Begin
        MMouse(x,y,5,5);
        ClickMouse2(True);
      End;
      GameTab(Tab_Inv);
    End;
    Wait(4000);
  End;
  FreeBitMap(Tele);
End;
Function WalkingToBank: Boolean;
Begin
  If (LoggedIn) then
  Begin
    If Not FindNormalRandoms then
    Begin
      SPS_Setup(RUNESCAPE_SURFACE,['0_2']);
      ToBank := Point(238, 960);
      SPS_WalkToPos(ToBank);
      if Not SPS_WalkToPos(ToBank) then
      Begin
        TeleToBank;
        WalkingToBank;
      End;
    End;
  End;
End;
Procedure FindMoonBank;
begin
  SetAngle(True);
  Wait(RandomRange(600, 700));
  if FindObjTPA(x, y, 8420735, 15, -1, 35, 25, 1, ['ank', 'Bank Booth'])then
  begin
    MMouse(x, y, 3, 3);
    ClickMouse2(False);
    Wait(RandomRange(400, 500));
    ChooseOption('Use-quickly');
    Wait(RandomRange(2000, 2100));
    If BankScreen then
    Begin
    WriteLn('Bank is Open');
    End else
      Begin
        WriteLn('Cant Find Bank');
        TeleToBank;
        FindMoonBank;
      End;

  end;
end;
Function FindingAltar: Boolean;
Begin
  If FindObjTPA(X, Y,8814724, 5, -1, 70, 70, 1, ['tar', 'Altra'])then
  Begin
    MMouse(X, Y, 10, 10);
    ClickMouse2(True);
    Wait(RandomRange(1200,1400));
  End;
End;
Function CraftingRunes: Boolean;
Var
Giant, Large, Medium:Integer;
Begin
  Giant := BitmapFromString(9, 7, 'meJxLy8z29Q/08PZx8/B0dHFhYmAw' +
        'sHICIkNrp4TklLjEpJCwcKCsi5s7UAoua+nsGRUbFxEdAyS1jc01D' +
        'UzlVTUhCoBS5o7upvYuxjZO+ha2tvb2QFkVbX0JGXkrVx9kWaB2e0' +
        'cniKyNux+abGBIKNBSoKydVyCmbFhEFNDBAIyLLPk=');
  Large := BitmapFromString(11, 7, 'meJwzsHIyACNDa2cgycTAYAATMUC' +
        'SAiKgFBDp2blAGMgqIVwTdz8hRU1BOTU4gqt0jU1zDE+wCYyy9A1F' +
        'UwNEEMOBapyjU5wik+yCY4DKgOJAlRAEcQNQjY27H1AB0CigGqBp1' +
        'v7hQJVAhOwSoBqgAvvQOKAaoAIIAgCPCyuY');
  Medium := BitmapFromString(11, 5, 'meJwztnc3cfAAIiYGBmRkbO9uYOU' +
        'EREAGEAFFhBQ14UjT3BZZpaG1M5AhrKyDrAaOILLW/uFABVjVAGXd' +
        '4jOcIpPsQ+MgytAUAADxCRav');
  FindingAltar;
  If FindBitMapTolerancein(Giant,x,y,MIX1,MIY1,MIX2,MIY2,25)then
  Begin
    MMouse(X, Y, 7, 7);
    ClickMouse2(False);
    Wait(RandomRange(300, 321));
    ChooseOption('Empty');
  End;
  If FindBitMapTolerancein(Large,x,y,MIX1,MIY1,MIX2,MIY2,25)then
  Begin
    MMouse(X, Y, 7, 7);
    ClickMouse2(False);
    Wait(RandomRange(300, 321));
    ChooseOption('Empty');
  End;
  FindingAltar;
  If FindBitMapTolerancein(Medium,x,y,MIX1,MIY1,MIX2,MIY2,45)then
  Begin
    MMouse(X, Y, 7, 7);
    ClickMouse2(False);
    Wait(RandomRange(300, 321));
    ChooseOption('Empty');
  End;
  FindingAltar;
  FreeBitMap(Medium);
  FreeBitMap(Large);
  FreeBitMap(Giant);
  TeleToBank;
End;
Function WithdrawEss: Boolean;
Begin
  Ess := BitmapFromString(9, 11, 'meJx1zNEKgCAQRNGfDBMRERHbysq' +
        'I/r+BIQmWYN7O3RXZRLZlObBaz32/sNZurJQVkzeAMgDlPGM6gMaY' +
        'U5owBt/nISQog64MvI9Ufetc+FPQV/tnkLVeK8kYp5U/h2GkMoDyJ' +
        '+gB5qx01w==');
  if BankScreen then
  Begin
    if FindBitmapToleranceIn(Ess, X, Y, 35, 85, 480, 295, 20) then
      begin
        MMouse(X, Y, 5, 5);
        ClickMouse2(False);
        Wait(RandomRange(300, 400));
        ChooseOption('All');
      end;
   End;
  FreeBitMap(Ess);
End;
Function PouchBank: Boolean;
Var
Large, Giant, Medium,GiantDeg, Cosmic, NPCSpell, DarkMage, Air:Integer;
Begin
  Ess := BitmapFromString(9, 11, 'meJx1zNEKgCAQRNGfDBMRERHbysq' +
        'I/r+BIQmWYN7O3RXZRLZlObBaz32/sNZurJQVkzeAMgDlPGM6gMaY' +
        'U5owBt/nISQog64MvI9Ufetc+FPQV/tnkLVeK8kYp5U/h2GkMoDyJ' +
        '+gB5qx01w==');
  Giant := BitmapFromString(9, 7, 'meJxLy8z29Q/08PZx8/B0dHFhYmAw' +
        'sHICIkNrp4TklLjEpJCwcKCsi5s7UAoua+nsGRUbFxEdAyS1jc01D' +
        'UzlVTUhCoBS5o7upvYuxjZO+ha2tvb2QFkVbX0JGXkrVx9kWaB2e0' +
        'cniKyNux+abGBIKNBSoKydVyCmbFhEFNDBAIyLLPk=');
  Large := BitmapFromString(11, 7, 'meJwzsHIyACNDa2cgycTAYAATMUC' +
        'SAiKgFBDp2blAGMgqIVwTdz8hRU1BOTU4gqt0jU1zDE+wCYyy9A1F' +
        'UwNEEMOBapyjU5wik+yCY4DKgOJAlRAEcQNQjY27H1AB0CigGqBp1' +
        'v7hQJVAhOwSoBqgAvvQOKAaoAIIAgCPCyuY');
  Medium := BitmapFromString(11, 5, 'meJwztnc3cfAAIiYGBmRkbO9uYOU' +
        'EREAGEAFFhBQ14UjT3BZZpaG1M5AhrKyDrAaOILLW/uFABVjVAGXd' +
        '4jOcIpPsQ+MgytAUAADxCRav');

  GiantDeg := BitmapFromString(10, 8, 'meJx1juEKgjAYRcXXiNAQBiOZc7S' +
        'Gk2GskRpjFCJS7/8g3hhIBMFlP3YO936sluwrBaGHgqRJkuccuc/z' +
        'ME0uBOt965zqOqF1pHV79cuypbFWGgPKlYLAtQ2vN/5jw+3xNH0fB' +
        'dCPcFKYO1YCQfllHPFiGtntM9BNoGWFEFriNiYlBHHWkf4IaMA66D' +
        '8BN6xpjDC+');
  Cosmic := BitmapFromString(9, 8, 'meJxTuH5TARUVF1cAUWlpFbJgTk5h' +
        'Xl5xfkFpYVE5UBYunpGRm5WVjyybkJACkUpLy0aTjYtLAoonJaWlp' +
        'GQgywIFY2ISgLJAvciyEHOiouLQZOG2R0TEoMnCtQMAH95kyw==');
  Air := BitmapFromString(10, 5, 'meJy7fv3B9esPMjJyr4MZEFRYVF5' +
        'cXAFEQHZKSgayVF5ecX5BKYSdkJCCLJWVlZ+TUwjnxsUlwdlpadlo' +
        'VsTEJAAVAE1ISkpDswKIAPPuZ90=');
  NPCSpell := BitmapFromString(10, 7, 'meJx79fr1Kxzo19ODyAhN6tOh+it' +
        'LFYAkBMEVQKQYGRiQEVAlxBAgA8g1sHICIWtnCAOiAGIOQhaiAIzg' +
        'hqArQDUEggAzAmlG');
  DarkMage := BitmapFromString(7, 7, 'meJzj4wOBzmVnIKhrxVkg4kMShIhA' +
        'BNFEIIJwdvfK80DUs+oCUBDIEA5vgaKINiAXKCgUWCXoX4GMgIKC3' +
        'sXy5i5AJGvqBEEALNs97Q==');
  If FindBitMapTolerancein(Giant,x,y,MIX1,MIY1,MIX2,MIY2,25)then
  Begin
    MMouse(X, Y, 7, 7);
    ClickMouse2(False);
    Wait(RandomRange(300, 321));
    ChooseOption('Fill');
  End
   else
    Begin
      If FindBitMapTolerancein(Ess,X,Y,MIX1,MIY1,MIX2,MIY2,45)then
      Begin
        MMouse(x,y,5,5);
        ClickMouse2(False);
        Wait(RandomRange(500, 600));
        ChooseOption('Deposit-5');
      End;
      If FindBitMapTolerancein(GiantDeg,x,y,MIX1,MIY1,MIX2,MIY2,65)then
      Begin
        If FindBitMapTolerancein(Cosmic,x,y,MSX1,MSY1,MSX2,MSY2,45)then
        Begin
          MMouse(X,Y,7,7);
          ClickMouse2(True);
          Wait(RandomRange(400, 500));
          If FindBitMapTolerancein(Air,X,Y,MSX1,MSY1,MSX2,MSY2,55)then
          Begin
            MMouse(X,Y,7,7);
            ClickMouse2(True);
            Wait(RandomRange(100, 300));
            ClickMouse2(True);
          End;
        End;

    End;
    CloseBank;
    Wait(RandomRange(1000, 1200));
    GameTab(Tab_Magic);
    Wait(RandomRange(800, 921));
    If FindBitMapTolerancein(NPCSpell,x,y,MIX1,MIY1,MIX2,MIY2,45)then
    Begin
      MMouse(x,y,4,4);
      ClickMouse2(True);
      GameTab(Tab_Inv);
      Wait(Randomrange(1200, 1300));
      MMouse(460, 240, 10, 10);
      ClickMouse2(True);
      Wait(RandomRange(300, 400));
      If FindBitMapTolerancein(DarkMage,X,Y,MSX1,MSY1,MSX2,MSY2,45)then
      Begin
        MMouse(x,y,5,5);
        ClickMouse2(True);
        Wait(RandomRange(6000,6100));
        //For the Chat thing:P
        TypeSend(' ');
        Wait(Randomrange(900, 1000));
        TypeSend(' ');
        Wait(Randomrange(1000, 1200));
        TypeSend(' ');
        Wait(Randomrange(1100, 1200));
        TypeSend(' ');
        Wait(Randomrange(1000, 1100));
        TypeSend(' ');
        Wait(Randomrange(1000, 1100));
        TypeSend(' ');
        Wait(Randomrange(1000, 1100));
        MMouse(260, 420, 100, 10);
        ClickMouse2(True);
        TypeSend(' ');
        Wait(Randomrange(1000, 1100));
        TypeSend(' ');
        Wait(Randomrange(1000, 1100));
      End;
    End;
    FindMoonBank;
    WithDrawEss;
    If FindBitMapTolerancein(Giant,x,y,MIX1,MIY1,MIX2,MIY2,25)then
    Begin
      MMouse(X, Y, 7, 7);
      ClickMouse2(False);
      Wait(RandomRange(300, 321));
      ChooseOption('Fill');
    End;

  End;
  If FindBitMapTolerancein(Large,x,y,MIX1,MIY1,MIX2,MIY2,45)then
  Begin
    MMouse(X, Y, 7, 7);
    ClickMouse2(False);
    Wait(RandomRange(300, 321));
    ChooseOption('Fill');
  End;
  WithdrawEss;
    If FindBitMapTolerancein(Medium,x,y,MIX1,MIY1,MIX2,MIY2,45)then
  Begin
    MMouse(X, Y, 7, 7);
    ClickMouse2(False);
    Wait(RandomRange(300, 321));
    ChooseOption('Fill');
  End;
  FreeBitMap(Giant);
  FreeBitMap(Large);
  FreeBitMap(GiantDeg);
  FreeBitMap(NPCSpell);
  FreeBitMap(DarkMage);
  FreeBitMap(Medium);
  FreeBitMap(Cosmic);
  FreeBitMap(Air);
  WithdrawEss;
End;

Procedure Bank;
Begin
  If PinScreen then
    InPin(Players[CurrentPlayer].Pin);
  If BankScreen then
  Begin
    Wait(RandomRange(600, 700));
    WithdrawEss;
    Wait(RandomRange(600, 500));
    PouchBank;
    Wait(RandomRange(600, 500));
  End;
End;
begin
  smart_server := 1;
  smart_members := false;
  smart_signed := true;
  smart_superDetail := false;
  ClearDebug;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  Repeat
  WalkingToBank;
  FindMoonBank;
  Bank;
  Wait(RandomRange(900, 1200));
  WalkingToAltar;
  Wait(RandomRange(800, 900));
  CraftingRunes;
  Until(Not (Loggedin));

  SPS_Continue := true;
end.

As I said in the Help section very crappy but works!
Please Give Me Feed Back as I want to improve and get better.
Mat

Very solid, could work on your scripting standards ( The spacing…etc, its still solid thou). Definitely a good try for a 15 years old.

     If FindBitMapTolerancein(NB, X, Y, MSX1, MSY1, MSX2, MSY2, 45) then
        Begin
          MMouse(X, Y, 7, 7);
          GetMousePos(X,Y);
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));

I don't really see the point of that part, but that is about the only thing that worries me. I will hold my vote for now, but try to add more color to it and atpa to find bankers, then i think you can have my yes:P

Also you don't have to comment on the variable, but its very neutral hehe

Your "FreeBitmaps" procedure is very inefficient. Why not just make a function to load the DTM and then just free the DTM that is used?

function LoadDTM(DTM: string): Integer;
var
  T: string;
begin
  case Lowercase(DTM) of
    'dtm_name_here' : T := '2twta3tq23taw4tawt';
  end;

  Result := DTMFromString(T);
end;

procedure Test;
var
  DTM: Integer;
begin
  DTM := LoadDTM('dtm_name_here');
  FreeDTM(DTM);
end;

First thing I saw in your script that hasn't been named yet. :) I don't have access to Simba right now so I can't really look thru it properly right now. But I can later.

From: Main
Very solid, could work on your scripting standards ( The spacing…etc, its still solid thou). Definitely a good try for a 15 years old.

     If FindBitMapTolerancein(NB, X, Y, MSX1, MSY1, MSX2, MSY2, 45) then
        Begin
          MMouse(X, Y, 7, 7);
          GetMousePos(X,Y);
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));
          Mouse(X, Y, 0, 0, True);
          Wait(RandomRange(600, 700));

I don't really see the point of that part, but that is about the only thing that worries me. I will hold my vote for now, but try to add more color to it and atpa to find bankers, then i think you can have my yes:P

Also you don't have to comment on the variable, but its very neutral hehe

Hey man thanks for the comment the reason for that you have quoted is it goes a checks the belt and it finds the next button and clicks it four times. I don't understand standards that well peope say they need to be better but I just don't know on that part:P thanks for the comment :)

Mat

Holy global variables batman! I'm in the middle, the code is ok yet the areas that need to improved on are in need of some major work. I'm holding my vote for now.

Pretty good start though :)

You can read more about standards here.
http://villavu.com/forum/showthread.php?t=57725

So to ruin the fun I will actually vote :p.
I don't see the member material in the script hence I will vote no.
But a good start as others mentioned. Take suggestions others give, dig into some tutorial, practice a lot as I think that's the one and only way to learn programming and then you will get it.
Also I am sure those funky if statements could be made more … hmmm … simple?
I didn't take the time to actually find a simpler way, but that looks too much for me, sorry for not giving you example.

EDIT: So an example: with all those if(FindBitmapTolerance ….) maybe you could separate the processes into functions with boolean return value. That would make things more readable for sure. And those super-duper nested lots of if, I tried to give suggestion about them, but then I took an arrow in the eye while trying to read them.(standards)

Very creative Aligndude! Inefficient and ugly, but creative it is. And you dont stop until it works, I can see that :)

Yes.

Added My Astral Crafter:/

From: Sabzi
So to ruin the fun I will actually vote :p.
I don't see the member material in the script hence I will cote no.
But a good start as others mentioned. Take suggestions others give, dig into some tutorial, practice a lot as I think that's the one and only way to learn programming and then you will get it.
Also I am sure those funky if statements could be made more … hmmm … simple?
I didn't take the time to actually find a simpler way, but that looks too much for me, sorry for not giving you example.

EDIT: So an example: with all those if(FindBitmapTolerance ….) maybe you could separate the processes into functions with boolean return value. That would make things more readable for sure. And those super-duper nested lots of if, I tried to give suggestion about them, but then I took an arrow in the eye while trying to read them.(standards)

I'm with Sabzi on this one, try building up a custom function that you can use to check all of that nastiness with. Standards are a pretty big deal to me, as I think it tells whether or not you will be able to maintain the code later. I'm going to also hold my vote for now. Fix your standards, and build a few custom functions and I'll probably vote yes.

BraK has a nice guide on building them btw.

EDIT:
Voted no, sorry. Reasons stated above, plus I believe you should at least show knowledge of dtms, etc. They may not be required for a script to function, but they are a very important tool for you to know as a scripter, and I believe your application should demonstrate that knowledge.

From: RISK
Your "FreeBitmaps" procedure is very inefficient. Why not just make a function to load the DTM and then just free the DTM that is used?

Because you cannot use a DTM loading function to load a bitmap. Same with a DTM freeing function.

You lack failsafes at many critical points. It's going to continue even if it didn't find the bitmap, as far as I can see from a quick glance. You need to work on the logic of it a lot more, just general failsafes and "what it's going to do when it can't do something else". I would not ever trust running that current script while going AFK off of these reasons. So no for me, improve the script's brains and I would probably lean more twords a yes.

No from me due to your lack of activity/longevity in the community.

-Boom

Your second script is much better than your first one. I'm voting yes.

Oops, lol. But the point remains. It's inefficient in my eyes.

From: cycrosism
Because you cannot use a DTM loading function to load a bitmap. Same with a DTM freeing function.

From: RISK
Oops, lol. But the point remains. It's inefficient in my eyes.

But what is a More efficient way?
Mat

I haven't used bitmaps in forever and a day, but here:

function LoadBMP(BMP: string): Integer;
var
  S: string;
begin
  case Lowercase(BMP) of
    'oak_longbow' : S := 'bmp_data';
  end;

  Result := S;
end;

procedure ItemHandling;
var
  BMP: Integer;
begin
  BMP := LoadBMP(Players[CurrentPlayer].Strings[0]);
  FreeBitmap(BMP);
end;

Players[CurrentPlayer].Strings[0] is where the user of the script would put for the specific player what they desire to fletch or something.

Using that, you're not freeing a lot of bitmaps when you only have one bitmap in use.

Yes

Your standards are a little messy, but that's a minor problem.

In my eyes, you have impressed me with your determination to make your scripts work to the best of your abilities, and when you can't figure something out, your not afraid to ask for some extra help. I know that you will continue to write scripts, improving your abilities as you go. You don't stop when things get rough, you work harder to come out ahead.

It's a Yes from me(To break the tie), I know that you will be valuable to have as a member of the community.

I like how I get 13 No's but only 3 are telling me what is wrong and where to improve..

You asked for the reason… :sigh:
You spoon off members to help you write your script to get in, you don't show much knowledge (if any) and as you said " in the Help section very crappy but works!"

-Boom

Repeat
  Bank;
  FreeBitmaps;
  Matcher;
  CutandString;
Until(Not (Loggedin));
End.

you load and free bitmaps on a loop? does that make any sense to you?

Im voting no based on the other thread.

-RM

Closed. You may apply again in 2 weeks.