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

AfterDawn

Members
  • Posts

    86
  • Joined

  • Last visited

    Never

Everything posted by AfterDawn

  1. just like this? ``` If casestring = "maxinfo" Then GAME_NAME = Trim$(parse(1)) MAX_PLAYERS = Val(parse(2)) MAX_ITEMS = Val(parse(3)) MAX_NPCS = Val(parse(4)) MAX_SHOPS = Val(parse(5)) MAX_SPELLS = Val(parse(6)) MAX_MAPS = Val(parse(7)) MAX_MAP_ITEMS = Val(parse(8)) MAX_MAPX = Val(parse(9)) MAX_MAPY = Val(parse(10)) MAX_EMOTICONS = Val(parse(11)) MAX_ELEMENTS = Val(parse(12)) paperdoll = Val(parse(13)) SpriteSize = Val(parse(14)) MAX_SCRIPTSPELLS = Val(parse(15)) CustomPlayers = Val(parse(16)) lvl = Val(parse(17)) MAX_PARTY_MEMBERS = Val(parse(18)) STAT1 = parse(19) STAT2 = parse(20) STAT3 = parse(21) STAT4 = parse(22) ReDim ii(0 To 9) As Long ReDim iii(0 To 9) As Long ReDim DmgDamage(0 To 9) As Long ReDim DmgTime(0 To 9) As Long ReDim NPCDmgDamage(0 To 9) As Long ReDim NPCDmgTime(0 To 9) As Long ``` and this ``` If (casestring = "checkformap") Then GettingMap = True ReDim NPCWho(0 To 9) As Long ``` sorry im not really good at this. :sad:
  2. hello, where should i put this, i am confused where to put this. ``` ReDim ii(0 To 9) As Long ReDim iii(0 To 9) As Long ReDim DmgDamage(0 To 9) As Long ReDim DmgTime(0 To 9) As Long ReDim NPCDmgDamage(0 To 9) As Long ReDim NPCDmgTime(0 To 9) As Long ``` and this too. ``` ReDim NPCWho(0 To 9) As Long ``` thanks
  3. hello i cant make the form transparent. is this the one? i put this in the modgameeditor and look like this. ``` Option Explicit Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal color As Long, ByVal bAlpha As Byte, ByVal alpha As Long) As Boolean Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Const GWL_EXSTYLE = (-20) Public Const WS_EX_LAYERED = &H80000 Public Const LWA_ALPHA = &H2& ``` then the second i open the main frmsendgetdata (loading) clicked the form and placed the code and it look like this. ``` Private Sub Form_KeyPress(KeyAscii As Integer) If (KeyAscii = vbKeyEscape) Then Call GameDestroy Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED) SetLayeredWindowAttributes Me.hwnd, RGB(0, 0, 0), 0, 1 End If End Sub ``` i set the RGB to 0,0,0 (black color) and the form color to black. and when i load the game still not transparent, why?? :sad: anybody knows why?
  4. just host your game and dont ask for money XD
  5. a character status window. like in the picture. edit: do i need to create a label besides the player level in character status and put this code in the source? ``` GetPlayerName ```
  6. heres a screeshots, i think this will clear everything. ![](http://www.freemmorpgmaker.com/files/imagehost/pics/4b9f0ecf8fdf7c146299e0f6f7314a3f.bmp) in the upper part, theres the character name and next to it is the level. how can i make my name appeared in the game. this picture was from mr.miguu here ![](http://i2.photobucket.com/albums/y23/Alexanderthegreat91/screenShinai001.jpg)
  7. how can i add my character name in the form.? for example i logged my character named: Afterdawn it will reflect in the game like "Name: Afterdawn Lvl: 5"
  8. ok got it. i got error like a flash thing in the screen game, maybe its because i use pictureboxes not form. i need picturebox. will gona search again in tutorials. thanks robin.
  9. thanks, im still trying to figure it out, does this work in picturebox, then i will go to properties and change its background color? sorry for the english, asian people :renzo:
  10. wow thats nice. 1\. i understand. 2\. hmmm. you i will click the form and it will open then place the code? ok i will try now. thanks a lot. by the way can i change the color to black instead of red? is black color (0,0,0) dont know., just a newbie
  11. i thought necropost in the tutorials are exempted???
  12. hellow 2 questions 1\. what module do i place this? ``` Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal color As Long, ByVal bAlpha As Byte, ByVal alpha As Long) As Boolean Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Const GWL_EXSTYLE = (-20) Public Const WS_EX_LAYERED = &H80000 Public Const LWA_ALPHA = &H2& ```2\. i cant find onload sub. :lipsrsealed: a little help please
  13. AfterDawn

    Question.

    meaning, i will be waiting for the 3.0.?
  14. AfterDawn

    Question.

    so the latest is the 2.7 what do you mean i wont get what?
  15. AfterDawn

    Question.

    sorry for the newbie question. just new on the forum. 1\. where can i download the engine 3.0? 2\. what is the use of vb6? is it really important? :icon_crap:
×
×
  • Create New...