Initial commit: ROW Client source code

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>
2025-11-29 16:24:34 +09:00
commit e067522598
5135 changed files with 1745744 additions and 0 deletions
--- a/Library/dxx8/samples/Multimedia/DirectShow_WinXP/VideoControl/HTML/mstv.jpg
+++ b/Library/dxx8/samples/Multimedia/DirectShow_WinXP/VideoControl/HTML/mstv.jpg
--- a/Library/dxx8/samples/Multimedia/DirectShow_WinXP/VideoControl/HTML/readme.txt
+++ b/Library/dxx8/samples/Multimedia/DirectShow_WinXP/VideoControl/HTML/readme.txt
@@ -0,0 +1,28 @@
+Windows XP DirectShow Sample -- MS Video Control
+------------------------------------------------
+
+These HTML samples demonstrate using the Microsoft Video Control
+to view ATSC digital, DVB digital, or analog television in a 
+Windows XP browser window.  
+
+NOTE: These samples require a BDA-compatible tuner card, according to
+the HTML file selected.
+
+- ViewATSC.htm	- Requires a BDA-compatible ATSC digital tuner card,
+                  such as the Broadlogic DTA-100.
+
+- ViewDVB.htm	- Requires a BDA-compatible DVB digital tuner card.
+
+- ViewTV.htm	- Requires a BDA-compatible NTSC analog tuner card.
+
+
+Requirements
+------------
+
+- Windows XP (or greater) operating system
+
+- BDA-compatible tuner card, as described above
+
+- MPEG-2 decoder (for example, a software DVD decoder)
+
+
--- a/Library/dxx8/samples/Multimedia/DirectShow_WinXP/VideoControl/HTML/viewatsc.htm
+++ b/Library/dxx8/samples/Multimedia/DirectShow_WinXP/VideoControl/HTML/viewatsc.htm
@@ -0,0 +1,139 @@
+<HTML>
+<HEAD>
+<TITLE>MSVidCtl: ATSC Digital TV</TITLE>
+</HEAD>
+
+<!--
+	This sample requires a ATSC digital TV tuner card that is compatible with the Microsoft TV Technologies 
+		driver architecture (BDA - Broadcast Driver Architecture).  
+
+	You must also have a MPEG-2 decoder installed that is capable of decoding the resolution 
+		(e.g. 480p or 1080i) of the digital broadcast.  
+	
+	High definition (HDTV) broadcasts may be at a resolution greater than your video card or MPEG-2 deocoder 
+		are capable of operating.
+-->
+
+<BODY BGCOLOR="#000001" TEXT="#FFFFFF" LINK="#FCCB7A" VLINK="#551A8B" ALINK="#EE0000">
+
+<CENTER>
+
+<P>
+<INPUT id=startbutton type=button value="Power On">
+<INPUT id=stopbutton type=button value="Power Off">
+</P>
+
+<OBJECT ID="MSVidCtl" CLASSID="CLSID:B0EDF163-910A-11D2-B632-00C04F79498E"></OBJECT>
+
+</CENTER>
+
+
+<P ALIGN="center">
+	<BR>
+	<B>Channel: </B> <INPUT TYPE="text" id=currentchannel maxlength=3 SIZE=3>
+	<B>Minor Chanel: </B> <INPUT TYPE="text" id=currentminorchannel maxlength=3 SIZE=3>
+	<INPUT id=enter type=button value="Enter">
+	<br>
+	<INPUT id=chanup type=button value="Channel Up">
+	<INPUT id=chandown type=button value="Channel Down">
+	<BR>
+	</P>
+<CENTER>
+
+<P id=dl>xxx</P>
+
+<SCRIPT language=vbscript>
+option explicit
+
+dim tscontainer 'tuning space collection
+dim ts 'ATSC tuning space 
+dim tr 'ATSC tune request
+dim locator 'ATSC Locator
+
+sub window_onload
+	
+	MSVidCtl.MaintainAspectRatio = True
+	MSVidCtl.Width = 640
+	MSVidCtl.Height = 480
+
+	set tscontainer = createobject("BDATuner.SystemTuningSpaces")	
+
+	'Get the tuning space with the word "ATSC" in its name.  
+	'This tuning space works with North American ATSC terrestrial broadcast
+	'For other types of digital broadcast, you may need to create your own tuning space
+	set ts = tscontainer("ATSC")
+        
+	set tr = ts.CreateTuneRequest
+        
+	'By default we will start on channel 46
+	'The physical channel property on the locator sets the 'actual' physical channel
+	'The Microsoft TV Technology Network Provider will fill in the channel and minor channel, if available
+	set locator = CreateObject("BDATuner.ATSCLocator")
+	locator.PhysicalChannel = 46
+	tr.locator = locator
+	tr.MinorChannel = -1
+	tr.Channel = -1
+      
+        'Pass the tune request to the View() method and then build the graph
+	MSVidCtl.View tr
+	MSVidCtl.Run
+	
+	dl.innertext = MSVidCtl.InputActive.Tune.Channel
+	currentchannel.value = MSVidCtl.InputActive.Tune.Locator.PhysicalChannel
+	currentminorchannel.value = MSVidCtl.InputActive.Tune.MinorChannel
+end sub
+
+sub startbutton_onclick
+	'This starts the graph and begins displaying audio and video
+        MSVidCtl.Run
+end sub
+
+sub stopbutton_onclick
+	'This stops the graph, but does not destroy it
+        MSVidCtl.Stop
+end sub
+
+sub chanup_onclick
+        'Tune to the next channel up
+	locator.PhysicalChannel = locator.PhysicalChannel+1
+	tr.Locator = locator
+	tr.Channel = -1
+	tr.MinorChannel = -1
+        MSVidCtl.View tr
+
+        dl.innertext = MSVidCtl.InputActive.Tune.Channel
+	currentchannel.value = MSVidCtl.InputActive.Tune.Locator.PhysicalChannel
+	currentminorchannel.value = MSVidCtl.InputActive.Tune.MinorChannel
+end sub
+
+sub chandown_onclick
+        'Tune to the next channel up
+	locator.PhysicalChannel = locator.PhysicalChannel-1
+	tr.Locator = locator
+	tr.Channel = -1
+	tr.MinorChannel = -1
+        MSVidCtl.View tr
+
+        dl.innertext = MSVidCtl.InputActive.Tune.Channel
+	currentchannel.value = MSVidCtl.InputActive.Tune.Locator.PhysicalChannel
+	currentminorchannel.value = MSVidCtl.InputActive.Tune.MinorChannel
+end sub
+
+sub enter_onclick
+	'Tune to the channel the user entered in the textbox
+	'We allow the user to change to different virtual channels (minor channels)
+	locator.PhysicalChannel = currentchannel.value
+	tr.locator = locator
+	tr.Channel = -1
+	tr.MinorChannel = currentminorchannel.value
+        MSVidCtl.View tr
+        
+	dl.innertext = MSVidCtl.InputActive.Tune.Channel
+	currentchannel.value = MSVidCtl.InputActive.Tune.Locator.PhysicalChannel
+	currentminorchannel.value = MSVidCtl.InputActive.Tune.MinorChannel
+end sub
+
+</Script>
+
+</BODY>
+</HTML>
--- a/Library/dxx8/samples/Multimedia/DirectShow_WinXP/VideoControl/HTML/viewdvb.htm
+++ b/Library/dxx8/samples/Multimedia/DirectShow_WinXP/VideoControl/HTML/viewdvb.htm
@@ -0,0 +1,149 @@
+<HTML>
+<HEAD>
+<TITLE>MSVidCtl: DVB Digital TV</TITLE>
+</HEAD>
+
+<!--
+	This sample requires a DVB digital TV tuner card that is compatible with the Microsoft TV Technologies 
+		driver architecture (BDA - Broadcast Driver Architecture).  
+
+	You must also have a MPEG-2 decoder installed that is capable of decoding the resolution 
+		(e.g. 480p or 1080i) of the digital broadcast.  
+	
+	High definition (HDTV) broadcasts may be at a resolution greater than your video card or MPEG-2 deocoder 
+		are capable of operating.
+-->
+
+<BODY BGCOLOR="#000001" TEXT="#FFFFFF" LINK="#FCCB7A" VLINK="#551A8B" ALINK="#EE0000">
+
+<CENTER>
+<P>
+<INPUT id=startbutton type=button value="Power On">
+<INPUT id=stopbutton type=button value="Power Off">
+</P>
+
+<OBJECT ID="MSVidCtl" CLASSID="CLSID:B0EDF163-910A-11D2-B632-00C04F79498E"></OBJECT>
+
+</CENTER>
+
+<P>
+<INPUT id=chanup type=button value="Up">
+<INPUT id=chandown type=button value="Down">
+	<B>Channel: </B> <INPUT TYPE="text" id=currentchannel maxlength=3 SIZE=3>
+	<INPUT id=enter type=button value="Enter">
+</P>
+<P id=dl>xxx</P>
+
+<SCRIPT language=vbscript>
+option explicit
+
+Dim tuner
+Dim tscontainer
+Dim ts
+Dim local_ts
+Dim tr
+Dim locator
+
+sub window_onload
+        'Create a DVB Tuning Space
+	'The tuning space contains the system information for the broadcast service
+	'See the documentation on IDVBTuningSpace and DVBTuningSpace Object in MSDN or SDK for more info
+	'The tuning space created below is based on the settings for Echostar Dish Network in the USA
+	set tscontainer = CreateObject("BDATuner.SystemTuningSpaces")
+	set ts = CreateObject("BDATuner.DVBSTuningSpace") 
+	set locator = CreateObject("BDATuner.DVBSLocator")   
+
+	'Check if the tuning space already exists
+	For Each local_ts In tscontainer
+		If local_ts.UniqueName = "MYDVB" Then
+			Set ts = local_ts
+		End If
+	Next	
+
+	'The tuning space doesn't already exist, create it
+	If Not (ts.UniqueName = "MYDVB") Then
+		MsgBox "adding"    
+		ts.UniqueName = "MYDVB"
+		ts.FriendlyName = "MYDVB Tuning Space"
+		ts.SystemType = 2 'DVB_Satellite
+		ts.NetworkType = "{FA4B375A-45B4-4D45-8440-263957B11623}"
+		ts.LowOscillator = 11250000
+		ts.HighOscillator = -1
+		ts.LNBSwitch = -1
+
+		locator.CarrierFrequency = 12384000
+		locator.InnerFEC = 1 'BDA_FEC_VITERBI
+		locator.InnerFECRate = 3 'BDA_BCC_RATE_3_4
+		locator.Modulation = 20 'BDA_MOD_QPSK
+		locator.SignalPolarisation = 1 'BDA_POLARISATION_LINEAR_H
+		locator.SymbolRate = 20000
+		locator.Elevation = 5
+		ts.DefaultLocator = locator
+		tscontainer.Add ts
+	End If
+
+        
+	Set ts = tscontainer("MYDVB")
+	Set tr = ts.CreateTuneRequest
+        
+	'Set the DVBTuneRequest Properties Here:
+	'tr.ONID = -1
+	tr.SID = 101
+
+	'Display some information
+
+	
+	'Uncomment the lines below if you need to have the DVB-S Locator property for the tune request set.
+	'set locator = createobject("BDATuner.DVBSLocator")
+	'locator.CarrierFrequency = -1
+	'locator.InnerFEC = -1
+	'locator.InnerFECRate = -1
+	'locator.Modulation = -1
+	'locator.OuterFEC = -1
+	'locator.OuterFECRate = -1
+	'locator.SymbolRate = -1
+	'locator.Azimuth = -1
+	'locator.Elevation = -1
+	'locator.Elevation = -1
+	'locator.OrbitalPosition = -1
+	'locator.SignalPolarisation = -1
+	'locator.WestPosition = -1
+	'tr.locator = locator
+	  
+
+	MSVidCtl.Width = 800
+	MSVidCtl.Height = 600
+        MSVidCtl.View tr
+        dl.innertext = tr.SID
+end sub
+
+sub startbutton_onclick
+
+        MSVidCtl.Run
+end sub
+
+sub stopbutton_onclick
+        MSVidCtl.Stop
+end sub
+
+sub chanup_onclick
+        MsgBox "Nobody Home."
+end sub
+
+sub chandown_onclick
+        MsgBox "Nobody Home."
+end sub
+
+sub enter_onclick
+	'Tune to the channel the user entered in the textbox
+	'We allow the user to change to different virtual channels (minor channels)
+	tr.SID = currentchannel.value
+	MSVidCtl.View tr
+        
+	dl.innertext = tr.SID
+	currentchannel.value = tr.SID
+end sub
+</Script>
+
+</BODY>
+</HTML>
--- a/Library/dxx8/samples/Multimedia/DirectShow_WinXP/VideoControl/HTML/viewtv.htm
+++ b/Library/dxx8/samples/Multimedia/DirectShow_WinXP/VideoControl/HTML/viewtv.htm
@@ -0,0 +1,139 @@
+<HTML>
+<HEAD>
+<TITLE>MSVidCtl: NTSC Analog TV</TITLE>
+</HEAD>
+
+<!--
+	This sample requires an analog TV tuner card compatible with the Windows Driver Model.
+-->
+
+<BODY BGCOLOR="#000001" TEXT="#FFFFFF" LINK="#FCCB7A" VLINK="#551A8B" ALINK="#EE0000">
+<CENTER>
+
+<P>
+<INPUT id=startbutton type=button value="Power On">
+<INPUT id=stopbutton type=button value="Power Off">
+</P>
+
+<OBJECT ID="MSVidCtl" CLASSID="CLSID:B0EDF163-910A-11D2-B632-00C04F79498E"></OBJECT>
+
+</CENTER>
+
+<P align="center"> 
+  	<BR>
+  	<B>Channel: </B> 
+  	<INPUT TYPE="text" id=currentchannel maxlength=3 SIZE=3>
+  	<INPUT id=enter type=button value="Enter">
+	<BR>
+  	<INPUT id=chanup type=button value="Channel Up">
+  	<INPUT id=chandown type=button value="Channel Down">
+  	<BR>
+</P>
+
+<P id=dl>X</P>
+
+<SCRIPT language=vbscript>
+option explicit
+
+dim tscontainer 'tuning space collection
+dim ts 'Analog TV tuning space
+dim tr 'Analog TV tune request
+
+
+sub window_onload
+	MSVidCtl.Width = 800
+	MSVidCtl.Height = 600
+	
+	set tscontainer = CreateObject("BDATuner.SystemTuningSpaces")
+
+	'Get the tuning space with the word "Cable" in its name.  
+	'This tuning space works with North American NTSC Cable 
+	'You can use the tuning space "Antenna" if you are using NTSC terrestrial analog broadcast
+	'For other types of analog broadcast, you will need to create your own tuning space
+        set ts = tscontainer("Cable")
+
+        set tr = ts.CreateTuneRequest
+        
+	'By default we will start on channel 5
+	tr.Channel = 5
+        
+	'Pass the tune request to the View() method and then build the graph
+	MSVidCtl.View tr
+        MSVidCtl.Run
+
+	'This will alpha blend the image mstv.jpg over the video
+	dim pict
+	dim alpha
+	dim tempvidrend
+	dim myrect
+
+	dim CurrentPath
+	CurrentPath = location.href
+	CurrentPath = Replace(CurrentPath,"%20"," ")
+	CurrentPath = Replace(CurrentPath,"/","\")
+	CurrentPath = Mid(CurrentPath,6,InstrRev(CurrentPath,"\")-6)
+	if Mid(CurrentPath, 5, 1) = ":" then CurrentPath = Mid(CurrentPath, 4, Len(CurrentPath)-3)
+    
+	dim fileLoc
+	fileLoc = CurrentPath & "\mstv.jpg"
+	set pict = LoadPicture(fileLoc)
+
+	alpha = 35
+	set tempvidrend = MSVidCtl.VideoRendererActive
+	tempvidrend.MixerBitmapOpacity = alpha
+	set myrect = tempvidrend.MixerBitmapPositionRect
+	myrect.Top = 20
+	myrect.Left = 20
+	myrect.Width = 50
+	myrect.Height = 20
+	tempvidrend.MixerBitmapPositionRect = myrect
+	tempvidrend.MixerBitmap = pict
+
+	'Display the channel information
+	dl.innertext = MSVidCtl.InputActive.Tune.Channel
+	currentchannel.value = MSVidCtl.InputActive.Tune.Channel
+end sub
+
+sub startbutton_onclick
+	'This starts the graph and begins displaying audio and video
+        MSVidCtl.Run
+end sub
+
+
+sub stopbutton_onclick
+	'This stops the graph, but does not destroy it
+        MSVidCtl.Stop
+end sub
+
+sub chanup_onclick
+	'Tune to the next channel up
+	tr.Channel = tr.Channel + 1
+        MSVidCtl.View tr
+
+        dl.innertext = MSVidCtl.InputActive.Tune.Channel
+	currentchannel.value = MSVidCtl.InputActive.Tune.Channel
+end sub
+
+
+sub chandown_onclick
+	'Tune to the next channel down
+	tr.Channel = tr.Channel - 1
+        MSVidCtl.View tr
+
+        dl.innertext = MSVidCtl.InputActive.Tune.Channel
+	currentchannel.value = MSVidCtl.InputActive.Tune.Channel
+end sub
+
+sub enter_onclick
+	'Tune to the channel the user entered in the textbox
+	tr.channel = currentchannel.value
+        MSVidCtl.View tr
+
+        dl.innertext = MSVidCtl.InputActive.Tune.Channel
+	currentchannel.value = MSVidCtl.InputActive.Tune.Channel
+end sub
+
+</Script>
+
+</BODY>
+</HTML>