[PEDIDO]Buff Spell

Assunto: [PEDIDO]Buff Spell Qua Jul 23, 2008 8:04 pm

se podesse arrumar script de buff spell e quest systen

Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 8:44 pm

vlw por postar em nosso forum.

o script de quest systen e pelo visual basic e é muito grande por isso não posso postá-lo nesta resposta, mas no foturo vou fazer uma engine com esse sistema.

Sobre buff spell eu tenho ele aqui:

1) Abra o seu main.txt e no final dele ponha:

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

2) Procure no Main.txt por:

Código:: Sub LeftGame(Index)
If GetPlayerAccess(Index) = 0 Then
Call GlobalMsg(GetPlayerName(Index) & " has left " & GameName & "!", GREY)
Else
Call GlobalMsg("Administrator " & GetPlayerName(Index) & " has left " & GameName & "!", YELLOW)
End If
End Sub

3) substitua por:

Código:: Sub LeftGame(Index)
If GetPlayerAccess(Index) = 0 Then
Call GlobalMsg(GetPlayerName(Index) & " has left " & GameName & "!", GREY)
Else
Call GlobalMsg("Administrator " & GetPlayerName(Index) & " has left " & GameName & "!", YELLOW)
End If
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
End Sub

Você poderá adicionar buff chamando-o por:

Código:: Call Buff(index, stat, amount, duration)

index = alvo
stat = Número do Stat(0 é strength, 1 é defense, 2 é magic, e 3 é speed)
amount = quanto
duration = duração em segundos

Para quem não sabe como chamar faça assim:

Código:: Case x
If GetPlayerTarget(index) > 0 Then
Call Buff(GetPlayerTarget(index), 0, 5, 10)
End If

PS: Substitua x pelo numero da case.

Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 9:11 pm

masi tipo como eu vo sabe em ql spell eh de buff e tals

Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 9:41 pm

vc tem que ver o numero da case.

Exemplo:

Vc faz uma magia, ai bota ele como scripted.
ai vai aparecer uma barra, nessa barra vc bota no número da case que ta o script.

se tiver duvida pergunta.

Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 9:52 pm

serve em elysium tbm ou so em eclipse??

pq aki o eclipse 2.7 nao ta funcionando...

Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 10:29 pm

não testei no elysium por isso não posso te informar, mas porque o eclipse 2,7 não funciona com você(já tenho uma ideia do motivo)?

Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 11:24 pm

da rte 429

e eu n sei pq e tals

Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 11:29 pm

ja consegui liga

graças ao tudo q vc feis

ajudo pakas

vlw ae

Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 11:39 pm

ei passa teu msn q eh mais facil pra min coloca esse script...

eh q eu nao so mt bom em script

Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 11:45 pm

vc sabe criar uma magia q execute um script?

Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 11:59 pm

sim eu ateh ja criei..

tipo o eclipse 2.7 tem um bug q nao aparece a animaçao dos spell neh

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 12:00 am

so q nao consigu coloca pra funciona

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 12:18 am

vc tem que botar o case no main e verificar o case
vai tar assim

case x
if adsasdsa
cal sddsd

vc tem q olhar esse x e botar o valor de x na case do editor.

entendeu?

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 12:41 am

Código:: Sub ScriptedSpell(Index, Script)
Select Case Script
   Case 1
If GetPlayerTarget(index) > 0 Then
Call Buff(GetPlayerTarget(index), 0, 50, 50)
End If

   Case Else
      Call PlayerMsg(Index, "No spell script found. Please contact an admin to solve this problem.", WHITE)
      Exit Sub
End Select
End Sub

coloquei assim tah certo?

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 12:53 am

mude para:

Código:: Sub ScriptedSpell(Index, Script)
Select Case Script
Case 0
If GetPlayerTarget(index) > 0 Then
Call Buff(GetPlayerTarget(index), 0, 50, 50)
End If
Exit Sub
End Select
End Sub

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:05 am

e tipo o bug de nao aparece animaçao das magia como q arruma

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:11 am

aki funciono a parada de buff mais buga

dpois q acaba o tempo fika com stat negativo ...

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:37 am

as magias scripted não tem animação.

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:38 am

agora não sei por que fica negativo, pois o codigo esta correto

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:42 am

mais nao as scriped as normal

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:44 am

qual eclipse vc usa?

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:48 am

to usando o 2.7

e o buff dpois q usa e passa o tempo fica negativo ....

o tanto q adiciona dpois fica negativo

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:49 am

Não é para tirar os stats ou vc quer eles definitivo?

Divulgue o forum

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 2:07 am

tipo eu quero q qndo acabe o tempo os stat diminua o tanto q adiciono e nao mais q isso pq diminuiu o dobro qndo usei...

e tem como colcoca em algum lugar mostrando qnto tempo ainda tem de buff ?

Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 2:25 am

este quanto tempo exegiria progamação.

» Spell Buff
» [Pedido] Spell Npc
» AJUDA NA SPELL
» PEDIDO Script de emprego
» AJUDEM SPELL NUM FUNFA