Criando Um Buff de DEF

por lukasfkt Qua 14 Abr 2010, 20:42

Como crio um bufff q da def por um tanto de tempo.E um de força,magia esses buffs

por Gelinho Qui 15 Abr 2010, 07:38

No final do Main.txt adicione isso:

Código:: Sub Buff(index, stat, amount, duration) If GetVar("Buff.ini", GetPlayerName(index), CStr(stat)) = "" Then Select Case stat Case 0 Call SetPlayerStr(index, GetPlayerStr(index) + Int(Amount)) Case 1 Call SetPlayerDef(index, GetPlayerDef(index) + Int(Amount)) Case 2 Call SetPlayerMagi(index, GetPlayerMagi(index) + Int(Amount)) Case 3 Call SetPlayerSpeed(index, GetPlayerSpeed(index) + Int(Amount)) Case Else Exit Sub End Select Call SendStats(index) Call PutVar("Buff.ini", GetPlayerName(index), CStr(stat), Cstr(amount)) duration = duration * 1000 Call SetTimer("Debuff " & index & ", " & CStr(stat), duration) Call SendHP(index) Call SendMP(index) Call SendSP(index) End If End Sub Sub Debuff(index, stat) Amount = GetVar("Buff.ini", GetPlayerName(index), CStr(stat)) Select Case stat Case "0" Call SetPlayerStr(index, GetPlayerStr(index) - Int(Amount)) Case "1" Call SetPlayerDef(index, GetPlayerDef(index) - Int(Amount)) Case "2" Call SetPlayerMagi(index, GetPlayerMagi(index) - Int(Amount)) Case "3" Call SetPlayerSpeed(index, GetPlayerSpeed(index) - Int(Amount)) End Select Call SendStats(index) Call PutVar("Buff.ini", GetPlayerName(index), CStr(stat), "") Call RemoveTimer("Debuff " & index & ", " & CStr(stat)) Call SendHP(index) Call SendMP(index) Call SendSP(index) End Sub

Código:: Na Sub LeftGame adicione isso: If GetVar("Buff.ini", GetPlayerName(index), "0") <> "" Then Call Debuff(index, "0") End If If GetVar("Buff.ini", GetPlayerName(index), "1") <> "" Then Call Debuff(index, "1") End If If GetVar("Buff.ini", GetPlayerName(index), "2") <> "" Then Call Debuff(index, "2") End If If GetVar("Buff.ini", GetPlayerName(index), "3") <> "" Then Call Debuff(index, "3") End If

E por ultimo na Sub scriptedSpell adicione isso na case: