#include <windows.h>
#include <brl.mod/blitz.mod/blitz_types.h>
extern "C"
{
   void *Pointer(BBObject *o);
   BBObject *Cast(void *p);
}

void *Pointer(BBObject *o)
{
   return o;
}
BBObject *Cast(void *p)
{
   return (BBObject*)p;
}

SuperStrict

Framework pub.stdc
Import brl.retro
Import brl.linkedlist
Import "cast.cpp"
Extern "C"
   Function Pointer:Byte Ptr(o:Object)
   Function Cast:Object(p:Byte Ptr)
End Extern

Global list:TList=CreateList()
Type Test
   Field a:Int=1337
   Field b:Int=1338
   Field c:Int=1339
   
   Field k:Float=1400.1
End Type


Global a:test=New test
list.addlast(a)
list.addlast(a)
list.addlast(a)
list.addlast(a)

Print Hex(Int(Varptr(list)))

Local list2:TList=TList(cast(Byte Ptr(Int Ptr(Varptr(list))[0])))  'Ja es geht auch nur Byte Ptr List, ich weiss
If list2 Print list2.count()

Repeat
   Delay 10
Forever

SuperStrict

Framework kogn.dll
Import brl.retro
Import brl.linkedlist
Import "cast.cpp"
Extern "C"
   Function Pointer:Byte Ptr(o:Object)
   Function Cast:Object(p:Byte Ptr)
End Extern

Type Test
   Field a:Int
   Field b:Int
   Field c:Int
   
   Field k:Float
End Type

Function DllMain:Int(hInstance:Int,dwReason:Int, lpReserved:Byte Ptr)
   Select dwReason
      Case DLL_PROCESS_ATTACH
         Local addr:Byte Ptr=Byte Ptr(Int Ptr($00413A74)[0])
         Local list:TList=TList(cast(addr))
         
         If list Notify "ok"
   End Select
   Return True
End Function