Como criar uma nova Sub no Eclipse Super Nova?

Código:

Sub HomingPlayer(index, Dist, Damage, map, x, y, target, Spell)
If Dist = 0 Then
Call RemoveTimer("HomingPlayer " & index & "," & Dist & "," & Damage & "," & map & "," & x & "," & y & "," & Target & "," & Spell)
Else
If isplaying(target) = False Then
Call RemoveTimer("HomingPlayer " & index & "," & Dist & "," & Damage & "," & map & "," & x & "," & y & "," & Target & "," & Spell)
Exit Sub
End If
Call RemoveTimer("HomingPlayer " & index & "," & Dist & "," & Damage & "," & map & "," & x & "," & y & "," & Target & "," & Spell)
Call SpellAnim(Spell, map, x, y)
If StandingHere(map, x, y) <> "0" Then
Call CheckAttackNPC(index, map, x, y, Damage)
Call CheckAttackPlayer(index, map, x, y, Damage)
Exit Sub
End If
If map <= GetPlayerMap(target) Then
Exit Sub
End If
If x > GetPlayerX(target) Then
x = Int(x) + 1
End If
If x < GetPlayerX(target) Then
x = Int(x) + 1
End If
If Int(y) > GetPlayerY(target) Then
y = Int(y) + 1
End If
If Int(y) < GetPlayerY(target) Then
y = Int(y) + 1
End If
Dist = Int(Dist) - 1
Call SetTimer("HomingPlayer " & index & "," & Dist & "," & Damage & "," & map & "," & x & "," & y & "," & Target & "," & Spell, 75)
End If
End Sub

Sub HomingNPC(index, Dist, Damage, map, x, y, target, Spell)
If Dist = 0 Then
Call RemoveTimer("HomingNPC " & index & "," & Dist & "," & Damage & "," & map & "," & x & "," & y & "," & Target & "," & Spell)
Else
Call RemoveTimer("HomingNPC " & index & "," & Dist & "," & Damage & "," & map & "," & x & "," & y & "," & Target & "," & Spell)
Call SpellAnim(Spell, map, x, y)
If StandingHere(map, x, y) > 0 Then
Call CheckAttackNPC(index, map, x, y, Damage)
Call CheckAttackPlayer(index, map, x, y, Damage)
Exit Sub
End If
If x > getnpcx(map, target) Then
x = x - 1
ElseIf x < getnpcx(map, target) Then
x = x + 1
End If
If y > getnpcy(map, target) Then
y = y - 1
ElseIf y < getnpcy(map, target) Then
y = y + 1
End If
Dist = Int(Dist) - 1
Call SetTimer("HomingNPC " & index & "," & Dist & "," & Damage & "," & map & "," & x & "," & y & "," &Target & "," & Spell, 75)
End If
End Sub

Sub CheckAttackNPC(index, map, x, y, Damage)
Dim count
count = 1
Do While count < 16
If getnpcx(map, count) = x and getnpcy(map, count) = y Then
Call DamageNPC(index, count, Damage)
Exit Sub
End If
count = count + 1
Loop
End Sub

Sub CheckAttackPlayer(index, map, x, y, Damage)
Dim count
count = 1
Do While count < 51
If count <> index Then
If isplaying(count) Then
If GetPlayerMap(count) = map and GetPlayerX(count) = x and GetPlayerY(count) = y Then
Call DamagePlayer(index, count, Damage)
End If
End If
End If
count = count + 1
Loop
End Sub

Sub CheckAnimNPC(index, map, x, y, Spell)
Dim count
count = 1
Do While count < 16
If getnpcx(map, count) = x and getnpcy(map, count) = y Then
Call SpellAnim(Spell, map, x, y)
Exit Sub
End If
count = count + 1
Loop
End Sub

Sub CheckAnimPlayer(index, map, x, y, Spell)
Dim count
count = 1
Do While count < 51
If count <> index Then
If isplaying(count) Then
If GetPlayerMap(count) = map and GetPlayerX(count) = x and GetPlayerY(count) = y Then
Call SpellAnim(Target, map, x, y)
End If
End If
End If
count = count + 1
Loop
End Sub

Código:

Sub X(index, Dist, Damage, SpellNo, Speed)
If getplayertarget(index) > 0 Then
Call SetTimer("HomingPlayer " & index & "," & Dist & "," & Damage & "," & GetPlayerMap(index) & "," & getplayerdirx(index) & "," & getplayerdiry(index) & "," & GetPlayertarget(index) & "," & SpellNo, Speed)
ElseIf getplayertargetnpc(index) > 0 Then
Call SetTimer("HomingNPC " & index & "," & Dist & "," & Damage & "," & GetPlayerMap(index) & "," & getplayerdirx(index) & "," & getplayerdiry(index) & "," & GetPlayertargetNPC(index) & "," & SpellNo, Speed)
Else
Call PlayerMSG(index, "No Target Selected!", 4)
End If
End Sub

Flips03 escreveu:@SkyZero

quero ajuda com um Sistema de Evolução de Classes que tem aqui no fórum, só que eu adicionei um sistema de Prefixos no Nome criado por mim.
Mesmo assim eu acho que a Sub vai continuar no mesmo lugar porque o sistema adicionado usa os mesmos recursos que usou no tuto (Apenas modifiquei os códigos para que ficasse como eu queria).
Bom... Chega de enrolação, ta ai o link do tuto:
http://www.mmorpgbr.com/scripts-f29/evolucao-de-classes-t53.htm

@gin
Vlw aew pela dica ^^
Eu so vou ver como fica esse tuto pra ter um idéia melhor de como mexer...

Código:

If GetPlayerClass(Index)= classe then
If GetPlayerLevel(Index) = level then
Call SetPlayerClass(Index, Classe)
Call PlayerMsg(index, "Se transoformou", 15)
end if
end if

Código:

If GetPlayerExp(Index) < GetPlayerNextLevel(Index) Then
      Exit Sub
   End If