adr990

Thanks for this. :) Good stuff, keep it up! This is really a need for most of the games people are willing to make IMO.

Wohoo thanks, great job. I really needed this. :) Though I want to have Atack on sight to be Red. And Shopkeeper, Banker, Friendly, to be White. And Atack when attacked to be Orange. (Or maybe a other color.) I tried this: ``` Public Sub DrawNPCName(ByVal Index As Long) Dim NpcName As String Dim TextX As Long, TextY As Long, Sprite As Long, NpcNum As Long NpcNum = MapNpc(Index).Num If NpcNum = 0 Then Exit Sub End If If Npc(NpcNum).Behaviour NPC_BEHAVIOUR_FRIENDLY Then Call DrawText(TexthDC, TextX, TextY, NpcName, QBColor(White)) Exit Sub Else End If If Npc(NpcNum).Behaviour NPC_BEHAVIOUR_SHOPKEEPER Then Call DrawText(TexthDC, TextX, TextY, NpcName, QBColor(White)) Exit Sub End If Sprite = Npc(NpcNum).Sprite NpcName = Trim$(Npc(NpcNum).Name) ' Calculate the X coordinate to place the name TextX = ConvertMapX(MapNpc(Index).X * PIC_X) + MapNpc(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, NpcName) If Sprite < 1 Or Sprite > NumCharacters Then TextY = ConvertMapY(MapNpc(Index).Y * PIC_Y) + MapNpc(Index).YOffset - 17 Else TextY = ConvertMapY(MapNpc(Index).Y * PIC_Y) + MapNpc(Index).YOffset - (DDSD_Character(Sprite).lHeight) + 16 End If ' Draw name Call DrawText(TexthDC, TextX, TextY, NpcName, QBColor(Red)) End Sub ``` As I don't know the command for NPC's like "NPC_BEHAVIOUR_FRIENDLY" I tried guessing it. No compile error. But it doesn't work at all anymore. When I just Kimimaru's script without Shopkeeper, only Friendly have Red. And other behavior NPC's nothing. I would really apprentice all help. Thanks in advance!

Oh well that's even stranger in that case, as the NPC doesn't get killed. But blood drops if I hit the NPC after I got killed. I'll look into the source, maybe I can find something. Any hints for 30x30 maps (Scrolling maps) as I want to change it to bigger maps. One more thing, how to get beyond the 255 limit? Make every single called "byte" in the source named "long" or only for the Maps, NPC etc. Thanks in advance.

Thanks dude, this one works great. Also thumbs up for the tutorial. :)

OK thanks. (I just started so no matter.) Thanks again! I will watch more carefully next time. Edit: One more thing, if I get killed there is no blood on the ground. Until I hit the NPC again. But than the blood will be under the NPC at the direction where I hit the NPC. So Neither on the place I died. Any suggestions or fixes for this? Thanks!

~~Heya, I'm having the follow problem out of a sudden in EO:  I select NPC in Admin Panel and the above happens. BTW: Is this a bug or suppose to happen: that if I make a NPC I'll have to restart the Client to use it at Map Properties and NPC Spawn? (As if I dont, they say No NPC at that slot.)~~ Both fixed. Thanks!

Hey everyone, So I want to Change the layout of the HP, EXP and Magic bars. I want it to be like Zelda. As I'm working on a Zelda MMORPG. So, Health is you hearts. (If damage, remove heart in quarters/making smaller) And if HP is high enough, a heart will be added. (Might also insert a script to add HP in level (Add strength). So when you pickup a Hearth container you HP Hearts will increase) And Magic bar is just like the Magic bar is now, but Vertical and a little wider. (Just the Green of the magic bar getting lower if using Magic) EXP Should stay as a little darkened yellow bar at the right or left, where your inventory is and stuff like that. I could do the paint job myself of course, but giving me a base layout or how to do it all my self would be really apprenticed! Thanks in advance! Adr990

Great job, unknown. Thank you in the first place. (Also, if you can make something better than a previous application with the same goal. Go for it. This is really good. :) ) Also great job, Zetta Monkey for his modification. Now it's even better (In my opinion) and easier to use. :) I'm sure gonna use this with my game, and it will really comes in handy. Adr990

Hmm, I can't find: ``` MyScript.ExecuteStatement "Scripts\Main.txt", "ScriptedNPC " & Attacker & "," & NPC(NPCnum).SpawnSecs ``` In modGameLogic.bas, I use the EE 2.7 source. What to do now? :P (Also, great job on the script. Thumbs up.)

Didn't help, sadly. Strange microsoft logicalness.. :P Will we humans ever understand? I'm gonna try to re installer VB6 tomorrow (first removing it). Than see if it works.

Hmm, okay thanks. Now I yet need to find a link to download the Source of 2.7.. And if there are differences. I should equal it on my current source, and that it will work? :P Edit: Post above me: It means: I are in to VB6\. heh Edit2: Link edit =/= Magic. :P Got the source. Edit3: Drama.. I got the clean source, and I got the same problems.. :O Time to remove VB6 Enterprise and Reinstall it?

@Godlord: > Multi-tab, VBMP and the Flash depency have to be re-enabled again. > > Regards, > Godlord. Ok, I didn't do it yet. But have a really good feeling about this will fix it. :P But, how to do it? Where are those switches in VB? (I remember messing with it..) Thanks.

Uhm, okay I re installed the Libary files. Still having the same error's. I didn't made up clearly which Eclipse Evolution I was using, sorry. I'm using the EE 2.7 Client/Sever (GUI) and Source. I use Visual Basic Enterprise. I could edit with it before with problems though..

Hey all, I can't find the current source code pack now anymore. (Home Page changed to now have it anymore.) But I'm having some problems with the one, I downloaded and edited/fixed a few things with. Didn't got errors before. Now I open frmMainMenu and get the follow error: Line 20: Class VBMP.VBMPlayer of control MenuMusic was not a loaded control class. And with frmIndex: Line 80: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmScript: Line 18: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmAdmin: Line 35: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmArena: Line 18: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmBClass: Line 18: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmClassChange: Line 18: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmClick: Line 17: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmCredits: Line 47: Class VBMP.VBMPlayer of control VBMPlayer1 was not a loaded control class. With frmEditArrows: Line 18: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmElementEditor: Line 13: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmEmoticonEditor: Line 23: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmFlash: Line 25: Class ShockwaveFlashObjectsCtl.ShockwaveFlash of control Flash was not a loaded control class. With frmGuildBlock: Line 17: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmHouse: Line 17: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmIndex: Line 80: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmItemEditor: Line 685: Class TabDlg.SSTab of control SSTab1 was not a loaded control class. With frmKeepNotes: Line 9: Property Icon in frmKeepNotes had an invalid file reference. Line 12: Property Picture in frmKeepNotes had an invalid file reference. I can go on and on… And when I try to compile. (Even without having touched these files above listed.) (I made a backup of the source before touching them.) The compile process gives me this error:  May some of you know how to fix this? Edits I made on it before (in client): Bank fix and Trade fix: [http://www.touchofdeathforums.com/smf/index.php/topic,44128.0.html](http://www.touchofdeathforums.com/smf/index.php/topic,44128.0.html) And a 'Map freeze fix': http://www.touchofdeathforums.com/smf/index.php/topic,45645.0.html (I didn't have problems with it.. but I anyhow did 'fix it'.. heh) And this fix: (number 0 in txt box) http://www.touchofdeathforums.com/smf/index.php/topic,43151.0.html But that is Sever Sided. So, that's about it. :P A real pain.. Sadly the source isn't available anymore. (To get a clean version and re do those 2/3 fixes and have (hopefully) no pain anymore..) (So if anyone could share me a link to the clean 2.7 Source.. I would be very pleased either. :azn: ) Thanks in advance, Adr990

Woah, that's just great! Thanks a lot man. It's surprising me how this forum is so super help fully if you need help all the time. I can't thank you enough. :) Adr990 –- They work, thanks! :) I'm still having problem with the mining stuff though, but I will just read stuff all over again. And check if I did do something wrong in the INI files etc. Great stuff, Soul. Thanks.

Hey all, I've copied and pasted a few scripts into the right places of my Main.txt. (Some of them needed GodLords Inventory Script. Which I did add. And extra maps with .ini files etc in it.) But I got just small amount of the scripts to work. May you guys could help me out of problems again. :) I post my added/edited stuff in code tabs: ``` ' Executes when a player steps onto a scripted tile. Sub ScriptedTile(Index, Script) Select Case Script Case 0 Call PlayerMsg(Index, "This scripted tile has no apparent use.", WHITE) Exit Sub Case 1 If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest1") = "Have" Then Call playermsg(index, "Empty", 14) Exit Sub End if Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest1", "Have") Call giveplayeritem(index, 1, 1000, 0) Call playermsg(index, "You found 1000gold!", 14) Exit Sub Case 2 If CanTake(Index, 27, 1) Then Call TakeItem(Index, 27, 1) Call PlayerMsg(Index, "You have arrived in Gingerbread kingdom", WHITE) Call Flash(Index,"Boat.swf") Call PlayerWarp(Index, 41, 15, 15) Else Call PlayerMsg(Index, "You need a ticket to go in a boat!!", YELLOW) End If Exit Sub Case 3 If getplayerlevel(indes) = Amount Then CanTake = True Exit Function End If End If Slot = Slot + 1 Loop CanTake = False End Function Sub TakeItem(Index, Number, Amount) Dim Slot Dim CurrentAmount Index = Int(Index) Number = Int(Number) Amount = Int(Amount) Slot = 1 Do While Slot < 25 If GetPlayerInvItemNum(Index, Slot) = Number Then If GetPlayerInvItemValue(Index, Slot) >= Amount Then CurrentAmount = GetPlayerInvItemValue(Index, Slot) If CurrentAmount = Amount Then CanTake = True Exit Function End If End If Slot = Slot + 1 Loop CanTake = False End Function Sub TakeItem(Index, Number, Amount) Dim Slot Dim CurrentAmount Index = Int(Index) Number = Int(Number) Amount = Int(Amount) Slot = 1 Do While Slot < 25 If GetPlayerInvItemNum(Index, Slot) = Number Then If GetPlayerInvItemValue(Index, Slot) >= Amount Then CurrentAmount = GetPlayerInvItemValue(Index, Slot) If CurrentAmount

Hah, it's working! This is great. Thanks again!

Ah, that clears up a lot already. Thanks a lot! I'm gonna test it right away.

Hello everyone, I've been struggling with this for a while now. I can't get my NPC's to work if they are Scripted: ``` End Sub ' Executes whenever a scripted NPC does an action. Sub ScriptedNPC(Index, Script) Select Case Script Case 0 Call PlayerMsg(Index, "This scripted NPC has no apparent use.", WHITE) Exit Sub Case Else Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE) Case 1 Call PlayerMsg (Index, "Hello " & GetPlayerName(Index) & ", how are you?", WHITE) Case 2 Dim Words Words=Rand(27,1) Call playermsg(index, GetVar("Words.ini", "Words", ""& Words &""), 14) Exit Sub End Select End Sub ' Executed whenever a slash command is sent to the server. ``` Case 0 = Script 0 Case 1 = Script 1 -Etc, right? Words.ini is in the Sever folder Root. by the way. If I put the NPC on Friendly and put some text into Speak, they do work. (Have things set to 1 instead of 0, as supposed to get them to work as Friendly.) Now, can anyone see what's wrong with the scripts? If I need to post my whole Main.txt, that's no problem. Thanks in advance, Adr990

Hey all, I wanna make a another "rain" Twilight rain :) Is that possible? (I can design my self but not know how to make it in the game ;) ) Thanks in advance, Greets, Adr990

Hey, I work with Eclipse Evolution I want to know somethings: 1:How do I let NPC let drop money? (not item) and could you let them drop both item and money? 2:Could I replace the coin image ? and rename money ? (to rupee) (Yep I make a Zelda game) (Hyrule.net) 3: And I want some scripts… : Cough a bug Kill "amount"of the "NPC name" quest Chest open than get item Fishing with finishing rod(item) 4: How make a guild? Thanks in advance! it will be a great help! :alkashi: (And learn more about main.txt where to put is sometimes hard tutorial for the main.txt put?)