| | [PEDIDO]Buff Spell |  |
|
|
|
| Autor | Mensagem |
|---|
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
|  Assunto: [PEDIDO]Buff Spell ![[PEDIDO]Buff Spell Icon_minitime](https://2img.net/i/fa/icon_minitime.gif) Qua Jul 23, 2008 8:04 pm | |
| se podesse arrumar script de buff spell e quest systen | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | 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. | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | 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 | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | 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. | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | 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... | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | 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)? | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 11:24 pm | |
| da rte 429
e eu n sei pq e tals | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | 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 | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | 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 | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | Assunto: Re: [PEDIDO]Buff Spell Qua Jul 23, 2008 11:45 pm | |
| vc sabe criar uma magia q execute um script? | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | 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 | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 12:00 am | |
| so q nao consigu coloca pra funciona | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | 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? | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | 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? | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | 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 | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | 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 | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | 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 ... | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:37 am | |
| as magias scripted não tem animação. | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | 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 | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:42 am | |
| mais nao as scriped as normal | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 1:44 am | |
| | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | 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 | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | 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 | |
|
| | |
thepower
Operador Básico
Mensagens : 31
Data de inscrição : 23/07/2008
| | 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 ? | |
|
| | |
Del Piero
Admin
Mensagens : 153
Data de inscrição : 23/07/2008
Idade : 30
Localização : Rio de Janeiro
| | Assunto: Re: [PEDIDO]Buff Spell Qui Jul 24, 2008 2:25 am | |
| este quanto tempo exegiria progamação. | |
|
| | |
Conteúdo patrocinado
| | Assunto: Re: [PEDIDO]Buff Spell | |
| |
|
| | |
| | [PEDIDO]Buff Spell | |
|
