PersistentWorld3D - A Blitz Community Project.

{msgCommand}{msgObject(ID)}{msgValue#}

Examples:

{AvatarTranslateZ} {1} {1.5}
{EntityMoveX} {23} {14.75}
{ToolBooleanPickA} {5} {1}

CommandID, ObjectID, Value

Function NoUIActivity()
    If noactiveGadgets() And app\overwin = Null
		win.Window = First Window
		If win\dragging = True Then Return False
		Return True
	EndIf
End Function

Function bscvmThreadExecute(dummy)
End Function

; si on tombe sur un "\", c'est donc que c'"était un menu parent

; si on tombe sur un "\", c'est donc que c'était un menu parent

NG_DefaultSkin$ = "NGUI_files\NG_Blanc.jpg";.png"

NG_DefaultSkin$ = "NGUI_files\NG_Blanc.jpg";".png"

Const nS_MAXRECTS = 128
Dim nS_Rects(nS_MAXRECTS)
Global nS_NbRects = 0
Function nS_Rect(x, y, width, height, solid = True, buffer = -1)
nS_Rects(nS_NbRects) = nS_CreateImage(width, height)
nS_ImageColor nS_Rects(nS_NbRects), ColorRed(), ColorGreen(), ColorBlue()
SetBuffer nS_ImageBuffer(nS_Rects(nS_NbRects))
Rect 0, 0, width, height, solid
If buffer = -1 Then
SetBuffer BackBuffer()
Else
SetBuffer buffer
End If
nS_DrawImage nS_Rects(nS_NbRects), x, y
nS_NbRects = nS_NbRects + 1
End Function

Function nS_Cls(bClearScreen = True)
If bClearScreen Then
Cls
End If
nS_Z = 0
For sprite.nS_Sprite = Each nS_Sprite
HideEntity sprite\sprImage
Next
For i = 0 To nS_NbRects
FreeImage nS_Rects(nS_NbRects)
Next
nS_NbRects = 0
nS_DrawImage nS_sprBlank, 0, 0
nS_SpriteCount = 0
End Function