LGram16
e067522598
Game client codebase including: - CharacterActionControl: Character and creature management - GlobalScript: Network, items, skills, quests, utilities - RYLClient: Main client application with GUI and event handlers - Engine: 3D rendering engine (RYLGL) - MemoryManager: Custom memory allocation - Library: Third-party dependencies (DirectX, boost, etc.) - Tools: Development utilities 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
16 lines
435 B
QBasic
16 lines
435 B
QBasic
Attribute VB_Name = "modMisc"
|
|
Option Explicit
|
|
|
|
Public Function aCos(dCos As Double) As Double
|
|
On Error Resume Next 'Assume any errors mean the aCos = 0
|
|
'Here we will figure out the arccosine..
|
|
aCos = Atn(Sqr(1 - (dCos * dCos)) / dCos)
|
|
End Function
|
|
|
|
Public Sub PrintVector(vec As D3DVECTOR, Optional ByVal s As String = vbNullString)
|
|
With vec
|
|
Debug.Print s; " X="; .x; " Y="; .y; " Z="; .z
|
|
End With
|
|
End Sub
|
|
|