Blitz Hardwired Project - Control Instances

Community Forums/Showcase/Blitz Hardwired Project - Control Instances

Guy Fawkes

(Posted 2014) [#1]

Got sick of not being able to control multiple instances at once, so here's my code so far...

User32.decls:

.lib "user32.dll"

api_ActivateKeyboardLayout% (HKL%, flags%) : "ActivateKeyboardLayout"
api_AdjustWindowRect% (lpRect*, dwStyle%, bMenu%) : "AdjustWindowRect"
api_AdjustWindowRectEx% (lpRect*, dsStyle%, bMenu%, dwEsStyle%) : "AdjustWindowRectEx"
api_AnimateWindow(hWnd%, dwTime%, dwFlags%) : "AnimateWindow"
api_AnyPopup% () : "AnyPopup"
api_AppendMenu% (hMenu%, wFlags%, wIDNewItem%, lpNewItem) : "AppendMenuA"
api_ArrangeIconicWindows% (hwnd%) : "ArrangeIconicWindows"
api_AttachThreadInput% (idAttach%, idAttachTo%, fAttach%) : "AttachThreadInput"
api_BeginDeferWindowPos% (nNumWindows%) : "BeginDeferWindowPos"
api_BeginPaint% (hwnd%, lpPaint*) : "BeginPaint"
api_BringWindowToTop% (hwnd%) : "BringWindowToTop"
api_BroadcastSystemMessage% (dw%, pdw%, un%, wParam%, lParam%) : "BroadcastSystemMessage"
api_CallMsgFilter% (lpMsg*, ncode%) : "CallMsgFilterA"
api_CallNextHookEx% (hHook%, ncode%, wParam%, lParam*) : "CallNextHookEx"
api_CallWindowProc%(lpPrevWndFunc*,hWnd%,Msg%,wParam$,lParam*):"CallWindowProcA"
api_CallWindowProcSTR$(lpPrevWndFunc*,hWnd%,Msg%,wParam$,lParam*):"CallWindowProcA"
api_CascadeWindows% (hwndParent%, wHow%, lpRect*, cKids%, lpkids%) : "CascadeWindows"
api_ChangeClipboardChain% (hwnd%, hWndNext%) : "ChangeClipboardChain"
api_ChangeMenu% (hMenu%, cmd%, lpszNewItem$, cmdInsert%, flags%) : "ChangeMenuA"
api_CharLower$ (lpsz$) : "CharLowerA"
api_CharLowerBuff% (lpsz$, cchLength%) : "CharLowerBuffA"
api_CharNext$ (lpsz$) : "CharNextA"
api_CharPrev$ (lpszStart$, lpszCurrent$) : "CharPrevA"
api_CharToOem% (lpszSrc$, lpszDst$) : "CharToOemA"
api_CharToOemBuff% (lpszSrc$, lpszDst$, cchDstLength%) : "CharToOemBuffA"
api_CharUpper$ (lpsz$) : "CharUpperA"
api_CharUpperBuff% (lpsz$, cchLength%) : "CharUpperBuffA"
api_CheckDlgButton% (hDlg%, nIDButton%, wCheck%) : "CheckDLGButtonA"
api_CheckMenuItem% (hMenu%, wIDCheckItem%, wCheck%) : "CheckMenuItem"
api_CheckMenuRadioItem% (hMenu%, un1%, un2%, un3%, un4%) : "CheckMenuRadioItem"
api_CheckRadioButton% (hDlg%, nIDFirstButton%, nIDLastButton%, nIDCheckButton%) : "CheckRadioButtonA"
api_ChildWindowFromPoint% (hWnd%, xPoint%, yPoint%) : "ChildWindowFromPoint"
api_ChildWindowFromPointEx% (hWnd%, pt*, un%) : "ChildWindowFromPointEx"
api_ClientToScreen% (hwnd%, lpPoint*) : "ClientToScreen"
api_ClipCursor% (lpRect*) : "ClipCursor"
api_CloseClipboard% () : "CloseClipboard"
api_CloseDesktop% (hDesktop%) : "CloseDesktop"
api_CloseWindow% (hwnd%) : "CloseWindow"
api_CloseWindowStation% (hWinSta%) : "CloseWindowStation"
api_CopyAcceleratorTable% (hAccelSrc%, lpAccelDst*, cAccelEntries%) : "CopyAcceleratorTableA"
api_CopyCursor% (hcur%) : "CopyCursor"
api_CopyIcon% (hIcon%) : "CopyIcon"
api_CopyImage% (Handle%, un1%, n1%, n2%, un2%) : "CopyImage"
api_CopyRect% (lpDestRect*, lpSourceRect*) : "CopyRect"
api_CountClipboardFormats% () : "CountClipboardFormats"
api_CreateAcceleratorTable% (lpaccl*, cEntries%) : "CreateAcceleratorTableA"
api_CreateCaret% (hwnd%, hBitmap%, nWidth%, nHeight%) : "CreateCaret"
api_CreateCursor% (hInstance%, nXhotspot%, nYhotspot%, nWidth%, nHeight%, lpANDbitPlane*, lpXORbitPlane*) : "CreateCursor"
api_CreateDesktop% (lpszDesktop$, lpszDevice$, pDevmode*, dwFlags%, dwDesiredAccess%, lpsa*) : "CreateDesktopA"
api_CreateDialogIndirectParam% (hInstance%, lpTemplate*, hWndParent%, lpDialogFunc%, dwInitParam%) : "CreateDialogIndirectParamA"
api_CreateDialogParam% (hInstance%, lpName$, hWndParent%, lpDialogFunc%, lParamInit%) : "CreateDialogParamA"
api_CreateIcon% (hInstance%, nWidth%, nHeight%, nPlanes%, nBitsPixel%, lpANDbits%, lpXORbits%) : "CreateIcon"
api_CreateIconFromResource% (presbits%, dwResSize%, fIcon%, dwVer%) : "CreateIconFromResource"
api_CreateIconIndirect% (piconinfo*) : "CreateIconIndirect"
api_CreateMDIWindow% (lpClassName$, lpWindowName$, dwStyle%, x%, y%, nWidth%, nHeight%, hWndParent%, hInstance%, lParam%) : "CreateMDIWindowA"
api_CreateMenu% () : "CreateMenu"
api_CreatePopupMenu% () : "CreatePopupMenu"
api_CreateWindowEx% (dwExStyle%, lpClassName$, lpWindowName$, dwStyle%, x%, y%, nWidth%, nHeight%, hWndParent%, hMenu%, hInstance%, lpParam*) : "CreateWindowExA"
api_DdeAbandonTransaction% (idInst%, hConv%, idTransaction%) : "DdeAbandonTransaction"
api_DdeAccessData% (hData%, pcbDataSize%) : "DdeAccessDataA"
api_DdeAddData% (hData%, pSrc%, cb%, cbOff%) : "DdeAddDataA"
api_DdeClientTransaction% (pData%, cbData%, hConv%, hszItem%, wFmt%, wType%, dwTimeout%, pdwResult%) : "DdeClientTransaction"
api_DdeCmpStringHandles% (hsz1%, hsz2%) : "DdeCmpStringHandles"
api_DdeConnect% (idInst%, hszService%, hszTopic%, pCC*) : "DdeConnect"
api_DdeConnectList% (idInst%, hszService%, hszTopic%, hConvList%, pCC*) : "DdeConnectList"
api_DdeCreateDataHandle% (idInst%, pSrc%, cb%, cbOff%, hszItem%, wFmt%, afCmd%) : "DdeCreateDataHandle"
api_DdeCreateStringHandle% (idInst%, psz$, iCodePage%) : "DdeCreateStringHandleA"
api_DdeDisconnect% (hConv%) : "DdeDisconnect"
api_DdeDisconnectList% (hConvList%) : "DdeDisconnectList"
api_DdeEnableCallback% (idInst%, hConv%, wCmd%) : "DdeEnableCallback"
api_DdeFreeDataHandle% (hData%) : "DdeFreeDataHandle"
api_DdeFreeStringHandle% (idInst%, hsz%) : "DdeFreeStringHandle"
api_DdeGetData% (hData%, pDst%, cbMax%, cbOff%) : "DdeGetDataA"
api_DdeGetLastError% (idInst%) : "DdeGetLastError"
api_DdeImpersonateClient% (hConv%) : "DdeImpersonateClient"
api_DdeInitialize% (pidInst%, pfnCallback%, afCmd%, ulRes%) : "DdeInitializeA"
api_DdeKeepStringHandle% (idInst%, hsz%) : "DdeKeepStringHandle"
api_DdeNameService% (idInst%, hsz1%, hsz2%, afCmd%) : "DdeNameService"
api_DdePostAdvise% (idInst%, hszTopic%, hszItem%) : "DdePostAdvise"
api_DdeQueryConvInfo% (hConv%, idTransaction%, pConvInfo*) : "DdeQueryConvInfo"
api_DdeQueryNextServer% (hConvList%, hConvPrev%) : "DdeQueryNextServer"
api_DdeQueryString% (idInst%, hsz%, psz$, cchMax%, iCodePage%) : "DdeQueryStringA"
api_DdeReconnect% (hConv%) : "DdeReconnect"
api_DdeSetQualityOfService% (hWndClient%, pqosNew*, pqosPrev*) : "DdeSetQualityOfService"
api_DdeSetUserHandle% (hConv%, id%, hUser%) : "DdeSetUserHandle"
api_DdeUnaccessData% (hData%) : "DdeUnaccessDataA"
api_DdeUninitialize% (idInst%) : "DdeUninitialize"
api_DefDlgProc% (hDlg%, wMsg%, wParam%, lParam%) : "DefDlgProcA"
api_DeferWindowPos% (hWinPosInfo%, hwnd%, hWndInsertAfter%, x%, y%, cx%, cy%, wFlags%) : "DeferWindowPos"
api_DefFrameProc% (hwnd%, hWndMDIClient%, wMsg%, wParam%, lParam%) : "DefFrameProcA"
api_DefMDIChildProc% (hwnd%, wMsg%, wParam%, lParam%) : "DefMDIChildProcA"
api_DefWindowProc% (hwnd%, wMsg%, wParam%, lParam%) : "DefWindowProcA"
api_DeleteMenu% (hMenu%, nPosition%, wFlags%) : "DeleteMenu"
api_DestroyAcceleratorTable% (haccel%) : "DestroyAcceleratorTable"
api_DestroyCaret% () : "DestroyCaret"
api_DestroyCursor% (hCursor%) : "DestroyCursor"
api_DestroyIcon% (hIcon%) : "DestroyIcon"
api_DestroyMenu% (hMenu%) : "DestroyMenu"
api_DestroyWindow% (hwnd%) : "DestroyWindow"
api_DialogBoxIndirectParam% (hInstance%, hDialogTemplate*, hWndParent%, lpDialogFunc%, dwInitParam%) : "DialogBoxIndirectParamA"
api_DispatchMessage% (lpMsg*) : "DispatchMessageA"
api_DlgDirList% (hDlg%, lpPathSpec$, nIDListBox%, nIDStaticPath%, wFileType%) : "DlgDirListA"
api_DlgDirListComboBox% (hDlg%, lpPathSpec$, nIDComboBox%, nIDStaticPath%, wFileType%) : "DlgDirListComboBoxA"
api_DlgDirSelectComboBoxEx% (hWndDlg%, lpszPath$, cbPath%, idComboBox%) : "DlgDirSelectComboBoxExA"
api_DlgDirSelectEx% (hWndDlg%, lpszPath$, cbPath%, idListBox%) : "DlgDirSelectExA"
api_DragDetect% (hWnd%, pt*) : "DragDetect"
api_DragObject% (hWnd1%, hWnd2%, un%, dw%, hCursor%) : "DragObject"
api_DrawAnimatedRects% (hwnd%, idAni%, lprcFrom*, lprcTo*) : "DrawAnimatedRects"
api_DrawCaption% (hWnd%, hDC%, pcRect*, un%) : "DrawCaption"
api_DrawEdge% (hdc%, qrc*, edge%, grfFlags%) : "DrawEdge"
api_DrawFocusRect% (hdc%, lpRect*) : "DrawFocusRect"
api_DrawFrameControl% (hDC%, lpRect*, un1%, un2%) : "DrawFrameControl"
api_DrawIcon% (hdc%, x%, y%, hIcon%) : "DrawIcon"
api_DrawIconEx% (hdc%, xLeft%, yTop%, hIcon%, cxWidth%, cyWidth%, istepIfAniCur%, hbrFlickerFreeDraw%, diFlags%) : "DrawIconEx"
api_DrawMenuBar% (hwnd%) : "DrawMenuBar"
api_DrawState% (hDC%, hBrush%, lpDrawStateProc%, lParam%, wParam%, n1%, n2%, n3%, n4%, un%) : "DrawStateA"
api_DrawText% (hdc%, lpStr$, nCount%, lpRect*, wFormat%) : "DrawTextA"
api_DrawTextEx% (hDC%, lpsz$, n%, lpRect*, un%, lpDrawTextParams*) : "DrawTextExA"
api_EmptyClipboard% () : "EmptyClipboard"
api_EnableMenuItem% (hMenu%, wIDEnableItem%, wEnable%) : "EnableMenuItem"
api_EnableScrollBar% (hwnd%, wSBflags%, wArrows%) : "EnableScrollBar"
api_EnableWindow% (hwnd%, fEnable%) : "EnableWindow"
api_EndDeferWindowPos% (hWinPosInfo%) : "EndDeferWindowPos"
api_EndDialog% (hDlg%, nResult%) : "EndDialog"
api_EndPaint% (hwnd%, lpPaint*) : "EndPaint"
api_EnumChildWindows% (hWndParent%, lpEnumFunc%, lParam%) : "EnumChildWindows"
api_EnumClipboardFormats% (wFormat%) : "EnumClipboardFormats"
api_EnumDesktops% (hwinsta%, lpEnumFunc%, lParam%) : "EnumDesktopsA"
api_EnumDesktopWindows% (hDesktop%, lpfn%, lParam%) : "EnumDesktopWindows"
api_EnumProps% (hWnd%, lpEnumFunc%) : "EnumPropsA"
api_EnumPropsEx% (hWnd%, lpEnumFunc%, lParam%) : "EnumPropsExA"
api_EnumThreadWindows% (dwThreadId%, lpfn%, lParam%) : "EnumThreadWindows"
api_EnumWindowStations% (lpEnumFunc%, lParam%) : "EnumWindowStationsA"
api_EqualRect% (lpRect1*, lpRect2*) : "EqualRect"
api_ExamineClipboard%(format%):"IsClipboardFormatAvailable"
api_ExcludeUpdateRgn% (hdc%, hwnd%) : "ExcludeUpdateRgn"
api_ExitWindows% (dwReserved%, uReturnCode%) : "ExitWindows"
api_ExitWindowsEx% (uFlags%, dwReserved%) : "ExitWindowsEx"
api_FillRect% (hdc%, lpRect*, hBrush%) : "FillRect"
api_FindWindow% (lpClassName$, lpWindowName$) : "FindWindowA"
api_FindWindowEx% (hWnd1%, hWnd2%, lpsz1$, lpsz2$) : "FindWindowExA"
api_FlashWindow% (hwnd%, bInvert%) : "FlashWindow"
api_FrameRect% (hdc%, lpRect*, hBrush%) : "FrameRect"
api_FreeDDElParam% (msg%, lParam%) : "FreeDDElParam"
api_GetActiveWindow% () : "GetActiveWindow"
api_GetAsyncKeyState% (vKey%) : "GetAsyncKeyState"
api_GetCapture% () : "GetCapture"
api_GetCaretBlinkTime% () : "GetCaretBlinkTime"
api_GetCaretPos% (lpPoint*) : "GetCaretPos"
api_GetClassInfo% (hInstance%, lpClassName$, lpWndClass*) : "GetClassInfoA"
api_GetClassLong% (hwnd%, nIndex%) : "GetClassLongA"
api_GetClassName% (hwnd%, lpClassName$, nMaxCount%) : "GetClassNameA"
api_GetClassWord% (hwnd%, nIndex%) : "GetClassWord"
api_GetClientRect% (hwnd%, lpRect*) : "GetClientRect"
api_GetClipboardData% (wFormat%) : "GetClipboardData"
api_GetClipboardFormatName% (wFormat%, lpString$, nMaxCount%) : "GetClipboardFormatNameA"
api_GetClipboardOwner% () : "GetClipboardOwner"
api_GetClipboardViewer% () : "GetClipboardViewer"
api_GetClipCursor% (lprc*) : "GetClipCursor"
api_GetCursor% () : "GetCursor"
api_GetCursorPos% (lpPoint*) : "GetCursorPos"
api_GetDC% (hwnd%) : "GetDC"
api_GetDCEx% (hwnd%, hrgnclip%, fdwOptions%) : "GetDCEx"
api_GetDesktopWindow% () : "GetDesktopWindow"
api_GetDialogBaseUnits% () : "GetDialogBaseUnits"
api_GetDlgCtrlID% (hwnd%) : "GetDlgCtrlID"
api_GetDlgItem% (hDlg%, nIDDlgItem%) : "GetDlgItem"
api_GetDlgItemInt% (hDlg%, nIDDlgItem%, lpTranslated%, bSigned%) : "GetDlgItemInt"
api_GetDlgItemText% (hDlg%, nIDDlgItem%, lpString$, nMaxCount%) : "GetDlgItemTextA"
api_GetDoubleClickTime% () : "GetDoubleClickTime"
api_GetFocus% () : "GetFocus"
api_GetForegroundWindow% () : "GetForegroundWindow"
api_GetIconInfo% (hIcon%, piconinfo*) : "GetIconInfo"
api_GetInputState% () : "GetInputState"
api_GetKBCodePage% () : "GetKBCodePage"
api_GetKeyboardLayout% (dwLayout%) : "GetKeyboardLayout"
api_GetKeyboardLayoutList% (nBuff%, lpList%) : "GetKeyboardLayoutList"
api_GetKeyboardLayoutName% (pwszKLID$) : "GetKeyboardLayoutNameA"
api_GetKeyboardState% (pbKeyState%) : "GetKeyboardState"
api_GetKeyboardType% (nTypeFlag%) : "GetKeyboardType"
api_GetKeyNameText% (lParam%, lpBuffer$, nSize%) : "GetKeyNameTextA"
api_GetKeyState% (nVirtKey%) : "GetKeyState"
api_GetLastActivePopup% (hwndOwnder%) : "GetLastActivePopup"
api_GetMenu% (hwnd%) : "GetMenu"
api_GetMenuCheckMarkDimensions% () : "GetMenuCheckMarkDimensions"
api_GetMenuContextHelpId% (hMenu%) : "GetMenuContextHelpId"
api_GetMenuDefaultItem% (hMenu%, fByPos%, gmdiFlags%) : "GetMenuDefaultItem"
api_GetMenuItemCount% (hMenu%) : "GetMenuItemCount"
api_GetMenuItemID% (hMenu%, nPos%) : "GetMenuItemID"
api_GetMenuItemInfo% (hMenu%, un%, b%, lpMenuItemInfo*) : "GetMenuItemInfoA"
api_GetMenuItemRect% (hWnd%, hMenu%, uItem%, lprcItem*) : "GetMenuItemRect"
api_GetMenuState% (hMenu%, wID%, wFlags%) : "GetMenuState"
api_GetMenuString% (hMenu%, wIDItem%, lpString$, nMaxCount%, wFlag%) : "GetMenuStringA"
api_GetMessage% (lpMsg*, hwnd%, wMsgFilterMin%, wMsgFilterMax%) : "GetMessageA"
api_GetMessageExtraInfo% () : "GetMessageExtraInfo"
api_GetMessagePos% () : "GetMessagePos"
api_GetMessageTime% () : "GetMessageTime"
api_GetNextDlgGroupItem% (hDlg%, hCtl%, bPrevious%) : "GetNextDlgGroupItem"
api_GetNextDlgTabItem% (hDlg%, hCtl%, bPrevious%) : "GetNextDlgTabItem"
api_GetNextWindow% (hwnd%, wFlag%) : "GetWindow"
api_GetOpenClipboardWindow% () : "GetOpenClipboardWindow"
api_GetParent% (hwnd%) : "GetParent"
api_GetPriorityClipboardFormat% (lpPriorityList%, nCount%) : "GetPriorityClipboardFormat"
api_GetProcessWindowStation% () : "GetProcessWindowStation"
api_GetProp% (hwnd%, lpString$) : "GetPropA"
api_GetQueueStatus% (fuFlags%) : "GetQueueStatus"
api_GetScrollInfo% (hWnd%, n%, lpScrollInfo*) : "GetScrollInfo"
api_GetScrollPos% (hwnd%, nBar%) : "GetScrollPos"
api_GetScrollRange% (hwnd%, nBar%, lpMinPos%, lpMaxPos%) : "GetScrollRange"
api_GetSubMenu% (hMenu%, nPos%) : "GetSubMenu"
api_GetSysColor% (nIndex%) : "GetSysColor"
api_GetSysColorBrush% (nIndex%) : "GetSysColorBrush"
api_GetSystemMenu% (hwnd%, bRevert%) : "GetSystemMenu"
api_GetSystemMetrics% (nIndex%) : "GetSystemMetrics"
api_GetTabbedTextExtent% (hdc%, lpString$, nCount%, nTabPositions%, lpnTabStopPositions%) : "GetTabbedTextExtentA"
api_GetThreadDesktop% (dwThread%) : "GetThreadDesktop"
api_GetTitleBarInfo% (hwnd%, ptitlebarinfo%) : "GetTitleBarInfoA"
api_GetTopWindow% (hwnd%) : "GetTopWindow"
api_GetUpdateRect% (hwnd%, lpRect*, bErase%) : "GetUpdateRect"
api_GetUpdateRgn% (hwnd%, hRgn%, fErase%) : "GetUpdateRgn"
api_GetUserObjectInformation% (hObj%, nIndex%, pvInfo*, nLength%, lpnLengthNeeded%) : "GetUserObjectInformationA"
api_GetUserObjectSecurity% (hObj%, pSIRequested%, pSd*, nLength%, lpnLengthNeeded%) : "GetUserObjectSecurity"
api_GetWindow% (hwnd%, wCmd%) : "GetWindow"
api_GetWindowContextHelpId% (hWnd%) : "GetWindowContextHelpId"
api_GetWindowDC% (hwnd%) : "GetWindowDC"
api_GetWindowInfo% (hwnd%, pwindowinfo%) : "GetWindowInfoA"
api_GetWindowLong% (hwnd%, nIndex%) : "GetWindowLongA"
api_GetWindowPlacement% (hwnd%, lpwndpl*) : "GetWindowPlacement"
api_GetWindowRect% (hwnd%, lpRect*) : "GetWindowRect"
api_GetWindowRgn% (hWnd%, hRgn%) : "GetWindowRgn"
api_GetWindowText% (hwnd%, lpString$, cch%) : "GetWindowTextA"
api_GetWindowTextLength% (hwnd%) : "GetWindowTextLengthA"
api_GetWindowThreadProcessId% (hwnd%, lpdwProcessId%) : "GetWindowThreadProcessId"
api_GetWindowWord% (hwnd%, nIndex%) : "GetWindowWord"
api_GrayString% (hDC%, hBrush%, lpOutputFunc%, lpData%, nCount%, X%, Y%, nWidth%, nHeight%) : "GrayStringA"
api_HideCaret% (hwnd%) : "HideCaret"
api_HiliteMenuItem% (hwnd%, hMenu%, wIDHiliteItem%, wHilite%) : "HiliteMenuItem"
api_ImpersonateDdeClientWindow% (hWndClient%, hWndServer%) : "ImpersonateDdeClientWindow"
api_InflateRect% (lpRect*, x%, y%) : "InflateRect"
api_InSendMessage% () : "InSendMessage"
api_InsertMenu% (hMenu%, nPosition%, wFlags%, wIDNewItem%, lpNewItem*) : "InsertMenuA"
api_InsertMenuItem% (hMenu%, un%, bool%, lpcMenuItemInfo*) : "InsertMenuItemA"
api_IntersectRect% (lpDestRect*, lpSrc1Rect*, lpSrc2Rect*) : "IntersectRect"
api_InvalidateRect% (hwnd%, lpRect%, bErase%) : "InvalidateRect"
api_InvalidateRgn% (hwnd%, hRgn%, bErase%) : "InvalidateRgn"
api_InvertRect% (hdc%, lpRect*) : "InvertRect"
api_IsCharAlpha% (cChar%) : "IsCharAlphaA"
api_IsCharAlphaNumeric% (cChar%) : "IsCharAlphaNumericA"
api_IsCharLower% (cChar%) : "IsCharLowerA"
api_IsCharUpper% (cChar%) : "IsCharUpperA"
api_IsChild% (hWndParent%, hwnd%) : "IsChild"
api_IsClipboardFormatAvailable% (wFormat%) : "IsClipboardFormatAvailable"
api_IsDialogMessage% (hDlg%, lpMsg*) : "IsDialogMessageA"
api_IsDlgButtonChecked% (hDlg%, nIDButton%) : "IsDlgButtonChecked"
api_IsHungAppWindow% (hWnd%) : "IsHungAppWindow"
api_IsIconic% (hwnd%) : "IsIconic"
api_IsMenu% (hMenu%) : "IsMenu"
api_IsRectEmpty% (lpRect*) : "IsRectEmpty"
api_IsWindow% (hwnd%) : "IsWindow"
api_IsWindowEnabled% (hwnd%) : "IsWindowEnabled"
api_IsWindowUnicode% (hwnd%) : "IsWindowUnicode"
api_IsWindowVisible% (hwnd%) : "IsWindowVisible"
api_IsZoomed% (hwnd%) : "IsZoomed"
api_keybd_event (bVk%, bScan%, dwFlags%, dwExtraInfo%) : "keybd_event"
api_KillTimer% (hwnd%, nIDEvent%) : "KillTimer"
api_LoadAccelerators% (hInstance%, lpTableName$) : "LoadAcceleratorsA"
api_LoadBitmap% (hInstance%, lpBitmapName$) : "LoadBitmapA"
api_LoadCursor% (hInstance%, lpCursorName$) : "LoadCursorA"
api_LoadCursorFromFile% (lpFileName$) : "LoadCursorFromFileA"
api_LoadIcon% (hInstance%, lpIconName$) : "LoadIconA"
api_LoadImage% (hInst%, lpsz$, un1%, n1%, n2%, un2%) : "LoadImageA"
api_LoadKeyboardLayout% (pwszKLID$, flags%) : "LoadKeyboardLayoutA"
api_LoadMenu% (hInstance%, lpString$) : "LoadMenuA"
api_LoadMenuIndirect% (lpMenuTemplate%) : "LoadMenuIndirectA"
api_LoadString% (hInstance%, wID%, lpBuffer$, nBufferMax%) : "LoadStringA"
api_LockWindowUpdate% (hwndLock%) : "LockWindowUpdate"
api_LookupIconIdFromDirectory% (presbits%, fIcon%) : "LookupIconIdFromDirectory"
api_LookupIconIdFromDirectoryEx% (presbits%, fIcon%, cxDesired%, cyDesired%, Flags%) : "LookupIconIdFromDirectoryEx"
api_MapDialogRect% (hDlg%, lpRect*) : "MapDialogRect"
api_MapVirtualKey% (wCode%, wMapType%) : "MapVirtualKeyA"
api_MapVirtualKeyEx% (uCode%, uMapType%, dwhkl%) : "MapVirtualKeyExA"
api_MapWindowPoints% (hwndFrom%, hwndTo%, lppt*, cPoints%) : "MapWindowPoints"
api_MenuItemFromPoint% (hWnd%, hMenu%, ptScreen*) : "MenuItemFromPoint"
api_MessageBeep% (wType%) : "MessageBeep"
api_MessageBox% (hwnd%, lpText$, lpCaption$, wType%) : "MessageBoxA"
api_MessageBoxEx% (hwnd%, lpText$, lpCaption$, uType%, wLanguageId%) : "MessageBoxExA"
api_MessageBoxIndirect% (lpMsgBoxParams*) : "MessageBoxIndirectA"
api_ModifyMenu% (hMenu%, nPosition%, wFlags%, wIDNewItem%, lpString*) : "ModifyMenuA"
api_mouse_event (dwFlags%, dx%, dy%, cButtons%, dwExtraInfo%) : "mouse_event"
api_MoveWindow% (hwnd%, x%, y%, nWidth%, nHeight%, bRepaint%) : "MoveWindow"
api_MsgWaitForMultipleObjects% (nCount%, pHandles%, fWaitAll%, dwMilliseconds%, dwWakeMask%) : "MsgWaitForMultipleObjects"
api_OemKeyScan% (wOemChar%) : "OemKeyScan"
api_OemToChar% (lpszSrc$, lpszDst$) : "OemToCharA"
api_OemToCharBuff% (lpszSrc$, lpszDst$, cchDstLength%) : "OemToCharBuffA"
api_OffsetRect% (lpRect*, x%, y%) : "OffsetRect"
api_OpenClipboard% (hwnd%) : "OpenClipboard"
api_OpenDesktop% (lpszDesktop$, dwFlags%, fInherit%, dwDesiredAccess%) : "OpenDesktopA"
api_OpenIcon% (hwnd%) : "OpenIcon"
api_OpenInputDesktop% (dwFlags%, fInherit%, dwDesiredAccess%) : "OpenInputDesktop"
api_OpenWindowStation% (lpszWinSta$, fInherit%, dwDesiredAccess%) : "OpenWindowStationA"
api_PackDDElParam% (msg%, uiLo%, uiHi%) : "PackDDElParam"
api_PaintDesktop% (hdc%) : "PaintDesktop"
api_PeekMessage% (lpMsg*, hwnd%, wMsgFilterMin%, wMsgFilterMax%, wRemoveMsg%) : "PeekMessageA"
api_PostMessage% (hwnd%, wMsg%, wParam%, lParam%) : "PostMessageA"
api_PostQuitMessage (nExitCode%) : "PostQuitMessage"
api_PostThreadMessage% (idThread%, msg%, wParam%, lParam%) : "PostThreadMessageA"
api_PtInRect% (lpRect*, pt*) : "PtInRect"
api_RedrawWindow% (hwnd%, lprcUpdate*, hrgnUpdate%, fuRedraw%) : "RedrawWindow"
api_RegisterClass% (Class*) : "RegisterClass"
api_RegisterClassEx% (pcWndClassEx*) : "RegisterClassExA"
api_RegisterClipboardFormat% (lpString$) : "RegisterClipboardFormatA"
api_RegisterHotKey% (hwnd%, id%, fsModifiers%, vk%) : "RegisterHotKey"
api_RegisterWindowMessage% (lpString$) : "RegisterWindowMessageA"
api_ReleaseCapture% () : "ReleaseCapture"
api_ReleaseDC% (hwnd%, hdc%) : "ReleaseDC"
api_RemoveMenu% (hMenu%, nPosition%, wFlags%) : "RemoveMenu"
api_RemoveProp% (hwnd%, lpString$) : "RemovePropA"
api_ReplyMessage% (lReply%) : "ReplyMessage"
api_ReuseDDElParam% (lParam%, msgIn%, msgOut%, uiLo%, uiHi%) : "ReuseDDElParam"
Api_RtlMoveToBank(Destination*,Source,Length):"RtlMoveMemory"
Api_RtlMoveToMemory(Destination,Source*,Length):"RtlMoveMemory"
api_ScreenToClient% (hwnd%, lpPoint*) : "ScreenToClient"
api_ScrollDC% (hdc%, dx%, dy%, lprcScroll*, lprcClip*, hrgnUpdate%, lprcUpdate*) : "ScrollDC"
api_ScrollWindow% (hWnd%, XAmount%, YAmount%, lpRect*, lpClipRect*) : "ScrollWindow"
api_ScrollWindowEx% (hwnd%, dx%, dy%, lprcScroll*, lprcClip*, hrgnUpdate%, lprcUpdate*, fuScroll%) : "ScrollWindowEx"
api_SendDlgItemMessage% (hDlg%, nIDDlgItem%, wMsg%, wParam%, lParam%) : "SendDlgItemMessageA"
api_SendMessage% (hwnd%, wMsg%, wParam%, lParam*) : "SendMessageA"
api_SendMessageCallback% (hwnd%, msg%, wParam%, lParam%, lpResultCallBack%, dwData%) : "SendMessageCallbackA"
api_SendMessageTimeout% (hwnd%, msg%, wParam%, lParam%, fuFlags%, uTimeout%, lpdwResult%) : "SendMessageTimeoutA"
api_SendNotifyMessage% (hwnd%, msg%, wParam%, lParam%) : "SendNotifyMessageA"
api_SetActiveWindow% (hwnd%) : "SetActiveWindow"
api_SetCapture% (hwnd%) : "SetCapture"
api_SetCaretBlinkTime% (wMSeconds%) : "SetCaretBlinkTime"
api_SetCaretPos% (x%, y%) : "SetCaretPos"
api_SetClassLong% (hwnd%, nIndex%, dwNewLong%) : "SetClassLongA"
api_SetClassWord% (hwnd%, nIndex%, wNewWord%) : "SetClassWord"
api_SetClipboardData% (wFormat%, hMem%) : "SetClipboardDataA"
api_SetClipboardViewer% (hwnd%) : "SetClipboardViewer"
api_SetCursor% (hCursor%) : "SetCursor"
api_SetCursorPos% (x%, y%) : "SetCursorPos"
api_SetDebugErrorLevel (dwLevel%) : "SetDebugErrorLevel"
api_SetDlgItemInt% (hDlg%, nIDDlgItem%, wValue%, bSigned%) : "SetDlgItemInt"
api_SetDlgItemText% (hDlg%, nIDDlgItem%, lpString$) : "SetDlgItemTextA"
api_SetDoubleClickTime% (wCount%) : "SetDoubleClickTime"
api_SetFocus% (hwnd%) : "SetFocus"
api_SetForegroundWindow% (hwnd%) : "SetForegroundWindow"
api_SetKeyboardState% (lppbKeyState%) : "SetKeyboardState"
api_SetLastErrorEx (dwErrCode%, dwType%) : "SetLastErrorEx"
api_SetLayeredWindowAttributes% (hWnd%, colorRGB%, Alpha%, dwFlags%) : "SetLayeredWindowAttributes"
api_SetMenu% (hwnd%, hMenu%) : "SetMenu"
api_SetMenuContextHelpId% (hMenu%, dw%) : "SetMenuContextHelpId"
api_SetMenuDefaultItem% (hMenu%, uItem%, fByPos%) : "SetMenuDefaultItem"
api_SetMenuItemBitmaps% (hMenu%, nPosition%, wFlags%, hBitmapUnchecked%, hBitmapChecked%) : "SetMenuItemBitmaps"
api_SetMenuItemInfo% (hMenu%, un%, bool%, lpcMenuItemInfo*) : "SetMenuItemInfoA"
api_SetMessageExtraInfo% (lParam%) : "SetMessageExtraInfo"
api_SetMessageQueue% (cMessagesMax%) : "SetMessageQueue"
api_SetParent% (hWndChild%, hWndNewParent%) : "SetParent"
api_SetProcessWindowStation% (hWinSta%) : "SetProcessWindowStation"
api_SetProp% (hwnd%, lpString$, hData%) : "SetPropA"
api_SetRect% (lpRect*, X1%, Y1%, X2%, Y2%) : "SetRect"
api_SetRectEmpty% (lpRect*) : "SetRectEmpty"
api_SetScrollInfo% (hWnd%, n%, lpcScrollInfo*, bool%) : "SetScrollInfo"
api_SetScrollPos% (hwnd%, nBar%, nPos%, bRedraw%) : "SetScrollPos"
api_SetScrollRange% (hwnd%, nBar%, nMinPos%, nMaxPos%, bRedraw%) : "SetScrollRange"
api_SetSysColors% (nChanges%, lpSysColor%, lpColorValues%) : "SetSysColors"
api_SetSystemCursor% (hcur%, id%) : "SetSystemCursor"
api_SetThreadDesktop% (hDesktop%) : "SetThreadDesktop"
api_SetTimer% (hWnd%, nIDEvent%, uElapse%, lpTimerFunc%) : "SetTimer"
api_SetUserObjectInformation% (hObj%, nIndex%, pvInfo*, nLength%) : "SetUserObjectInformationA"
api_SetUserObjectSecurity% (hObj%, pSIRequested%, pSd*) : "SetUserObjectSecurity"
api_SetWindowContextHelpId% (hWnd%, dw%) : "SetWindowContextHelpId"
api_SetWindowLong% (hwnd%, nIndex%, dwNewLong%) : "SetWindowLongA"
api_SetWindowPlacement% (hwnd%, lpwndpl*) : "SetWindowPlacement"
api_SetWindowPos% (hwnd%, hWndInsertAfter%, x%, y%, cx%, cy%, wFlags%) : "SetWindowPos"
api_SetWindowRgn% (hWnd%, hRgn%, bRedraw%) : "SetWindowRgn"
api_SetWindowsHook% (nFilterType%, pfnFilterProc%) : "SetWindowsHookA"
api_SetWindowsHookEx% (idHook%, lpfn%, hmod%, dwThreadId%) : "SetWindowsHookExA"
api_SetWindowText% (hwnd%, lpString$) : "SetWindowTextA"
api_SetWindowWord% (hwnd%, nIndex%, wNewWord%) : "SetWindowWord"
api_ShowCaret% (hwnd%) : "ShowCaret"
api_ShowCursor% (bShow%) : "ShowCursor"
api_ShowOwnedPopups% (hwnd%, fShow%) : "ShowOwnedPopups"
api_ShowScrollBar% (hwnd%, wBar%, bShow%) : "ShowScrollBar"
api_ShowWindow% (hwnd%, nCmdShow%) : "ShowWindow"
api_ShowWindowAsync% (hWnd%, nCmdShow%) : "ShowWindowAsync"
api_SubtractRect% (lprcDst*, lprcSrc1*, lprcSrc2*) : "SubtractRect"
api_SwapMouseButton% (bSwap%) : "SwapMouseButton"
api_SwitchDesktop% (hDesktop%) : "SwitchDesktop"
api_SystemParametersInfo% (uAction%, uParam%, lpvParam$, fuWinIni%) : "SystemParametersInfoA"
api_TabbedTextOut% (hdc%, x%, y%, lpString$, nCount%, nTabPositions%, lpnTabStopPositions%, nTabOrigin%) : "TabbedTextOutA"
api_TileWindows% (hwndParent%, wHow%, lpRect*, cKids%, lpKids%) : "TileWindows"
api_ToAscii% (uVirtKey%, uScanCode%, lpbKeyState%, lpwTransKey%, fuState%) : "ToAscii"
api_ToAsciiEx% (uVirtKey%, uScanCode%, lpKeyState%, lpChar%, uFlags%, dwhkl%) : "ToAsciiEx"
api_ToUnicode% (wVirtKey%, wScanCode%, lpKeyState%, pwszBuff$, cchBuff%, wFlags%) : "ToUnicode"
api_TrackPopupMenu% (hMenu%, wFlags%, x%, y%, nReserved%, hwnd%, lprc*) : "TrackPopupMenu"
api_TrackPopupMenuEx% (hMenu%, un%, n1%, n2%, hWnd%, lpTPMParams*) : "TrackPopupMenuEx"
api_TranslateAccelerator% (hwnd%, hAccTable%, lpMsg*) : "TranslateAcceleratorA"
api_TranslateMDISysAccel% (hWndClient%, lpMsg*) : "TranslateMDISysAccel"
api_TranslateMessage% (lpMsg*) : "TranslateMessage"
api_UnhookWindowsHook% (nCode%, pfnFilterProc%) : "UnhookWindowsHook"
api_UnhookWindowsHookEx% (hHook%) : "UnhookWindowsHookEx"
api_UnionRect% (lpDestRect*, lpSrc1Rect*, lpSrc2Rect*) : "UnionRect"
api_UnloadKeyboardLayout% (HKL%) : "UnloadKeyboardLayout"
api_UnpackDDElParam% (msg%, lParam%, puiLo%, puiHi%) : "UnpackDDElParam"
api_UnregisterClass% (lpClassName$, hInstance%) : "UnregisterClassA"
api_UnregisterHotKey% (hwnd%, id%) : "UnregisterHotKey"
api_UpdateWindow% (hwnd%) : "UpdateWindow"
api_ValidateRect% (hwnd%, lpRect*) : "ValidateRect"
api_ValidateRgn% (hwnd%, hRgn%) : "ValidateRgn"
api_VkKeyScan% (cChar%) : "VkKeyScanA"
api_VkKeyScanEx% (ch%, dwhkl%) : "VkKeyScanExA"
api_WaitForInputIdle% (hProcess%, dwMilliseconds%) : "WaitForInputIdle"
api_WaitMessage% () : "WaitMessage"
api_WindowFromDC% (hdc%) : "WindowFromDC"
api_WindowFromPoint% (xPoint%, yPoint%) : "WindowFromPoint"
api_WinHelp% (hwnd%, lpHelpFile$, wCommand%, dwData%) : "WinHelpA"
api_WindowMenu% (hwnd%) : "WindowMenu"

User32.Decls goes inside your blitz3d/userlibs folder.

Keys: 

Control + Space + W/A/S/D or Arrow keys = Rotate on the X / Z axes'.
Control + W/A/S/D or Arrow keys = Rotate on the X / Y axes'.

Holding Shift + any of the 2 above keys will result in faster
movement / rotation of the instances.

Key_Consts.bb:

; Common keys:
Const VK_LEFTMOUSE                              = $01   ; Left physical mouse button
Const VK_RIGHTMOUSE                             = $02   ; Right physical mouse button
Const VK_MIDDLEMOUSE                            = $04   ; Middle physical mouse button
Const VK_BACKSPACE                              = $08   ; BACKSPACE key
Const VK_TAB                                    = $09   ; TAB key
Const VK_ENTER                                  = $0D   ; ENTER key (Main keyboard or keypad)
Const VK_SHIFT                                  = $10   ; SHIFT key (Left or right)
Const VK_CONTROL                                = $11   ; CTRL key (Left or right)
Const VK_ALT                                    = $12   ; ALT key (Left or right)
Const VK_PAUSE                                  = $13   ; PAUSE key
Const VK_SCROLL                                 = $14   ; SCROLL LOCK key
Const VK_ESCAPE                                 = $1B   ; ESC key
Const VK_SPACE                                  = $20   ; SPACEBAR
Const VK_PGUP                                   = $21   ; PAGE UP key
Const VK_PGDN                                   = $22   ; PAGE DOWN key
Const VK_END                                    = $23   ; END key
Const VK_HOME                                   = $24   ; HOME key
Const VK_LEFT                                   = $25   ; LEFT ARROW key
Const VK_UP                                     = $26   ; UP ARROW key
Const VK_RIGHT                                  = $27   ; RIGHT ARROW key
Const VK_DOWN                                   = $28   ; DOWN ARROW key
Const VK_PRINTSCRN                              = $2C   ; PRINT SCREEN key
Const VK_INSERT                                 = $2D   ; INSERT key
Const VK_DELETE                                 = $2E   ; DELETE key
Const VK_0                                      = $30
Const VK_1                                      = $31
Const VK_2                                      = $32
Const VK_3                                      = $33
Const VK_4                                      = $34
Const VK_5                                      = $35
Const VK_6                                      = $36
Const VK_7                                      = $37
Const VK_8                                      = $38
Const VK_9                                      = $39
Const VK_A                                      = $41
Const VK_B                                      = $42
Const VK_C                                      = $43
Const VK_D                                      = $44
Const VK_E                                      = $45
Const VK_F                                      = $46
Const VK_G                                      = $47
Const VK_H                                      = $48
Const VK_I                                      = $49
Const VK_J                                      = $4A
Const VK_K                                      = $4B
Const VK_L                                      = $4C
Const VK_M                                      = $4D
Const VK_N                                      = $4E
Const VK_O                                      = $4F
Const VK_P                                      = $50
Const VK_Q                                      = $51
Const VK_R                                      = $52
Const VK_S                                      = $53
Const VK_T                                      = $54
Const VK_U                                      = $55
Const VK_V                                      = $56
Const VK_W                                      = $57
Const VK_X                                      = $58
Const VK_Y                                      = $59
Const VK_Z                                      = $5A
Const VK_LEFTWIN                                = $5B   ; Left Windows key
Const VK_RIGHTWIN                               = $5C   ; Right Windows key
Const VK_NUMPAD0                                = $60
Const VK_NUMPAD1                                = $61
Const VK_NUMPAD2                                = $62
Const VK_NUMPAD3                                = $63
Const VK_NUMPAD4                                = $64
Const VK_NUMPAD5                                = $65
Const VK_NUMPAD6                                = $66
Const VK_NUMPAD7                                = $67
Const VK_NUMPAD8                                = $68
Const VK_NUMPAD9                                = $69
Const VK_MULTIPLY                               = $6A   ; Keypad *
Const VK_ADD                                    = $6B   ; Keypad +
Const VK_SEPERATOR                              = $6C   ; Keypad /
Const VK_SUBTRACT                               = $6D   ; Keypad -
Const VK_DECIMAL                                = $6E   ; Keypad .
Const VK_DIVIDE                                 = $6F   ; Keypad \
Const VK_F1                                     = $70
Const VK_F2                                     = $71
Const VK_F3                                     = $72
Const VK_F4                                     = $73
Const VK_F5                                     = $74
Const VK_F6                                     = $75
Const VK_F7                                     = $76
Const VK_F8                                     = $77
Const VK_F9                                     = $78
Const VK_F10                                    = $79
Const VK_F11                                    = $7A
Const VK_F12                                    = $7B
Const VK_NUMLOCK                                = $90  
Const VK_CAPITAL                                = $91   ; CAPS LOCK key
Const VK_LEFTSHIFT                              = $A0   ; Windows 95 does not support the left and right distinguishing constants.     
Const VK_RIGHTSHIFT                             = $A1  
Const VK_LEFTCTRL                               = $A2  
Const VK_RIGHTCTRL                              = $A3  
Const VK_LEFTALT                                = $A4  
Const VK_RIGHTALT                               = $A5
 
; Less common keys:
; Some of the keys here would seem to be common keys, but the documentation does not say they work in 95/98,
; so I did not include them with the other keys above just to be safe.
Const VK_CANCEL                                 = $03   ; Control-break processing
Const VK_X1MOUSE                                = $05   ; Windows 2000/XP: X1 mouse button
Const VK_X2MOUSE                                = $06   ; Windows 2000/XP: X2 mouse button
Const VK_CLEAR                                  = $0C   ; CLEAR key
Const VK_SELECT                                 = $29   ; SELECT key
Const VK_EXECUTE                                = $2B   ; EXECUTE key
Const VK_PRINT                                  = $2A   ; PRINT key
Const VK_HELP                                   = $2F   ; HELP key
Const VK_KANA                                   = $15   ; Input Method Editor (IME) Kana mode
Const VK_HANGUL                                 = $15   ; IME Hangul mode
Const VK_JUNJA                                  = $17   ; IME Junja mode
Const VK_FINAL                                  = $18   ; IME final mode
Const VK_KANJI                                  = $19   ; IME Hanja/Kanji mode 
Const VK_CONVERT                                = $1C   ; IME convert
Const VK_NONCONVERT                             = $1D   ; IME nonconvert
Const VK_ACCEPT                                 = $1E   ; IME accept
Const CK_MODECHANGE                             = $1F   ; IME mode change request
Const VK_APPS                                   = $5D   ; Applications key
Const VK_SLEEP                                  = $5F   ; Computer Sleep key
Const VK_F13                                    = $7C
Const VK_F14                                    = $7D
Const VK_F15                                    = $7E
Const VK_F16                                    = $7F
Const VK_F17                                    = $80
Const VK_F18                                    = $81
Const VK_F19                                    = $82
Const VK_F20                                    = $83
Const VK_F21                                    = $84
Const VK_F22                                    = $85
Const VK_F23                                    = $86
Const VK_F24                                    = $87
Const VK_BROWSER_BACK                           = $A6   ; Windows 2000/XP: Browser Back key
Const VK_BROWSER_FORWARD                        = $A7   ; Windows 2000/XP: Browser Forward key
Const VK_BROWSER_REFRESH                        = $A8   ; Windows 2000/XP: Browser Refresh key
Const VK_BROWSER_STOP                           = $A9   ; Windows 2000/XP: Browser Stop key
Const VK_BROWSER_SEARCH                         = $AA   ; Windows 2000/XP: Browser Search key
Const VK_BROWSER_FAVORITES                      = $AB   ; Windows 2000/XP: Browser Favorites key
Const VK_BROWSER_HOME                           = $AC   ; Windows 2000/XP: Browser Start And Home key
Const VK_VOLUME_MUTE                            = $AD   ; Windows 2000/XP: Volume Mute key
Const VK_VOLUME_DOWN                            = $AE   ; Windows 2000/XP: Volume Down key
Const VK_VOLUME_UP                              = $AF   ; Windows 2000/XP: Volume Up key
Const VK_MEDIA_NEXT_TRACK                       = $B0   ; Windows 2000/XP: Next Track key
Const VK_MEDIA_PREV_TRACK                       = $B1   ; Windows 2000/XP: Previous Track key
Const VK_MEDIA_STOP                             = $B2   ; Windows 2000/XP: Stop Media key
Const VK_MEDIA_PLAY_PAUSE                       = $B3   ; Windows 2000/XP: Play/Pause Media key
Const VK_LAUNCH_MAIL                            = $B4   ; Windows 2000/XP: Start Mail key
Const VK_LAUNCH_MEDIA_SELECT                    = $B5   ; Windows 2000/XP: Select Media key
Const VK_LAUNCH_APP1                            = $B6   ; Windows 2000/XP: Start Application 1 key
Const VK_LAUNCH_APP2                            = $B7   ; Windows 2000/XP: Start Application 2 key     
Const VK_OEM_1                                  = $BA   ; Windows 2000/XP: For the US standard keyboard, the ';:' key
Const VK_OEM_PLUS                               = $BB   ; Windows 2000/XP: For any country/region, the '+' key
Const VK_OEM_COMMA                              = $BC   ; Windows 2000/XP: For any country/region, the ',' key
Const VK_OEM_MINUS                              = $BD   ; Windows 2000/XP: For any country/region, the '-' key
Const VK_OEM_PERIOD                             = $BE   ; Windows 2000/XP: For any country/region, the '.' key
Const VK_OEM_2                                  = $BF   ; Windows 2000/XP: For the US standard keyboard, the '/?' key
Const VK_OEM_3                                  = $C0   ; Windows 2000/XP: For the US standard keyboard, the '`~' key
Const VK_OEM_4                                  = $DB   ; Windows 2000/XP: For the US standard keyboard, the '[{' key
Const VK_OEM_5                                  = $DC   ; Windows 2000/XP: For the US standard keyboard, the '\|' key
Const VK_OEM_6                                  = $DD   ; Windows 2000/XP: For the US standard keyboard, the ']}' key
Const VK_OEM_7                                  = $DE   ; Windows 2000/XP: For the US standard keyboard, the 'single-quote/double-quote' key
Const VK_OEM_8                                  = $DF   ; Used for miscellaneous characters; it can vary by keyboard.
Const VK_ICO_F17                                = $E0  
Const VK_ICO_F18                                = $E1  
Const VK_OEM102                                 = $E2   ; Windows 2000/XP: Either the angle bracket key or the backslash key on the RT 102-key keyboard
Const VK_ICO_HELP                               = $E3
Const VK_ICO_00                                 = $E4  
Const VK_PROCESSKEY                             = $E5   ; Windows 95/98/Me, Windows NT 4.0, Windows 2000/XP: IME PROCESS key
Const VK_ICO_CLEAR                              = $E6
Const VK_PACKET                                 = $E7   ; Windows 2000/XP: Used to pass Unicode characters as if they were keystrokes.
Const VK_OEM_RESET                              = $E9
Const VK_OEM_JUMP                               = $EA
Const VK_OEM_PA1                                = $EB
Const VK_OEM_PA2                                = $EC
Const VK_OEM_PA3                                = $ED
Const VK_OEM_WSCTRL                             = $EE
Const VK_OEM_CUSEL                              = $EF
Const VK_OEM_ATTN                               = $F0
Const VK_OEM_FINNISH                            = $F1
Const VK_OEM_COPY                               = $F2
Const VK_OEM_AUTO                               = $F3
Const VK_OEM_ENLW                               = $F4
Const VK_OEM_BACKTAB                            = $F5
Const VK_ATTN                                   = $F6   ; Attn key
Const VK_CRSEL                                  = $F7   ; CrSel key
Const VK_EXSEL                                  = $F8   ; ExSel key
Const VK_EREOF                                  = $F9   ; Erase EOF key
Const VK_PLAY                                   = $FA   ; Play key
Const VK_ZOOM                                   = $FB   ; Zoom key
Const VK_NONAME                                 = $FC   ; Reserved
Const VK_PA1                                    = $FD   ; PA1 key
Const VK_OEM_CLEAR                              = $FE   ; Clear key

test10d_instance_control.bb:

dxApptitle "Direct X11 Test"
dxSetWindowDefaults True, False, False, False, False

Type Obj

	Field cam_xpos#
	Field cam_ypos#
	Field cam_zpos#

	Field cam_xrot#
	Field cam_yrot#
	Field cam_zrot#

	Field omesh
	Field otex
	Field otexflags
	
	Field texname$

	Field objcount
	Field filename$
	Field objmeshname$

	Field selected
	
	Field PivotXPosition#
	Field PivotYPosition#
	Field PivotZPosition#

	Field PivotPitch#
	Field PivotYaw#
	Field PivotRoll#
	
	Field XPosition#
	Field YPosition#
	Field ZPosition#
	
	Field XRotation#
	Field YRotation#
	Field ZRotation#
	
	Field XScale#
	Field YScale#
	Field ZScale#
	
	Field R%
	Field G%
	Field B%

	Field A%
	Field Shine#
	Field FX%

    ;; new fields
    
    Field Diameter  ; should equal the outer radius of the object/mesh/model
    Field ID        ; object identification tracker (if needed)

    Field mesh%

    Field boxWidth#
    Field boxHeight#
	Field boxDepth#
	
	Field cut

End Type

dxGraphics3D(800, 600, 0, 2)
dxSeedRnd MilliSecs()

Include "includes\cam_generic.bb"
Include "includes\gfx_generic.bb"
Include "Key_Consts.bb"

Global fontname$ = "Old English Text MT"

Global font=dxLoadFont(fontname$, 24, 0, 0, 0)
dxSetFont font

Global terrain=dxLoadTerrain("images\height_map.bmp", 0)
dxScaleEntity terrain, 10, 256, 10, True
dxEntityType terrain, type_land, 1

Global grass=dxLoadTexture("images\grass3.jpg", 9)
dxEntityTexture terrain, grass, 0, 0

Global dwarf=dxLoadMesh("models\dwarf1.b3d", 0)
dxEntityType dwarf, type_obj, 1

Global tex=dxLoadTexture("images\dwarf.jpg", 9)
dxEntityTexture dwarf, tex, 0, 0

Global tex2=dxLoadTexture("images\axe.jpg", 9+2+4)
dxSurfaceTexture dxGetSurface(dwarf, 4), tex2, 0, 0

Const max_x_instances = 20
Const max_z_instances = 20
Const max_instance_elements = (max_x_instances * max_z_instances)

Global debug = True

Const type_land 		 	= 1
Const type_obj 		 		= 2

dxCollisions type_obj, type_land, 2, 3

Global moving
Global turning
Global scaling

Dim y_pos#(max_instance_elements)
Dim max_height#(max_instance_elements)
Dim waiting(max_instance_elements)
Dim dir(max_instance_elements)
Dim speed(max_instance_elements)
Dim spin_speed#(max_instance_elements)

Dim instance_x#(max_instance_elements)
Dim instance_y#(max_instance_elements)
Dim instance_z#(max_instance_elements)

Global max_kdhotkeys = 5
Global max_khhotkeys = 0

Dim HotKeysDown(max_kdhotkeys) 
Dim HotKeysHit(max_khhotkeys)

Global cam=dxCreateCamera(0)
dxCameraRange cam, .1, 10000

dxMoveEntity cam, 0, 150, 0
dxTurnEntity cam, 0, -40, -5, True

dxAmbientLight 255, 255, 255
dxUpdateNormals dwarf
dxPositionEntity dwarf, 0, 0, 100, True

Global instance = Create_Instance(dwarf)

Global milli
Global diff#
Global lastmilli

diff#=0
lastmilli=MilliSecs()

tex=dxCreateTexture(256, 256, 1, 1+128)

Global masterpiv = dxCreatePivot(cam)

dxPositionEntity masterpiv, dxEntityX#(cam, 1), dxEntityY#(cam, 1), dxEntityZ#(cam, 1), 0

moving = 0
turning = 0
scaling = 0

	Repeat
	
		moving = 0
		turning = 0
		scaling = 0
	
		Which_KeyHits()
		Which_KeyDowns()
	
		Update_Instance(instance, masterpiv, max_x_instances, max_z_instances)

		dxRenderWorld 0
		
		dxText 0, 0, dxGetFPS(), 0, 0
		dxText 0, 24, "Welcome to the annual dwarf crazy jumping competition.....", 0, 0
		
		dxText dxGraphicsWidth()/2, dxGraphicsHeight()/2, "moving: "+moving, 1, 1
		dxText dxGraphicsWidth()/2, dxGraphicsHeight()/2+20, "turning: "+turning, 1, 1
		dxText dxGraphicsWidth()/2, dxGraphicsHeight()/2+40, "scaling: "+scaling, 1, 1
		
		dxFlip 0
		
		fpsav=(fpsav+dxGetFPS())/2.0
		
		If debug
			If dxKeyDown(1) Then dxFlushKeys(): Exit
		Else
			If dxKeyDown(1) Then End
		EndIf
	
	Forever
	
	If debug
	
		Repeat
		
			dxCls
			
				dxText dxGraphicsWidth()/2, dxGraphicsHeight()/2, "Average FPS: ", 1, 1
				dxText dxGraphicsWidth()/2, dxGraphicsHeight()/2+30, fpsav, 1, 1
				
				dxText dxGraphicsWidth()/2, dxGraphicsHeight()/2+60, "Press any key to Exit Program", 1, 1
	
				dxFlip 0
				
				Delay 1
			
			dxWaitKey
			
			End
			
		Forever
		
	EndIf

End

Function Create_Instance(entity, xpos#=0.0, ypos#=0.0, zpos#=0.0, position_element = 1, color_element = 0, normal_element = 0, texcoord1_element = 0, texcoord2_element = 0)

	Local instance
	Local element = 1
	Local x
	Local z
	Local sca#

		instance=dxCreateInstancer(position_element, color_element, normal_element, texcoord1_element, texcoord2_element)
		
		dxInstancerAddElements instance, max_instance_elements
			
			For x=1 To max_x_instances
				
				For z=1 To max_z_instances
					
					If terrain
						dxInstancerPositionElement(instance, element, x*100, (dxTerrainHeight(terrain, x*10, z*10)*256)+20, z*100)
						sca#=Rnd(.4)+.8
						spin_speed(element)=Rnd(2)-1
						element=element+1
					Else
						dxInstancerPositionElement(instance, element, x*xpos#, y*ypos#, z*zpos#)
					EndIf
					
					dxInstancerRotateElement(instance, element, 0, Rnd(360), 0)
					
				Next
				
			Next
			
		dxInstancerHookEntity instance, entity
	
	Return instance

End Function

Function Update_Instance(instance, parent = 0, max_x_instances = 20, max_z_instances = 20)

	Local x

	Local z

	Local a=1
	
	For x = 1 To max_x_instances
			
		For z = 1 To max_z_instances
				
			If (waiting(a)=0)
					
				If Rnd(max_instance_elements-100)<2
						
					waiting(a)=1
					dir(a)=1
					max_height(a)=Rnd(50)+1
					speed(a)=Rnd(1)+.2
						
				EndIf
					
			Else
					
				If dir(a)=1
						
					y_pos(a)=y_pos(a)+(speed(a)*diff)
					If y_pos(a)>max_height(a)
						dir(a)=0
					EndIf
						
				Else
						
					y_pos(a)=y_pos(a)-(.06*diff)
					If y_pos(a)<0
						y_pos(a)=0
						waiting(a)=0
					EndIf
						
				EndIf
				
				If parent <> 0

					instance_x#(0) = dxEntityX#(parent, 0)+x*100
					instance_y#(0) = dxEntityY#(parent, 0)+(dxTerrainHeight(terrain, x*10, z*10)*256)+20+y_pos(a)
					instance_z#(0) = dxEntityZ#(parent, 0)+z*100

				Else

					instance_x#(0) = x*100
					instance_y#(0) = (dxTerrainHeight(terrain, x*10, z*10)*256)+20+y_pos(a)
					instance_z#(0) = z*100

				EndIf

				dxInstancerPositionElement(instance, a, instance_x#(0), instance_y#(0), instance_z#(0))
				
				If  moving < 0 Or  moving > 1 Then  moving = 0
				If turning < 0 Or turning > 1 Then turning = 0
				If scaling < 0 Or scaling > 1 Then scaling = 0
				
				If  moving Then turning = False
				If  turning Then moving = False
				If scaling Then moving = False: turning = False
				
				If Not (HotKeysDown(0))

					If Not (HotKeysDown(1))

						If W_UP() Then z1# = 0.01: moving = True: turning = False: scaling = False
						If S_DOWN() Then z1# = -0.01: moving = True: turning = False: scaling = False
						If A_LEFT() Then x1# = -0.01: moving = True: turning = False: scaling = False
						If D_RIGHT() Then x1# = 0.01: moving = True: turning = False: scaling = False
							
					Else
	
						If W_UP() Then z1# = 0.05: moving = True: turning = False: scaling = False
						If S_DOWN() Then z1# = -0.05: moving = True: turning = False: scaling = False
						If A_LEFT() Then x1# = -0.05: moving = True: turning = False: scaling = False
						If D_RIGHT() Then x1# = 0.05: moving = True: turning = False: scaling = False
						
					EndIf

				EndIf
				
			 	If (HotKeysDown(0))
					
					If Not (HotKeysDown(1))
					
						If W_UP() Then y1# = 0.01: moving = True: turning = False: scaling = False
						If S_DOWN() Then y1# = -0.01: moving = True: turning = False: scaling = False
						If A_LEFT() Then x1# = -0.01: moving = True: turning = False: scaling = False
						If D_RIGHT() Then x1# = 0.01: moving = True: turning = False: scaling = False
						
					Else
					
						If W_UP() Then y1# = 0.05: moving = True: turning = False: scaling = False
						If S_DOWN() Then y1# = -0.05: moving = True: turning = False: scaling = False
						If A_LEFT() Then x1# = -0.05: moving = True: turning = False: scaling = False
						If D_RIGHT() Then x1# = 0.05: moving = True: turning = False: scaling = False

					EndIf

					If (HotKeysHit(0))

						End

					EndIf

				EndIf
				
				If (HotKeysDown(2))
				 
					If Not (HotKeysDown(1))

						If W_UP() Then pitch1# = 0.1: turning = True: moving = False: scaling = False
						If S_DOWN() Then pitch1# = -0.1: turning = True: moving = False: scaling = False
						If A_LEFT() Then yaw1# = -0.1: turning = True: moving = False: scaling = False
						If D_RIGHT() Then yaw1# = 0.1: turning = True: moving = False: scaling = False
						
					Else

						If W_UP() Then pitch1# = 0.1: turning = True: moving = False: scaling = False
						If S_DOWN() Then pitch1# = -0.1: turning = True: moving = False: scaling = False
						If A_LEFT() Then yaw1# = -0.1: turning = True: moving = False: scaling = False
						If D_RIGHT() Then yaw1# = 0.1: turning = True: moving = False: scaling = False

					EndIf
					
				EndIf
				
				If (HotKeysDown(4))
					
					If Not (HotKeysDown(1))

						If W_UP() Then pitch1# = 1.0: turning = True: moving = False: scaling = False
						If S_DOWN() Then pitch1# = -1.0: turning = True: moving = False: scaling = False
						If A_LEFT() Then roll1# = -1.0: turning = True: moving = False: scaling = False
						If D_RIGHT() Then roll1# = 1.0: turning = True: moving = False: scaling = False
						
					Else

						If W_UP() Then pitch1# = 2.0: turning = True: moving = False: scaling = False
						If S_DOWN() Then pitch1# = -2.0: turning = True: moving = False: scaling = False
						If A_LEFT() Then roll1# = -2.0: turning = True: moving = False: scaling = False
						If D_RIGHT() Then roll1# = 2.0: turning = True: moving = False: scaling = False

					EndIf

				EndIf
					
				If  moving Then dxMoveEntity(parent, x1#, y1#, z1#)

				If parent  = 0

					dxInstancerTurnElement instance, a, 0, .0001*spin_speed(a)*diff, 0

				ElseIf parent <> 0

					If turning = True
					
						dxInstancerTurnElement instance, a, pitch1#, yaw1#+.0001*spin_speed(a)*diff, roll1#

					EndIf

				EndIf
	
			EndIf
			
			a=a+1
			
		Next
			
	Next

	milli=MilliSecs()
	diff=milli-lastmilli
	lastmilli=milli

End Function

Function GDI_GetAsyncKeyState(VirtualKey, IgnoreFocus=False)

	If (IgnoreFocus = True) And (api_GetActiveWindow() = 0) Then Return
	Return (api_GetAsyncKeyState%(VirtualKey) And %1000000000000000) > 0

End Function

Function CONTROLKEYS()

	Return (GDI_GetAsyncKeyState(VK_LEFTCTRL, 1) + GDI_GetAsyncKeyState(VK_RIGHTCTRL, 1))

End Function

Function SHIFTKEYS()

	Return (GDI_GetAsyncKeyState(VK_LEFTSHIFT, 1) + GDI_GetAsyncKeyState(VK_RIGHTSHIFT, 1))
	
End Function

Function SPACEKEY()

	Return (dxKeyDown(57))

End Function

Function WD()

	Return (dxKeyDown(17))

End Function

Function SD()

	Return (dxKeyDown(31))

End Function

Function AD()

	Return (dxKeyDown(30))

End Function

Function DD()

	Return (dxKeyDown(32))

End Function

Function UArrowD()
	Return (dxKeyDown(200))
End Function

Function DArrowD()
	Return (dxKeyDown(208))
End Function

Function LArrowD()
	Return (dxKeyDown(203))
End Function

Function RArrowD()
	Return (dxKeyDown(205))
End Function

Function W_UP()
	Return (WD() + UArrowD())
End Function

Function S_DOWN()
	Return (SD() + DArrowD())
End Function

Function A_LEFT()
	Return (AD() + LArrowD())
End Function

Function D_RIGHT()
	Return (DD() + RArrowD())
End Function

Function KH_C()
	Return (dxKeyHit(46))
End Function

Function Which_KeyDowns()

	Dim HotKeysDown(max_kdhotkeys)

		HotKeysDown(0) = (CONTROLKEYS())
		HotKeysDown(1) = (SHIFTKEYS())
		HotKeysDown(2) = (SPACEKEY())
		HotKeysDown(3) = (CONTROLKEYS() And SHIFTKEYS())
		HotKeysDown(4) = (CONTROLKEYS() And SPACEKEY())
		HotKeysDown(5) = (CONTROLKEYS() And SHIFTKEYS() And SPACEKEY())
	
		For x = 0 To max_kdhotkeys
			
			hotkeydown = HotKeysDown(x)
			
		Next
	
	Return hotkeydown
	
End Function

Function Which_KeyHits()
	
	Dim HotKeysHit(max_khhotkeys)

		HotKeysHit(0) = KH_C()
				
		For x = 0 To max_khhotkeys
				
			hotkeyhit = HotKeysHit(x)
					
		Next

	Return hotkeyhit

End Function

More to come soon including fixes! :)

P.S. Feel free to post any fixes you may have & I will add your code to the zip file & your name to the credits! :)

P.P.S. YAY! This is my 1st showcase post! W00000000000000T!

Thanks!

Sincerely,

~GF

Guy Fawkes

(Posted 2014) [#2]

BIG bug fix: I was able to fix the movement issue when holding control.

Please check 1st post for newly edited code.

Thanks!

Sincerely,

~GF

Guy Fawkes

(Posted 2014) [#3]

Added support for a "debug screen" if the Global variable "debug" is set to True, will just end program if set to False.

Check first post for newly edited code.

Rick Nasher

(Posted 2014) [#4]

Perhaps a good idea to list your dependencies/instructions for completness, because it's not running straight from the box does it?

For instance, I am getting a "Function 'api_getactivewindow' not found(if I'm not using my brain and don't look into the code first to see what it needs, which I like to do ;-).

Guy Fawkes

(Posted 2014) [#5]

EDIT: Fixed, @Rick Nasher. Sorry for the inconvenience(s) this may have caused you. :)

If I missed anymore dependency files, PLEASE do let me know!

Thanks again & I hope you like it! :)

Sincerely,

~GF

Rick Nasher

(Posted 2014) [#6]

Ah well, you are forgiven by making such a good effort and your willingness to try. ;-)

Guy Fawkes

(Posted 2014) [#7]

Awe, thanks Rick! :D YAY!

Mainsworthy

(Posted 2014) [#8]

I'm not working with this yet but its interesting to see what your working on

Guy Fawkes

(Posted 2014) [#9]

Yea, just trying to get it to make copies of many instances of the 3d model at the same time, and the ability to pick each and every mesh in the instance.