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

Shasokais

Members
  • Posts

    62
  • Joined

  • Last visited

    Never

Everything posted by Shasokais

  1. Well, I'll see thx) ________________ I tried to do, but did not work ((
  2. Guys, please help. I found a code only for DX7, but I need to DX8 [http://www.touchofdeathforums.com/community/index.php?/topic/117047-eochat-drawn-to-screen/page__hl__%2Bdraw+%2Bscreen](http://www.touchofdeathforums.com/community/index.php?/topic/117047-eochat-drawn-to-screen/page__hl__%2Bdraw+%2Bscreen) (need something like this)
  3. > Hmm what's ur scroll bars min and max? min = 1 max = 100 nothing, again this eror(((
  4. Invalid property value O_O ``` frmEditor_Item.scrlSmithReq.value = .SmithReq ```
  5. How to make Cyrillic support in a bubble?
  6. emmm i click Enter but nothing to happen _________________________________ ohhh newermind :D
  7. You can view the source code can I put them?
  8. Again, this error ![](http://s004.radikal.ru/i205/1207/39/2b90cd2b930a.jpg)
  9. Oh, how difficult it all ….. well now try .. Sorry for bad English, I myself am from Russia) Like this? ``` Public Sub DrawChat() Dim i As Integer For i = 1 To 6 Call RenderText(Font_Georgia, Camera.Left + 0, (Camera.Bottom - 600) - (i * -1), Chat(i).text, Chat(i).Colour) Next End Sub ```
  10. As I understand it to do so? ``` Public Sub DrawChat() Dim i As Integer For i = 1 To 6 Call RenderText(Font_Default, 0, 600, Chat(i).text, Chat(i).Colour) Next End Sub ```
  11. Unrecoverable DX8 Error I did everything that the source and inserted the amendment http://www.touchofdeathforums.com/smf2/index.php/topic,70469.0.html
  12. @jcsnider: > I don't see a problem… this is DX8 not DX7.. you use RenderText instead of DrawText.... everything else would work out for the most part (maybe 1-2 small issues).... If you want an actual tutorial then this is not the place. Somthing like this? ``` Public Sub DrawChat() Dim i As Integer For i = 1 To 6 Call RenderText(Font_Georgia, Camera.Left + 10, (Camera.Bottom - 20) - (i * 20), Chat(i).text, Chat(i).Colour) Next End Sub ```
  13. Guys pls help!! How make draw screen chat?????
  14. Guys pls help! How to make Chat Drawn to Screen here?
  15. Where specified number of NPCs that calls? When choosing a summon, nothing happens, it's a bug?
  16. Oh here is the link [removed]
  17. A few days ago found Customise engine EO. Everything seems good but the problem with the attributes can anyone help? What is the problem itself: the choice of warp and others attributes. Lish a lock is placed tile. please help me.
  18. **Lightning** can answer my question? I wrote it above. :sad:
  19. Excuse me, I'm not really in this parse (Only in some subjects get to do yourself) you can please show where to insert. ``` 'check if the NPC attacking us is actually our pet. 'We don't want a rebellion on our hands now do we? If MapNpc (MapNum). Npc (mapNpcNum). PetData.Owner = Index Then Exit Function ``` In: ``` Function CanNpcAttackPlayer(ByVal mapNpcNum As Long, ByVal index As Long) As Boolean Dim MapNum As Long Dim npcNum As Long ' Check for subscript out of range If mapNpcNum MAX_MAP_NPCS Or Not IsPlaying(index) Then Exit Function End If ' Check for subscript out of range If MapNpc(GetPlayerMap(index)).Npc(mapNpcNum).Num
  20. Hmm … and if I want to make a few pets. Then what to do? (This would be a rhetorical question) And you can probably last question sweat this topic exactly where to be inserted Hmm ... and if I want to make a few pets. Then what to do? (This would be a rhetorical question) And you can probably last question sweat this topic exactly where to be inserted ``` 'check if the NPC attacking us is actually our pet. 'We don't want a rebellion on our hands now do we? If MapNpc(MapNum).Npc(mapNpcNum).PetData.Owner = Index Then Exit Function ``` I realized that it is necessary to insert CanNpcAttackPlayer, but where?
  21. something like this? Map(PlayerMap).Npc(PetSlot) = 1 MapNpc(PlayerMap).Npc(PetSlot).Num = 1 'set its Pet Data MapNpc(PlayerMap).Npc(PetSlot).IsPet = YES MapNpc(PlayerMap).Npc(PetSlot).PetData.Name = GetPlayerName(index) & "'s " & Npc(1).Name MapNpc(PlayerMap).Npc(PetSlot).PetData.Owner = index 'If Pet doesn't exist with player, link it to the player If Player(index).Pet.SpriteNum 1 Then Player(index).Pet.SpriteNum = 1 Player(index).Pet.Name = GetPlayerName(index) & "'s " & Npc(1).Name End If TempPlayer(index).TempPetSlot = PetSlot
  22. I inserted the screenshot above, still do not understand because of what
×
×
  • Create New...