thales12

Error Line > CopyMemory ByVal VarPtr(Serial(serialNum)), ByVal VarPtr(serialData(0)), serialSize Client~side Subscript out of range Run time error 9

Yes tested! Because I for one do not like to use DX8

Very good, you who did?

First Download this dll: [http://www.4shared.com/rar/QKyPrUVyba/PaintX.html](http://www.4shared.com/rar/QKyPrUVyba/PaintX.html) Put it in your game folder. Open **Client~Side**: then go to > Project > References > Browse > Paintx.dll select the dll and click Ok. at the end of the mod add DirectDraw7: ``` Public Function LoadPNG(fileName As String, Optional Errore As Boolean) As StdPicture On Error GoTo er: Dim PictureDecoder As New PAINTXLib.PictureDecoder Set LoadPNG = PictureDecoder.LoadPicture(fileName) Exit Function er: If Errore Then MsgBox "Erreur de chargement de " & fileName & vbCrLf & "Verifiez qu'il soit présent." End Function Public Function LoadImage(fileName As String, DDraw As DirectDraw7, SDesc As DDSURFACEDESC2) As DirectDrawSurface7 Dim TPict As StdPicture Set TPict = LoadPNG(fileName, True) SDesc.lHeight = CLng((TPict.Height * 0.001) * 567 / Screen.TwipsPerPixelY) SDesc.lWidth = CLng((TPict.Width * 0.001) * 567 / Screen.TwipsPerPixelX) Set LoadImage = DDraw.CreateSurface(SDesc) Dim SDC As Long, TDC As Long SDC = LoadImage.GetDC TDC = CreateCompatibleDC(0) SelectObject TDC, TPict.Handle BitBlt SDC, 0, 0, SDesc.lWidth, SDesc.lHeight, TDC, 0, 0, vbSrcCopy LoadImage.ReleaseDC SDC DeleteDC TDC Set TPict = Nothing End Function Public Function LoadImageStretch(fileName As String, Height As Long, Width As Long, DDraw As DirectDraw7, SDesc As DDSURFACEDESC2) As DirectDrawSurface7 Dim TPict As New StdPicture Set TPict = LoadPNG(fileName, True) SDesc.lHeight = Height SDesc.lWidth = Width Set LoadImageStretch = DDraw.CreateSurface(SDesc) Dim SDC As Long, TDC As Long SDC = LoadImageStretch.GetDC TDC = CreateCompatibleDC(0) SelectObject TDC, TPict.Handle StretchBlt SDC, 0, 0, Width, Height, TDC, 0, 0, CLng((TPict.Width * 0.001) * 567 / Screen.TwipsPerPixelX), CLng((TPict.Height * 0.001) * 567 / Screen.TwipsPerPixelY), vbSrcCopy LoadImageStretch.ReleaseDC SDC DeleteDC TDC Set TPict = Nothing End Function ``` On top fashion directdraw7 add: ``` Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal HDC As Long) As Long Public Declare Function DeleteDC Lib "gdi32" (ByVal HDC As Long) As Long Public Declare Function SelectObject Lib "gdi32" (ByVal HDC As Long, ByVal hObject As Long) As Long Public Declare Function StretchBlt Lib "gdi32" (ByVal HDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long Private Declare Sub outportb Lib "PaintX.dll" (ByVal PortAddress As Integer, ByVal PortData As Byte) Private Declare Function inportb Lib "PaintX.dll" (ByVal PortAddress As Integer) As Byte ``` search for: ``` Public Const GFX_EXT As String = ".bmp" ``` Chage by: ``` Public Const GFX_EXT As String = ".png" ``` Search for: ``` Set Surf = DD.CreateSurfaceFromFile(fileName, SurfDesc) ``` change by: ``` Set Surf = LoadImage(fileName, DD, SurfDesc) ``` Ready now you can use images .png. Credits: Thales at the dll and declare tutorial

Congratulations engine, used there will surely.

You could upload to another download site

not because of my friend in Naruto, "Naruto Inner Power" has a mod ScriptedSpell!

someone tell me if you have a tutorial on the Eclipse scriptedspell Origins? Thank You