Slasheree

did you already check ipchicken.com to see if it didn't change ?

nvm I thought tunngle ips usually were 8.### , but I checked and it was 7.### What ip is in the config.ini (client-side) ?

are you using tunngle ?

nvm, gonna use 1,2,3,4,5,6,7,8,9,0,F1 and F2 ._.

then how did they make it work in the Event System ?

but I need from F1 to F12 for spells/items… but F10 keeps opening that drop menu thingy ._. And thx ^^

Or try turning off the firewall for testing

try making one for each, like skype

which one ? ahahaha can anyone help me ? [EDIT] It's the last thing I need to have CS:DE completly fixed ( aside from the 'broken' graphics ) why won't anyone help ? :c

Does it ask like mine does ? 

Does your modem interface (or whatever it's called, the 192.168.1.1) ask for a Starting Port Value and an Ending Port Value ?

If it doesn't let you connect through the external IP it's because you failed at portfowarding ._.

I can't see what might be missing in this code: ``` Public Sub DrawParty() Dim i As Long, x As Long, y As Long, Width As Long, playerNum As Long, theName As String Dim height As Long ' render the window Width = 195 height = 250 'EngineRenderRectangle Tex_GUI(7), GUIWindow(GUI_PARTY).x, GUIWindow(GUI_PARTY).y, 0, 0, width, height, width, height, width, height RenderTexture Tex_GUI(7), GUIWindow(GUI_PARTY).x, GUIWindow(GUI_PARTY).y, 0, 0, Width, height, Width, height ' draw the bars If Party.Leader > 0 Then ' make sure we're in a party ' draw leader playerNum = Party.Leader ' name theName = Trim$(GetPlayerName(playerNum)) ' draw name y = GUIWindow(GUI_PARTY).y + 12 x = GUIWindow(GUI_PARTY).x + 7 + 90 - (EngineGetTextWidth(Font_Default, theName) / 2) RenderText Font_Default, theName, x, y, White ' draw hp y = GUIWindow(GUI_PARTY).y + 29 x = GUIWindow(GUI_PARTY).x + 6 ' make sure we actually have the data before rendering If GetPlayerVital(playerNum, Vitals.HP) > 0 And GetPlayerMaxVital(playerNum, Vitals.HP) > 0 Then Width = ((GetPlayerVital(playerNum, Vitals.HP) / Party_HPWidth) / (GetPlayerMaxVital(playerNum, Vitals.HP) / Party_HPWidth)) * Party_HPWidth End If 'EngineRenderRectangle Tex_GUI(16), x, y, 0, 0, width, 9, width, 9, width, 9 RenderTexture Tex_GUI(16), x, y, 0, 0, Width, 9, Width, 9 ' draw mp y = GUIWindow(GUI_PARTY).y + 38 ' make sure we actually have the data before rendering If GetPlayerVital(playerNum, Vitals.MP) > 0 And GetPlayerMaxVital(playerNum, Vitals.MP) > 0 Then Width = ((GetPlayerVital(playerNum, Vitals.MP) / Party_SPRWidth) / (GetPlayerMaxVital(playerNum, Vitals.MP) / Party_SPRWidth)) * Party_SPRWidth End If 'EngineRenderRectangle Tex_GUI(17), x, y, 0, 0, width, 9, width, 9, width, 9 RenderTexture Tex_GUI(17), x, y, 0, 0, Width, 9, Width, 9 ' draw members For i = 1 To MAX_PARTY_MEMBERS If Party.Member(i) > 0 Then If Party.Member(i) Party.Leader Then ' cache the index playerNum = Party.Member(i) ' name theName = Trim$(GetPlayerName(playerNum)) ' draw name y = GUIWindow(GUI_PARTY).y + 12 + ((i - 1) * 49) x = GUIWindow(GUI_PARTY).x + 7 + 90 - (EngineGetTextWidth(Font_Default, theName) / 2) RenderText Font_Default, theName, x, y, White ' draw hp y = GUIWindow(GUI_PARTY).y + 29 + ((i - 1) * 49) x = GUIWindow(GUI_PARTY).x + 6 ' make sure we actually have the data before rendering If GetPlayerVital(playerNum, Vitals.HP) > 0 And GetPlayerMaxVital(playerNum, Vitals.HP) > 0 Then Width = ((GetPlayerVital(playerNum, Vitals.HP) / Party_HPWidth) / (GetPlayerMaxVital(playerNum, Vitals.HP) / Party_HPWidth)) * Party_HPWidth End If 'EngineRenderRectangle Tex_GUI(16), x, y, 0, 0, width, 9, width, 9, width, 9 RenderTexture Tex_GUI(16), x, y, 0, 0, Width, 9, Width, 9 ' draw mp y = GUIWindow(GUI_PARTY).y + 38 + ((i - 1) * 49) ' make sure we actually have the data before rendering If GetPlayerVital(playerNum, Vitals.MP) > 0 And GetPlayerMaxVital(playerNum, Vitals.MP) > 0 Then Width = ((GetPlayerVital(playerNum, Vitals.MP) / Party_SPRWidth) / (GetPlayerMaxVital(playerNum, Vitals.MP) / Party_SPRWidth)) * Party_SPRWidth End If 'EngineRenderRectangle Tex_GUI(17), x, y, 0, 0, width, 9, width, 9, width, 9 RenderTexture Tex_GUI(17), x, y, 0, 0, Width, 9, Width, 9 End If End If Next End If ```

Everytime I try to press the F10 it opens a drop menu, can anyone help me ? 

Guess it has something to do with this in modGeneral ``` ' Get the listening socket ready to go frmServer.Socket(0).RemoteHost = frmServer.Socket(0).LocalIP frmServer.Socket(0).LocalPort = Options.Port ```

or you could use a dns

try to find whatever sets the items velocity and then add a little formula to add a modifier with the agility

*le wild bump appears*

Wish I could help with the CS:DE bugfixes, but I dunno what/how the duck I did XD

what does the CMSG_COUNT do ?

can anyone help me ? D:

search in the code for /help

maybe /fpslock can help ? I dunno really, never had lag (did not quite understand the problem)

When me and my friend are in a party, I can see his name in the party menu, but if he leaves the map the name dissappears eventhought the life and mana bars are synced correctly. Can anyone help me ?

I think it's easiest way to do what you want is to find if the process is running (found this in vbforums) [http://www.vbforums….Running-Process](http://www.vbforums.com/showthread.php?447184-Check-For-Running-Process) ``` Option Explicit Private Declare Function OpenProcess Lib "kernel32" ( _ ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" ( _ ByVal hObject As Long) As Long Private Declare Function EnumProcesses Lib "PSAPI.DLL" ( _ lpidProcess As Long, ByVal cb As Long, cbNeeded As Long) As Long Private Declare Function EnumProcessModules Lib "PSAPI.DLL" ( _ ByVal hProcess As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" ( _ ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long Private Const PROCESS_VM_READ = &H10 Private Const PROCESS_QUERY_INFORMATION = &H400 Private Function IsProcessRunning(ByVal sProcess As String) As Boolean Const MAX_PATH As Long = 260 Dim lProcesses() As Long, lModules() As Long, N As Long, lRet As Long, hProcess As Long Dim sName As String sProcess = UCase$(sProcess) ReDim lProcesses(1023) As Long If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then For N = 0 To (lRet \ 4) - 1 hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(N)) If hProcess Then ReDim lModules(1023) If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then sName = String$(MAX_PATH, vbNullChar) GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH sName = Left$(sName, InStr(sName, vbNullChar) - 1) If Len(sName) = Len(sProcess) Then If sProcess = UCase$(sName) Then IsProcessRunning = True: Exit Function End If End If End If CloseHandle hProcess Next N End If End Function ```