Peter120

@Wing: > He/she doesn't mean it's a easy solution. He/she is implying that you are trying to fix a problem that is not really a problem. @Peter120: > it's a problem for me. I also want to change the npc damage, but I don't know what to write there Damage = RAND(Damage - NPC.Level * 2, Damage)

Thanks, I found. Please don't put "" onto problem, because it's a problem for me.

I set the loop count 2 in the animation and it didn't stopped.

A fighter can't hit the monster because the monsters' agility big and the fighter always miss. But If I set the monster's agility small, so the fighter can hit, then the monster can't hit the archer because the archer has big agility too

Bigger Agility bigger evasion/miss

Nice tutorial and very usefull, thanks! :cheesy:

I have an archer class in my game, and it's spend most of points on agility. The fighter class is spend the most on strenght. When I make a monster, if I give big agility for it (so it can hit the archer) the fighter can' hit it, if I give small agility (so the warrior can hit it) it can't hit the archer.

Hello! I need this program, please, because I changed my MAXMAPNPS and I have a lot of maps: @Soul: > A converter. It would be a separate VB6 program that loads the npcs (just like how you see the server do it, ex: NpcRec) and then copies them over to a new record (by the variable in the previous one to the variable in the new one, ex: NewNpcRec). Finally it saves NewNpcRec. All is converted.

I can't do that

I changed MaxMapNPCS in mod Constans, and are there any way to keep my maps? Or I have to redo all :O :O

Yes, and when you write /p only in the chat you will get an error ;)

Still Not working, I will redo the tutorial tomorrow, maybe it's help

:C What Should I do?

I added the stuff in InitMessages() and my Modhandledata (bottom) ``` Private Sub HandleDoorsEditor() Dim i As Long With frmEditor_Doors Editor = EDITOR_DOORS .lstIndex.Clear ' Add the names For i = 1 To MAX_DOORS .lstIndex.AddItem i & ": " & Trim$(Doors(i).Name) Next .Show .lstIndex.ListIndex = 0 DoorEditorInit End With End Sub Private Sub HandleUpdateDoors(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim DoorNum As Long Dim Buffer As clsBuffer Dim DoorSize As Long Dim DoorData() As Byte ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteBytes Data() DoorNum = Buffer.ReadLong DoorSize = LenB(Doors(DoorNum)) ReDim DoorData(DoorSize - 1) DoorData = Buffer.ReadBytes(DoorSize) ClearDoor DoorNum CopyMemory ByVal VarPtr(Doors(DoorNum)), ByVal VarPtr(DoorData(0)), DoorSize Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "HandleUpdateDoors", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ```

Sub SendRequestEditdoors (Bottom of mod client TCP) ``` Public Sub SendRequestEditdoors() Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CRequestEditDoors SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "SendRequestEditdoors", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` Bottom of modHandleData (server) ``` ' ////////////////////////////////// ' //Request/Save edit Door packets// '////////////////////////////////// Sub HandleEditDoors(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim Buffer As clsBuffer ' Prevent hacking If GetPlayerAccess(Index) < ADMIN_DEVELOPER Then Exit Sub End If Set Buffer = New clsBuffer Buffer.WriteLong SDoorsEditor SendDataTo Index, Buffer.ToArray() Set Buffer = Nothing End Sub Sub HandleRequestDoors(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) SendDoors Index End Sub Private Sub HandleSaveDoor(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim DoorNum As Long Dim Buffer As clsBuffer Dim DoorSize As Long Dim DoorData() As Byte ' Prevent hacking If GetPlayerAccess(Index) < ADMIN_DEVELOPER Then Exit Sub End If Set Buffer = New clsBuffer Buffer.WriteBytes Data() DoorNum = Buffer.ReadLong ' Prevent hacking If DoorNum < 0 Or DoorNum > MAX_DOORS Then Exit Sub End If DoorSize = LenB(Doors(DoorNum)) ReDim DoorData(DoorSize - 1) DoorData = Buffer.ReadBytes(DoorSize) CopyMemory ByVal VarPtr(Doors(DoorNum)), ByVal VarPtr(DoorData(0)), DoorSize ' Save it Call SendUpdateDoorToAll(DoorNum) Call SaveDoor(DoorNum) Call AddLog(GetPlayerName(Index) & " saved Door #" & DoorNum & ".", ADMIN_LOG) End Sub ```

Private Sub cmdADoor_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then Exit Sub End If SendRequestEditdoors ' Error handler Exit Sub errorhandler: HandleError "cmdAItem_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Hello! I added the code but in admin panel when I click on my door button nothing happens. It's name: cmdADoor Code in it: >! ``` Private Sub cmdADoor_Click() ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler >! If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then Exit Sub End If SendRequestEditdoors ' Error handler Exit Sub errorhandler: HandleError "cmdAItem_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub >! End Sub ``` Help!

9

You mean 5?

Happy Birthday! ;) Here is your cupcake: 

I did: Client: ``` Public Const ITEM_TYPE_SCROLL As Byte = 16 ``` Server ``` Public Const ITEM_TYPE_SCROLL As Byte = 16 ```Case: ``` Case ITEM_TYPE_SCROLL ' stat requirements For i = 1 To Stats.Stat_Count - 1 If GetPlayerRawStat(Index, i) < Item(itemnum).Stat_Req(i) Then PlayerMsg Index, "Nem vagy elég felkészült a tárgy használatára.", BrightRed Exit Sub End If Next ' level requirement If GetPlayerLevel(Index) < Item(itemnum).LevelReq Then PlayerMsg Index, "Nem vagy elég tapasztalt a tárgy használatához.", BrightRed Exit Sub End If ' class requirement If Item(itemnum).ClassReq > 0 Then If Not GetPlayerClass(Index) = Item(itemnum).ClassReq Then PlayerMsg Index, "Az osztályod nem tudja használni ezt a tárgyat.", BrightRed Exit Sub End If End If ' access requirement If Not GetPlayerAccess(Index) >= Item(itemnum).AccessReq Then PlayerMsg Index, "Adminnak kell lenned a tárgy használatához.", BrightRed Exit Sub End If PlayerWarp Index, Spell(SpellNum).Map, Spell(SpellNum).x, Spell(SpellNum).y Call SendAnimation(GetPlayerMap(Index), Item(itemnum).Animation, 0, 0, TARGET_TYPE_PLAYER, Index) Call TakeInvItem(Index, Player(Index).Inv(invNum).Num, 0) ' send the sound SendPlayerSound Index, GetPlayerX(Index), GetPlayerY(Index), SoundEntity.seItem, itemnum ``` How to do > adding a map, x, and y which could be saved in Data1, Data2 and Data3

If you have any other question what, you can't answer just post it!

A friendly NPC says that but sometimes it's black not white, and other texts do it too

Hello! I would like to request a tutorial for a teleportation scroll, what is an item, and when you use it, it teleports you and then its disappear. Thanks!

Sometimes in my chat box, the text appears in black and not in the original color… Why? Are there any fix? >!