Private Function GetNextPokemon(ByVal Gen As Generation) As String
This function increments the index each time it is called.
This causes a bug in Private Sub asyncReq(ByVal sk As Socket) when using folder distribution mode
Case ModeType.Folder 'Check for a Gen IV request If req.IsGenIV Then 'Get the next Pokemon Dim _ans As String = GetNextPokemon(Generation.IV) 'Log about it Me.Log(ip + " will get " + IO.Path.GetFileNameWithoutExtension(_ans)) 'Ans ans = GetBinHG(GetNextPokemon(Generation.IV)) Else 'Get the next Pokemon Dim _ans As String = GetNextPokemon(Generation.V) 'Log about it Me.Log(ip + " will get " + IO.Path.GetFileNameWithoutExtension(_ans)) 'Ans ans = GetBin(GetNextPokemon(Generation.V)) End If [/Code] As you can see it is called twice which causes every other pokemon in the folder to be skipped. Changing ans = GetBin(GetNextPokemon(Generation.V)) to ans = GetBin(_ans) will correct this I also modified the source for myself so that it will disable IIS if it is detected, then re-enable when you stop the gts server. This will require administrator priveledges however, as you must have rights to control the service.
