SRL Archive - OpenGL Dev Team

{$I GLHook/GLHook.Simba}

var
  Colour: String;
begin
  writeln('Prayer Level: ' + ToStr(GLH_GetMMLevels(GLE_MMLevel_Prayer, Colour)));
  WriteLn('Magic Tab: ' + ToStr(GLH_GameTab(TAB_MAGIC)));
  Writeln('Cloak Equiped: ' + ToStr(GLH_ItemEquipped(GLE_Equipment_Cloak)));
end.

1. Grab GLHook.zip. Extract it anywhere. Place GLHook.dll in Simba's Plugins folder.
2. Place OpenGL32.dll in \\jagexcache\jagexlauncher\bin. <– That's the location of the official runescape client's bin folder.
3. Place GLHook.dll in \\Simba\Plugins. <– That's the location of the Simba Plugins folder.
4. Install the Lape Include.
5. Copy the script above, place it in Simba's editor.
6. In Simba, go to the scripts menu, choose Interpreter and Lape.
7. Run the official RS-Client and run the script after it's finished loading.

From: Kyle Undefined
Wow, this is fantastic work man! So glad to see this develop into something useful! So it only works with the RS Client as of now, correct?

From: Sirenia
Exception in Script: Plugin(GLHook32) has not been found

I do have that pesky dll in the Plugins folder but it still dont want to cooperate it seems

From: eska
Massive boner. Sucks that I have a nvidia card, I can't get the pretty eyecandy.

Does anyone have an account stuck in a random? I might want to see how easy/hard to would be to do it with GlHook.

From: Ollybest
Ive looked into randoms on another opengl bot, and its all ids man pretty sweet :)

From: Le Jingle
It's suppose to run at lower fps with the model id's shown, no?
Also, with the intel dll (using on a intel comp ofc) should it run slower, or is it dependent on the graphics card? (the graphics card on this intel comp sucks.. :s)

From: Brandon
It's the drawing that's doing that. On ATI cards, drawing will use almost no memory so it won't lag you like that. Without drawing, it shouldn't do that. I had to swap buffers 2x as much on Nvidia cards just to get it to draw so that's why it's lagging you. When it's finished, it won't have that double buffer swap as Simba will be the one grabbing all the info.

From: Sean25
Might sound like a noob question but would this work on a private server? lol

From: Nebula
no. Edit: well probably not, I'm just assuming no. You can try it though.
-
-

Smart8.0 supports OpenGL so why can't this work with smart right now? (I don't know anything about OpenGL)

From: Sirenia
Exception in Script: Plugin(GLHook32) has not been found

I do have that pesky dll in the Plugins folder but it still dont want to cooperate it seems

From: eska
I'm also getting this. Been trying to make it work for a while.
Yes I have windows 7 64 bit. Reinstalled simba with all the default stuff just to see if it fix anything, and sadly it does not.

From: Brandon
Then you're most likely on a 64-bit Simba. These aren't 64-bit plugins. Either that or your Simba's looking at the wrong folder.

It also works without simba as well.

F1 - F7 = Change strides.
F8 = Display ALL
F11 = Toggle Displays.

Simba has all those functions via the plugin so it can be done both ways.

From: eska
Thanks brandon, it works now. Problem was that I didn't loard the rs first.
I was trying to compile it using only simba.

Also:

Is that normal?

From: eska
Man even though it's not too pretty for nvidia, I just love watching the labels follow moving npc like magic.

From: Le Jingle
This.

Side note, gathering id's now (ones that stay the same), would not be pointless to do would it? Or should I hold off until later, due to future changes?

• Inventory items.
• Items droped on the floor.
• Scenery (bushes, wall, lampost, funace, trees etc)
• Prayer buttons.
• Spells in the magic spellbook.
• Stuff on the minimap (For some reason, white dots, yellow dots, red flag, and symbols (pray altar, dungeon, bank etc) all have the same ID)

• Players
• Npcs

From: eska
Some ID change, and some don't.

ID that are static.

• Inventory items.
• Items droped on the floor.
• Scenery (bushes, wall, lampost, funace etc)
• Prayer buttons.
• Spells in the magic spellbook.

Id that are dynamic:

• Players
• Npcs

But yeah brandon might change stuff in the future so it depend on him. Getting ncp ID is 100% useless right now though.

From: Mat
Brandon my user interfaces has ID's etc, but my MS has nothing on.
I am Running a ATI Radeon HD 4300/4500 Series.
Mat

From: eska
Oh by the way, what is a stride? I checked for its definition but it has nothing to do with opengl. I'm guessing it's the length of a verticle or something?

struct Foo
{
      int A, B, C;
      float A, B, C;
};

From: Flight
Cool cool, it's nice to have one that reads text. Good job bud. :)

Edit:
Brandon, do you have a list of commands somewhere for the plugin?

From: Flight
Cool cool, it's nice to have one that reads text. Good job bud. :)

Edit:
Brandon, do you have a list of commands somewhere for the plugin?

case VK_F1: Stride = 12; break;
case VK_F2: Stride = 16; break;
case VK_F3: Stride = 20; break;
case VK_F4: Stride = 24; break;
case VK_F5: Stride = 28; break;
case VK_F6: Stride = 36; break;
case VK_F7: Stride = 40; break;
case VK_F8: DrawAllStrides = !DrawAllStrides; break;
case VK_F9: InfoDisplayed++; break;
case VK_F10: LogCalls = !LogCalls; break;
case VK_F11: Overlay = !Overlay; break;
case VK_F12: UseModelBuffer = !UseModelBuffer; break;

From: eska
Finaly managed to get a random on my noob.

Id for sergeant Damien (I know it won't be usefull because of future changes, but here it is anyway)

1860340846 = Push up plate
1042468844 = Start jump plate
2877688137 = Sit up plate
1862962707 = Jog plate

Proof:

-Cut-

They are static. I tried logging out and back in but the ID remains the same.

From: Flight
One more question (for now), can you give a little detail explaining each stride? (12, 16, 20, 24, 28, 36, 40) That would be useful to see written in the OP.

From: BMWxi
Would It be useful to others for me to try to get some other randoms? Let me know and I'll do my best.

From: Mat
I have my farm acc's all in randoms atmo, but i don't want to keep them there long, week tops. Hope fully the ID's will get stable soon :)
Mat

From: Sean25
Question, I noticed the talisman's all have the same ID's and are different items. Will that be fixed in the next release or is that how its going to be?

From: Mat
with 2D models you don't really need OGL a DTM is fine, its more the 3D Models you need it for.
Mat

From: omgnomorenames
Got it to work, but it doesn't show for bank or last line of inventory. Am I doing it wrong :redface:.

From: Footy
Wow, this looks incredible. Wouldnt runescape be able to check for the modified file inside the runescape folder though?

#include <Windows.h>
#include <TlHelp32.h>
#include <iostream>

using namespace std;

HANDLE hThread;
void* pLibRemote;
DWORD hLibModule;
HMODULE hKernel32;
HANDLE hProcess;

PROCESSENTRY32 GetProcessInfo(char* ProcessName)
{
    HANDLE hSnap = NULL;
    PROCESSENTRY32 Proc32 = {0};

    if((hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)) == INVALID_HANDLE_VALUE)
        return Proc32;

    Proc32.dwSize = sizeof(PROCESSENTRY32);
    while(Process32Next(hSnap, &Proc32))
    {
        if(!strcmp(ProcessName, Proc32.szExeFile))
        {
            CloseHandle(hSnap);
            return Proc32;
        }
    }
    CloseHandle(hSnap);
    return Proc32;
}

void Inject()
{
    char szLibPath[MAX_PATH];
    memset(szLibPath, 0, MAX_PATH);
    hKernel32 = ::GetModuleHandle("Kernel32");

    PROCESSENTRY32 RSDLL = GetProcessInfo("JagexLauncher.exe");
    hProcess = OpenProcess(PROCESS_ALL_ACCESS, false, RSDLL.th32ProcessID);
    strcat(szLibPath, "C:/Users/Brandon/Desktop/GLHook.dll");

    pLibRemote = ::VirtualAllocEx(hProcess, NULL, sizeof(szLibPath), MEM_COMMIT, PAGE_READWRITE);
    ::WriteProcessMemory(hProcess, pLibRemote, (void*)szLibPath, sizeof(szLibPath), NULL);

    hThread = ::CreateRemoteThread(hProcess, NULL, 0, (LPTHREAD_START_ROUTINE) ::GetProcAddress(hKernel32, "LoadLibraryA"), pLibRemote, 0, NULL);
    ::WaitForSingleObject(hThread, INFINITE);
    ::GetExitCodeThread(hThread, &hLibModule);
    ::CloseHandle(hThread);
    ::VirtualFreeEx(hProcess, pLibRemote, sizeof(szLibPath), MEM_RELEASE);
}

void Terminate()
{
    hThread = ::CreateRemoteThread(hProcess, NULL, 0, (LPTHREAD_START_ROUTINE) ::GetProcAddress(hKernel32, "FreeLibrary"), (void*)hLibModule, 0, NULL);
    ::WaitForSingleObject(hThread, INFINITE);
    ::CloseHandle(hThread);
}


int main()
{
    Inject();
    cin.get();
    Terminate();

    return 0;
}

From: Brandon
Yes it is legal as I'm not touching their code. I'm simply grabbing data off my graphics card before it hits the screen.

Are they able to detect it? Not with any methods that I know of. They have no choice but to load OpenGL32.dll. Whether they load it from System32 or their bin folder, makes no difference. I've made sure not to export the hooks and I haven't edited the .Data section of it either. For me to explain more about detectability for DLL's, you'd have to understand the PE structure. That being said, my DLL is a wrapper for the official/original opengl. It redirects all calls to the original to me first then passes it to the original after. If anything, I can implement the same thing as VAC hooks.

So either way, they won't be able to tell. Even better if smart implements it natively, it'd be impossible for them to know. Now there is one feat to it. Drawing. When drawing, it uses a call list. Jagex can screeny their client and serialize the data and send it to themselves to check if you were drawing on the screen. That being said, who in the world would do that! So much work and can still be prevented by drawing on an overlay. It's safe enough that I test on my mules and my main.

From: Shatterhand
Thanks for your answer. This thing sounds interesting, although I dont really understand much of it. So is there any way we can make scripts that easy (like SRL is) with OpenGL in the future?

From: Footy
Maybe you could tell which emote is which via pixel shift. Put a box around the mime, and a certain amount of pixel shift represents each emote. Can't wait for this, will make scripting so much easier!

From: eska
That's exactly how SRL is doing it right now. There might be some way to do it with OpenGl though with near perfect accuracy.

From: Ollybest
Oh man test tribot with animations, literately everything you do your player id changes. (so do other peoples).

From: eska
Testing.

Edit: Seems like you removed ID's :s

From: eska
Testing.

Edit: Seems like you removed ID's :s

From: eska
Testing.

Edit1: Seems like you removed ID's :s
Edit2: Brandon, how do I change the interpreter so that it will accept lape? I tried going in the setting and changing 0 to 1 or 2 without success.

From: eska
Didn't see the instruction changed -.-

Anyway I execute the code and nothing happen beside succesfully executed. Maybe it's because of nvidia card. Damn you nvidia.

From: Brandon
What did you have in your inventory? If Angles work, Items should work as well.

I've just tried it :S The source code is on the github for anyone wanting to compile it.

From: eska
I got an air talisman and a ring of kinship.

nothing happens.

Edit: Just tested with an earth talisman and it worked. Seems like the first talisman in the inventory isn't found, only the second is. (I know this because I swaped the air and earth talisman, and now the air one is found)

{$loadlib GLHook}

type Vector3D = record
  X, Y, Z: Integer;
end;

type Vector3DArray = array of Vector3D;

type TModel = record
  SX, SY: Integer;
  Stride: Word;
  ID: Cardinal;
  TriangleCount: Integer;
  Vertices: Vector3DArray;
end;

type TPanelItem = record
  ID: Integer;
  TextureID: Integer;
  X, Y: Integer;
  SX, SY: Array [0..3] Of Integer;
end;

type PModel = ^TModel;
type TModelArray = array of TModel;

type PPanelItem  = ^TPanelItem;
type TPanelArray = array of TPanelItem;


var
  Ptr: Pointer;
  PP: PPanelItem;
  I, Size: Integer;

begin
  ClearDebug;
  Ptr := GLHGetItemsByID(71145, Size);
  //GLHEnableFilter(True, 1, 1, 71145, 0, 0, 0, 0, 500, 500, 765, 553);

  For I := 0 To Size - 1 Do
  begin
    PP := Ptr;
    MoveMouse(PP^.X, PP^.Y);
    Ptr := Ptr + sizeof(TPanelItem);
    Wait(500);
  end;
end.

From: Le Jingle
I know, as stated in the thread, that the id's are subject to change over the course of development; however will the id's remain attached to each of their own '1 particular "id",' after the beta? Or could unforeseen updates potentially alter their id to something else? I know that rs would have to rewrite their junk in order to dent OpenGL (but I think this question differs because it's about grabbing id's with OGL?); I ask because I question if I should keep accounts with items on them, in order to save time finding their id's at a later point in time.

P.S. having fun still with the 0.2 beta :>
Cheers,
Lj!

From: warpie
You could try to make it work with SMART, by placing OpenGL32 in "Java\jre7\bin\"-folder. That would have been realy nice!! :)

From: Mat
@The Animation part even if they were, all different, the Animation ID's will be different for every, one so you'll have to make your script get there ID Null and then the animation ID of the movement.
Mat

From: warpie
Hmm, well… I pretty darn sure that silentwolf's Iterception worked with SMART.

From: warpie
Hmm, well… I pretty darn sure that silentwolf's Iterception worked with SMART. And he seemed to have figured out how to make the text work with nVidia-cards, as it works with nVidia 8-series (tested with 8600GTS, 8800GT & GT460), and so does TriBot.

Is the ID's (items, NPC, objects ++) the same as in trilez openGL-bot (TriBot)? As I cant find any ID's using my nvidia-card (even though I find it with all other GL-bots I've tried).. :S

The ID's was desplayed for just a few secounds, then it went "away". And it should be possible to get the NPC's, or Items name (instead of making a DB for every NPC, object and Item), even though it might be a challange.
I'm not sure how you get the IDs, but if you need to calculate it by the items look, it will be outdated, and I bet there's a way to make it static.

I'll give the source a look when I get some sparetime (and it seems big, so theres a lot to read up on), and by that time, you might have allready solved it:)

From: Flight
I've wondered about this but I've yet to do a simple test to see if my theory is correct. I believe that it may work by first, every player (depending on their appearance & equipment) have a static model ID for standing, and then when animating a their model ID becomes (base ID + animation index ID). IF this is correct then detecting if we're doing an exact animation would be quite simple if all we have to do is get our base model ID and add the ID of whichever animation we're doing and that will be our player's unique model ID for that animation.

If someone wants to test this just get two accounts, record your base standing model ID on both, record the new ID when doing an animation (also on both), and subtract (or add in some cases?) the base from the animating and see if the result matches.

From: Brandon
I have no clue what you're talking about. I've already stated why drawing doesn't work on Nvidia cards.
Trilez doesn't draw text. If he does, I guarantee he isn't using call lists or opengl. He's most likely drawing on an overlay within his client itself. I'd reverse his bot and see but I'm lazy.

From: Brandon
TriBot has nothing new other than what Aftermath, Silabsoft and Silent Wolf did (No text grabbing, no Vertex buffer hooks). I know this because the vertices on tribot is always located at a random point on the model (rand() % 100) which is what Silba, Silent and Aftermath did. Fortunately for us, I started from scratch without looking at their code and worked on buffer hooks first then everything else fell into place. After completion, I took a peek to see method was used for drawing on the screen. I opted to go with my own as theirs is the same as the NVidia export I used in 0.1.

From: TRiLeZ
Oh hai der. It's nice to see I have a little competition in the OpenGL botting scene now. :) What you've done so far is looking great.



http://img16.imageshack.us/img16/360/august92012.png -> Vertex buffer hooking / projection
http://tribot.org/doc/org/tribot/api/Text.html -> Text hooking

I have much more than what they have. ;)

What I do for drawing on the screen is I copy the graphics from OpenGL to Java, then I make an image and paint onto that.

From: gerauchert
I can't find jagexlauncher/bin. I have jagexcache, but within it is only a "runescape" folder, and within that, a "LIVE" folder.

Any help here would be most appreciated

From: Ollybest
Try deleting it all and reloading runescape?

From: gerauchert
I can't find jagexlauncher/bin. I have jagexcache, but within it is only a "runescape" folder, and within that, a "LIVE" folder.

Any help here would be most appreciated

From: warpie
Install the runescape client. It seems like you're using the browser to play.

From: JN13
Hmm… 0.1 worked just fine, 0.2 w/o simba worked good (although it lagged me), but when I ran the test script (in lape, following all the instructions) it blue screened me.

From: Brandon
Do not call models. The serializer is only complete in 0.3. Same with drawing. I actually just finished it 5 minutes ago. 1 DLL for all cards now.

I'll upload it in a sec.

From: Brandon
Do not call models. The serializer is only complete in 0.3. Same with drawing. I actually just finished it 5 minutes ago. 1 DLL for all cards now.

I'll upload it in a sec.

From: VastlySuperior
Oi Brandon. This rocks! Stupid question, but will this work with any other game as well or just runescape?

Greatly appreciate what you are doing.

{$loadlib GLHook}

type TModel = record
  SX, SY: Integer;
  Stride: Cardinal;
  ID: Cardinal;
  TriangleCount: Integer;
end;

type TPanelItem = record
  ID: Integer;
  TextureID: Integer;
  X, Y: Integer;
  SX, SY: Array [0..3] Of Integer;
end;

type TFontInfo = record
  ID: Cardinal;
  R, G, B, A: Byte;
  X, Y: Single;
  Symbol: Char;
  Shadow: Boolean;
  VX, VY: Array [0..3] Of Integer;
end;

type PModel = ^TModel;
type PPanelItem  = ^TPanelItem;
type PFontInfo = ^TFontInfo;

type TModelArray = array of TModel;
type TPanelArray = array of TPanelItem;
type TFontArray = array of TFontInfo;

Function GLHook_GetFonts: TFontArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  FontPtr: PFontInfo;
begin
  Ptr := GLHGetFonts(Size);       //Get a pointer to the Font buffer + the size.
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    FontPtr := Ptr;
    Result[I] := FontPtr^;
    Ptr := Ptr + sizeof(TFontInfo);   //iterate the pointer.
  end;
end;

Function GLHook_GetAllItems: TPanelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  PanelPtr: PPanelItem;
begin
  Ptr := GLHGetPanelItems(Size);       //Get a pointer to the Panel buffer + the size.
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    PanelPtr := Ptr;
    Result[I] := PanelPtr^;
    Ptr := Ptr + sizeof(TPanelItem);   //iterate the pointer.
  end;
end;

Function GLHook_GetAllModels: TModelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  ModelPtr: PModel;
begin
  Ptr := GLHGetModels(Size);       //Get a pointer to the model buffer + the size.
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    ModelPtr := Ptr;
    Result[I] := ModelPtr^;
    Ptr := Ptr + sizeof(TModel);   //iterate the pointer.
  end;
end;


var
  Ptr: Pointer;
  Size, I: Integer;
  FontPtr: PFontInfo;

begin
  ClearDebug;

  Ptr := GLHGetFonts(Size);
  FontPtr := Ptr;
  writeln(FontPtr^.Symbol);     //WTF! Not working.. Todo: Fix.
end.

From: Ollybest
Brandon what type of camera angle stuff can you get? If anything if you decide to hook it?

From: Brandon
Anything you want, why? I can supply all matrices, quaternions, any info you need. I have it hooked already it's just not exported because currently I know of no way to use the data YET. It's the math part that will actually kill anyone trying to help. You'd need an extremely strong math background + very strong knowledge of how opengl works + C++ knowledge to know how to modify the matrices.

I've uploaded the latest matrix class I wrote already but it isn't enough and needs modifications.

From: Ollybest
In terms off like we can have perfect mmtoms? and the stuff console walking needs to work?

From: Brandon
No need for MMToMS. And it's already perfect because All Minimap dots have ID's. You get those ID's, do MMToMS on them..

OR You can just do GLHook_GetAllModels;
For each model, check if it's on screen. Click it.

I do not have the stuff console walk needs because I cannot get the camera angle. I cannot figure out how jagex is calculating it. Remember I have to be able to reverse it to get the info and atm, it's a bit beyond me but I'm hoping that I'd figure something out soon. If anything, we can live with the essentials for now and figure out walking later as that's absolutely the hardest thing I came across so far (Getting camera angles).

From: Ollybest
Oh for sure, The main benefit of ogl isn't walking :P You think its possible for sps to walk at any angle because you can get the perfect compass angle now?

From: Brandon
No need for MMToMS. And it's already perfect because All Minimap dots have ID's. You get those ID's, do MMToMS on them..

OR You can just do GLHook_GetAllModels;
For each model, check if it's on screen. Click it.

I do not have the stuff console walk needs because I cannot get the camera angle. I cannot figure out how jagex is calculating it. Remember I have to be able to reverse it to get the info and atm, it's a bit beyond me but I'm hoping that I'd figure something out soon. If anything, we can live with the essentials for now and figure out walking later as that's absolutely the hardest thing I came across so far (Getting camera angles).

From: Brandon

Camera rotation works like this:

Projection Matrix defines the view/clipping area. That's basically how much you can see on the screen at one time. The distance you can see, etc.

ModelView Matrix is two matrices combined. You use this + Projection matrices to convert from 2D to 3D and back. I've provided all the matrices needed to get the camera position but it simply isn't possible to reverse/split a matrix.

Using the two matrices, by rotating, translating, inversing and transposing, it's possible to get the camera location and use that to get the look-at. Aka eye coordinates.

Example: The model view is the view matrix + Model matrix combined. You cannot split them. If I could then I'd have camera position.

Instead, I have to some how use the modelview matrix + projectionview matrix and hooks to get the camera position. I've already provided the source for all the hooks needed but still it puzzles me how anyone could possibly get the camera position. Now there is a program calld GLIntercept which has a plugin called FreeCam. This plugin is opensource and it is able to get the camera position by some insane mathematics. I've tried and given up on even bothering to understand it at this point in time. It's beyond matrices. It's called Quaternions.

Anyway all the info needed to get camera position is what that post was showing. I didn't expect anyone to know what it was or just reverse it magically because that really really isn't possible (for me at least) atm. Lets just say the amount of math required atm isn't worth it for anyone to start learning from scratch. I admire game programmers now. The amount of work is ridiculous.

I'm going to go bother benland for an algorithm or do some of research or something.

From: Home
I don't think that we need SPS for OpenGL walking..

~Home

From: Ollybest
Nah I was just raising the question, it would be nothing to do with actually opengl walking, just if we can get the perfect compass angle and rotate the bitmap in sps surely it would work?

From: euphemism
The compass angle isn't really the issue. The issue is that rotating a bitmap reduces its quality and introduces a lot of distortion which hinders SPS' ability to match the minimap with a rotated image.

Like Leetsxc, I am also developing a positioning system for TRiBot. I was already using the name 'TPS' before Leetsxc came up with his idea, so don't think I'm trying to steal the name or anything. Tongue Sorry for any confusion between the two.

But anyways, TRiBot is able to intercept an unrotated, large minimap image without any dots, symbols, etc. being drawn on it.

I've put these pieces together to create a large map.

What TPS does is it compares the current cached minimap image with the large map to give you your base coordinates.

The current way of comparing the two images is by using tree positions (which is pretty reliable for areas with trees). I'll expand on the comparing later.

I also tried comparing chunks of the minimap to the large map, but I wasn't able to get it to work… because I was trying to use an up-side-down minimap image (just realized today)… stupid me. Anyways, I'll try to come back to this method since it's more reliable than searching for objects such as trees (for instance, if you were to be in a baren land such as the desert).

So, with that base position… add your character's relative position to it and you'll have your coordinates. Smile

I'll post my progress in this thread. Hopefully I have some smooth sailing. Big Grin

From: euphemism
The compass angle isn't really the issue. The issue is that rotating a bitmap reduces its quality and introduces a lot of distortion which hinders SPS' ability to match the minimap with a rotated image.

From: Mat
TRiBots Walking Works Very Well par you have to walk everywhere to get the maps took me 6 Hours to make most of the left side of RS Members for TRiBot.
Mat

From: Brandon

I do not have the stuff console walk needs because I cannot get the camera angle. I cannot figure out how jagex is calculating it. Remember I have to be able to reverse it to get the info and atm, it's a bit beyond me but I'm hoping that I'd figure something out soon. If anything, we can live with the essentials for now and figure out walking later as that's absolutely the hardest thing I came across so far (Getting camera angles).

function C_GetPosEx :TIntegerArray;
var
  Box :TBox;
  TPA :TPointArray;
  CPos :String;
  I :Integer;
  TSA :TStringArray;
begin
  If not C_UpdatePos then Exit;
  FindColors(TPA, clWhite, 65, 296, 516, 307);
  Box := GetTPABounds(TPA);
  CPos := GetTextAtExWrap(Box.X1 - 2, Box.Y1 - 2, Box.X2 + 2, Box.Y2 + 2, 0, 5, 4, clWhite, 0, SmallChars);
  CPos := Between('s: ', 'H', CPos);
  TSA := Explode('''', CPos);
  If Length(TSA) < 4 then Exit;
  for I := 0 to Length(TSA) - 1 do
    TSA[I] := Trim(TSA[I]);
  SetLength(Result, 5);
  for I := 1 to 4 do
    Result[I] := StrToInt(TSA[I]);
  DeleteValueInIntArray(Result, 0);

end;



function C_ConvertToGlobalPos(Position :TIntegerArray) :TPoint;
begin
  If Length(Position) = 4 then
  begin
    Result.X := Round(Position[0] * 64) + Position[2];
    Result.Y := Round(Position[1] * 64) + Position[3];
  end;
end;


function C_GetPos :TPoint;
begin
  Result := C_ConvertToGlobalPos(C_GetPosEx);
  CurrPos := Result;
end;

From: ReadySteadyGo
Are you sure they aren't just using the standard "look at" camera model, I doubt they would need anything more sophisticated? i.e. Eye, Target, Up vectors.

It's likely that they use a function like ( http://cmldev.net/?p=157 ) to create a look at matrix then just multiple it by the Projection and ModelView matrices.

But then again, I'm just guessing, I haven't looked at their matrix stack.

E: Even so, there is no way that you'll be able to get a global position from this. It will be sent to the GPU in patches, likely using quadtrees.

Your best bet is to have a CRC look up table of all the minimap patches, grab the minimap patch, calculate your local position, then determine a global position using the look up table.

From: Ollybest
Brandon are the ids currently generated going to stay the same? or do you plan on changing them?

From: JN13
I find myself camping on this thread waiting like its Christmas.

From: Brandon
The IDs in the current dll on he thread are different from the new ones.

That being said, I don't plan on changing anything. If I do, I'll add it as ID2.

I haven't been able to get to a computer since yesterday. Thread says August 15th I'd be busy.. I didn't expect to be this busy.. That being said, I have a possible solution to reflection walking but it may involve ASM so if you don't understand assembly, development on it isn't for you. Anyway when I get home from my job seminar, I'll load up olly and Ida and get to work on walking.

For now just hold on tight lol. Sorry for the long waits and delays though I can't actually help it else I'd have pushed it already if I had more time.

~From my phone~

From: Home
Take all the time you need, post once in a while some code or upload it into github, I'm trying to learn from your code all the time.

~Home

From: eska
Nice job. Looks all pretty now.
I assume you already know this, player and NPC ID's are still dynamic.

So it's not a good idea to gather ID for those things.

From: Brandon
Really? They shouldn't be :S Unless there is an overflow on your comp. I'll check it again. It really isn't supposed to change.

From: eska
You are making me scared :S I'm going to re-download it and see how it goes.

Edit: Yes it is still dynamic I'm afraid. Unless the display Id's are meant to be? I'm just running the jagex launcher right now, not using simba and I'm checking ID.

Everytime I login I get a new player ID, and NPC also get a new one.

From: eska
Using Windows 7 64 bit with java 6 update 30. Simba 1.00.
intel 2600k
asus sabertooth p67
32gig of ram
64gb ssd
1tb harddrive
geforce 570 gtx

My computer is a about 10 months old.

Edit: Going to experiment in a VM.

From: Le Jingle
dang your setup is kinda what I'm going to build off of..
OT: Yea, I'm getting dynamic npc ids too:


on this computer: Windows, intel processor, crap intel graphics

From: eska
Well then the good news is that it is only related to nvidia/intel card.

The bad news is that I'm sad :(

I see you uploaded a picture.. are the graphics important? I just put it on OpenGl and minimum.

Borrowing my brothers computer right now, I'll see if it's really nvidia related.

From: eska
Got bad news brandon, it also messes up on ATI cards. (Just tested on my brother's computer)

The guard sometime had the ID 4109771728 (which is good), but it also changed to something717 and other IDs too from time to time.

The ID also sometime change without reloading anything. I spoted a guard just walking and then all of a sudden his ID changed. Also, when they die, at the last moment of their death dying animation, the ID briefly returns to 4109771728 and then vanish.

Sorry I can't provide a in-depth test.. my bro started complaining after 5 minutes..

From: Brandon
Does this happen to your player ID or just NPC's?

  Ptr:= GLHGetModelsByID(1894056545, Size);  // I also tried GLHGetItemsByID out of desperation with no success.
  SetLength(models, Size);

  For I := 0 To Size - 1 Do
  begin
    ModelPtr := Ptr;
    models[I] := ModelPtr^;
    Ptr := Ptr + sizeof(TModel);   //iterate the pointer.

    MoveMouse(models[I].SX,models[I].SY);
    Wait(RandomRange(1500, 2000));
  end; 

From: Jakkle
Hey Brandon. I've just downloaded the zip file from Github and I'm having trouble building it. I have tried Visual Studio 2010 and code-blocks, both come up with errors. I am not sure how to build it in Mingw, I haven't looked tho tbh. I was just wondering if there is something else I need ? To be able to build it.

These are the errors I get in code-blocks.
I'm still a noob with C++ as I've only learnt the basics so far :p.

From: CynicRus
What a software bunch of you use for debugging JagexLauncher? I'l try ollydbg+hide plugin, IDA 5.5 but it only leads to errors.

From: CynicRus
What a software bunch of you use for debugging JagexLauncher? I'l try ollydbg+hide plugin, IDA 5.5 but it only leads to errors.

From: Brandon
Link to:

opengl32
glu32
gdi32
user32

From: Jakkle
Well I have done what you said and I still get an error. I looked up how to sort it out and I already got an OGL project to compile and run.
Here is a pic of what I get plus showing I have linked the libraries.
When you have the time it would be nice if you could help me sort this out over msn or what ever you would prefer to use to communicate. I would greatly appreciate it :)

From: ReadySteadyGo
Post the full debug then someone here may be able to help… Can not read a thing at that resolution!

We are both called Jack :)

From: ReadySteadyGo
Post the full debug then someone here may be able to help… Can not read a thing at that resolution!

We are both called Jack :)

From: Brandon
Oops.. Well yeah I can read that lol I have pretty good eyes =] Uhh if ARB functions aren't defined, that's because Windows compilers do NOT ship with glext.

Solution is to download it from Kronos and place it in the includes folder.

http://www.opengl.org/registry/api/glext.h

[Error] C:\Simba\Scripts\GlHook 3.0(27:15): Identifier expected at line 26
Compiling failed.
[Error] C:\Simba\Scripts\GlHook 3.0(27:15): Identifier expected at line 26
Compiling failed.
[Error] C:\Simba\Scripts\GlHook 3.0(27:15): Identifier expected at line 26
Compiling failed.

From: Sean25
Anyone know why im getting this compile error?

[Error] C:\Simba\Scripts\GlHook 3.0(27:15): Identifier expected at line 26
Compiling failed.
[Error] C:\Simba\Scripts\GlHook 3.0(27:15): Identifier expected at line 26
Compiling failed.
[Error] C:\Simba\Scripts\GlHook 3.0(27:15): Identifier expected at line 26
Compiling failed.

From: eska
Are you using the Lape interpreter? Maybe you are actualy missing an identifier. If you are a beginner and don't know much about scripting I suggest you avoid this for the time being. We still got bugs and not everyone is used to Lape.

Brandon, do you have a clue why my Dll is only 28ko in size, when yours is 700+ko? I'm sure it's in the settings or the build options but I just can't figure out what it is. Using visual studio 2010. I really want to experimant with this and make new function but I need to be able to make the thing work in the first place -_-

From: Sean25
Yes, that did fix my problem.
I'm currently very new to scripting and wanted to learn the new while its in the making.


EDIT: Got the script to run but I dont see none of the ID's coming up.. What am I doing wrong lol?

From: eska
Have you copied the GlHook file in the simba folder?
Have you copied the OpenGL32 file in jagexlauncher/lib folder?

If you have done that, press F11 while logged on the runescape client using opengl graphic mode

From: eska
……

• 4109771728
• 4061411718
• 3684875452
• 3055771717 ** Only saw this one once. As it was dying, the ID changed to 4061411718.

item ID


Leo 3889407584
Mausoleum (deposit box) 2722045510
coffins (in grave) 4144908143
grave (with no coffin) 1991316682
coffin (in inventory) 88485
Gravestone (flower) 1354881590
Gravestone (middle) 1149812268
Gravestone (side ones) 548408487
(small x to close) 48960


OBJECT INSIDE THE COFFINS:

POTS:
Pot 3937992794
Bowl 2057512415
Plant pot 3498840711


FARMING:
potato seed 3102717972
seed diber 273812747
secateur 2276098488


COOKING:
kebab 1138536929
chef hat 1838388837
cake 2957281085


MINING:
pickaxe 3694556631
apron 1325635456
ore 2587240836


WOODCUTTING:
hatchet 2919083330
logs 3063088826
knife 2435285455


OBJECT 'IN' THE GRAVE STONE:
watercan 3835333879
hatchet 921241370
pot 1637279479
chef hat 3905244131
pickaxe 1855624303

From: warpie
Hmm… It then seams like both GLHook, and TriBot share id's.
Varrock Guard (using TriBot):
3055771717L, 3684875452L, 4109771728L, 4061471718L

if(!pData) { return 0x0; }

DWORD sum;
DWORD tmp;
sum = *pData;

for(int i = 1; i < (size/4); i++)
{
    tmp = pData[i];
    tmp = (DWORD)(sum >> 29) + tmp;
    tmp = (DWORD)(sum >> 17) + tmp;
    sum = (DWORD)(sum << 3) ^ tmp;
}

return sum;

DWORD Crc32::Calculate(void *pData, size_t length)
{
    return Crc32::Calculate(pData, length, 0);
}

DWORD Crc32::Calculate(void *pData, size_t length, DWORD initialRemainder)
{
    static const DWORD lookupTable[256] =
    {
        0x00000000, 0x77073096, 0xEE0E612C, 0x990951BA,
        0x076DC419, 0x706AF48F, 0xE963A535, 0x9E6495A3,
        0x0EDB8832, 0x79DCB8A4, 0xE0D5E91E, 0x97D2D988,
        0x09B64C2B, 0x7EB17CBD, 0xE7B82D07, 0x90BF1D91,
        0x1DB71064, 0x6AB020F2, 0xF3B97148, 0x84BE41DE,
        0x1ADAD47D, 0x6DDDE4EB, 0xF4D4B551, 0x83D385C7,
        0x136C9856, 0x646BA8C0, 0xFD62F97A, 0x8A65C9EC,
        0x14015C4F, 0x63066CD9, 0xFA0F3D63, 0x8D080DF5,
        0x3B6E20C8, 0x4C69105E, 0xD56041E4, 0xA2677172,
        0x3C03E4D1, 0x4B04D447, 0xD20D85FD, 0xA50AB56B,
        0x35B5A8FA, 0x42B2986C, 0xDBBBC9D6, 0xACBCF940,
        0x32D86CE3, 0x45DF5C75, 0xDCD60DCF, 0xABD13D59,
        0x26D930AC, 0x51DE003A, 0xC8D75180, 0xBFD06116,
        0x21B4F4B5, 0x56B3C423, 0xCFBA9599, 0xB8BDA50F,
        0x2802B89E, 0x5F058808, 0xC60CD9B2, 0xB10BE924,
        0x2F6F7C87, 0x58684C11, 0xC1611DAB, 0xB6662D3D,
        0x76DC4190, 0x01DB7106, 0x98D220BC, 0xEFD5102A,
        0x71B18589, 0x06B6B51F, 0x9FBFE4A5, 0xE8B8D433,
        0x7807C9A2, 0x0F00F934, 0x9609A88E, 0xE10E9818,
        0x7F6A0DBB, 0x086D3D2D, 0x91646C97, 0xE6635C01,
        0x6B6B51F4, 0x1C6C6162, 0x856530D8, 0xF262004E,
        0x6C0695ED, 0x1B01A57B, 0x8208F4C1, 0xF50FC457,
        0x65B0D9C6, 0x12B7E950, 0x8BBEB8EA, 0xFCB9887C,
        0x62DD1DDF, 0x15DA2D49, 0x8CD37CF3, 0xFBD44C65,
        0x4DB26158, 0x3AB551CE, 0xA3BC0074, 0xD4BB30E2,
        0x4ADFA541, 0x3DD895D7, 0xA4D1C46D, 0xD3D6F4FB,
        0x4369E96A, 0x346ED9FC, 0xAD678846, 0xDA60B8D0,
        0x44042D73, 0x33031DE5, 0xAA0A4C5F, 0xDD0D7CC9,
        0x5005713C, 0x270241AA, 0xBE0B1010, 0xC90C2086,
        0x5768B525, 0x206F85B3, 0xB966D409, 0xCE61E49F,
        0x5EDEF90E, 0x29D9C998, 0xB0D09822, 0xC7D7A8B4,
        0x59B33D17, 0x2EB40D81, 0xB7BD5C3B, 0xC0BA6CAD,
        0xEDB88320, 0x9ABFB3B6, 0x03B6E20C, 0x74B1D29A,
        0xEAD54739, 0x9DD277AF, 0x04DB2615, 0x73DC1683,
        0xE3630B12, 0x94643B84, 0x0D6D6A3E, 0x7A6A5AA8,
        0xE40ECF0B, 0x9309FF9D, 0x0A00AE27, 0x7D079EB1,
        0xF00F9344, 0x8708A3D2, 0x1E01F268, 0x6906C2FE,
        0xF762575D, 0x806567CB, 0x196C3671, 0x6E6B06E7,
        0xFED41B76, 0x89D32BE0, 0x10DA7A5A, 0x67DD4ACC,
        0xF9B9DF6F, 0x8EBEEFF9, 0x17B7BE43, 0x60B08ED5,
        0xD6D6A3E8, 0xA1D1937E, 0x38D8C2C4, 0x4FDFF252,
        0xD1BB67F1, 0xA6BC5767, 0x3FB506DD, 0x48B2364B,
        0xD80D2BDA, 0xAF0A1B4C, 0x36034AF6, 0x41047A60,
        0xDF60EFC3, 0xA867DF55, 0x316E8EEF, 0x4669BE79,
        0xCB61B38C, 0xBC66831A, 0x256FD2A0, 0x5268E236,
        0xCC0C7795, 0xBB0B4703, 0x220216B9, 0x5505262F,
        0xC5BA3BBE, 0xB2BD0B28, 0x2BB45A92, 0x5CB36A04,
        0xC2D7FFA7, 0xB5D0CF31, 0x2CD99E8B, 0x5BDEAE1D,
        0x9B64C2B0, 0xEC63F226, 0x756AA39C, 0x026D930A,
        0x9C0906A9, 0xEB0E363F, 0x72076785, 0x05005713,
        0x95BF4A82, 0xE2B87A14, 0x7BB12BAE, 0x0CB61B38,
        0x92D28E9B, 0xE5D5BE0D, 0x7CDCEFB7, 0x0BDBDF21,
        0x86D3D2D4, 0xF1D4E242, 0x68DDB3F8, 0x1FDA836E,
        0x81BE16CD, 0xF6B9265B, 0x6FB077E1, 0x18B74777,
        0x88085AE6, 0xFF0F6A70, 0x66063BCA, 0x11010B5C,
        0x8F659EFF, 0xF862AE69, 0x616BFFD3, 0x166CCF45,
        0xA00AE278, 0xD70DD2EE, 0x4E048354, 0x3903B3C2,
        0xA7672661, 0xD06016F7, 0x4969474D, 0x3E6E77DB,
        0xAED16A4A, 0xD9D65ADC, 0x40DF0B66, 0x37D83BF0,
        0xA9BCAE53, 0xDEBB9EC5, 0x47B2CF7F, 0x30B5FFE9,
        0xBDBDF21C, 0xCABAC28A, 0x53B39330, 0x24B4A3A6,
        0xBAD03605, 0xCDD70693, 0x54DE5729, 0x23D967BF,
        0xB3667A2E, 0xC4614AB8, 0x5D681B02, 0x2A6F2B94,
        0xB40BBE37, 0xC30C8EA1, 0x5A05DF1B, 0x2D02EF8D
    };

    DWORD crc = ~initialRemainder;
    BYTE *p = (BYTE*)pData;

    for( size_t i=0; i < length; i++) {
        crc = lookupTable[(crc ^ *p++) & 0xFF] ^ (crc >> 8);
    }

    return ~crc;
}

From: Mat
Wow. I'm now debating on staying with Simba more than TRiBot from what Brandon says.
But its all guess work though as no one really knows what Jagex are looking for but I agree that if they start looking they'll be able to see instantly.
Mat
(Once Brandon has this on smart working :) I'll be back here scripting :) )
I Also feel Brandon should get something for all his hard work, like he should accept PP Donations as he deservers them <3.
I would Donate to him :)

From: Mat
Wow. I'm now debating on staying with Simba more than TRiBot from what Brandon says.
But its all guess work though as no one really knows what Jagex are looking for but I agree that if they start looking they'll be able to see instantly.
Mat
(Once Brandon has this on smart working :) I'll be back here scripting :) )
I Also feel Brandon should get something for all his hard work, like he should accept PP Donations as he deservers them <3.
I would Donate to him :)

GLHGetPosition(X, Y, var WorldX, WorldY, WorldZ: Single)

GLHGetViewPort(var X, Y, Width, Height: Integer)

From: eska
Simba Code:
[LEFT]GLHGetPosition(X, Y, var WorldX, WorldY, WorldZ: Single)
[/LEFT]


How do I use it this function, and what can I use it for?

I'm asking this because I'm making a Leo random solver. Right now it finds and pickup all coffins, and check what is inside each of those and saves the answer in an array. Even though I can easily open a gravestone and find what coffin I should put in its grave, the problem is to place the coffin in the grave related to the gravestone. It is the 'hardest' part of this random. Of course, it *could* be done with only screen position (x, y) but it wouldn't be 100% accurate.

I want injection-like accuracy.

Now to achieve this, I believe I'd need the real position of the object on the screen in 3d (x, y, z) so that I can compare it with other object without having to worry about the position of the camera. Using that data, I could find nearest object to another object with 100% accuracy.

Also, what can I use GLHGetViewPort for?
Simba Code:
[LEFT]GLHGetViewPort(var X, Y, Width, Height: Integer)
[/LEFT]

x := 266;
    y := 124;

   if GLHGetPosition(x, y, worldx, worldy, worldz) then
   begin
    writeln(tostr(x));
    writeln(tostr(y));
    writeln(tostr(worldx));
    writeln(tostr(worldy));
    writeln(tostr(worldz));
   end; 

259
222
259
223
0

From: eska
Simba Code:

It's always the same result no matter what you give it in parameters: worldX = x, worldY = y +1, worldZ= 0;

From: Brandon
If Z is 0 then stuff is just rendering with 0 depth is all. Meaning it's just rendering on the XY plane. Some stuff will actually render before it hits the screen then the buffer swaps. Then Z will not be 0.

I'll post an example tomorrow. Maybe my code is a bit messed. I haven't tested that function but I will in a sec.

From: eska
Ok I've been testing this with coordinate of the mainscreen and also inventory screen. Always the same result. Didn't matter what floor of a building I was, or if the height of the terrain was different of another point, both gave me 0.*Anyway thanks for the reply. I know you're a bussy guy.

From: JN13
Hope things are going well with the project :)

{$loadlib GLHook}

type pByte = ^Byte;
type pInt  = ^Integer;
type pBool = ^Boolean;
type pFloat = ^Single;

type TModel = record
  SX, SY: Integer;
  Stride: Cardinal;
  ID: Cardinal;
  TriangleCount: Integer;
end;

type TPanelItem = record
  ID: Integer;
  TextureID: Integer;
  X, Y: Integer;
  SX, SY: Array [0..3] Of Integer;
end;

type TFontInfo = record
  ID: Cardinal;
  R, G, B, A: Byte;
  Colour: Integer;
  X, Y: Single;
  Symbol: Char;
  Shadow: Boolean;
end;

type PModel = ^TModel;
type PPanelItem  = ^TPanelItem;
type PFontInfo = ^TFontInfo;

type TModelArray = array of TModel;
type TPanelArray = array of TPanelItem;
type TFontArray = array of TFontInfo;

Function GLHook_GetAllItems: TPanelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  PanelPtr: PPanelItem;
begin
  Ptr := GLHGetPanelItems(Size);       //Get a pointer to the Panel buffer + the size.
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    PanelPtr := Ptr;
    Result[I] := PanelPtr^;
    Ptr := Ptr + sizeof(TPanelItem);   //iterate the pointer.
  end;
end;

Function GLHook_GetAllModels: TModelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  ModelPtr: PModel;
begin
  Ptr := GLHGetModels(Size);       //Get a pointer to the model buffer + the size.
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    ModelPtr := Ptr;
    Result[I] := ModelPtr^;
    Ptr := Ptr + sizeof(TModel);   //iterate the pointer.
  end;
end;

Function GLHook_GetAllFonts: TFontArray;
var
  Ptr: Pointer;
  Size, I: Integer;
begin
  Ptr := GLHGetFonts(Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do                         //Pointer Iteration is manual! DO NOT TOUCH IT!
  begin
    Result[I].ID := pInt(Ptr)^;
    Ptr := Ptr + sizeof(Integer);

    Result[I].R := pByte(Ptr)^;
    Result[I].G := pByte(Ptr + sizeof(Byte))^;
    Result[I].B := pByte(Ptr + (2 * sizeof(Byte)))^;
    Result[I].A := pByte(Ptr + (3 * sizeof(Byte)))^;
    Ptr := Ptr + (sizeof(Byte) * 4);

    Result[I].Colour := RGBToColor(Result[I].R, Result[I].G, Result[I].B);  //Just added it for testing and stuff. Might as well leave it.

    Result[I].X := pFloat(Ptr)^;
    Result[I].Y := pFloat(Ptr + sizeof(Single))^;
    Ptr := Ptr + (sizeof(Single) * 2);

    Result[I].Symbol := pChar(Ptr)^;
    Result[I].Shadow := pBool(Ptr + sizeof(Char))^;
    Ptr := Ptr + (sizeof(Char) + sizeof(Boolean)) + 2;

    //Notes: Removed All Arrays. Total of 16 lines.
  end;
end;

var
  I: Integer;
  Fonts: TFontArray;

begin
  ClearDebug;

  Fonts :=  GLHook_GetAllFonts;
  For I := 0 To High(Fonts) Do
    If (Not Fonts[I].Shadow) Then
    begin
      WriteLn(Fonts[I].Symbol);
      MoveMouse(Round(Fonts[I].X), Round(Fonts[I].Y));
    end;
end.

L
o
g
i
n
U
s
e
r
n
a
m
e
:
P
a
s
s
w
o
r
d
:
L
o
g
I
n
R
e
c
o
v
e
r
Y
o
u
r
P
a
s
s
w
o
r
d
O
r
l
o
g
i
n
w
i
t
h
:
(
O
p
e
n
s
a
p
o
p
u
p
w
i
n
d
o
w
)
C
r
e
a
t
e
A
c
c
o
u
n
t
N
o
w
Successfully executed.

From: JN13
Woah. Great job! It looks good from my comp. So when do you plan on moving the project into SMART?

E: Just updated the GLhook without realizing its .5 again ^-^ <- thats what I get for being so tired…

From: Ollybest
I believe that's not all in Brandon's control since BenLand still needs to add/change certain things to SMART.

{$I GLHook/GLHook.Simba}

const
  FixedWidth = 765;
  FixedHeight = 553;


Function GLH_LobbyScreen: Boolean;
Begin
  Result := InRange(GLH_GetLobbyTab, L_PlayerInfo, L_Options);
End;

Function GLH_RSReady: Boolean;
var
  Area: TBox;
Begin
  Result := (GLH_LoggedIn) Or (GLH_LobbyScreen);

  If (Not Result) Then
    Result := (Length(GLHook_GetItemsByID(9180)) > 0)

  GLHGetViewPort(Area.X1, Area.Y1, Area.X2, Area.Y2);
  If ((Area.X2 - Area.X1 > FixedWidth) or (Area.Y2 - Area.Y1 > FixedHeight)) Then
  Begin
    WriteLn('You are using the "Resizeable" screen option in RS.');
    WriteLn('Please set it to "Fixed" to have SRL function properly.');
    TerminateScript;
  End;
End;

Function GLH_ValidEmail: Boolean;
var
  SkipButton: TPanelArray;
Begin
  While (Length(GLHook_GetItemByID(535342)) > 0) Do
  Begin
    SkipButton := GLHook_GetItemByID(24265);
    If (Length(SkipButton) > 0) Then
      MouseBox(SkipButton.SX[0], SkipButton.SY[0], SkipButton.SX[2], SkipButton.SY[2], MOUSE_LEFT);
    WaitFunc(@GLH_LobbyScreen, 75, 3000);
  End;
  Result := GLH_LobbyScreen;
End;

Function GLH_ExitToLobby: Boolean;
var
  Count: Integer;
  LobbyButton: TPanelArray;
Begin
  Result := GLH_LobbyScreen;
  If Result Then Exit;

  If (SRL_Procs[srl_OnExitToLobby] <> nil) Then
    SRL_Procs[srl_OnExitToLobby]();

  If (Not GLH_GameTab(TAB_LOGOUT)) Then Exit;
  Wait(200 + Random(100));

  While (GLH_LoggedIn and (Count < 10)) Do
  Begin
    Inc(Count);
    LobbyButton := GLHook_GetItemsByID(171870);
    If (Length(LobbyButton) > 1) Then
      If (GLHook_GetTextArea(LobbyButton[0].SX[0], LobbyButton[0].SY[0], LobbyButton[0].SX[2], LobbyButton[0].SY[2]) = 'Lobby') Then
      Begin
        MouseBox(LobbyButton[0].SX[0], LobbyButton[0].SY[0], LobbyButton[0].SX[2], LobbyButton[0].SY[2], MOUSE_LEFT);
        For I := 0 To 10 Do
        Begin
          Wait(1000);
          If (Not GLH_LobbyScreen) Then
            If GLH_ValidEmail Then
            Begin
              Result := True;
              Exit;
            End;
        End;
      End;
  End;
End;

Function GLH_LeaveLobby: Boolean;
var
  T: LongInt;
  ExitButton: TPanelArray;
Begin
  T := GetSystemTime;
  While ((Not (Result)) And ((GetSystemTime - T) < 30000)) Do
  Begin
    ExitButton := GLHook_GetItemsByID(9369);
    If (Length(ExitButton > 0)) Then
      MouseBox(ExitButton[0].SX[0], ExitButton[0].SY[0], ExitButton[0].SX[2], ExitButton[0].SY[2], Mouse_Left);
    Wait(RandomRange(1000, 2000));
    Result := (Not (LobbyScreen));
  End;
End;

Function GLH_LogOut: Boolean;
var
  Count: Integer;
  LogInButton: TPanelArray;
Begin
  GLH_ExitedSquealOfFortune := False;
  Result := Not GLH_LoggedIn;
  If Result Then Exit;

  If (SRL_Procs[srl_OnLogOut] <> nil) Then
    SRL_Procs[srl_OnLogOut]();

  If (Not GLH_GameTab(TAB_LOGOUT)) Then
  Begin
    GLH_CloseWindow;
    If (Not GLH_GameTab(TAB_LOGOUT)) Then
      Exit;
  End;

  While (GLH_LoggedIn and (Count < 10)) Do
  Begin
    Inc(Count);
    LogInButton := GLHook_GetItemsByID(171870);
    If (Length(LogInButton) > 1) Then
      If (GLHook_GetTextArea(LogInButton[1].SX[0], LogInButton[1].SY[0], LogInButton[1].SX[2], LogInButton[1].SY[2]) = 'Login') Then
      Begin
        MouseBox(LogInButton[1].SX[0], LogInButton[1].SY[0], LogInButton[1].SX[2], LogInButton[1].SY[2], MOUSE_LEFT);
        For I := 0 To 10 Do
        Begin
          Wait(1000);
          If (Not GLH_LoggedIn) Then
          Begin
            Result := True;
            Exit;
          End;
        End;
      End;
End;

Function GLH_LoginToLobby: Boolean;
var
  InfoBox: TPanelArray;
  InfoLocation: TBox;
Begin
  ActivateClient;
  Wait(100);
  TypeByte(VK_ESCAPE);
  Wait(500);

  Result := ((GLH_LobbyScreen) Or (GLH_LoggedIn));
  If Result Then Exit;

  If (Not (Players[CurrentPlayer].Active)) Then
  Begin
    WriteLn('Player is not Active...');
    If (AllPlayersInActive) Then
    Begin
      WriteLn('All players not active!');
      Exit;
    End;
    NextPlayer(False);
    Exit;
  End;

  T := GetSystemTime;
  Repeat
    If GLH_RSReady Then
      Break;
    If ((GetSystemTime - T) > 180000) Then
    Begin
      WriteLn('It has been 3 minutes and Runescape is not yet ready... Terminating.');
      TerminateScript;
    End;
    Wait(RandomRange(1000, 2000));
  Until (False);
  WriteLn('Welcome to Runescape.');

  Members := Players[CurrentPlayer].Member;
  If (Length(Players[CurrentPlayer].WorldInfo) > 0) Then
    Members := Players[CurrentPlayer].WorldInfo[0];

  ProcStart:
  If (GLH_LoggedIn) Then Exit;
  For W := 0 To 1 Do
  Begin
    InfoBox := GLHook_GetItemsByID(61200);
    If (W = 0) Then
      InfoLocation := IntToBox(InfoBox[0].SX[0], InfoBox[0].SY[0], InfoBox[1].SX[2], InfoBox[1].SY[2])
    Else
      InfoLocation := IntToBox(InfoBox[2].SX[0], InfoBox[2].SY[0], InfoBox[3].SX[2], InfoBox[3].SY[2]);

    T := (GetSystemTime + (60000 * 2));
    If GLH_FindTextArea(InfoLocation) Then
    Begin
      Mouse(InfoBox.X2 - 2, InfoBox.Y2 - 5, 5, 5, MOUSE_LEFT);
      Repeat
        TypeByte(VK_BACK);
      Until(Not GLH_FindTextArea(InfoLocation));
    End;

    Wait(100 + Random(200));
    If W = 0 Then
    Begin
      WriteLn(Capitalize(Players[CurrentPlayer].Name));
      TypeSend(Players[CurrentPlayer].Name);
    End Else
      TypeSend(Players[CurrentPlayer].Pass);
    Wait(100 + Random(50));
  End;
End;

From: Brandon

Last Updated:
August 23th, 2012 - 22:00 EST

From: abu_jwka
Good to know you've made a lot of progress with this, I'm really exited and will test in anyway if you need :)

In other news, shocking typo mate:


It's not 23th, it's 23rd :p

From: Ollybest
Brandon any clue why I get this? Exception in Script: Plugin(GLHook32) has not been found
Trust me its in the right folder lol. it drove me crazy :X

var
  I: Integer;
  Foo: TStringArray;

begin
  ClearDebug;
  writeln(FontsToText(GLHook_GetAllFonts, False, 10, 0));
end;

Function FontsToText(var FontArray: TFontArray; Shadow: Boolean; MinHSpacing: Integer; MinVSpacing: Integer): TStringArray;
var
  I, J, L: Integer;
  Str: String;
Begin
  L := High(FontArray);

  If Shadow Then J := 1 Else J := 2;
  SetLength(Result, 1);

  For I := 0 To L Do
    If (FontArray[I].Shadow = Shadow) Then
    Begin
      If (((FontArray[I].Translate[0] - (FontArray[I - 2].Translate[0] + FontArray[I - 2].VX[3] - FontArray[I - 2].VX[0])) >= MinHSpacing) And (I >= 2)) Then
        Str := Str + ' ';

      If ((((FontArray[I].Translate[1] - FontArray[I - J].Translate[1]) >= MinVSpacing) And (I >= 2) And MinVSpacing > 0) Or (Ord(FontArray[I].Symbol) = 10)) Then
        Str := Str + Chr(13);

      Str := Str + FontArray[I].Symbol;
    End;

  ExplodeWrap(Chr(13), Str, Result);
End;

From: Brandon
It's actually not in my control at all. Only thing in my control is what I post. Anything to do with Smart isn't me. Well I can help but that's probably the most I can do as Smart stuff is really up to Ben.

From: warpie
Smart is released at github, under the lisence: GPL v3. So you, or anyone else are free to modify it, and release it, but jut let people know that it's built on BenLand100's SMART. So it's honesty up to you, or anyone else for that sake.

But of cource, I understand if you don't want to, or have the time to do so! :)

From: warpie
Smart is released at github, under the lisence: GPL v3. So you, or anyone else are free to modify it, and release it, but jut let people know that it's built on BenLand100's SMART. So it's honesty up to you, or anyone else for that sake.

But of cource, I understand if you don't want to, or have the time to do so! :)

From: Brandon

EDIT: Updated the splitting function. Buddy at work covered for me =]

Function FontsToText(var FontArray: TFontArray; Shadow: Boolean; MinHSpacing: Integer; MinVSpacing: Integer): TStringArray;
var
  I, J, L: Integer;
  Str: String;
Begin
  L := High(FontArray);

  If Shadow Then J := 1 Else J := 2;
  SetLength(Result, 1);

  For I := 0 To L Do
    If (FontArray[I].Shadow = Shadow) Then
    Begin
      If (((FontArray[I].Translate[0] - (FontArray[I - 2].Translate[0] + FontArray[I - 2].VX[3] - FontArray[I - 2].VX[0])) >= MinHSpacing) And (I >= 2)) Then
        Str := Str + ' ';

      If ((((FontArray[I].Translate[1] - FontArray[I - J].Translate[1]) >= MinVSpacing) And (I >= 2) And MinVSpacing > 0) Or (Ord(FontArray[I].Symbol) = 10)) Then
        Str := Str + Chr(13);

      Str := Str + FontArray[I].Symbol;
    End;

  ExplodeWrap(Chr(13), Str, Result);
End;

Prints:
[Banana]
[Login,
Username:,
Password:,
L o g I n,
Recover Your Password,
Or log in with:,
(Opens a popup window),
Create Account Now,
]
Successfully executed.
[/Banana]

From: Flight
Beautiful. I had a rough way of getting the Uptext and then, like you said, use(d) Regex to search for matches. It worked pretty good but I got stuck on the word (not character) spacing; I only had a solid line of text. It's nice that you updated it now. Great job Brandon. :)

Function GLH_PinScreen: Boolean;
Begin
  Result := (Length(GLHook_GetItemsByID(848640)) > 0);
End;

Function GLH_BankScreen: Boolean;
Begin
  Result := GLHook_FindTextAreaEx(IntToBox(195, 76, 324, 96), ['Bank', 'Bank of Runescape'], False, 5, 0);
End;

Function GLH_GetCurrentTab: Integer;
Var
  P: TPoint;
  ItemArray: TPanelArray;
Begin
  Result := -1;
  If (Not GLH_LoggedIn) Then
    Exit;

  ItemArray := GLHook_GetItemsByID(48705);
  If (Length(ItemArray) < 1) Then Exit;

  For Result := 0 To (Tab_LogOut - Tab_Combat) - 1 Do
  Begin
    P.X := 535 + Result mod 8 * 30;
    P.Y := (169 + Result div 8 * 298) + 18;
    If PointInBox(P, IntToBox(ItemArray[1].SX[0], ItemArray[1].SY[0], ItemArray[1].SX[2], ItemArray[1].SY[2])) Then
      Break;
  End;

  Result := Result + Tab_Combat;
  If GLH_BankScreen Then
    Result := Tab_Inv;
End;

{$IFDEF GLHook}
  {$loadlib GLHook}
{$ENDIF}

type pByte = ^Byte;
type pInt  = ^Integer;
type pBool = ^Boolean;
type pFloat = ^Single;

type TModel = record
  SX, SY: Integer;
  Stride: Cardinal;
  ID: Cardinal;
  TriangleCount: Integer;
end;

type TPanelItem = record
  ID: Integer;
  TextureID: Integer;
  X, Y: Integer;
  SX, SY: Array [0..3] Of Integer;
end;

type TFontInfo = record
  ID: Cardinal;
  R, G, B, A: Byte;
  Colour: Integer;
  X, Y: Single;
  Symbol: Char;
  Shadow: Boolean;
  Translate: Array [0..2] Of Single;
  VX, VY, TX, TY: Array [0..3] Of Integer;
end;

type PModel = ^TModel;
type PPanelItem  = ^TPanelItem;
type PFontInfo = ^TFontInfo;

type TModelArray = array of TModel;
type TPanelArray = array of TPanelItem;
type TFontArray = array of TFontInfo;

Function GLHook_GetAllItems: TPanelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  PanelPtr: PPanelItem;
begin
  Ptr := GLHGetPanelItems(Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    PanelPtr := Ptr;
    Result[I] := PanelPtr^;
    Ptr := Ptr + sizeof(TPanelItem);
  end;
end;

Function GLHook_GetItemsByID(ID: Integer): TPanelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  PanelPtr: PPanelItem;
begin
  Ptr := GLHGetItemsByID(ID, Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    PanelPtr := Ptr;
    Result[I] := PanelPtr^;
    Ptr := Ptr + sizeof(TPanelItem);
  end;
end;

Function GLHook_GetItemsByArea(Area: TBox): TPanelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  PanelPtr: PPanelItem;
begin
  Ptr := GLHGetItemsByArea(Area.X1, Area.Y1, Area.X2, Area.Y2, Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    PanelPtr := Ptr;
    Result[I] := PanelPtr^;
    Ptr := Ptr + sizeof(TPanelItem);
  end;
end;

Function GLHook_GetAllModels: TModelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  ModelPtr: PModel;
begin
  Ptr := GLHGetModels(Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    ModelPtr := Ptr;
    Result[I] := ModelPtr^;
    Ptr := Ptr + sizeof(TModel);
  end;
end;

Function GLHook_GetModelsByID(ID: Cardinal): TModelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  ModelPtr: PModel;
begin
  Ptr := GLHGetModelsByID(ID, Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    ModelPtr := Ptr;
    Result[I] := ModelPtr^;
    Ptr := Ptr + sizeof(TModel);
  end;
end;

Function GLHook_GetModelsByTriangleCount(Count: Cardinal): TModelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  ModelPtr: PModel;
begin
  Ptr := GLHGetModelsByTCount(Count, Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    ModelPtr := Ptr;
    Result[I] := ModelPtr^;
    Ptr := Ptr + sizeof(TModel);
  end;
end;

Function GLHook_GetModelsByArea(Area: TBox): TModelArray;
var
  Ptr: Pointer;
  Size, I: Integer;
  ModelPtr: PModel;
begin
  Ptr := GLHGetModelsByArea(Area.X1, Area.Y1, Area.X2, Area.Y2, Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    ModelPtr := Ptr;
    Result[I] := ModelPtr^;
    Ptr := Ptr + sizeof(TModel);
  end;
end;

Function GLHook_GetAllFonts: TFontArray;
var
  Ptr: Pointer;
  Size, I: Integer;
begin
  Ptr := GLHGetFonts(Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    Result[I].ID := pInt(Ptr)^;
    Ptr := Ptr + sizeof(Integer);

    Result[I].R := pByte(Ptr)^;
    Result[I].G := pByte(Ptr + sizeof(Byte))^;
    Result[I].B := pByte(Ptr + (2 * sizeof(Byte)))^;
    Result[I].A := pByte(Ptr + (3 * sizeof(Byte)))^;
    Ptr := Ptr + (sizeof(Byte) * 4);

    Result[I].Colour := RGBToColor(Result[I].R, Result[I].G, Result[I].B);

    Result[I].X := pFloat(Ptr)^;
    Result[I].Y := pFloat(Ptr + sizeof(Single))^;
    Ptr := Ptr + (sizeof(Single) * 2);

    Result[I].Symbol := pChar(Ptr)^;
    Result[I].Shadow := pBool(Ptr + sizeof(Boolean))^;
    Ptr := Ptr + (sizeof(Char) + sizeof(Boolean)) + 2;   //Padded by 2.

    Result[I].Translate[0] := pFloat(Ptr)^;
    Result[I].Translate[1] := pFloat(Ptr + sizeof(Single))^;
    Result[I].Translate[2] := pFloat(Ptr + (2 * sizeof(Single)))^;
    Ptr := Ptr + (sizeof(Single) * 3);

    Result[I].VX[0] := pInt(Ptr)^;
    Result[I].VX[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].VX[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].VX[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);

    Result[I].VY[0] := pInt(Ptr)^;
    Result[I].VY[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].VY[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].VY[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);

    Result[I].TX[0] := pInt(Ptr)^;
    Result[I].TX[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].TX[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].TX[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);

    Result[I].TY[0] := pInt(Ptr)^;
    Result[I].TY[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].TY[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].TY[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);
  end;
end;

Function GLHook_GetFontsByArea(Area: TBox): TFontArray;
var
  Ptr: Pointer;
  Size, I: Integer;
begin
  Ptr := GLHGetFontsArea(Area.X1, Area.Y1, Area.X2, Area.Y2, Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    Result[I].ID := pInt(Ptr)^;
    Ptr := Ptr + sizeof(Integer);

    Result[I].R := pByte(Ptr)^;
    Result[I].G := pByte(Ptr + sizeof(Byte))^;
    Result[I].B := pByte(Ptr + (2 * sizeof(Byte)))^;
    Result[I].A := pByte(Ptr + (3 * sizeof(Byte)))^;
    Ptr := Ptr + (sizeof(Byte) * 4);

    Result[I].Colour := RGBToColor(Result[I].R, Result[I].G, Result[I].B);

    Result[I].X := pFloat(Ptr)^;
    Result[I].Y := pFloat(Ptr + sizeof(Single))^;
    Ptr := Ptr + (sizeof(Single) * 2);

    Result[I].Symbol := pChar(Ptr)^;
    Result[I].Shadow := pBool(Ptr + sizeof(Boolean))^;
    Ptr := Ptr + (sizeof(Char) + sizeof(Boolean)) + 2;  //Padded by 2.

    Result[I].Translate[0] := pFloat(Ptr)^;
    Result[I].Translate[1] := pFloat(Ptr + sizeof(Single))^;
    Result[I].Translate[2] := pFloat(Ptr + (2 * sizeof(Single)))^;
    Ptr := Ptr + (sizeof(Single) * 3);

    Result[I].VX[0] := pInt(Ptr)^;
    Result[I].VX[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].VX[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].VX[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);

    Result[I].VY[0] := pInt(Ptr)^;
    Result[I].VY[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].VY[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].VY[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);

    Result[I].TX[0] := pInt(Ptr)^;
    Result[I].TX[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].TX[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].TX[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);

    Result[I].TY[0] := pInt(Ptr)^;
    Result[I].TY[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].TY[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].TY[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);
  end;
end;

Function GLHook_FontsToText(var FontArray: TFontArray; Shadow: Boolean; MinHSpacing: Integer; MinVSpacing: Integer): TStringArray;
var
  I, J, L: Integer;
  Str: String;
Begin
  L := High(FontArray);

  If Shadow Then J := 1 Else J := 2;
  SetLength(Result, 1);

  For I := 0 To L Do
    If (FontArray[I].Shadow = Shadow) Then
    Begin
      If (((FontArray[I].Translate[0] - (FontArray[I - J].Translate[0] + FontArray[I - J].VX[3] - FontArray[I - J].VX[0])) >= MinHSpacing) And (I >= 2)) Then
        Str := Str + ' ';

      If ((((FontArray[I].Translate[1] - FontArray[I - J].Translate[1]) >= MinVSpacing) And (I >= 2) And MinVSpacing > 0) Or (Ord(FontArray[I].Symbol) = 10)) Then
        Str := Str + Chr(13);

      If (Ord(FontArray[I].Symbol) <> 10) Then
        Str := Str + FontArray[I].Symbol;
    End;

  ExplodeWrap(Chr(13), Str, Result);
  For I := 0 To High(Result) Do
    Result[I] := Trim(Result[I]);
End;

Function PosStrArr(ToFind: String; SearchArray: TStringArray; Var Where: Integer): Boolean;
var
  I, H: Integer;
Begin
  H := High(SearchArray);
  For I := 0 To H Do
    If (Pos(LowerCase(ToFind), LowerCase(SearchArray[I])) > 0) Then
    Begin
      Where := I;
      Result := True;
      Break;
    End;
End;

Function GLHook_CountTextInArea(Area: TBox; Text: String; Shadow: Boolean; MinHSpacing, MinVSpacing: Integer): Integer;
Var
  I, J: Integer;
  AreaFonts: TStringArray;
Begin
  AreaFonts := GLHook_FontsToText(GLHook_GetFontsByArea(Area), Shadow, MinHSpacing, MinVSpacing);
  For I := 0 To High(AreaFonts) Do
    For J := 0 To High(AreaFonts[I]) Do
      If (LowerCase(AreaFonts[I][J]) = LowerCase(Text)) Then
        Inc(Result);
End;

Function GLHook_FindTextAreaEx(Area: TBox; Text: TStringArray; Shadow: Boolean; MinHSpacing, MinVSpacing: Integer): Boolean;
var
  I, J: Integer;
  AreaFonts: TStringArray;
Begin
  AreaFonts := GLHook_FontsToText(GLHook_GetFontsByArea(Area), Shadow, MinHSpacing, MinVSpacing);
  For I := 0 To High(Text) Do
    If InStrArrEx(Text[I], AreaFonts, J) or PosStrArr(Text[I], AreaFonts, J) Then
    Begin
      Result := True;
      Break;
    End;
End;

Function GLHook_FindTextArea(Area: TBox; Text: String; Shadow: Boolean; MinVSpacing: Integer): Boolean;
var
  I: Integer;
Begin
  For I := 0 To 11 Do
    If GLHook_FindTextAreaEx(Area, [Text], Shadow, I, MinVSpacing) Then
    Begin
      Result := True;
      Break;
    End;
End;

From: Noob King
So this only works for 32bit, correct?

From: Le Jingle
Yes, the library created by Brandon, OpenGL32.dll, is defined as 32 bit afaik.

From: Noob King
I don't know if this is the same for other items, but I noticed that all the water skins (0,1,2,3,4) all have the same id.

From: mormonman
That's because they have the same model.

From: Noob King
Hmm is there going to be a way to distinguish them then?

From: mormonman
Uptext.

From: J J
And for ores, they have the same id aswell, you can use the RGB values :P

From: Zyt3x
Imo I think it's a good thing we can't "magically" distinguish the different models from eachother; it would have been very unhumanlike to do so

From: Mat
I don't think this ogl uses rgb values even if it did water skins don't change colour.

From: Flight
For sure, but without being able to read color in OGL mode it's taking a step backwards. Would a normal player check every ore in his inventory by UpText to see which one is, let's say, iron? ;) Using OGL models to distinguish inventory items is no more detectable (unhumanlike) than DTMs & black lists.



Indeed it does, color codes, textures, bitmaps, ect… all all drawn (and can be hooked) in OGL. If this were not possible, than how do objects/items/NPCs/players differ in color? What tells a trout to be white and a salmon to be pink? The models we're looking at now can be compared to a picture of a sunset drawn in outline only. That base picture, the outline, is the model, and if I've read this correctly there's other parts of OpenGL that tell what colors & textures to fill in each piece of that sunset. I've skimmed through everything that OGL can/does do; much of which is RGB colors for each pixel, textures, as well as bitmaps.

DP4   worldPos.x, ivMatrix[0], viewPos;
DP4   worldPos.y, ivMatrix[1], viewPos;
DP4   worldPos.z, ivMatrix[2], viewPos;
DP4   worldPos.w, ivMatrix[3], viewPos;
ADD   noise.x, worldPos.x, worldPos.z;SUB   noise.y, worldPos.z, worldPos.x;MUL   noise, noise, 0.0001220703125;
FRC   noise, noise;
MUL   noise, noise, 64;
ARL   noiseAddr.x, noise.x;
MOV   noise.x, fNoise[noiseAddr.x].x;
ARL   noiseAddr.x, noise.y;
MOV   noise.y, fNoise[noiseAddr.x].y;
MUL   noise, noise, turbulence.x;

From: Flight
For sure, but without being able to read color in OGL mode it's taking a step backwards. Would a normal player check every ore in his inventory by UpText to see which one is, let's say, iron? ;) Using OGL models to distinguish inventory items is no more detectable (unhumanlike) than DTMs & black lists.

From: Zyt3x
What? It is possible to read color in OGL..

From: euphemism
I believe Flight is referencing SMART. BenLand100 was able to get the different rending modes to run in SMART, but Safemode is the only one from which you can actually get color data. Currently, anyway.

From: euphemism
I believe Flight is referencing SMART. BenLand100 was able to get the different rending modes to run in SMART, but Safemode is the only one from which you can actually get color data. Currently, anyway.

From: ReadySteadyGo
I believe that you actually have to hook in order to read the frame buffer. All that is needed is a call to glReadPixels (http://www.opengl.org/sdk/docs/man/xhtml/glReadPixels.xml), then flip the resulting image.

From: mormonman
Would we be able to do that by making SMART the keymouse target, while GLHook makes the imagetarget some pointer from itself?

From: Le Jingle
It's suppose to run at lower fps with the model id's shown, no?
Also, with the intel dll (using on a intel comp ofc) should it run slower, or is it dependent on the graphics card? (the graphics card on this intel comp sucks.. :s)

From: Brandon
I do not believe so. I'm not sure how to integrate it with Java but anyway here is just my 2 cents which isn't very much:

Smart might have to add its own implementation of OpenGL and/or simply do..

A. wglMakeCurrent
B. wglCopyContext
C. Load the ogl plugin and use its buffer.

Etc.. Those are just some small examples. If I were to provide the buffer for smart, that means the official client would have to be running so that I can give smart that buffer. That'd be non-sensical. It's always going to be better if Smart did indeed implement OGL and I'm pretty sure Ben is already working/playing around with that.

One idea though is that instead of having the official client load RS, Smart can load it instead and I'd provide a pointer to the buffer. It's difficult to say though since I have almost no java writing skills. Tri-bot can do it so I believe Smart can do it too. It's all just a matter of the implementation.

I've already guaranteed Ben that it can be minimized while OGL is running (with that minimized screenshot bitmap "example"). Dunno where I posted that. He said it was something he could work with so that's always good.


@Nesses I'll post the source in a couple hours. Re-writing some core functions. Also not sure how much longer I'd be able to support MSVC but I'll go as long as I can until I can't anymore lol.

<mormonman> Wizzup: http://villavu.com/forum/showpost.php?p=1094825&postcount=236
<Wizzup> glreadpixels is hard to do thread safe and somewhat slow
<Wizzup> but it should work
<mormonman> is there not a better gl function?
<Wizzup> keymouse and image are indeed completely separate
<Wizzup> no

<mormonman> but hey can we link gl with a smart applet the same way we can link simba?
<mormonman> like, if i had two smart applets with gl open
<mormonman> but i only wanted info from the one that is linked with simba
<BenLand100> mormonman yes
<BenLand100> doable
<mormonman> by brandon or you/
<mormonman> ?
<BenLand100> afaik brandon's ogl stuff should work with SMART
<BenLand100> but both his and mine do some client pairing

From: KeepBotting
Lol @ Welcome to Funescape.

ontopic: dafuq is this, and how can it be used with Simba? Will findobj etc still work, or will there be a different api?

var
    Foo: TPanelArray;
begin
   Foo := GLHook_FindItemsByID(.....);
   Mouse(Foo[0].X, Foo[0].Y, 0, 0, Mouse_Move);
   If GLHook_FindText("Deposit", 4, 4, .....) Then
      ClickMouse2(Mouse_Left);
end;

From: Ollybest
Brandon is there anything in OGL that could tell if a monster is in combat?

From: Brandon
The HP Bar on that monster yes. The health of it, etc. I haven't looked into animations or anything. AFAIK, the models actually do not change during an animation but something has to be changing. Maybe there is like a couple extra commands I can look for or something.

ATM I'm working on figuring out completely unique ID's for Items. I can look into animations later.

From: Ollybest
So how much lifepoints left a monster has? pretty neat dude keep it up.

From: Le Jingle
Do you think Ben, if/when he integrates your work into smart, that he'd account for the debug visual you have? (i.e. a menu/drop down list that replicates your f1-11 keys?) I know it's a way out of the way question, but I'm not expecting any real or definite answer either :) Just curious!

Exception in Script: Error loading plugin C:\Simba\Plugins\GLHook32.dll

From: Noob King
I can't seem to get it to work now after you updated it today. Both DLL's are in the right spots as well.

Exception in Script: Error loading plugin C:\Simba\Plugins\GLHook32.dll

From: Noob King
I can't seem to get it to work now after you updated it today. Both DLL's are in the right spots as well.

Exception in Script: Error loading plugin C:\Simba\Plugins\GLHook32.dll

From: Le Jingle
EDIT: GREAT work with this! I just noticed the compass degree/radians text, absolutely helpful! Now I just need to figure out an effective way to download a 2nd simba so I can run lape/pascal script based includes simultaneously.

From: Zyt3x
Just run the simba.exe once more..? :p

From: Le Jingle
Whaa? Well wait, I just looked over the includes from the lape zipball and they are the same as the current ones.. did I miss a lape pertinent srl includes somewhere? I ask because just copying over the plugins / srllape.simba didn't seem to work when I used interpreter:lape, define lape, i srl/srl.simba, loadlib GLHook in a script. But I'm probably missing something very simple and I apologize for it in advanced.

Also, regarding the items, I seem to get the same ID's per identical models used. I.E. All talismans don't filter to unique ID's based on the methods you used for detecting the differences in models. It might just be me though, doing something I forgot to look over :s I also understand/took note that it's a high percent rate (95-99%), not 100%.

Ex. of items from latest upload:

I do think though, that the text seems to fit well over the stuffs, and hearing that it'd look even better on smart is just too good of news, if/when that's done.

Cheers,
Lj
:)

From: Le Jingle
Press f11 to show ID's

Place the .dll's appropiately, load rs in OpenGL, (mine never shows for the login screen, but will for the lobby / in game), then hit f11 to make everything visible that OpenGL uses. At least that's what I've been doing. There's also different f-keys that do complicated stuffs that Brandon went over earlier in this thread/the previous thread.


Edit: I also like how f9 has three filters!! :) I find them all very useful!!

From: print123
this project looks great it will make take scripting to a new lvl ?

From: Flight
Let's hope so. :) First thing's first, we should be working on an included & random-solvers.

From: euphemism
Yes, but Brandon hasn't laid out a framework for others to help with the include.

...*

var
  Items: TModelArray;
  I,x,y: Integer;

begin
  ClearDebug;
  Items := GLHook_GetModelsByID(4152837985);
  For I := 0 To High(Items) Do
  Begin
    x := Items[I].SX;
    y := Items[I].SY;
    //MoveMouse(x,y);
    ClickMouse(x, y, true);
    Wait(2500);
  End;
end.  

From: warpie
I can't seem to find out what's wrong… But here it goes:

That will not work - error given is:
Exception in Script: Expected variable of type "Int32", got "False..True(4294967295)" at line 328, column 15

But by removing ClickMouse(); and adding MoveMouse(); it works… Any ideas?

#include <Windows.h>
#include <TlHelp32.h>
#include <iostream>

using namespace std;

HANDLE hThread;
void* pLibRemote;
DWORD hLibModule;
HMODULE hKernel32;
HANDLE hProcess;

PROCESSENTRY32 GetProcessInfo(char* ProcessName)
{
    HANDLE hSnap = NULL;
    PROCESSENTRY32 Proc32 = {0};

    if((hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)) == INVALID_HANDLE_VALUE)
		return Proc32;

    Proc32.dwSize = sizeof(PROCESSENTRY32);
    while(Process32Next(hSnap, &Proc32))
	{
		if(!strcmp(ProcessName, Proc32.szExeFile))
		{
			CloseHandle(hSnap);
			return Proc32;
		}
    }
    CloseHandle(hSnap);
    return Proc32;
}

void Inject()
{
    char szLibPath[MAX_PATH];
	memset(szLibPath, 0, MAX_PATH);
    hKernel32 = ::GetModuleHandle("Kernel32");

    PROCESSENTRY32 RSDLL = GetProcessInfo("Java.exe");
    hProcess = OpenProcess(PROCESS_ALL_ACCESS, false, RSDLL.th32ProcessID);
    strcat(szLibPath, "C:/Users/Brandon/Desktop/OpenGL32.dll");

    pLibRemote = ::VirtualAllocEx(hProcess, NULL, sizeof(szLibPath), MEM_COMMIT, PAGE_READWRITE);
    ::WriteProcessMemory(hProcess, pLibRemote, (void*)szLibPath, sizeof(szLibPath), NULL);

    hThread = ::CreateRemoteThread(hProcess, NULL, 0, (LPTHREAD_START_ROUTINE) ::GetProcAddress(hKernel32, "LoadLibraryA"), pLibRemote, 0, NULL);
    ::WaitForSingleObject(hThread, INFINITE);
    ::GetExitCodeThread(hThread, &hLibModule);
    ::CloseHandle(hThread);
    ::VirtualFreeEx(hProcess, pLibRemote, sizeof(szLibPath), MEM_RELEASE);
}

void Terminate()
{
    hThread = ::CreateRemoteThread(hProcess, NULL, 0, (LPTHREAD_START_ROUTINE) ::GetProcAddress(hKernel32, "FreeLibrary"), (void*)hLibModule, 0, NULL);
    ::WaitForSingleObject(hThread, INFINITE);
    ::CloseHandle(hThread);
}


int main()
{
	Inject();
    cin.get();
    Terminate();

	return 0;
}

std::string SharedMemoryName = "Local\\GLHookMap";

GL_EXTERN std::string __stdcall GetProcessID()
{
    std::stringstream OS;
    OS << "_" << _getpid();
    return OS.str();
}

GL_EXTERN bool __stdcall CreateSharedMemory()
{
    #ifdef GLHOOK_SMART   //In the simba plugin, it's ifdef GLHOOK_SIMBA.
        SharedMemoryName += GetProcessID;
    #endif

    //...........
}

From: Brandon
:D Thanx!

Anyway I'll probably push an update today. It'll contain the Smart stuff and the pairing. I'll ask Ben to approve the Smart changes as it's probably only around 5 lines added (1 function). I got GLHook to load with Smart's PID/Pairing ID so now you can run multiple instances.

Also Simba can draw the ID's and what not on Smart so I disabled the KeyPresses (F1-F11) and replaced them with Simba functions. If you want to draw continuously, use a loop OR enable internal drawing through GLHSetDebug(…). If you wish to still use the Keypresses, just compile it without the Smart and Simba defines.

The changes sorta look like:

std::string SharedMemoryName = "Local\\GLHookMap";

GL_EXTERN std::string __stdcall GetProcessID()
{
    std::stringstream OS;
    OS << "_" << _getpid();
    return OS.str();
}

GL_EXTERN bool __stdcall CreateSharedMemory()
{
    #ifdef GLHOOK_SMART   //In the simba plugin, it's ifdef GLHOOK_SIMBA.
        SharedMemoryName += GetProcessID;
    #endif

    //...........
}

I used an ifdef so that I don't have to supply multiple DLL files. Also this will work with official client as well as the browser so yeah. The above function is also only called once! Thus there is 0 speed compromise from using an sstream.

Also you should only call GLHSetup at the start of your script. Well you can call it as many times as you want but it's useless as it'll unmap the sharedmemory and remap it to whatever PID you set. No point constantly doing that.

Probably time for me to start finishing the basic include then I'll work on the Linux side of things. I'll update OP when I'm finished with that stuff.


P.S. Working with Cynic Rus on the Developer side of things. He'll be writing code to save in-game textures/images by their ID that way for ID's that overlap, you can enable saving and see which one is which =] I have code that does this already but mind does it stupidly and lags. He'll be writing much better code.

He'll be helping me develop on the C++ side of things. I'll write OGL code, he can help on pure C++ code.

From: Ollybest
Nice nice, working with Cynic Rus :), Also have you looked into animations yet?

GLHSaveImages(Save: Boolean; Tolerance, Format: Integer);

//Where it can be used like:

GLHSaveImages(True, 5, GLH_PNG);  //Save as PNG with tolerance 5 for ID's. Previously CR_PNG. =]
GLHSaveImage(True, 5, GLH_BMP);  //Save as BMP with tolerance 5 for ID's.

//These functions use Pythagorean Theorem in the core to figure out Tolerance ranges. I would use CTS stuff but meh.. This is more than good enough for sure!

//Also I decided both PNG and BMP is good because we can use BMP's for other stuff such as DTM's, etc.. These would obviously be as failsafes..
//Though the need for a failsafe is extremely rare since the DLL does everything!, I feel it should be there so we don't lose the colour roots of scripting and just in case.

GLHGetItemByMeanID(ItemID, MeanID, Tolerance);

From: Brandon
Not yet. I'm planning to though. It's in the TODO list. CynicRus just pulled through =] He wrote PNG saving code and Bitmap Saving Code. Even though I already had bitmap saving code, I'm happy to work with him as his BMP/PNG code is amazing.

I've implemented his code just now and tested it. Also using his code, I've implemented it as an inherited class of my BitmapClass and used it with a partial Library I wrote which allows us to save only UNIQUE items.

Thus you never save the same images twice. In other words, for those hard to find ID's (Overlapping crap), you can just do the following and find which item you want:

GLHSaveImages(Save: Boolean; Tolerance, Format: Integer);

//Where it can be used like:

GLHSaveImages(True, 5, GLH_PNG);  //Save as PNG with tolerance 5 for ID's. Previously CR_PNG. =]
GLHSaveImage(True, 5, GLH_BMP);  //Save as BMP with tolerance 5 for ID's.

//These functions use Pythagorean Theorem in the core to figure out Tolerance ranges. I would use CTS stuff but meh.. This is more than good enough for sure!

//Also I decided both PNG and BMP is good because we can use BMP's for other stuff such as DTM's, etc.. These would obviously be as failsafes..
//Though the need for a failsafe is extremely rare since the DLL does everything!, I feel it should be there so we don't lose the colour roots of scripting and just in case.

and it'll look like:



Where the ID's are in this format: ItemID_MeanID. ItemID's can be Similar but MeanID's are unique (unless it's a Very Very Very similar item or the same item).

They can be then used like:

GLHGetItemByMeanID(ItemID, MeanID, Tolerance);

That finds items flawlessly and does not make mistakes as far as testing has been going.

Also I updated the github to reflect the Makefile changes. Yes.. You can compile with a makefile now. Exactly like Smart so that you don't "Need" codeblocks or anything. All a matter of preference.

Anyway, Thanks CynicRus and BenLand for indirectly teaching me Java (a bit). =] Now to get back to my homework and await CR's reply on my proposed changes to his code.

From: Jakkle
Great job guys, coming along nicely.
Have you tested the images with items that have numbers over the top of them ?
You know when, say, you have, 53082 air runes. The numbers will be over the item your trying to find and if the pic does not have the numbers, will it not find the item ?

From: Brandon
Regardless of the numbers, the item will be found. You can have 2.147b of the same item, it will still be found in the same way as just 1 of the same item.

Inother words, 2.147b grapes is the same BaseID and MeanID as 1 grape.

From: Ollybest
One last thing Brandon can you tell anything in means of like which way something is facing or something? think of a door… a closed door must have something different (somewhere) than an open one?

From: tristen8878
I've done everything it says to do but nothing happens do I drag the client icon to the rs client then start script? I am running on open gl on gtx 470 if anyone can tell me what I am doing wrong would help a lot

From: Jakkle
You could get which way the doors faces are looking, comparing it to the compass.
DoorClosed(X = 0 or 360, Y = 180) X would be facing north and Y would be facing south. DoorOpen(X = 270 or 90, Y = 90 or 270) The doors faces X and Y would be either East or west once opened, depending on which way the door opens. If you get where I'm coming from :p

Edit:
Yes drag Simba's cross hair to the Runescape client so Simba knows what to focus on. Double check you have followed everything correctly, that Brandon has instructed to do.

From: tristen8878
I've done everything and I looked over the instruction again and doubled check everything I think It might be something to do with my gpu it's nvidia so I herd some people where having problems with them

From: Ollybest
Brandon where can I find the newest updates? And how is the progress going on getting it on smart :d

From: Brandon
I already got it to work in Smart and the latest is on the github. It supports linux Partially. I cannot get RS to load on my Ubuntu system.. probably due to drivers and the fact that this laptop is extremely old..

Thus I cannot fully port it to linux. Only thing left for linux really is to just swap wgl functions with glx functions and see which ones are being called. That's it.

Uhh as for Smart.. I cannot get Smart to load it on Windows 8! My main system as of right now since I broke my other laptop lol..

But yeah Smart can already load it and can use it as well.

From: Ollybest
Oh wow nice progress, I may start grabbing some ids etc you don't plan to change them anymore?

Edit: You still need to look into animations :P that may screw the ids up so I think il hold.

From: Ollybest
Eh on second thoughts I may hold, If you did get something to do with animations in the future for like an animating npc it would have some sort of id change, but then again I don't even know if its possible nor do you I think :P

From: CynicRus
Brandon, I'm still waiting for task-) I can write such a injection mechanism for Linux, or something else.

From: CynicRus
For linux OGL debugging you may use http://sourceforge.net/projects/bugle/ this.

From: Brandon
gDebugger is much much better than any that I've ever used.. I have no problem with the debuggers.. It's linux I have a problem with. It won't load RS in OpenGL mode for me so yeah. Just did what I could and left the rest.

From: warpie
Sounds like you're having some driver-issues.

If you're using the "built in driver", that comes with your Linux-distro: Try downloading original driver for your grafic card. If you are using am, look for an update.

If you already got an up to date version of the original driver from ATI(?), and it's still not working with OGL you could try out the OpenSource drivers. I don't realy like am my self, but they can the trick.

Not all distros is compatible with the Original-, and OpenSource-drivers, make sure you're noe using a old distro, and that you are using a somewhat popular distro. I've had most success with both ATI-, and nvidia-drivers on RPM-based systems (Mageia and Fedora in my case). While offen had som trubble with the drivers on Debian-based systems; Mint should be fine, and thereby also Ubuntu (pretty much identical, except the gui and all the shit that is "built into Ubuntu", making it more unstable). Even tough Backtrack, and ultimate edition is built on Ubuntu, you should not expect drivers to work there.

From: n3ss3s
Any news?

#include "jni.h"
#include "Images.hpp"

#ifdef BUILD_DLL
    #define DLL_EXPORT __declspec(dllexport)
#else
    #define DLL_EXPORT __declspec(dllimport)
#endif

#ifdef __cplusplus
    #define CPPEXTERN extern "C"
    #define CPPEXPORT extern "C" DLL_EXPORT
#endif

void GetBits(unsigned char* &Data, int &Size, int BitsPerPixel)
{
    Bitmap Foo("C:/Users/Brandon/Desktop/Untitled.bmp");

    std::unique_ptr<unsigned char> Pixels(new unsigned char[Foo.Size()]);
    unsigned char* BuffPos = Pixels.get();

    for (int I = 0; I < Foo.Height(); ++I)
    {
        for (int J = 0; J < Foo.Width(); ++J)
        {
            *(BuffPos++) = (Foo.PixelsPointer() + ((Foo.Height() - 1 - I) * Foo.Width() + J))->RGBA.R;
            *(BuffPos++) = (Foo.PixelsPointer() + ((Foo.Height() - 1 - I) * Foo.Width() + J))->RGBA.G;
            *(BuffPos++) = (Foo.PixelsPointer() + ((Foo.Height() - 1 - I) * Foo.Width() + J))->RGBA.B;

            if (BitsPerPixel > 24)
                *(BuffPos++) = (Foo.PixelsPointer() + ((Foo.Height() - 1 - I) * Foo.Width() + J))->RGBA.A;
        }

        if(BitsPerPixel == 24) BuffPos += Foo.Width() % 4;
    }
    Size = Foo.Size();
    memcpy(Data, Pixels.get(), Size);
}

extern "C" JNIEXPORT void JNICALL Java_library_SharedLibrary_GetGLBuffer(JNIEnv *Env, jclass Cls, jobject Buffer)
{
    unsigned char* CBuff = (unsigned char*)Env->GetDirectBufferAddress(Buffer);
    int Size = 0;
    GetBits(CBuff, Size, 24);

    //Bitmap TestSave(CBuff, 344, 336, 24);
    //TestSave.Save("C:/users/brandon/desktop/Test.bmp");
}

package library;

import java.awt.image.BufferedImage;
import java.awt.image.WritableRaster;
import java.nio.ByteBuffer;

class SharedLibrary {
    
    static{System.loadLibrary("TestDLL");} 
    static native void GetGLBuffer(ByteBuffer Buffer);
    
    public SharedLibrary() {
        int BitsPerPixel = 32, Width = 344, Height = 336;
        int ByteSize = ((Width * BitsPerPixel + 31) / 32) * 4 * Height;
		
	ByteBuffer Buffer = ByteBuffer.allocateDirect(ByteSize);
        GetGLBuffer(Buffer);
        
	Frame F = new Frame(Width + 15, Height + 39, "Brandon", ImageFromByteBuffer(Buffer, Width, Height, BitsPerPixel));
    }
    
    private static BufferedImage ImageFromBytes(byte[] Bytes, int Width, int Height) {
        BufferedImage Image = new BufferedImage(Width, Height, BufferedImage.TYPE_INT_RGB);
        WritableRaster raster = (WritableRaster) Image.getData();
        raster.setPixels(0, 0, Width, Height, ByteBufferToIntBuffer(Bytes));
        Image.setData(raster);
        return Image;
    }
    
    private static BufferedImage ImageFromByteBuffer(ByteBuffer ByteBuffer, int Width, int Height, int BitsPerPixel) {
        int ByteSize = ((Width * BitsPerPixel + 31) / 32) * 4 * Height;
        byte Bytes[] = new byte[ByteSize];
        ByteBuffer.get(Bytes);
        return ImageFromBytes(Bytes, Width, Height);
    }

    private static int[] ByteBufferToIntBuffer(byte[] Data) {
        int IntBuffer[] = new int[Data.length];
        for (int I = 0; I < Data.length; I++) {
            IntBuffer[I] = (int)Data[I] & 0xFF;
        }
        return IntBuffer;
    }
}

From: Brandon


http://villavu.com/forum/showthread.php?t=67417&page=3

From: Ollybest
So animation is defiantly possible? just may take some time / alot of coding?

//Known Constants.

const
  GLC_FixedWidth = 765;
  GLC_FixedHeight = 553;


{*
  GLI   = ImageID.
  GLIM  = ImageMeanID.
  GLIMT = ImageMeanIDTolerance.
  GLM   = ModelID.
  GLMT  = ModelTriangleCount.
*}

//Client ID's.
const
  GLI_LoginScreenID                 = 1393566;
  GLI_LoginButton                   = 72450;
  GLI_LoginFaceBook                 = 571560;
  GLI_ValidEmailBox                 = 22731;
  GLI_ValidEmailExit                = 18969;
  GLI_ValidEmailCape                = 536723;
  GLI_FreeMemberTrial               = 6643195;

  GLI_WorldStar_Selected            = 14280;
  GLIM_WorldStar_F2P                = 4144442;
  GLIM_WorldStar_P2P                = 4471837;

  GLI_WorldList_Loot                = 6375;
  GLI_WorldList_NoLoot              = 7395;
  GLIM_WorldList_Loot               = 1578000;
  GLIM_WorldList_NoLoot             = 1904910;

  GLI_LobbyTab                      = 56100;
  GLI_Lobby_ExitButton              = 9369;
  GLI_Lobby_PlayButton              = 159375;
  GLIM_Lobby_ExitButton             = 2169371;
  GLIM_Lobby_WorldList              = 3623998;
  GLIM_Lobby_PlayerInfo             = 3688266;
  GLIM_Lobby_FriendsList            = 3885871;
  GLIM_Lobby_FriendChat             = 4612915;
  GLIM_Lobby_ClanChat               = 6573875;
  GLIM_Lobby_Options                = 3683885;
  GLIM_Lobby_PlayButton             = 8613438;

  GLI_WorldList_Refresh             = 82365;
  GLIM_WorldList_Refresh            = 4085853;

  GLI_SquealGoblin                  = 312863;
  GLI_Squeal_ExitButton             = 11270;
  GLIM_Squeal_ExitButton            = 2362638;

  GLI_GameChat_Options              = 139230;
  GLIM_GameChat_Selected            = 5457460;
  GLIM_GameChat_Normal              = 3683116;

  GLI_ReportPlayer_Button           = 279225;
  GLIM_ReportPlayer_Button          = 6168606;

  GLI_Interface_SmlButton           = 12240;
  GLI_Interface_MedButton           = 16320;
  GLI_BasicExit_SmlButton           = 3419942;
  GLIM_BasicExit_MedButton          = 4143405;
  GLIM_Scroll_SmBasicArrow          = 3880491;

  GLI_GameTab_Selected              = 48705;
  GLI_GameTab_Combat                = 31110;
  GLI_GameTab_Notice                = 49470;
  GLI_GameTab_Stats                 = 48705;
  GLI_GameTab_Inventory             = 45135;
  GLI_GameTab_Equipment             = 35445;
  GLI_GameTab_Prayer                = 21420;
  GLI_GameTab_Magic                 = 34935;
  GLI_GameTab_Extras                = 24990;
  GLI_GameTab_FriendsList           = 42585;
  GLI_GameTab_FriendsChat           = 42330;
  GLI_GameTab_ClanChat              = 42330;
  GLI_GameTab_Options               = 30345;
  GLI_GameTab_Emotes                = 43860;
  GLI_GameTab_Music                 = 44115;
  GLI_GameTab_Notes                 = 27540;
  GLI_GameTab_LogOut                = 46665;
  GLI_GameTab_LogOut_Btn            = 201960;
  GLIM_GameTab_Selected             = 2629392;
  GLIM_GameTab_Combat               = 4534812;
  GLIM_GameTab_Notice               = 7300172;
  GLIM_GameTab_Stats                = 4736586;
  GLIM_GameTab_Inventory            = 3218958;
  GLIM_GameTab_Equipment            = 4803401;
  GLIM_GameTab_Prayer               = 2831669;
  GLIM_GameTab_Magic                = 4010786;
  GLIM_GameTab_Extras               = 4008503;
  GLIM_GameTab_FriendsList          = 4410149;
  GLIM_GameTab_FriendsChat          = 3753770;
  GLIM_GameTab_ClanChat             = 6769420;
  GLIM_GameTab_Options              = 2104598;
  GLIM_GameTab_Emotes               = 4867129;
  GLIM_GameTab_Music                = 5853246;
  GLIM_GameTab_Notes                = 3616805;
  GLIM_GameTab_LogOutHover          = 5981710;
  GLIM_GameTab_LogOut_Btn           = 7740442;

  GLI_GameTab_CombatStyle           = 551423;
  GLI_GameTab_CombatPunch           = 54578;
  GLI_GameTab_CombatKick            = 60992;
  GLI_GameTab_CombatBlock           = 77536;
  GLIM_Combat_StyleNormal           = 1712420;
  GLIM_Combat_StyleCurrent          = 4334353;
  GLIM_Combat_StyleNHover           = 2831931;
  GLIM_Combat_StyleCHover           = 6830363;

  GLI_AutoRetaliate                 = 1267286;
  GLIM_AutoRetaliate_Off            = 2303784;
  GLIM_AutoRetaliate_On             = 4466453;
  GLIM_AutoRetal_OffHover           = 3291709;
  GLIM_AutoRetal_OnHover            = 6699550;

  GLI_NoticeBoard_NoTask            = 484500;
  GLI_Notice_OpenButton             = 43020;
  GLI_Notice_Exit                   = 18969;

  GLI_Skill_Attack                  = 19987;
  GLI_Skill_Constitution            = 39978;
  GLI_Skill_Mining                  = 19123;
  GLI_Skill_Strength                = 42199;
  GLI_Skill_Agility                 = 35940;
  GLI_Skill_Smithing                = 34831;
  GLI_Skill_Defense                 = 44198;
  GLI_Skill_Herblore                = 56516;
  GLI_Skill_Fishing                 = 57796;
  GLI_Skill_Range                   = 25698;
  GLI_Skill_Theiving                = 27478;
  GLI_Skill_Cooking                 = 51495;
  GLI_Skill_Prayer                  = 30182;
  GLI_Skill_Crafting                = 37599;
  GLI_Skill_FireMaking              = 48964;
  GLI_Skill_Magic                   = 54428;
  GLI_Skill_Fletching               = 22836;
  GLI_Skill_WoodCutting             = 47644;
  GLI_Skill_RuneCrafting            = 36826;
  GLI_Skill_Slayer                  = 57788;
  GLI_Skill_Farming                 = 37657;
  GLI_Skill_Construction            = 57334;
  GLI_Skill_Hunting                 = 33773;
  GLI_Skill_Summoning               = 40105;
  GLI_Skill_Dungeoneering           = 62639;

  GLI_Equipment_Aura                = 56040;
  GLI_Equipment_Helmet              = 48816;
  GLI_Equipment_Cape                = 25585;
  GLI_Equipment_Neck                = 19539;
  GLI_Equipment_Arrows              = 32177;
  GLI_Equipment_Torso               = 28305;
  GLI_Equipment_Shield              = 20464;
  GLI_Equipment_Legs                = 35152;
  GLI_Equipment_Gloves              = 41890;
  GLI_Equipment_Feet                = 38957;
  GLI_Equipment_Ring                = 18368;
  GLI_Equipment_ShowEquip           = 106335;
  GLI_Equipment_ItemsKept           = 123675;
  GLI_Equipment_ToolBelt            = 111743;
  GLI_Equipment_Customize           = 136604;

  GLI_MMPanel_Normal                = 86955;
  GLI_MMPanel_ToggleXP              = 166260;
  GLI_MMPanel_XPBarShowing          = 48705;
  GLI_MMPanel_MoneyPouch            = 30345;
  GLI_MMPanel_MoneyBacking          = 159120;
  GLI_MMPanel_MoneyPouchOn          = 227970;
  GLI_MMPanel_WorldMap              = 164730;
  GLI_MMPanel_RunEnergy             = 16830;
  GLI_MMPanel_Heath                 = 2040;
  GLI_MMPanel_Prayer                = 12750;
  GLIM_MMPanel_ToggleXP             = 7559212;
  GLIM_MMPanel_XPHover              = 6047525;
  GLIM_MMPanel_WorldHover           = 6849921;
  GLIM_MMPanel_RunOn                = 7626790;
  GLIM_MMPanel_RunOff               = 5322271;
  GLIM_MMPanel_Heath                = 2098945;
  GLIM_MMPanel_PrayerOn             = 7505518;
  GLIM_MMPanel_PrayerOff            = 3220555;
  GLIM_MMPanel_MoneyHover           = 3953254;

  GLI_MMIcon_MyPlayerDot            = 4256970;
  GLI_MMIcon_PlayerNPCDot           = 1887493;
  GLIM_MMIcon_MyPlayerDot           = 2432791;

  GLI_MMSymbol_Small                = 6375;
  GLI_MMSymbol_Medium               = 27030;
  GLI_MMSymbol_Flag                 = 1275;
  GLIM_MMSymbol_Flag                = 987918;
  GLIM_MMSymbol_Bank                = 2827799;
  GLIM_MMSymbol_GExchange           = 2828584;
  GLIM_MMSymbol_Rareree             = 3157806;
  GLIM_MMSymbol_Loyalty             = 3289651;
  GLIM_MMSymbol_LodeStone           = 2238005;
  GLIM_MMSymbol_Tannery             = 3750201;
  GLIM_MMSymbol_Dungeon             = 4340024;

  GLI_Compass_Icon                  = 507195;
  GLIM_Compass_Icon                 = 6051142;

  GLI_Bank_BtnBackgrnd              = 114495;
  GLI_Bank_Note                     = 22950;
  GLI_Bank_Deposit_Money            = 43350;
  GLI_Bank_Deposit_Items            = 39780;
  GLI_Bank_Deposit_Follower         = 37740;
  GLI_Bank_Deposit_Equipment        = 26010;
  GLI_Bank_SwitchMode               = 13515;
  GLI_Bank_SearchMode               = 9435;
  GLI_Bank_ShowEquipment            = 106335;
  GLIM_Bank_BtnBackgrndOn           = 3682342;
  GLIM_Bank_BtnBackgrndOff          = 5523773;
  GLIM_Bank_Note_Normal             = 7302232;
  GLIM_Bank_Note_Selected           = 4670516;
  GLIM_Bank_Deposit_Money           = 4542497;
  GLIM_Bank_Deposit_Items           = 2766353;
  GLIM_Bank_Deposit_Follower        = 3362361;
  GLIM_Bank_Deposit_Equipment       = 1190674;
  GLIM_Bank_SwitchMode              = 1381651;
  GLIM_Bank_SearchMode              = 1446930;
  GLIM_Bank_ShowEquipment           = 3682349;

  GLI_Texture                       = 3786240;
  GLI_Texture_ChatBox               = 17204850;
  GLIM_Texture_Water                = 8361138;
  GLIM_Texture_Lava                 = 16361547;
  GLIM_Texture_StoneWall            = 7829099;
  GLIM_Texture_ChatBox              = 13285783;


//NPC IDs:

  GLM_NPC_PurpleBankFemale          = 3273447472;
  GLM_NPC_PurpleBankMale            = 1775775211;
  GLM_NPC_VarrockGuardOne           = 1569043836;
  GLM_NPC_VarrockGuardTwo           = 1441885601;
  GLM_NPC_GrandExchangeFemale       = 2253528948;
  GLM_NPC_GrandExchangeMale         = 2553342430;
  GLM_NPC_BobBarter                 = 40148168;
  GLM_NPC_FaridMorrisane            = 1873423136;
  GLM_NPC_ReloboBlinyo              = 830120687;
  GLM_NPC_Hofuthand                 = 742643267;
  GLM_NPC_GrandExchangeTutor        = 901994727;
  GLM_NPC_BrugsenBursen             = 3829711705;

  GLMT_NPC_PurpleBankFemale         = 1270;
  GLMT_NPC_PurpleBankMale           = 1121;
  GLMT_NPC_VarrockGuardOne          = 1267;
  GLMT_NPC_VarrockGuardTwo          = 1323;
  GLMT_NPC_GrandExchangeFemale      = 1209;
  GLMT_NPC_GrandExchangeMale        = 1585;
  GLMT_NPC_BobBarter                = 1176;
  GLMT_NPC_FaridMorrisane           = 908;
  GLMT_NPC_ReloboBlinyo             = 1392;
  GLMT_NPC_Hofuthand                = 1124;
  GLMT_NPC_GrandExchangeTutor       = 1089;
  GLMT_NPC_BrugsenBursen            = 1833;



//Object IDs:

  GLM_Obj_BankBooth                 = 4216896244;
  GLM_Obj_Door                      = 3072665158;
  GLM_Obj_VBank_UpStairCase         = 1053311928;
  GLM_Obj_VBank_DownStairCase       = 2290863208;
  GLM_Obj_Anvil                     = 1628035397;
  GLM_Obj_LogFire                   = 2057907316;

  GLMT_Obj_BankBooth                = 150;
  GLMT_Obj_Door                     = 290;
  GLMT_Obj_VBankUpStairCase         = 610;
  GLMT_Obj_VBankDownStairCase       = 388;
  GLMT_Obj_Anvil                    = 84;
  GLM_Obj_LogFire                   = 388;

From: Ollybest
In the future would it be possible to get the bounds of a model? Also I will do some id gathering if I can figure out how to run the latest version :P well that's if it even works :X first time I tried it it wouldn't start haha.

From: Noob King
Made any more progress lately Brandon?

From: tristen8878
Do you think we will see a lot more bots using opengl or directx and do you think it's possible that jagex can detect these kinds of methods because your not actually breaking realworld laws if your using opengl and there's no injecting into the client that I know of.

From: Brandon
http://villavu.com/forum/showpost.php?p=1109694&postcount=55

That's the link. I'm not sure if you guys can see it but that's what I've been working on lately. It's a method of giving Smart a pointer through JNI and smart feeds it to Simba.





I have to fix the flipping and use Smart's buffer instead of my own. That's all. I wrote the code for it just didn't test it or try it or anything. It's just sitting there.

From: Noob King
Not cool enough for that section I guess.

From: tristen8878
Do you think we will see a lot more bots using opengl or directx and do you think it's possible that jagex can detect these kinds of methods because your not actually breaking realworld laws if your using opengl and there's no injecting into the client that I know of.

From: Ollybest
Looks great dude, once you get round to updating the dll il work on id collecting + some functions :), one thing i think you might want to split the ids up to separate files… it could get very hard to find a id once it grows, have something like glhookids_NPC and glhookids_Grounditem etc

From: Brandon
Or you can do:

Ctrl + F: NPC IDs

And it'll jump to that section. It'd prob be cool if Simba had code folding user defined sections. Iunno I was kinda just using that file for the Include not really scripts. But we'll see how it goes. Might just use it for all ID's. Well that'll be up to everyone.

procedure NPCs;
begin
end;

Const

NPC1 = 1337;


procedure Minimap;
begin
end;

Const

MMDotRED = 1337;

Procedure GroundItems;
begin
end;

Const

Item1 = 1337; 

From: Ollybest
Woohoo :P il mess around with this today, How's this and smart working together going? (i mean reading the colours)

From: Ollybest
Lol the rs client crashes every time i try to switch to ogl mode :s

From: Brandon
Did you compile it yourself?

From: Ollybest
Uh no, are we supposed to?

From: Brandon
No you shouldn't have to. I don't seem to have that problem with crashing :S
I'll try it on another comp soon and see.

From: Enslaved
dont think smart was designed for opengl

From: Ollybest
"Smart v8.1 or v8.2 depending on if Ben wants to change the Version number, will include data feeding to Simba. What does this mean? Well, currently Simba is unable to read OpenGL colours from the client. This will feed Smart a buffer with NO lag, and Smart will pass it to Simba just like it currently does for safe-mode. I still have some testing to do with this as I need a proper computer to test it on (aka my mom's since I'm on Windows 8 lol)."

From: Noob King
I thought the smart in Brandon's Github already has support for opengl. Any how I can't get lape to run without using smart, and I am getting annoyed trying to find a fix. :fiery:

From: Brandon
I don't even have Smart in my Github :S

Also for those running the OpenGL with Smart, you shouldn't be doing that yet. I didn't compile it for Smart. If you want to run it with Smart, you'll have to compile it with the #DEFINE GLHook_Smart and #DEFINE GLHook_Simba then do:

GLHSetup(SmartCurrentClient);

Otherwise, stick it to the official client for now. I'm working on the Smart thing atm. I'm not too great at Java.

I've also tested the DLL on multiple computers, I have no problem getting RS to load it. Also what error message does it say? Does it leave a herr.txt file in the same folder?

Exception in Script: Unknown declaration "SetupSmart" at line 190, column 7 in file "C:\Simba\Includes\SRL\SRL.Simba"

  SetupSmart(Smart_ForceNew);  

program new;
{$I GLHook/GLHook.Simba}
var
  Colour: String;
begin
  writeln('Prayer Level: ' + ToStr(GLH_GetMMLevels(GLE_MMLevel_Prayer, Colour)));
  WriteLn('Magic Tab: ' + ToStr(GLH_GameTab(TAB_MAGIC)));
  Writeln('Cloak Equiped: ' + ToStr(GLH_ItemEquipped(GLE_Equipment_Cloak)));
end.

From: Brandon
I have no clue why that is happening.

Try: https://github.com/SRL/SRL-5

That should have the Lape include with it. Also make sure you have the latest Simba.

Oh wow.. happening to me now on Simba 0.99. I think you need 1.0 to run Lape.

From: Noob King
Is there a special place to get 1.0? Downloading the latest version for me is still 991.

From: Noob King
Is there anywhere I can get 1.0 from?

From: Le Jingle
compiles,
successfully executes.

^ From the test script on 1st post.

Simba Build 1.00 (I assume), from "2012-Oct-13 23:00:34." Newest SRL dl'd, hook in the /plugins/, ogl in the /bin/, rs client in ogl loaded up and logged in to first. (on screen f-keys show visual-Ids and all that good stuffs)

I duno why it successfully executes the test script and then says srl wasn't free'd + doesn't writeln the test script. :confused:

From: Brandon
https://github.com/SRL/SRL-5/commit/55f3bb00e9b544df8b6a8fe1dbba93de9eb18940#commitcomment-2032154


^I commented on it but I don't think they're going to fix that any time soon. Anyway just letting you know that it isn't what I wrote but rather the Lape include itself.

The temp solution to that is to remove the lines I commented on in that github link.

From: Le Jingle
Delete all my includes? :bart:

Just messing around :p I see now, thanks, I'll try doing those changes now. :)

Edit: Pulls in -1 Prayer, but get's to the magic tab perfectly. (cloak is returned directly after we enter the magic game tab, I suppose I'll take a look at the GLHook includes tomorrow)

Cheers,
Lj

P.S. - this awesome super duper work Mr. Brandon! :)

void JNIData::FlipBytes(void*& Result)
{
   unsigned long Chunk = width * Bpp > 24 ? 4 : 3;
   unsigned char* Destination = static_cast<unsigned char*>(Result);

   unsigned char* Source = &BufferPixels[0] + Chunk * (height - 1);

   for (int I = 0; I < height; ++I)
   {
      std::memcpy(Destination, Source, Chunk);
      Destination += Chunk;
      Source -= Chunk;
   }
}

From: dweg
Sorry if I'm being a complete noob… I'm trying to test this out and when I try to run the test script I get this message: Exception in Script: Unknown declaration "SetupSmart" at line 190, column 7 in file "C:\Simba\Includes\SRL\SRL.Simba"

What do?

{$loadlib GLHook}

type pByte = ^Byte;
type pInt  = ^Integer;
type pBool = ^Boolean;
type pFloat = ^Single;

type TFontInfo = record
  ID: Cardinal;
  R, G, B, A: Byte;
  Colour: Integer;
  X, Y: Single;
  Symbol: Char;
  Shadow: Boolean;
  Translate: Array [0..2] Of Single;
  VX, VY, TX, TY: Array [0..3] Of Integer;
end;

type PFontInfo = ^TFontInfo;

type TFontArray = array of TFontInfo;


Function GLHook_GetAllFonts: TFontArray;
var
  Ptr: Pointer;
  Size, I: Integer;
begin
  Ptr := GLHGetFonts(Size);
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    Result[I].ID := pInt(Ptr)^;
    Ptr := Ptr + sizeof(Integer);

    Result[I].R := pByte(Ptr)^;
    Result[I].G := pByte(Ptr + sizeof(Byte))^;
    Result[I].B := pByte(Ptr + (2 * sizeof(Byte)))^;
    Result[I].A := pByte(Ptr + (3 * sizeof(Byte)))^;
    Ptr := Ptr + (sizeof(Byte) * 4);

    Result[I].Colour := RGBToColor(Result[I].R, Result[I].G, Result[I].B);

    Result[I].X := pFloat(Ptr)^;
    Result[I].Y := pFloat(Ptr + sizeof(Single))^;
    Ptr := Ptr + (sizeof(Single) * 2);

    Result[I].Symbol := pChar(Ptr)^;
    Result[I].Shadow := pBool(Ptr + sizeof(Boolean))^;
    Ptr := Ptr + (sizeof(Char) + sizeof(Boolean)) + 2;   //Padded by 2.

    Result[I].Translate[0] := pFloat(Ptr)^;
    Result[I].Translate[1] := pFloat(Ptr + sizeof(Single))^;
    Result[I].Translate[2] := pFloat(Ptr + (2 * sizeof(Single)))^;
    Ptr := Ptr + (sizeof(Single) * 3);

    Result[I].VX[0] := pInt(Ptr)^;
    Result[I].VX[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].VX[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].VX[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);

    Result[I].VY[0] := pInt(Ptr)^;
    Result[I].VY[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].VY[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].VY[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);

    Result[I].TX[0] := pInt(Ptr)^;
    Result[I].TX[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].TX[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].TX[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);

    Result[I].TY[0] := pInt(Ptr)^;
    Result[I].TY[1] := pInt(Ptr + sizeof(Integer))^;
    Result[I].TY[2] := pInt(Ptr + (2 * sizeof(Integer)))^;
    Result[I].TY[3] := pInt(Ptr + (3 * sizeof(Integer)))^;
    Ptr := Ptr + (sizeof(Integer) * 4);
  end;
end;

Function GLHook_FontsToText(var FontArray: TFontArray; Shadow: Boolean; MinHSpacing: Integer; MinVSpacing: Integer): TStringArray;
var
  I, J, L: Integer;
  Str: String;
Begin
  L := High(FontArray);

  If Shadow Then J := 1 Else J := 2;
  SetLength(Result, 1);

  For I := 0 To L Do
    If (FontArray[I].Shadow = Shadow) Then
    Begin
      Try
        If (((FontArray[I].Translate[0] - (FontArray[I - J].Translate[0] + FontArray[I - J].VX[3] - FontArray[I - J].VX[0])) >= MinHSpacing) And (I >= 2)) Then
          Str := Str + ' ';

        If ((((FontArray[I].Translate[1] - FontArray[I - J].Translate[1]) >= MinVSpacing) And (I >= 2) And MinVSpacing > 0) Or (Ord(FontArray[I].Symbol) = 10)) Then
          Str := Str + Chr(13);

        If (Ord(FontArray[I].Symbol) <> 10) Then
          Str := Str + FontArray[I].Symbol;
      Except
        //
      End;
    End;

  ExplodeWrap(Chr(13), Str, Result);
  For I := 0 To High(Result) Do
    Result[I] := Trim(Result[I]);
End;

Function GetTradeName: String;
var
  T: TStringArray;
  I: Integer;
  S: String;
Begin
  T := GLHook_FontsToText(GLHook_GetAllFonts, true, 4, 2);
  For I := 0 To High(T) do
  Begin
    Writeln(T[i]); // Blank
    If (Replace(T[i], 'Trading With: ', '', [rfReplaceAll]) <> T[i]) Then
    Begin
      Writeln(T[i]);
      Result := Replace(T[i], 'Trading With: ', '', [rfReplaceAll]);
      Exit;
    End;
  End;
End;

Function GayTrim(S: String): String;
var
  I: Integer;
  A, N: String;
begin
  A := 'abcdefghijklmnopqrstuvwxyz ';
  N := '012345689';
  For I := 1 To Length(S) Do
  Begin
    if (PosEx(Lowercase(S[i]), A, 1) > 0) or (PosEx(S[i], N, 1) > 0) then
    Begin
      Result := Result + S[i];
    End;
  End;
end;

var
  S: String;

Begin
  ClearDebug;
  Writeln(GetTradeName);
  {Repeat
    If (IsMouseButtonDown(1)) Then
    Begin
      S := GetTradeName;
      Writeln(GayTrim(s));
      Wait(1000);
    End;
  Until(False); }
End.

From: n3ss3s
I've replaced Jagex's OpenGL32 etc, but this script I used to use to get a person's name from the trade window doesn't work anymore (and the debug writeln in GetTradeName returns ''). F11 debug works though, and it shows cyan on top of the texts too, but the length of GLHook_GetAllFonts is 0.

{$DEFINE GLHook}
{$I SRL/SRL.Simba}
{$I GLHook/GLHook.Simba}

var
  Texts: TStringArray;

begin
  SetupSRL;
  Texts := GLHook_FontsToText(GLHook_GetFontsByArea(IntToBox(163, 61, 339, 84)), true, 4, 20);
  writeln(Texts);
end.

From: Flight
I'm looking forward to seeing this officially working with SMART. It's actually a bit of a pain to run it through the official RS-Loader. Are you just waiting on Ben at this point, Brandon?

From: Brandon
https://github.com/BenLand100/SMART/pull/13

Not only Ben but I guess others as well.. No one really uses the plugin and the srl-lape include isn't exactly the best atm or official as a matter of fact.

From: Noob King
is lape a necessity?

From: Brandon
https://github.com/BenLand100/SMART/pull/13

Not only Ben but I guess others as well.. No one really uses the plugin and the srl-lape include isn't exactly the best atm or official as a matter of fact.

From: Le Jingle
I believe his exports are lape format, no? Meaning with his given files, yes lape is necessary to use OGL, afaik

From: footballjds
Could you describe what needs to be done before we can use this with SMART? If we used this with smart would we still be able to use our current color-picking techniques along side of it or would we be un-able to to do that in Open GL mode? I forget if safemode is required for SMART, etc. I'd like to get the ball rolling on this as it seems like a perfect and undetectable solution without reflection :)

My waterfiends script would improve DRASTICALLY with using this for object finding ;)

Thanks for the hard work Brandon! Drop me a PM if you could use a tester or want help with something.

From: Brandon
https://github.com/BenLand100/SMART/pull/13

Not only Ben but I guess others as well.. No one really uses the plugin and the srl-lape include isn't exactly the best atm or official as a matter of fact.

Anyway, this is for the communication between the DLL and Smart. It reads the pixels every buffer swap and gives them to smart with the option of flipping the image which I enabled by default.

From: n3ss3s
Inb4 people start scripting in a handstand to avoid needing to flip the image -> save a ms

From: Brandon
@Guy asking about Smart, it can already be used. Ben hasn't pushed the pull yet but if you compile it yourself, it will work. OR you can wait until he pushes it.

From: Brandon
@Other guy asking, yes it must have Lape. Without it, you cannot use pointers. Without pointers it'd be slow and it wouldn't work since I exported everything as a pointer to a memory location.

From: footballjds
I'm that guy :redface:
I'll await ben's push as it'll have to be available to everyone or else they wouldn't use my script.

From: Le Jingle
Yes, as I've understood from Brandon, math is used to calculate relative character position on the loaded map area. This would be accurate to every individual tile.

From: ssshhhaaa
Are there any tutorials on this, or would anyone be willing to make one or help me understand how to do this :)?

From: ssshhhaaa
Are there any tutorials on this, or would anyone be willing to make one or help me understand how to do this :)?

From: Brandon
It works like this.. Within the DLL of course.. Not on the Simba side. The functions would have to be exported for Simba though. Anyway, the idea behind it is:


Runescape loads a map like:


into memory. The map is given an ID and that ID is unique every time. The map though, never changes at all. We always know where the map is located in memory and the ID and the size as it is the only and always a 512x512 item with a couple bytes padded (if in bmp form).

Anyway, next the minimap shadow is loaded:


It is always in the minimap location, always the same size and it is identified just as easily as the map itself and every item as well. Both are textures and both are very very easy to find.


Using the two of them, RS uses the GLCombine and AlphaBlend to merge the two items such that it looks like (without the icons):


It then adds the icons after the map is finished being clipped.

How it works? Well a portion of the Map has to be clipped to the smaller map using glMultiTexCoords2f (The 2-parameter float version as noted by the 2f).

It uses GLScissors to make sure that other areas are not affected and then it passes the coordinates to clip. This a square is clipped out and blended with the squared minimap image above.

Knowing the coordinates that are clipped, you can do:

((X2 - X1) / 2) + The distance from the top corner to the clip top corner. Do the same for the Y values to find the player's position within the entire map.

It's like how SPS works except that you don't need any matching algorithms for position finding. All you need to know is which map is loaded and bam (may require a matching algo to find what map your standing in or you can specify the area you wanna walk within).

Basically, instead of clipping the big map, what it does is it puts the little minimap shadow thing inside the big map (centered around the player) and cut off the rest. Simple mathematics finds the player.

BUT.. I've been lazy lately and bored of programming so I never gave it a chance or completed it :l

Can probably also hook Lists and see if the Camera pos is passed to it (doubt this happens though).

From: ssshhhaaa
Seems awesome!

Sad that it won't be developed though :(

    #ifdef GLHOOK_SMART
        glPixelStorei(GL_PACK_ALIGNMENT, 4);
        glReadPixels(0, 0, JNIBuffer.Width(), JNIBuffer.Height(), GL_BGRA, GL_UNSIGNED_BYTE, JNIBuffer.Pointer());
    #elif GLHOOK_SIMBA
        glPixelStorei(GL_PACK_ALIGNMENT, 4);
        void* Data = SimbaImageData->GetDataPointer();
        std::vector<char> Buffer(JNIBuffer.Width() * JNIBuffer.Height() * 4);
        glReadPixels(0, 0, JNIBuffer.Width(), JNIBuffer.Height(), GL_BGRA, GL_UNSIGNED_BYTE, Buffer.data());
        FlipImageBytes(Buffer.data(), Data, JNIBuffer.Width(), JNIBuffer.Height());
    #endif

{$I GLHook/GLHook.Simba}
{$I SRL/SRL/Misc/Debug.Simba}

var
  BMP: Integer;
begin
  SetupSRL;
  GLHSetup('3016');

  SetTargetArray(Integer(GLHGetImagePointer()), 765, 553);

  BMP := BitmapFromClient(0, 0, 764, 552);
  DebugBitmap(BMP);
  FreeBitmap(BMP);
end.

From: Le Jingle
Oh, so the screen shot shows that you could previously only use the GLhook drawing on the RS client, but now you can also save the debug/bitmap from the RS client too - instead of only Smart?

also, how might one find the shared memory id, would task manager -> services -> PID contain that info?

Also, really like the work you've done! :) Thanks!

From: Ollybest
Does ben not want to commit so smart works with it?

From: Flight
He's not been around for some time now.

From: Daniel
Oh he's around. He's just stupidly lazy. ;)

From: Mat
Brandon out of the blue question how does this opengl handle stacked items? Do the ID's stay the same, say blood runes?
Mat

From: BenLand100
Euphemism, unfortunately our upsidedown 'friend' is beyond help, but you should know better.

So I got around to looking at the modifications made to SMART and… well, I don't particularly like them. I'll take a stab at it in a week or so, after finals, and see what I can come up with. In an ideal world it would function like a plugin system:

1) Names of plugins passed to SMART to load in its process (this is already written)
2) SMART loads plugin and passes its client reference via JNI to the plugin
3) Change SMARTs render modes from what they are to: "Software" and "Native"
4) The plugin will simply render directly to the native buffer SMART already has (i.e. in "Native" mode, SMART does nothing)

Brandon's code basically does this, except the plugin relies on SMART to create another internal buffer then copy that buffer onto the shared buffer (the one going to Simba). That last copy is superfluous and is making the computer move roughly 40Mb/s (for 30fps) more than it should have to (which is an appreciable amount considering the processor has to mediate it). Basically, could be avoided by having the plugin write directly to the shared buffer which is what I intended it to do.

public void GetBuffer(ByteBuffer Buffer) {
    Buffer.rewind();
    GetGLBuffer(Buffer.asIntBuffer());
}
    
public void GetBuffer(IntBuffer Buffer) {
    Buffer.rewind();
    GetGLBuffer(Buffer);
}

Main.GLLibrary.GetBuffer(nativeBuff);

From: mastaraymond
This is awesome! Why isn't anybody using this?

From: mastaraymond
This is awesome! Why isn't anybody using this?

From: mormonman
It uses lape which is really unstable and not easy to get srl setup with it.

From: mastaraymond
What a shame. How does it specifically need lape?

From: Ollybest
It uses pointers…. whatever they are haha.

From: mastaraymond
Pointers can be hacked into PascalScript… If that is the only problem currently?

//Export:

(char*)"GLHIteratePointerByte", (char*)"Procedure GLHIteratePointerByte(var Pointer: Integer; var Value: Byte);",
    (char*)"GLHIteratePointerInt", (char*)"Procedure GLHIteratePointerInt(var Pointer: Integer; var Value: Integer);",
    (char*)"GLHIteratePointerFloat", (char*)"Procedure GLHIteratePointerFloat(var Pointer: Integer; var Value: Single);",
    (char*)"GLHIteratePointerBool", (char*)"Procedure GLHIteratePointerBool(var Pointer: Integer; var Value: Boolean);",
    (char*)"GLHIteratePointerUInt", (char*)"Procedure GLHIteratePointerUInt(var Pointer: Integer; var Value: Cardinal);",

//Implementations:

template <typename T>
T ReadPointer(char*& Pointer)
{
    T Result = *(reinterpret_cast<T*>(Pointer));
    Pointer += sizeof(T);
    return Result;
};

template <typename T>
void WritePointer(char*& Pointer, const T& Value)
{
    *(reinterpret_cast<T*>(Pointer)) = Value;
    Pointer += sizeof(T);
};

GL_EXPORT void GLHIteratePointerByte(int* &Pointer, byte &Value)
{
    Value = ReadPointer<byte>(reinterpret_cast<char* &>(Pointer));
}

GL_EXPORT void GLHIteratePointerInt(int* &Pointer, int &Value)
{
    Value = ReadPointer<int>(reinterpret_cast<char* &>(Pointer));
}

GL_EXPORT void GLHIteratePointerFloat(int* &Pointer, float &Value)
{
    Value = ReadPointer<float>(reinterpret_cast<char* &>(Pointer));
}

GL_EXPORT void GLHIteratePointerBool(int* &Pointer, bool &Value)
{
    Value = ReadPointer<bool>(reinterpret_cast<char* &>(Pointer));
}

GL_EXPORT void GLHIteratePointerUInt(int* &Pointer, uint32_t &Value)
{
    Value = ReadPointer<uint32_t>(reinterpret_cast<char* &>(Pointer));
}

{$IFDEF GLHook}
  {$loadlib GLHook}
{$ENDIF}

type TModel = record
  ID: Cardinal;
  SX, SY: Integer;
  Stride: Cardinal;
  TriangleCount: Integer;
end;

type TPanelItem = record
  X, Y: Integer;
  BaseID: Integer;
  MeanID: Integer;
  TextureID: Integer;
  SX, SY: Array [0..3] Of Integer;
end;

type TTextInfo = record
  Area: TBox;
  Text: String;
  Colour: Integer;
end;

type TTextColour = Record
  Text: String;
  Areas: Array Of TBox;
  Colours: Array Of Integer;
End;

type TFontInfo = record
  ID: Cardinal;
  R, G, B, A: Byte;
  Colour: Integer;
  X, Y: Single;
  Symbol: Char;
  Shadow: Boolean;
  Translate: Array [0..2] Of Single;
  VX, VY, TX, TY: Array [0..3] Of Integer;
end;

type TModelArray = array of TModel;
type TPanelArray = array of TPanelItem;
type TFontArray = array of TFontInfo;
type TTextInfoArray = Array Of TTextInfo;
type TTextColourArray = Array Of TTextColour;
type T2DTextInfoArray = Array Of TTextInfoArray;

Function GLHook_IterateItems(Ptr, Size: Integer): TPanelArray;
var
  I, J: Integer;
Begin
  SetLength(Result, Size);
  For I := 0 To Size - 1 Do
  begin
    GLHIteratePointerInt(Ptr, Result[I].X);
    GLHIteratePointerInt(Ptr, Result[I].Y);
    GLHIteratePointerInt(Ptr, Result[I].BaseID);
    GLHIteratePointerInt(Ptr, Result[I].MeanID);
    GLHIteratePointerInt(Ptr, Result[I].TextureID);

    For J := 0 To 3 Do
      GLHIteratePointerInt(Ptr, Result[I].SX[J]);

    For J := 0 To 3 Do
      GLHIteratePointerInt(Ptr, Result[I].SY[J]);
  end;
End;

Function GLHook_IterateModels(Ptr, Size: Integer): TModelArray;
var
  I: Integer;
Begin
  For I := 0 To Size - 1 Do
  begin
    GLHIteratePointerUInt(Ptr, Result[I].ID);
    GLHIteratePointerInt(Ptr, Result[I].SX);
    GLHIteratePointerInt(Ptr, Result[I].SY);
    GLHIteratePointerUInt(Ptr, Result[I].Stride);
    GLHIteratePointerInt(Ptr, Result[I].TriangleCount);
  end;
End;

Function GLHook_IterateFonts(Ptr, Size: Integer): TFontArray;
var
  I, J: Integer;
  Symbol, Trash: Byte;
Begin
  For I := 0 To Size - 1 Do
  begin
    GLHIteratePointerUInt(Ptr, Result[I].ID);
    GLHIteratePointerByte(Ptr, Result[I].R);
    GLHIteratePointerByte(Ptr, Result[I].G);
    GLHIteratePointerByte(Ptr, Result[I].B);
    GLHIteratePointerByte(Ptr, Result[I].A);
    Result[I].Colour := RGBToColor(Result[I].R, Result[I].G, Result[I].B);
    GLHIteratePointerFloat(Ptr, Result[I].X);
    GLHIteratePointerFloat(Ptr, Result[I].Y);
    GLHIteratePointerByte(Ptr, Symbol);
    Result[I].Symbol := Chr(Symbol);
    GLHIteratePointerBool(Ptr, Result[I].Shadow);
    GLHIteratePointerByte(Ptr, Trash);  //Two bytes of padding required. Char + Boolean = 2 bytes. Total needed = 4. Thus, pad by 2.
    GLHIteratePointerByte(Ptr, Trash);

    For J := 0 To 2 Do
      GLHIteratePointerFloat(Ptr, Result[I].Translate[J]);

    For J := 0 To 3 Do
      GLHIteratePointerInt(Ptr, Result[I].VX[J]);

    For J := 0 To 3 Do
      GLHIteratePointerInt(Ptr, Result[I].VY[J]);

    For J := 0 To 3 Do
      GLHIteratePointerInt(Ptr, Result[I].TX[J]);

    For J := 0 To 3 Do
      GLHIteratePointerInt(Ptr, Result[I].TY[J]);
  end;
End;

Function GLHook_GetAllItems: TPanelArray;
var
  Ptr, Size: Integer;
begin
  Ptr := GLHGetPanelItems(Size);
  SetLength(Result, Size);
  Result := GLHook_IterateItems(Ptr, Size);
end;

Function GLHook_GetItemsByID(ID: Integer): TPanelArray;
var
  Ptr, Size: Integer;
begin
  Ptr := GLHGetItemsByID(ID, Size);
  SetLength(Result, Size);
  Result := GLHook_IterateItems(Ptr, Size);
end;

Function GLHook_GetItemsByArea(Area: TBox): TPanelArray;
var
  Ptr, Size: Integer;
begin
  Ptr := GLHGetItemsByArea(Area.X1, Area.Y1, Area.X2, Area.Y2, Size);
  SetLength(Result, Size);
  Result := GLHook_IterateItems(Ptr, Size);
end;

Function GLHook_GetItemsByMeanID(BaseID, MeanID, Tolerance: Integer): TPanelArray;
var
  I, L: Integer;
  ListOfItems: TPanelArray;
begin
  ListOfItems := GLHook_GetItemsByID(BaseID);
  L := High(ListOfItems);

  For I := 0 To L Do
    If SimilarColors(ListOfItems[I].MeanID, MeanID, Tolerance) Then
    begin
      SetLength(Result, Length(Result) + 1);
      Result[Length(Result) - 1] := ListOfItems[I];
    end;
end;

Function GLHook_GetAllModels: TModelArray;
var
  Ptr, Size: Integer;
begin
  Ptr := GLHGetModels(Size);
  SetLength(Result, Size);
  Result := GLHook_IterateModels(Ptr, Size);
end;

Function GLHook_GetModelsByID(ID: Cardinal): TModelArray;
var
  Ptr, Size: Integer;
begin
  Ptr := GLHGetModelsByID(ID, Size);
  SetLength(Result, Size);
  Result := GLHook_IterateModels(Ptr, Size);
end;

Function GLHook_GetModelsByTriangleCount(Count: Cardinal): TModelArray;
var
  Ptr, Size: Integer;
begin
  Ptr := GLHGetModelsByTCount(Count, Size);
  SetLength(Result, Size);
  Result := GLHook_IterateModels(Ptr, Size);
end;

Function GLHook_GetModelsByArea(Area: TBox): TModelArray;
var
  Ptr, Size: Integer;
begin
  Ptr := GLHGetModelsByArea(Area.X1, Area.Y1, Area.X2, Area.Y2, Size);
  SetLength(Result, Size);
  Result := GLHook_IterateModels(Ptr, Size);
end;

Function GLHook_GetAllFonts: TFontArray;
var
  Ptr, Size: Integer;
begin
  Ptr := GLHGetFonts(Size);
  SetLength(Result, Size);
  Result := GLHook_IterateFonts(Ptr, Size);
end;

Function GLHook_GetFontsByArea(Area: TBox): TFontArray;
var
  Ptr, Size: Integer;
begin
  Ptr := GLHGetFontsArea(Area.X1, Area.Y1, Area.X2, Area.Y2, Size);
  SetLength(Result, Size);
  Result := GLHook_IterateFonts(Ptr, Size);
end;

Function GLH_iAbs(I: Integer): Integer;
Begin
  Result := I;
  If (Result < 0) Then
    Result := Result * -1;
End;

Function GLHook_FontsToText1D(var FontArray: TFontArray; Shadow, RecordColours: Boolean; MinHSpacing: Integer; MinVSpacing: Integer): TTextColourArray;
var
  I, J, K, L, N: Integer;
  IX, IY: Integer;
  X, Y: Integer;
  X2, Y2: Integer;
  Text: String;
  Store: Boolean;
  SameLine, NewLine: Boolean;
Begin
  L := High(FontArray);
  If (L < 1) Then
    Exit;

  Store := True;

  If (Shadow) Then
  Begin
    K := 0;
    I := 1;
    J := 2;
  End Else
    Begin
      K := 0;
      I := 0;
      J := 1;
    End;

  SetLength(Result, 1);

  For I := I To L Do
  Begin
    X := Round(FontArray[I].X + FontArray[I].VX[2]);
    Y := Round(FontArray[I].Y);

    If ((L > 1) And (I <= L)) Then
    Begin
      X2 := Round(FontArray[I + J].X);
      Y2 := Round(FontArray[I + J].Y);
    End Else
      Begin
        X2 := Round(FontArray[I].X);
        Y2 := Round(FontArray[I].Y);
      End;

    Text := Text + FontArray[I].Symbol;
    If (X2 - X) >= MinHSpacing Then
      Text := Text + ' ';

    If Store Then
    Begin
      IX := Round(FontArray[I].X);
      IY := Y - FontArray[I].VY[2];
      Store := False;
    End;

    NewLine := ((GLH_iAbs(Y2 - Y)) >= MinVSpacing);
    If (RecordColours And (FontArray[I].Colour <> FontArray[I + J].Colour) And (Not NewLine)) Then
    Begin
      SetLength(Result[N].Areas, Length(Result[N].Areas) + 1);
      SetLength(Result[N].Colours, Length(Result[N].Colours) + 1);
      Result[N].Text := Text;
      Result[N].Areas[K].X1 := IX;
      Result[N].Areas[K].Y1 := IY;
      Result[N].Areas[K].X2 := X;
      Result[N].Areas[K].Y2 := Y;
      Result[N].Colours[K] := FontArray[I].Colour;
      Inc(K);
      SameLine := True;
    End;

    If (NewLine) Then
    Begin
      SetLength(Result[N].Areas, Length(Result[N].Areas) + 1);
      SetLength(Result[N].Colours, Length(Result[N].Colours) + 1);
      If (Not SameLine) Then K := 0;

      Result[N].Text := Text;
      Result[N].Areas[K].X1 := Round(FontArray[I].X);
      Result[N].Areas[K].Y1 := Y - FontArray[I].VY[2];
      Result[N].Areas[K].X2 := X;
      Result[N].Areas[K].Y2 := Y;
      Result[N].Colours[K] := FontArray[I].Colour;
      SetLength(Result, Length(Result) + 1);

      Text := '';
      K := 0; Inc(N);
      Store := True;
      SameLine := False;
    End;

    If Shadow Then Inc(I);
  End;
End;

Function GLHook_FontsToText2D(var FontArray: TFontArray; Shadow, RecordColours: Boolean; MinHSpacing: Integer; MinVSpacing: Integer): T2DTextInfoArray;
var
  I, J, K, L, N: Integer;
  IX, IY: Integer;
  X, Y: Integer;
  X2, Y2: Integer;
  Text: String;
  Store: Boolean;
  TextInfo: TTextInfoArray;
  SameLine, NewLine: Boolean;
Begin
  L := High(FontArray);
  If (L < 1) Then
    Exit;

  Store := True;

  If (Shadow) Then
  Begin
    K := 0;
    I := 1;
    J := 2;
  End Else
    Begin
      K := 0;
      I := 0;
      J := 1;
    End;

  For I := I To L Do
  Begin
    X := Round(FontArray[I].X + FontArray[I].VX[2]);
    Y := Round(FontArray[I].Y);

    If ((L > 1) And (I <= L)) Then
    Begin
      X2 := Round(FontArray[I + J].X);
      Y2 := Round(FontArray[I + J].Y);
    End Else
      Begin
        X2 := Round(FontArray[I].X);
        Y2 := Round(FontArray[I].Y);
      End;

    Text := Text + FontArray[I].Symbol;
    If (X2 - X) >= MinHSpacing Then
      Text := Text + ' ';

    If Store Then
    Begin
      IX := Round(FontArray[I].X);
      IY := Y - FontArray[I].VY[2];
      Store := False;
    End;

    NewLine := ((GLH_iAbs(Y2 - Y)) >= MinVSpacing);
    If (RecordColours And (FontArray[I].Colour <> FontArray[I + J].Colour) And (Not NewLine)) Then   //If Different Colours On Line..
    Begin                                                                                            //Append The Current Text To The Array..
      SetLength(TextInfo, Length(TextInfo) + 1);
      TextInfo[K].Text := Text;
      TextInfo[K].Area.X1 := IX;
      TextInfo[K].Area.Y1 := IY;
      TextInfo[K].Area.X2 := X;
      TextInfo[K].Area.Y2 := Y;
      TextInfo[K].Colour := FontArray[I].Colour;
      Inc(K);
      Text := '';                          //Clear Everything && Start Grabbing The Next Set of Text With A Different Colour.
      SameLine := True;
    End;

    If (NewLine) Then                     //If There's a New-Line, Append To The Current Text, Push It To The Result, Reset Everything.
    Begin
      SetLength(TextInfo, Length(TextInfo) + 1);
      If (Not SameLine) Then K := 0;

      TextInfo[K].Text := Text;
      TextInfo[K].Area.X1 := Round(FontArray[I].X);
      TextInfo[K].Area.Y1 := Y - FontArray[I].VY[2];
      TextInfo[K].Area.X2 := X;
      TextInfo[K].Area.Y2 := Y;
      TextInfo[K].Colour := FontArray[I].Colour;

      SetLength(Result, Length(Result) + 1);
      Result[N] := TextInfo;                   //Each Array Is One Line Of Text With A List Of All Colours.

      Text := '';
      K := 0; Inc(N);
      Store := True;
      SameLine := False;
      SetLength(TextInfo, 0);
    End;

    If Shadow Then Inc(I);
  End;
End;

Function GLHook_FontsToTextEx(var FontArray: TFontArray; Shadow: Boolean; MinHSpacing: Integer; MinVSpacing: Integer): TTextInfoArray;
var
  I, J, K, L: Integer;
  IX, IY: Integer;
  X, Y: Integer;
  X2, Y2: Integer;
  Text: String;
  Store: Boolean;
Begin
  L := High(FontArray);
  If (L < 1) Then
    Exit;

  Store := True;

  If (Shadow) Then
  Begin
    K := 0;
    I := 1;             //Actual Font's Index.. 0 = Font's Shadow Index.
    J := 2;             //Stride To The Next Font.
  End Else
    Begin
      K := 0;
      I := 0;
      J := 1;
    End;

  For I := I To L Do
  Begin
    X := Round(FontArray[I].X + FontArray[I].VX[2]);    //Font Position + Width.
    Y := Round(FontArray[I].Y);                         //Bottom of the Font.

    If ((L > 1) And (I <= L)) Then
    Begin
      X2 := Round(FontArray[I + J].X);                    //The Next Character's X.
      Y2 := Round(FontArray[I + J].Y);                    //The Next Character's. Y.
    End Else
      Begin
        X2 := Round(FontArray[I].X);
        Y2 := Round(FontArray[I].Y);
      End;

    Text := Text + FontArray[I].Symbol;
    If (X2 - X) >= MinHSpacing Then
      Text := Text + ' ';

    If Store Then
    Begin
      IX := Round(FontArray[I].X);
      IY := Y - FontArray[I].VY[2];
      Store := False;
    End;

    If (GLH_iAbs(Y2 - Y)) >= MinVSpacing Then
    Begin
      SetLength(Result, Length(Result) + 1);
      Result[K].Text := Text;
      Result[K].Area.X1 := IX;
      Result[K].Area.Y1 := IY;
      Result[K].Area.X2 := X;
      Result[K].Area.Y2 := Y;
      Result[K].Colour := FontArray[I].Colour;
      Inc(K);
      Text := '';
      Store := True;
    End;

    If Shadow Then Inc(I);
  End;
End;

Function GLHook_FontsToTextColours(var FontArray: TFontArray; Shadow, RecordColours: Boolean; MinHSpacing: Integer; MinVSpacing: Integer): TTextInfoArray;
var
  I, J, K, L: Integer;
  IX, IY: Integer;
  X, Y: Integer;
  X2, Y2: Integer;
  Text: String;
  Store: Boolean;
  OldColour: Integer;
  ColourChanged: Boolean;
Begin
  L := High(FontArray);
  If (L < 1) Then
    Exit;

  Store := True;

  If (Shadow) Then
  Begin
    K := 0;
    I := 1;
    J := 2;
  End Else
    Begin
      K := 0;
      I := 0;
      J := 1;
    End;

  For I := I To L Do
  Begin
    X := Round(FontArray[I].X + FontArray[I].VX[2]);
    Y := Round(FontArray[I].Y);

    If ((L > 1) And (I <= L)) Then
    Begin
      X2 := Round(FontArray[I + J].X);
      Y2 := Round(FontArray[I + J].Y);
    End Else
      Begin
        X2 := Round(FontArray[I].X);
        Y2 := Round(FontArray[I].Y);
      End;

    Text := Text + FontArray[I].Symbol;
    If (X2 - X) >= MinHSpacing Then
      Text := Text + ' ';

    If Store Then
    Begin
      OldColour := FontArray[I].Colour;
      IX := Round(FontArray[I].X);
      IY := Y - FontArray[I].VY[2];
      Store := False;
    End;

    If (RecordColours And (FontArray[I + J].Colour <> OldColour)) Then ColourChanged := True;

    If (((GLH_iAbs(Y2 - Y)) >= MinVSpacing) Or ColourChanged) Then
    Begin
      SetLength(Result, Length(Result) + 1);
      Result[K].Text := Text;
      Result[K].Area.X1 := IX;
      Result[K].Area.Y1 := IY;
      Result[K].Area.X2 := X;
      Result[K].Area.Y2 := Y;
      Result[K].Colour := FontArray[I].Colour;
      Inc(K);
      Text := '';
      Store := True;
      ColourChanged := False;
    End;

    If Shadow Then Inc(I);
  End;
End;

Function GLHook_FontsToText(var FontArray: TFontArray; Shadow: Boolean; MinHSpacing: Integer; MinVSpacing: Integer): TStringArray;
var
  I, J, L: Integer;
  X, Y: Integer;
  X2, Y2: Integer;
  Text: String;
Begin
  L := High(FontArray);
  If (L < 1) Then
    Exit;

  SetLength(Result, 1);

  If (Shadow) Then
  Begin
    I := 1;
    J := 2;
  End Else
    Begin
      I := 0;
      J := 1;
    End;

  For I := I To L Do
  Begin
    X := Round(FontArray[I].X + FontArray[I].VX[2]);
    Y := Round(FontArray[I].Y);

    If ((L > 1) And ((I + J) < L)) Then
    Begin
      X2 := Round(FontArray[I + J].X);
      Y2 := Round(FontArray[I + J].Y);
    End Else
      Begin
        X2 := Round(FontArray[I].X);
        Y2 := Round(FontArray[I].Y);
      End;

    Text := Text + FontArray[I].Symbol;
    If (X2 - X) >= MinHSpacing Then
      Text := Text + ' ';

    If (GLH_iAbs(Y2 - Y) >= MinVSpacing) Then
      Text := Text + '\n\r';

    If Shadow Then I := I + 1;
  End;

  ExplodeWrap('\n\r', Text, Result);
  For I := 0 To High(Result) Do
    Result[I] := Trim(Result[I]);
End;

Function PosStrArr(ToFind: String; SearchArray: TStringArray; Var Where: Integer): Boolean;
var
  I, H: Integer;
Begin
  H := High(SearchArray);
  For I := 0 To H Do
    If (Pos(LowerCase(ToFind), LowerCase(SearchArray[I])) > 0) Then
    Begin
      Where := I;
      Result := True;
      Break;
    End;
End;

Function GLHook_CountTextInArea(Area: TBox; Text: String; Shadow: Boolean; MinHSpacing, MinVSpacing: Integer): Integer;
Var
  I, J: Integer;
  F: TFontArray;
  AreaFonts: TStringArray;
Begin
  F := GLHook_GetFontsByArea(Area);
  AreaFonts := GLHook_FontsToText(F, Shadow, MinHSpacing, MinVSpacing);
  For I := 0 To High(AreaFonts) Do
    For J := 0 To Length(AreaFonts[I]) Do
      If (LowerCase(AreaFonts[I][J]) = LowerCase(Text)) Then
        Inc(Result);
End;

Function GLHook_FindTextAreaEx(Area: TBox; Text: TStringArray; Shadow: Boolean; MinHSpacing, MinVSpacing: Integer): Boolean;
var
  I, J: Integer;
  F: TFontArray;
  AreaFonts: TStringArray;
Begin
  F := GLHook_GetFontsByArea(Area);
  AreaFonts := GLHook_FontsToText(F, Shadow, MinHSpacing, MinVSpacing);
  For I := 0 To High(Text) Do
    If {InStrArrEx(Text[I], AreaFonts, J) or }PosStrArr(Text[I], AreaFonts, J) Then
    Begin
      Result := True;
      Break;
    End;
End;

Function GLHook_FindTextArea(Area: TBox; Text: String; Shadow: Boolean; MinVSpacing: Integer): Boolean;
var
  I: Integer;
Begin
  For I := 0 To 11 Do
    If GLHook_FindTextAreaEx(Area, [Text], Shadow, I, MinVSpacing) Then
    Begin
      Result := True;
      Break;
    End;
End;