Real Spell Def

[willunited]

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.

[Joyce]

With what error exactly?

[willunited]

Subscript out of range

[tslusny]

To what line in IDE is it pointing?

[willunited]

This one:

x = Player(Index).Stat(Stat)

[tslusny]

so i think you named some stat incorrectly

try replace

strength

with

strenght

[willunited]

Doenst work

[blkcrow]

Edit: Nevermind 

[willunited]

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

[MCADAMS]

May or may not be interfering with something you've already added (just because I see checkpoints.ini in the debug line.)

[willunited]

I found the error!

My name contains [ADM].

It bug the checkpoints.ini.

But the system of real spell def doesnt work =\

[MCADAMS]

Couldn't you just make a stat (say, magic defense) and add that to the equation for spell damage? Have magic defense = players endurance x .25 or something