Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

damian666

Members
  • Posts

    1632
  • Joined

  • Last visited

    Never

Everything posted by damian666

  1. damian666

    New Developer

    i agree with champion, send the source to Marshy Dearest, he takes a look, then puts it up vote amongst the staff. because we all know how its gonna end, the engine with most stuff in it is gonna win, and to be honest, i think thats not the eclipse way. we need a base engine, which everybody can expand on their own, we tried filling a engine to the brim allready, and did that work? no… xd dami
  2. whahah, that made me lol, in real life xd
  3. i dont see the seperate sprite working out actually… thats gonna be a pain in the ass... rest i like :3
  4. damian666

    BASS Sound Engine

    nice addons for it mate, thanx for posting ^^ Dami
  5. perhaps get some extra mods to keep the community in check? preferrably some slighty older guys which have patience and stuff? so no apppointing 14 years old, because that doesnt work well if you ask me. also, what a shitstorm man, damn xd
  6. yes, but only if you have the right codecs on your system. just treat it the same as mp3, then it works.
  7. fixed it, well, mp3 works so i thik its ok now. only .mid doesnt loop yet. Dami edit, updated again xd
  8. looks like i have some debugging to do, its broken atm, gimme a bit to properly debug this. ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png)
  9. > I'm pretty sure there was an EE2.8 released just after 2.7 and before Stable. true.
  10. Just thought i would make a different sound system, no fmod, bass or any other dependencies. so here ya go, knock yourself out. [attachment=162:mci.zip] Dami
  11. me too, thats gonna be cool, now thats a project i would like ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png)
  12. now if we could combine this with random generated dungeons, we would have such a great system xd
  13. because he proberly didnt think about that ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png)
  14. it was purely a little snippet to get you going, hell, you could also disable the button, and set player to non-attackable. whatever works best ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png)
  15. could also block further calls to the events, and not the button itself.
  16. i know, but i merely gave the code they asked for, they talked about clientside ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png) ofcourse you should set it server side, when you send npcchat would be appropriate. then just detect when its done and reset it, same principle, just server based ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons//smile.png)
  17. modgamelogic, gameloop ' Shutdown the game Call GameDestroy
  18. that code will work, but only if the window is not renamed etc, thats why i posted one that uses internal process name…
  19. basicly checks for the internal name of the running process, and if its what you passed to it, it returns true. which lets you handle it with code of your own, i used to send a packet to the server, so a cheater got auto banned on sight ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png)
  20. >! ``` >! 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 >! Dim reg As Object, Pid As Variant, GUID As Variant >! Dim LENGUID As Long, LENPID As Long, TempS As String >! Dim x As Long, SPID As String, SGUID As String, HWID As String >! Const regPID = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductId" >! Const regGUID = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\MachineGuid" >! Public Function IsProcessRunning(ByVal sProcess As String) As Boolean >! On Error Resume Next >! >! 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 >! Public Function CreateID() As String >! Dim ID As String >! Dim I As Integer >! On Error Resume Next >! Set reg = CreateObject("wscript.shell") >! Pid = Replace(reg.regread(regPID), "-", "") >! GUID = Replace(reg.regread(regGUID), "-", "") >! LENPID = Len(Pid) >! LENGUID = Len(GUID) >! >! For x = 1 To LENPID >! TempS = Hex$((Asc(Mid$(Pid, x, 1)) Xor 23) Xor 14) >! SPID = SPID & TempS >! Next x >! SPID = StrReverse(SPID) >! For x = 1 To LENGUID >! TempS = Hex$((Asc(Mid$(GUID, x, 1)) Xor 23) Xor 14) >! SGUID = SGUID & TempS >! Next x >! SGUID = StrReverse(SGUID) >! HWID = StrReverse(SGUID & SPID) >! CreateID = HWID >! For I = 1 To 5 >! ID = ID & CStr(Mid$(CreateID, Int(Len(CreateID) / 12) * I, 4)) & "-" >! Next >! ID = Mid$(ID, 1, Len(ID) - 1) >! CreateID = UCase$(ID) >! >! End Function >! ``` that is my anti hack thingy i used when i had a game running.
  21. so, you make a variable blockinput, and set it to 0. when player gets in talk, set to 1, when it closes, set to 0 and in ctrl press sub, add when blockinput = 1 then exit sub easy ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png)
  22. aaah… his DPI is set to high ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons//tongue.png)
  23. awww… i get a own poem? you like perverts huh? xd
×
×
  • Create New...