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

teamokell

Members
  • Posts

    50
  • Joined

  • Last visited

    Never

teamokell's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. Now share your knowledge with the community !! It would be nice: (
  2. Omg.. I found the solution I'm not sure for all cases, but for my case it worked. Try changing the TOP value the SSTab1 FrmServer. The TOP value must be equal to or greater than 10. If less error happens, if it works normally higher I hope I have succeeded in helping
  3. Any Solution? OBS: I dont using EA :(
  4. teamokell

    Tibia

    Im playing tibia in pacera. :)
  5. I really wanted to help but do not know. if you can answer please share with us the solution
  6. List: Pathfinding NPC / Player Minimap Scrolling (Directx 7) MySQL Database Site Administrator :D
  7. Nice improvement. Congratulations.
  8. Yes, but no have tutorial
  9. No. For dx7 no have tutorial :(
  10. I think someone could make the minimap scrolling would be a good upgrade
  11. it would be even better if it were converted to directx 7. anyone?
  12. Added one more feature to the script: It appears only CASTING [NAME OF MAGIC]! if you can hit the magic. Otherwise it will be ignored avoiding spam on the screen. ModCombat ~ ServerSide Search for: ``` If HasBuffered Then SendAnimation mapNum, Spell(spellnum).CastAnim, 0, 0, TARGET_TYPE_PLAYER, Index ``` An add this under it: ``` If isPathCleared(Index, GetPlayerX(Index), GetPlayerY(Index), x, y) Then ``` Search for: ``` If HasBuffered Then SendAnimation mapNum, Spell(spellnum).CastAnim, 0, 0, TARGET_TYPE_PLAYER, Index ``` An add it above this: ``` If targetType = TARGET_TYPE_PLAYER Then x = GetPlayerX(target) y = GetPlayerY(target) Else x = MapNpc(mapNum).Npc(target).x y = MapNpc(mapNum).Npc(target).y End If ``` Search for: ``` Function BufferSpell(ByVal Index As Long, ByVal spellslot As Long) ``` After ``` Dim targetType As Byte Dim target As Long ``` Add it: ``` Dim x As Long Dim y As Long ``` Search for: ``` TempPlayer(Index).SpellCD(spellslot) = GetTickCount + (Spell(spellnum).CDTime * 1000) Call SendCooldown(Index, spellslot) ``` An under it add: ``` If isPathCleared(Index, GetPlayerX(Index), GetPlayerY(Index), x, y) Then ``` After: ``` SendActionMsg mapNum, Trim$(Spell(spellnum).Name) & "!", BrightRed, ACTIONMSG_SCROLL, GetPlayerX(Index) * 32, GetPlayerY(Index) * 32 ``` An Add under it: ``` End if ```
  13. Waiting for feedbacks…
×
×
  • Create New...