Guerra de clã

por **Lendário** Seg 30 Nov 2009, 11:41

Bom, eaê pessoal .-. , eu to sem muito tempo pra fazer esses scripts , mais peguei um dia de folga e fiz ,
-Bom vamos a intro , esse é um "dos famosos" scripts de guerra de clã , novamente fiz ele relacionado outro jogo (RAG) , como eu sei que muita jente quer para por em seus jogos eu fiz um bem pratico para o meu . [FOI COMPLICADO FAZER , MAIS USAR É MUITO FACIL] .
Vá até o final do seu main e adcione esse codigo :

Código:: Sub War(index, script) select case script case 0 If GetVar("WAR.ini", "WAR", "WAR") = "1" Then exit sub If GetVar("WAR.ini", "WAR", "WAR") = "0" Then Call globalmsg("[ ADM ] :", YELLOW) Call Globalmsg("Atenção , Todos que estão alistados para a guerra de clã's venham até o MERCADO " , Cyan) call globalmsg("Todos que estão na lista e não vinherem serão desclassificados " , Cyan ) call globalmsg("Vocês tem 5 minutos para chegar até o MERCADO ", Cyan) Call globalmsg("OBS : - A guerra de clã da direito ao vencedor o castelo de hyrule ", WHITE) CALL GLOBALMSG(" - Todo o vencedor da semana anterior deve participar ", WHITE) CALL GLOBALMSG(" - O modo de combate é sobrevivência ,Somente um clã com mais de 3 players online pode participar ." , White) Call PutVar("WAR.ini", "WAR", "WAR", "1") end if exit sub Case 1 If GetVar("WAR.ini", "WAR", "WAR") = "0" Then exit sub If GetVar("WAR.ini", "WAR", "WAR") = "1" Then Call globalmsg("[ ADM ] :", YELLOW) Call globalmsg("A guerra de clã's terminou ", Cyan) Call globalmsg("Lembrando que so o clã do ultimo player vivo , é o vencedor , ele não precisa ser o dono do clã ." , cyan) call globalmsg("Estamos modificando alguns scripts para a entrada do novo clã .", White) Call PutVar("WAR.ini", "WAR", "WAR", "0") end if exit sub end select end sub

•Agora na sub commands ache um espaço qualquer e adcione esses codigos :

Código:: case "/war" if getplayeraccess(index) =< 4 then call playermsg(INDEX, "Você não pode utilizar este comando " , red) else call war(index, 0) end if EXIT SUB case "/endwar" if getplayeraccess(index) =< 4 then call playermsg(INDEX, "Você não pode utilizar este comando " , red) else call war(index, 1) end if EXIT SUB Case "/wardono" If getplayeraccess(index) = 5 then PlayerID = FindPlayer(TextSay(1)) If PlayerID > 0 Then Call PutVar("WAR.ini", "CASTELO", "DONO", getplayerguild(PlayerId)) call globalmsg("[ ADM ] : ", YELLOW) call globalmsg("Parabéns aos vencedores da guerra de clãs dessa semana ." , cyan ) call globalmsg("- O novo dono do castelo é o clã "& " '' " & getplayerguild(PlayerID) & " '' . ", White) Else Call playermsg(index, "Este Player não esta online!." , brightred) end if end if EXIT SUB Case "/alistar" PlayerID = index if getplayerguildaccess(playerid) =<3 then Call playermsg(index, "Você não é o dono do seu clã para se alistar ." , brightred) exit sub end if If GetVar("WAR.ini", "CLA", Getplayername(playerid)) = getplayerguild(playerid) Then Call playermsg(index, "Seu clã ja foi alistado ." , cyan) exit sub end if If getplayeraccess(index) =>1 then Call playermsg(index, "Você é um moderador ou alguem superior e não pode se alistar ." , brightred) else Call PutVar("WAR.ini", "CLA", getplayername(playerid), getplayerguild(playerid)) call globalmsg("[ ADM ] : ", YELLOW) call globalmsg("O dono do clã '' " & getplayerguild(playerid) & " '' acabou de se alistar na guerra de clã's ." , cyan ) call globalmsg("- Lembrando , as guerras so ocorrem aos sabados as 13:00 ", White) end if EXIT SUB

•Agora vá até a pasta do server , e copie uma ini e cole , re-nomeia para "WAR" , sendo que o nome global fique "WAR.ini" , abra ela e adcione o seguinte codigo :

Código:: [WAR] WAR=0 [CASTELO] DONO=[STAFF2] [CLA]

•Crie uma scriptedtile com o codigo :

Código:: Case # If getplayerguild(index) = getvar("WAR.ini", "CASTELO" , "DONO") Then call playermsg(index, "Bem vindo , divirta-se , você tem até sabado para aproveitar o castelo", brightcyan) exitsub else call playerwarp(index, getplayermap(index) , getplayerx(index) , getplayery(index) - 3 ) call playermsg(index, "Guarda :" , yellow) call playermsg(index, "Você não tem acesso ao castelo , você não é da nova familia real" , brightred ) end if exit sub

MUDE # PELO NUMERO DA CASE .
•Como usar , ufa , bom galera é muito facil usar esse script os comandos e oque fazem :
/alistar : Adciona o nome do dono e do clã a lista da "WAR.INI" na pasta server , para você saber todos que se alistaram para a batalha , e barrar alguem que não se alistou antes ' OBS : Melhor usado em campeonatos .
/war : Inicia o chamado de guerra para que todos que estejam na lista corram para uma arêa de batalha .
/warend : Termina o chamado de guerra para que todos ja saibam que acabou a guerra .
/wardono (playername) : Da o acesso ao castelo ' OBS : Não é so ao player que ganhou e sim ao clã enteiro que ele pertence .

•REGRAS DE COMANDO: ,
as regras que eu puz no script são para os comandos :
/alistar : So é possivel se alistar uma vêz , so os players com acesso 0 podem se alistar (EVITAR GRACINHA POR UM DONO DE CLÃ SER GM) , a informação é salva na WAR.ini .
/war : So é utilizado pelo DONO DO JOGO , ou seja acesso 5 .
/warend : So é utilizado pelo DONO DO JOGO , ou seja acesso 5 .
/wardono : So é utilizado pelo DONO DO JOGO , ou seja acesso 5 , a informação é salva na WAR.ini .

Créditos : A.Marques !

por João™ Seg 30 Nov 2009, 11:46

nussa, valeu cara isso vai encaixa direitinho no meu projeto de bleach Very Happy

+1 Cred :]

por leuzin_xD Seg 30 Nov 2009, 14:29

Vlw Lendario ...
Agora posso fazer um sistema de guerras no Meu Naruto Very Happy

por Karlos Seg 30 Nov 2009, 14:41

tanks melhor que meu comando de teleporte na war vlw man.

por Marques Seg 30 Nov 2009, 15:29

Lendarío , ta faltando tag code ali na parte de criar a case .

Case #
If getplayerguild(index) = getvar("WAR.ini", "CASTELO" , "DONO") Then
call playermsg(index, "Bem vindo , divirta-se , você tem até sabado para aproveitar o castelo", brightcyan)
exitsub
else
call playerwarp(index, getplayermap(index) , getplayerx(index) , getplayery(index) - 3 )
call playermsg(index, "Guarda :" , yellow)
call playermsg(index, "Você não tem acesso ao castelo , você não é da nova familia real" , brightred )
end if
exit sub

,

Esses créditos eram para serem meus ._________.

por Karlos Seg 30 Nov 2009, 16:25

fika tranks que te dei cred tbm ^^

por **Lendário** Seg 30 Nov 2009, 18:36

Marques escreveu:Lendarío , ta faltando tag code ali na parte de criar a case .
Case #
If getplayerguild(index) = getvar("WAR.ini", "CASTELO" , "DONO") Then
call playermsg(index, "Bem vindo , divirta-se , você tem até sabado para aproveitar o castelo", brightcyan)
exitsub
else
call playerwarp(index, getplayermap(index) , getplayerx(index) , getplayery(index) - 3 )
call playermsg(index, "Guarda :" , yellow)
call playermsg(index, "Você não tem acesso ao castelo , você não é da nova familia real" , brightred )
end if
exit sub
,

Esses créditos eram para serem meus ._________.

Onde ?

por Marques Ter 01 Dez 2009, 03:19

Cara , a parte

Case #
If getplayerguild(index) = getvar("WAR.ini", "CASTELO" , "DONO") Then
call playermsg(index, "Bem vindo , divirta-se , você tem até sabado para aproveitar o castelo", brightcyan)
else
call playerwarp(index, getplayermap(index) , getplayerx(index) , getplayery(index) - 3 )
call playermsg(index, "Guarda :" , yellow)
call playermsg(index, "Você não tem acesso ao castelo , você não é da nova familia real" , brightred )
end if
exit sub

é um codigo , e esta faltando aquela tag ,

Código:: Code

por **Lendário** Ter 01 Dez 2009, 08:57

Post editado valeu pela ajuda !!!
Mais 1 de cred pelo script.

por St4rk Qua 02 Dez 2009, 11:04

Realmente otimo xD acho que vai ser o unico script que eu vou usar no meu jogo por enquanto...(Vou passar pra VB6 u.u) +1 cred

por Rio Absolut Sex 04 Dez 2009, 14:45

funciona no elysium ?

por **Lendário** Sex 04 Dez 2009, 20:51

Ainda não testei

por Uchiha Naruto Ter 08 Dez 2009, 16:26

Ficaria mais legal se quando fala-se /war , todos os alistados iriam pra um certo lugar. tenta fazer isso ai.

por Zeus Sex 11 Dez 2009, 20:00

Muito bom cara Parabéns !

por Lucas Lôpo Qua 16 Dez 2009, 09:55

Aew Lendario esses tempos que fiquei fora , tu ta saindo muito
bem em ^^ melhorou muito na programaçao , aaa e o negocio
que agente conversou no msn vamo fazer em melhorar isso aqui
ate mas....
OBS : Ainda to sem net =D quando voltar eu aviso....

por Noah Qui 21 Jan 2010, 06:27

Muito da hora. é quase parecido com o do ragarok.

por Cris~ Sáb 26 Jun 2010, 14:57

funciona neh elysium?

por Infinit Online Dom 27 Jun 2010, 10:01

Vou postar um no Elysium ok :}
pq acho que é diferente os nomes das Frm's ^^

por St4rk Dom 27 Jun 2010, 11:27

'-' esse sistema nem meche muito com "frms" é puro sadscript x.x

por Infinit Online Dom 27 Jun 2010, 21:05

AFF que burro da Zero pra mim
postei no Topico Errado --'

Código:: Quero morrer

por Thelost Qua 30 Jun 2010, 16:48

Noos muitoo boom seeu post Very Happy

aai see algueem de voces quiserem ajuda eu no meeo projeto de naruto adicionem no msn : felipe_mcs2006@hotmail.com

por St4rk Qua 30 Jun 2010, 17:02

@Thelost

Por favor edit seu topico e remove o msn, se não você ira ser punido.

Se quiser ajuda para sua equipe envie PM com msn e etc.

por Flips03 Qua 30 Jun 2010, 18:26

Funfa em Elysium??

por **Lendário** Qui 01 Jul 2010, 12:27

Não funciona

Spoiler:

por Flips03 Qui 01 Jul 2010, 12:31

Depois que eu postei essa mansagem eu não aguentei esperar e entao testei!!
E que eu esqueci de exclui.

por Conteúdo patrocinado

Guerra de clã

Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã

Re: Guerra de clã