Jacquelinett
-
Posts
844 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by Jacquelinett
-
-
common robin, give me some help :( i worked hard on this…
-
-
umh… it said that "argument not optional" when i added it to frmMain and compile it
-
so you mean i should simply add a produce to the formload?
-
:P Doesnt have quest system?
just add one to it. There is a tutorial for house to make one. -
-
-
convert directdraw7 to dx8
-
why dont u make this yourself? Robin created the source, you have to develop it
-
but shouldnt we combine both and create the best one?
Yes i know according to the creator of EE, EE is not good. But hey… dont they have some cool thing too? Because they are bad doesnt mean we shouldnt look at it. EO, it is good, but have u ever see it disadvantage? Everything always have two side, the good one and the bad one. Combine both together, eliminate the bad thing out and create a good one. -
so hwo do you add speech bubble? i really want it :(
-
hey, i was trying to make my chatbox transparent, here is what i have done.
in mod type
```
' AlphaBlend
Public Type BLENDFUNCTION
BlendOp As Byte
BlendFlags As Byte
SourceConstantAlpha As Byte
AlphaFormat As Byte
End Type
Public Declare Function AlphaBlend Lib "msimg32.dll" (ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long
Public Declare Sub RtlMoveMemory Lib "kernel32.dll" (Destination As Any, Source As Any, ByVal Length As Long)
```
modGameLogic
```
Public Sub ChatBlend()
'AlphaBlend for chatbox
Dim BF As BLENDFUNCTION, lBF As Long
'Set the graphics mode to persistent
frmMain.Picture8.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\chatbox_text.jpg")
frmMain.Picture8.AutoRedraw = True
frmMain.picScreenBuffer.AutoRedraw = True
'set the parameters
With BF
.BlendOp = AC_SRC_OVER
.BlendFlags = 0
.SourceConstantAlpha = 128
.AlphaFormat = 0
End With
'copy the BLENDFUNCTION-structure to a Long
RtlMoveMemory lBF, BF, 4
' frmMain.picScreenBuffer.Picture =
'AlphaBlend the picture from Picture1 over the picture of Picture2
AlphaBlend frmMain.Picture8.hdc, 0, 0, frmMain.Picture8.ScaleWidth, frmMain.Picture8.ScaleHeight, frmMain.picScreenBuffer.hdc, frmMain.Picture8.Left, frmMain.Picture8.top, frmMain.Picture8.ScaleWidth, frmMain.Picture8.ScaleHeight, lBF
End Sub
```
modConstants:
```
'Declarations/Functions for Transparent Rich Text Boxs
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
'Alpha Blend
Public Const AC_SRC_OVER = &H0
```
frmMain, sub formload
```
Dim TransRichText As Long
TransRichText = SetWindowLong(txtChat.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
``` *****************
replace the ** Render graphic ** with this:
*****************
```
Call Render_Graphics
If Options.ChatBlend = 1 Then
Call ChatBlend
End If
frmMain.txtChat.Refresh
DoEvents
frmMain.txtChat.Refresh
' Lock fps
If Not FPS_Lock Then
Do While GetTickCount < Tick + 15
DoEvents
Sleep 1
frmMain.txtChat.Refresh
Loop
End If
' Calculate fps
If TickFPS < Tick Then
GameFPS = FPS
TickFPS = Tick + 1000
FPS = 0
Else
FPS = FPS + 1
End If
Loop
frmMain.Visible = False
If isLogging Then
isLogging = False
frmMain.picScreen.Visible = False
frmMenu.Visible = True
GettingMap = True
StopMidi
PlayMidi Options.MenuMusic
Else
' Shutdown the game
frmLoad.Visible = True
Call SetStatus("Destroying game data...")
Call DestroyGame
End If
```There…
That what i did, but the chatbox is still not transparent, any idea?
btw, picture 8 is the picture box that contain the chat -
-
umh, why would you want people to pay for your game?
-
yes, the subscript out of range. I downloaded the 1.4 version and open the server, it said subscript out of range.
When I try to add the code to my game, after add all what he said, i go on and copy what he hadnt put in yet, but now i face another problem: there is no map.tileset in my game (u can see map.tileset like at the beginning of frmEditor_House). And after i added in tileset to maprec in modType, the game work fine but i have to delete my map. But thenn when i try to add npc, even after when i put in npc and press save, no npc appear and when i go to check, it appeared to me that i didnt add any npc -
I will show you the easier way to do it:
/setaccess PlayerName 1
And so on.
If you want to give access from the server, which is what i did, then you have to code it -
tried and tried, still doesnt work
-
-
okay thank Robin ^.^
-
can u explain it a little more in how to use it?
-
Can someone explain to me what the clsBuffer packet are please?
-
Normally, there are two access leve:
1\. Player: access level = 1
2\. Admin: Access level = 5
But you can add more access level if you want
For example, in my game, access level are:
1\. Player: access = 1
2\. Moderator: access = 2
3\. Mapper: access = 3
4\. Developer: access = 4
5\. Admin: access = 5
You can add more -
you think i cant read? Yes i do have the server file!!!!
I have the RTE 13 problem, not RTE >.< -
the menu??? Okay… This thing need a little bit of explain, but i think you will do it fine. There are 2 ways to do this:
1\. Expand the form and move the menu out where u can see it
2\. Make pictures box and copy and paste these menu on and place the picture box infront of picScreen.
For the 19x14 thing, do step 2\. Go to modConstant, then change the MaxX and MaxY, you said you want 19x14 right? Then change MaxX = 19 and max Y = 14
Then go to picScreen and fix the width to 640 and height to 480
Citadel {WIP}
in Old Eclipse Projects (Inactive)
Posted