Resetar os Pts do Stats por Item

por Motodark Dom Dez 21, 2014 8:40 pm

Motodark: Ocasional; Mensagens : 169
Créditos : 5

Mensagem nº1

Resetar os Pts do Stats por Item

por Motodark Dom Dez 21, 2014 8:40 pm

Código:: [size=18]Client side:[/size][size=14] Em [b]modConstants[/b] Abaixo de: [/size] [b][size=11]CÓDIGO:[/size][/b] [size=13]Public Const ITEM_TYPE_SPELL As Byte = 8[/size] [size=14]Add: [/size] [b][size=11]CÓDIGO:[/size][/b] [size=13]Public Const ITEM_TYPE_STAT_RESET As Byte = 9[/size] [size=14] Em [b]frmEditor_Item[/b] add cmbType's list: Resetador [/size][size=18]Server Side:[/size][size=14] Em [b]modConstants[/b] abaixo de: [/size] [b][size=11]CÓDIGO:[/size][/b] [size=13]Public Const ITEM_TYPE_SPELL As Byte = 8[/size] [size=14]Add: [/size] [b][size=11]CÓDIGO:[/size][/b] [size=13]Public Const ITEM_TYPE_STAT_RESET As Byte = 9[/size] [size=14] Em [b]modPlayer[/b], na sub UseItem add abaixo [/size][b][size=14]do[/size][/b][size=14] códico: [/size] [b][size=11]CÓDIGO:[/size][/b] [size=13] Case ITEM_TYPE_SPELL ' stat requirements For i = 1 To [/size][b][size=13]Stats[/size][/b][size=13].Stat_Count - 1 If GetPlayerRawStat(index, i) < [/size][b][size=13]Item[/size][/b][size=13](itemnum).Stat_Req(i) Then PlayerMsg index, "You [/size][b][size=13]do[/size][/b][size=13] not meet the stat requirements to use this[/size][b][size=13]item[/size][/b][size=13].", BrightRed Exit Sub End If Next ' level requirement If GetPlayerLevel(index) < [/size][b][size=13]Item[/size][/b][size=13](itemnum).LevelReq Then PlayerMsg index, "You [/size][b][size=13]do[/size][/b][size=13] not meet the level requirement to use this [/size][b][size=13]item[/size][/b][size=13].", BrightRed Exit Sub End If ' class requirement If [/size][b][size=13]Item[/size][/b][size=13](itemnum).ClassReq > 0 Then If Not GetPlayerClass(index) = [/size][b][size=13]Item[/size][/b][size=13](itemnum).ClassReq Then PlayerMsg index, "You [/size][b][size=13]do[/size][/b][size=13] not meet the class requirement to use this[/size][b][size=13]item[/size][/b][size=13].", BrightRed Exit Sub End If End If ' access requirement If Not GetPlayerAccess(index) >= [/size][b][size=13]Item[/size][/b][size=13](itemnum).AccessReq Then PlayerMsg index, "You [/size][b][size=13]do[/size][/b][size=13] not meet the access requirement to use this [/size][b][size=13]item[/size][/b][size=13].", BrightRed Exit Sub End If ' Get the spell num n = [/size][b][size=13]Item[/size][/b][size=13](itemnum).Data1 If n > 0 Then ' Make sure they are the right class If Spell(n).ClassReq = GetPlayerClass(index) Or Spell(n).ClassReq = 0 Then ' Make sure they are the right level i = Spell(n).LevelReq If i <= GetPlayerLevel(index) Then i = FindOpenSpellSlot(index) ' Make sure they have an open spell slot If i > 0 Then ' Make sure they dont already have the spell If Not HasSpell(index, n) Then Call SetPlayerSpell(index, i, n) Call SendAnimation(GetPlayerMap(index),[/size][b][size=13]Item[/size][/b][size=13](itemnum).Animation, 0, 0, TARGET_TYPE_PLAYER, index) Call TakeInvItem(index, itemnum, 0) Call PlayerMsg(index, "You feel the rush of knowledge fill your mind. You can now use " & Trim$(Spell(n).Name) & ".", BrightGreen) Else Call PlayerMsg(index, "You already have knowledge of this skill.", BrightRed) End If Else Call PlayerMsg(index, "You cannot learn any more skills.", BrightRed) End If Else Call PlayerMsg(index, "You must be level " & i & " to learn this skill.", BrightRed) End If Else Call PlayerMsg(index, "This spell can only be learned by " & CheckGrammar(GetClassName(Spell(n).ClassReq)) & ".", BrightRed) End If End If ' send the sound SendPlayerSound index, GetPlayerX(index), GetPlayerY(index), SoundEntity.seItem, itemnum[/size] [size=14]Adicione isso abaixo [/size][b][size=14]do[/size][/b][size=14] códico acima: [/size] [b][size=11]CÓDIGO:[/size][/b] [size=13] Case ITEM_TYPE_STAT_RESET filename = App.Path & "\data\classes.ini" Call SetPlayerStat(index, Agility, Val(GetVar(filename, "CLASS" & GetPlayerClass(index), "Agility"))) Call SetPlayerStat(index, Strength, Val(GetVar(filename, "CLASS" & GetPlayerClass(index), "Strength"))) Call SetPlayerStat(index, Intelligence, Val(GetVar(filename, "CLASS" & GetPlayerClass(index), "Intelligence"))) Call SetPlayerStat(index, Endurance, Val(GetVar(filename, "CLASS" & GetPlayerClass(index), "Endurance"))) Call SetPlayerStat(index, Willpower, Val(GetVar(filename, "CLASS" & GetPlayerClass(index), "Willpower"))) If Not GetPlayerPOINTS(index) > 0 Then Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) ((GetPlayerLevel(index) - 1) * 3)) Else Call SetPlayerPOINTS(index, 0) Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) ((GetPlayerLevel(index) - 1) * 3)) End If Call TakeInvItem(index, Player(index).Inv(invNum).Num, 0) ' send the sound SendPlayerSound index, GetPlayerX(index), GetPlayerY(index), SoundEntity.seItem, itemnum Call PlayerMsg(index, "Your [/size][b][size=13]Stats[/size][/b][size=13] had been reset!", BrightRed) [/size] [size=14] Agora, na mesma sub, modifique o começo [/size][b][size=14]do[/size][/b][size=14] códico onde está: [/size] [b][size=11]CÓDIGO:[/size][/b] [size=13]Dim n As Long, i As Long, tempItem As Long, x As Long, y As Long, itemnum As Long[/size] [b][size=14]Por[/size][/b][size=14]: [/size] [b][size=11]CÓDIGO:[/size][/b] [size=13]Dim n As Long, i As Long, tempItem As Long, x As Long, y As Long, itemnum As Long, filename As String[/size] [size=13] [/size]