Shasokais
Members-
Posts
62 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Everything posted by Shasokais
-
Well, I'll see thx) ________________ I tried to do, but did not work ((
-
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)
-
> Hmm what's ur scroll bars min and max? min = 1 max = 100 nothing, again this eror(((
-
Invalid property value O_O ``` frmEditor_Item.scrlSmithReq.value = .SmithReq ```
-
How to make Cyrillic support in a bubble?
-
Can't do cyrillic in bubble
-
[EO 2.0 / EO 3.0] Shortcuts & Enter to Chat *Edit*
Shasokais replied to Wortel Angels's topic in Source
emmm i click Enter but nothing to happen _________________________________ ohhh newermind :D -
Well, thanks anyway for your help
-
You can view the source code can I put them?
-
Again, this error ![](http://s004.radikal.ru/i205/1207/39/2b90cd2b930a.jpg)
-
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 ```
-
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 ```
-
Unrecoverable DX8 Error I did everything that the source and inserted the amendment http://www.touchofdeathforums.com/smf2/index.php/topic,70469.0.html
-
@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 ```
-
Guys pls help!! How make draw screen chat?????
-
Guys pls help! How to make Chat Drawn to Screen here?
-
Where specified number of NPCs that calls? When choosing a summon, nothing happens, it's a bug?
-
Oh here is the link [removed]
-
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.
-
I think so did not answer.
-
**Lightning** can answer my question? I wrote it above. :sad:
-
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
-
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?
-
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
-
I inserted the screenshot above, still do not understand because of what