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

Dzastin

Members
  • Posts

    148
  • Joined

  • Last visited

    Never

Everything posted by Dzastin

  1. This is don't drop items on character (using weapon, armor etc)
  2. ' Drop all worn items For i = 1 To Equipment.Equipment_Count - 1 If GetPlayerEquipment(index, i) > 0 Then PlayerMapDropItem index, GetPlayerEquipment(index, i), 0 End If Next How to change this to drop all founded items?
  3. Hi, how do i change drop of player in death?
  4. > file:///C:/Users/Taylon.Joan-PC/Desktop/BigSprites.bmp :confused:
  5. This don't work in Attackonsight NPC! Help
  6. Thanks, just how to make it to the NPC who attack us?
  7. Hi, how rewrite this code : ``` SendActionMsg GetPlayerMap(index), message, Yellow, ACTIONMSG_STATIC, GetPlayerX(index) * 32, (GetPlayerY(index) * 32) - 50 ``` to show actionmsg message on NPC over his head when he says something…? Thanks!
  8. How can i add to Chat in EO copy options? Copy currently work in Chat,where write massages. And copy don't work in Main Chat. Thanks.
  9. I kill this problem. In SendStats in Client Side I changed Index to MyIndex
  10. Hi, when player number 1 (on server) go to server, he see your stats : Defense itd.. When player number 2 or 3, 4, 5 itd… go to server, he don't see your stats! All stats = 0 in Player panel hovewer, stats working in invisible mode... Help me! :sad:
  11. If GetPlayerInvItemNum(MyIndex, InvNum) = Player(MyIndex).Mount Or GetPlayerInvItemNum(MyIndex, InvNum) = Player(MyIndex).Pet Then Change to : If GetPlayerInvItemNum(MyIndex, InvNum) = Player(MyIndex).Pet Or GetPlayerInvItemNum(MyIndex, InvNum) = Player(MyIndex).Pet Then
  12. Added: Title System Title system don't work with me.
  13. This don't work. When i'm go to Title Button i don't have Titles…
  14. Public Sub ChangePet(ByVal Index As Long, Optional InvNum As Byte = 0) change to: Public Sub ChangePet(ByVal Index As Long, Optional InvNum As Long)
  15. Public Sub ChangePet(ByVal Index As Long, Optional InvNum As Byte = 0) If Player(Index).Pet > 0 Then Player(Index).Pet = 0 Else If Item(GetPlayerInvItemNum(Index, InvNum)).Data1 > 0 Then Help
  16. When i click to use pet i get Run Time Error…
  17. Compile Error: InvNum "ByRef argument type mismatch"
  18. Compile Error : Variable not defined: optVOn.Value = True
  19. Dzastin

    [EO] Sprite BUG

    In server and client modEnumerations change to this : ' Equipment used by Players Public Enum Equipment Armor = 1 Helmet Shield Weapon
  20. EO > CLIENT ' Speed moving vars Public Const WALK_SPEED As Byte = 8 Public Const RUN_SPEED As Byte = 4 I'm using this value
  21. Server: ``` ' Version constants Public Const CLIENT_MAJOR As Byte = 3 < Change This Public Const CLIENT_MINOR As Byte = 3 Public Const CLIENT_REVISION As Byte = 0 Public Const MAX_LINES As Long = 500 ' Used for frmServer.txtText ```Client: File > Make ___.exe > Options >Major < Change this value You must change this to server Major constans.
×
×
  • Create New...