Pondo Niveis em sua magia

por lukasfkt Qua 21 Abr 2010, 11:51

Como por níveis em suas magias

SCRIPT INTEIRO:

Código:: '============================================================= ' EXECUTA SEMPRE QUE UPA. '============================================================= Sub PlayerLevelUp(Index) Dim TotalExp m=GetPlayerMap(index) x=GetPlayerX(index) y=GetPlayerY(index) Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index) TotalExp = GetPlayerExp(Index) - GetPlayerNextLevel(Index) Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) If GetPlayerLevel(index) = 5 Then Call SetPlayerSpell(index, 1, 4) 'mslot ,magia Call SetPlayerSpell(index, 2, 5) 'mslot ,magia Call SetPlayerSpell(index, 3, 6) 'mslot ,magia Call CustomMenuShow(index, "SKILL", "\GUI\CUSTOM\LEVEL.gif", 1) End If If GetPlayerLevel(index) = 10 Then Call SetPlayerSpell(index, 1, 7) 'mslot ,magia Call SetPlayerSpell(index, 2, 8) 'mslot ,magia Call SetPlayerSpell(index, 3, 9) 'mslot ,magia Call CustomMenuShow(index, "SKILL", "\GUI\CUSTOM\LEVEL.gif", 1) End If If GetPlayerLevel(index) = 12 Then Call SetPlayerSpell(index, 4, 10) 'mslot ,magia Call CustomMenuShow(index, "SKILL", "\GUI\CUSTOM\LEVEL.gif", 1) End If Call SpellAnim(40, m, x, y) Call PlaySound(index, "levelupsnd.wav") Call SetPlayerExp(Index, TotalExp) Loop Call SetPlayerPoints(Index, GetPlayerPoints(Index) + 1) Call BattleMsg(Index, "Você possui " & GetPlayerPoints(Index) & " pontos.", BRIGHTBLUE, 0) End Sub

Caso você queira que uma magia passe de nv, basta criar uma nova parte - ex:
If GetPlayerLevel(index) = 5 Then
Call SetPlayerSpell(index, 1, 4) 'mslot ,magia
Call SetPlayerSpell(index, 2, 5) 'mslot ,magia
Call SetPlayerSpell(index, 3, 6) 'mslot ,magia
Call CustomMenuShow(index, "SKILL", "\GUI\CUSTOM\LEVEL.gif", 1)
End If

If Getplayerclass(index) = 2 then >>> exclusive para classe
Call SetPlayerSpell(index, 4, 10) 'mslot ,magia >>> add magia
End If >>> fexar o If
Créditos: Matheus P.C e a comunidade -Eclipse MMORPG Maker Xstrond-

Pondo Niveis em sua magia Win2

[By: P-]

por Rio Absolut Qua 21 Abr 2010, 15:32

Desculpe mais o Xtrond Só meche com Esclipse se não me engano acho que isso só funciona no eclipse

por lukasfkt Qua 21 Abr 2010, 18:41

Entao esta no topico de eclipse

por Rio Absolut Qua 21 Abr 2010, 18:58

desculpe eu postei errado eu tinha achado que tava na area do Elysium
mais de qualquer forma é muito bom

por lukasfkt Qua 21 Abr 2010, 19:04

ok ^^

por greeik Qui 01 Jul 2010, 08:52

onde coloco esse script'?

por St4rk Qui 01 Jul 2010, 08:58

AFf, essa script é ruim pra "Kct", cara é muito melhor você fazer isso pelo visual basic 6, e editar pra cada level a spell só adiciona alguns atributos a mais x.x .