karpaz
-
Posts
91 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by karpaz
-
-
how i can change news ?
-
but it not fix :|
-
 -
[](http://imageshack.us/photo/my-images/49/screeneathena000.jpg/)
:D -
:D schlong ? .. please .. i wannna sprite of naked any girl :D its only easter egg event :D
-
:D quite :D (easter egg in map ) .D
-
hello all can you make for me and other people any erotic sprites(character) ? ;) thx alot ;)
-
but can you help me ? :D
-
:D no .. my nick is from Operation flashpoind Resistance ;) radio amateur TasmanDevil ;)
-
where mod i can find it ?
-
yes i have it
-
thx but iam not programmer and very newbie .. :| can any post here or send me pm … tutorial to fix it ? :(
-
;) iam very newbie .. can you specific your help ? ;)
-
thx robins .. but do you know what is bad .. ? or how to fix it ? (i know you have lots of work ) ;) i try find problem but i cant still find it :|
-
thx alot if you find anything send me pm .. i try fix it too ;)
-
wow robin its fantastic ;) good job
-
can this edit do this ? http://www.touchofdeathforums.com/smf/index.php/topic,78792.0.html
-
jo taky te zdravim ;) {BUT NOT FIXED} :(
-
no all npc dont speak
-
still nothing :( here is my project http://www.mediafire.com/?75akd69do0vpok4
-
on server >control>maps? this i do it and nothing :(
or in game ? (command is not valid) -
still not work :( can i upload all my project ?
-
how refresh map ? :D
-
Sub canplayerattacknpc
> Public Function CanPlayerAttackNpc(ByVal attacker As Long, ByVal mapNpcNum As Long, Optional ByVal IsSpell As Boolean = False) As Boolean
> Dim mapNum As Long
> Dim npcNum As Long
> Dim NpcX As Long
> Dim NpcY As Long
> Dim attackspeed As Long
>
> ' Check for subscript out of range
> If IsPlaying(attacker) = False Or mapNpcNum <= 0 Or mapNpcNum > MAX_MAP_NPCS Then
> Exit Function
> End If
>
> ' Check for subscript out of range
> If MapNpc(GetPlayerMap(attacker)).NPC(mapNpcNum).Num <= 0 Then
> Exit Function
> End If
>
> mapNum = GetPlayerMap(attacker)
> npcNum = MapNpc(mapNum).NPC(mapNpcNum).Num
>
> ' Make sure the npc isn't already dead
> If MapNpc(mapNum).NPC(mapNpcNum).Vital(Vitals.HP) <= 0 Then
> Exit Function
> End If
>
> ' Make sure they are on the same map
> If IsPlaying(attacker) Then
>
> ' exit out early
> If IsSpell Then
> If npcNum > 0 Then
> If NPC(npcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And NPC(npcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER Then
> CanPlayerAttackNpc = True
> Exit Function
> End If
> End If
> End If
>
> ' attack speed from weapon
> If GetPlayerEquipment(attacker, Weapon) > 0 Then
> attackspeed = Item(GetPlayerEquipment(attacker, Weapon)).Speed
> Else
> attackspeed = 1000
> End If
>
> If npcNum > 0 And GetTickCount > TempPlayer(attacker).AttackTimer + attackspeed Then
> ' Check if at same coordinates
> Select Case GetPlayerDir(attacker)
> Case DIR_UP
> NpcX = MapNpc(mapNum).NPC(mapNpcNum).x
> NpcY = MapNpc(mapNum).NPC(mapNpcNum).y + 1
> Case DIR_DOWN
> NpcX = MapNpc(mapNum).NPC(mapNpcNum).x
> NpcY = MapNpc(mapNum).NPC(mapNpcNum).y - 1
> Case DIR_LEFT
> NpcX = MapNpc(mapNum).NPC(mapNpcNum).x + 1
> NpcY = MapNpc(mapNum).NPC(mapNpcNum).y
> Case DIR_RIGHT
> NpcX = MapNpc(mapNum).NPC(mapNpcNum).x - 1
> NpcY = MapNpc(mapNum).NPC(mapNpcNum).y
> End Select
>
> If NpcX = GetPlayerX(attacker) Then
> If NpcY = GetPlayerY(attacker) Then
> If NPC(npcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And NPC(npcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER Then
> CanPlayerAttackNpc = True
> Else
> 'ALATAR
> If NPC(npcNum).Behaviour = NPC_BEHAVIOUR_FRIENDLY Then
> Call CheckTasks(attacker, QUEST_TYPE_GOTALK, npcNum)
> Call CheckTasks(attacker, QUEST_TYPE_GOGIVE, npcNum)
> Call CheckTasks(attacker, QUEST_TYPE_GOGET, npcNum)
>
> If NPC(npcNum).Quest = YES Then
> If CanStartQuest(attacker, NPC(npcNum).QuestNum) Then
> 'if can start show the request message (chat1)
> QuestMessage attacker, NPC(npcNum).QuestNum, Trim$(Quest(NPC(npcNum).QuestNum).Chat(1)), NPC(npcNum).QuestNum
> Exit Function
> End If
> If QuestInProgress(attacker, NPC(npcNum).QuestNum) Then
> 'if the quest is in progress show the meanwhile message (chat2)
> PlayerMsg attacker, Trim$(NPC(npcNum).Name) + ": " + Trim$(Quest(NPC(npcNum).QuestNum).Chat(2)), BrightGreen
> 'QuestMessage attacker, NPC(npcNum).QuestNum, Trim$(Quest(NPC(npcNum).QuestNum).Chat(2)), 0
> Exit Function
> End If
> End If
> End If
> '/ALATAR
> If Len(Trim$(NPC(npcNum).AttackSay)) > 0 Then
> PlayerMsg attacker, Trim$(NPC(npcNum).Name) & ": " & Trim$(NPC(npcNum).AttackSay), White
> End If
> End If
> End If
> End If
> End If
> End If
My npc dont speak with me :(
in Q & A
Posted