willunited

IDK how to make commands lol. I just know this part… ``` Case "/invite" SendPartyRequest ```

I found the error! My name contains [ADM]. It bug the checkpoints.ini. But the system of real spell def doesnt work =\

I removed real spell def,and put spell based spell depending of target type: > Public Function GetSpellBaseStat(ByVal Index As Long, ByVal SpellNum As Long) As Long > > If SpellNum > 0 Then > > If TempPlayer(Index).targetType = TARGET_TYPE_PLAYER Then > > Select Case Spell(SpellNum).BaseStat > > Case 1 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.strength) * 3 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 2 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.intelligence) * 5 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 20 > > Case 3 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Agility) * 4 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 4 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Endurance) * 4 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 5 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Willpower) * 5 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > End Select > > End If > > End If > > If SpellNum > 0 Then > > If TempPlayer(Index).targetType = TARGET_TYPE_NPC Then > > Select Case Spell(SpellNum).BaseStat > > Case 1 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.strength) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 2 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.intelligence) * 12 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 20 > > Case 3 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Agility) * 7 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 4 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Endurance) * 7 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 5 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Willpower) * 9 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > End Select > > End If > > End If > > If SpellNum > 0 Then > > If TempPlayer(Index).targetType = 0 Then > > Select Case Spell(SpellNum).BaseStat > > Case 1 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.strength) * 5 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 2 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.intelligence) * 7 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 20 > > Case 3 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Agility) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 4 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Endurance) * 7 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 5 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Willpower) * 5 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > End Select > > End If > > End If > > End Function Now the error is: Type Mismatch. Ide shows this line: > Public Function ValCheckPoint(ByVal Index As Long) As Boolean > > If GetVar(App.Path & "\Data\accounts\checkpoints.ini", "*SERVEROPTIONS*", "" & GetPlayerName(Index)) = 1 Then > > ValCheckPoint = True > > Else > > ValCheckPoint = False > > End If > > End Function

Doenst work

This one: x = Player(Index).Stat(Stat)

Subscript out of range

Im trying to make it but see this Sub: > Public Function GetSpellBaseStat(ByVal Index As Long, ByVal SpellNum As Long, Optional ByVal Target As Long) As Long > > If SpellNum > 0 Then > > If TempPlayer(Index).targetType = TARGET_TYPE_PLAYER Then > > Select Case Spell(SpellNum).BaseStat > > Case 1 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.strength) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 - GetPlayerStat(Target, Stats.Endurance) * 0.5 > > Case 2 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.intelligence) * 8 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 15 - GetPlayerStat(Target, Stats.Endurance) * 0.5 > > Case 3 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Agility) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 - GetPlayerStat(Target, Stats.Endurance) * 0.5 > > Case 4 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Endurance) * 5 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 - GetPlayerStat(Target, Stats.Endurance) * 0.5 > > Case 5 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Willpower) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 - GetPlayerStat(Target, Stats.Endurance) * 0.5 > > End Select > > End If > > End If > > If SpellNum > 0 Then > > If TempPlayer(Index).targetType = TARGET_TYPE_NPC Then > > Select Case Spell(SpellNum).BaseStat > > Case 1 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.strength) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 2 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.intelligence) * 8 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 15 > > Case 3 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Agility) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 4 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Endurance) * 5 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 5 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Willpower) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > End Select > > End If > > End If > > If SpellNum > 0 Then > > If TempPlayer(Index).targetType = 0 Then > > Select Case Spell(SpellNum).BaseStat > > Case 1 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.strength) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 2 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.intelligence) * 8 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 15 > > Case 3 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Agility) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 4 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Endurance) * 5 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > Case 5 > > GetSpellBaseStat = GetPlayerStat(Index, Stats.Willpower) * 6 + Spell(SpellNum).Vital + GetPlayerLevel(Index) * 12 > > End Select > > End If > > End If > > End Function When i atack a player with a skill,server crash.

Oh,my prob is this: When npc attacking,if you run,he run,but he Run,Stop,Run,Stop,Run,Stop… ZeroX8: I found it thx.

Im using 2.0,this sub doesnt exists

Where i can increase npc movement speed?

Nice tutorial,thx

This bug crashes my server everyday,thx

I need touhou sprites D: [media]http://www.youtube.com/watch?v=G3C-VevI36s[/media] [media]http://www.youtube.com/watch?v=iV5A-VzKWvw&feature=related[/media]

When use a skill,Shapeshift (Just change the sprite and increase movement) Pls. Im trying to make it…but idk how to make a new Type of spell...

Nop

My client still crashing when change map,i runned into VB,and this line is the error: ModDirectDraw7 Sub BltMapResource > If Resource(Resource_master).ResourceImage = 0 Then Exit Sub Why? And how to fix?


[media]http://www.youtube.com/watch?v=G3C-VevI36s[/media]

Example: I make a TxtBox,i want to transform him into QuestlvlLimit (Rec) Example: Quest(questnum).QuestlvlLimit How i do it?

When use AoE you kill yourself… WTF? How to fix it?

But,he never reply…

When you kill a player,all your quest get 1 count… The error is here...i guess... > Case QUEST_TYPE_GOKILL 'Kill X amount of players. > > Player(Index).PlayerQuest(QuestNum).CurrentCount = Player(Index).PlayerQuest(QuestNum).CurrentCount + 1 > > PlayerMsg Index, "Quest: " + Trim$(Quest(QuestNum).Name) + " - " + Trim$(Player(Index).PlayerQuest(QuestNum).CurrentCount) + "/" + Trim$(Quest(QuestNum).Task(ActualTask).Amount) + " players killed.", Yellow > > If Player(Index).PlayerQuest(QuestNum).CurrentCount >= Quest(QuestNum).Task(ActualTask).Amount Then > > QuestMessage Index, QuestNum, "Task completed", 0 > > If CanEndQuest(Index, QuestNum) Then > > EndQuest Index, QuestNum > > Else > > Player(Index).PlayerQuest(QuestNum).CurrentCount = 0 > > Player(Index).PlayerQuest(QuestNum).ActualTask = ActualTask + 1 > > End If > > End If

> Private Type MapRec > > Name As String * NAME_LENGTH > > Music As String * NAME_LENGTH > > Revision As Long > > Moral As Byte > > Up As Long > > Down As Long > > Left As Long > > Right As Long > > BootMap As Long > > BootX As Byte > > BootY As Byte > > MaxX As Byte > > MaxY As Byte > > Tile() As TileRec > > NPC(1 To MAX_MAP_NPCS) As Long > > End Type Normal Edit: Above it: > ' check directional blocking > > If isDirBlocked(Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).DirBlock, Direction + 1) Then > > CheckDirection = True > > Exit Function > > End If i add it: > If Map.Tile(x, y).Type = TILE_TYPE_WARP Then > > CheckDirection = False > > Exit Function > > End If Right? Edit: Now only a map is buged,ill convert him. Edit: Converter bugged,lol. Edit: Map bugged remade. Wroking now. Thx for patience and help.

Ok,thx ill post the error here. Edit: Second error fixed: A little line. First error: Running in IDE Edit: First error: Shows this line > If isDirBlocked(Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).DirBlock, Direction + 1) Then

> Well, whatever you edited you did something horribly wrong.. Are the values the same client and server side? > > And curious, why did you remove map caching? .__. Idk e,e lol > Depending on what version of Eclipse you are using and what mods you have installed, you might have to delete all maps when you change the MAX_MAP_NPCs. But in order to pinpoint the issue, you should probably follow Erwin's advice: IDE?