[ES] Criando sistema de votos para tribunal!

por Karlos Dom 11 Abr 2010, 14:18

Exatamente isso, acontece o seguinte, um playes que esta sendo indiciado por algum crime cometido no jogo passará por um seção de votos e dependendo od resultado ele pode acabar na prisão [ES] Criando sistema de votos para tribunal! 395816

[ES] Criando sistema de votos para tribunal! 395816

Esse tutorial foi testado somente no Eclipse Stable, + talvez funcione nas versóes anteriores como a 2.7 e a 2.8, [ES] Criando sistema de votos para tribunal! 965439

[ES] Criando sistema de votos para tribunal! 965439

Coloque todo o conteudo abaixo no final da Sub Commands(index) no main.txt.

Código:: Case "/julgar" Dim c Dim Court For C = 1 To Ubound(textsay) Court = Court & " " & Textsay(c) CourtPlayer = FindPlayer(textsay(1)) Next If CourtPlayer < 1 Then Call PlayerMsg(Index, "O Player não esta online, ou não existe", WHITE) Else If getPlayerAccess(index) >= 4 then Call PutVar("Court.ini", "Jail", "Player", GetPlayerName(CourtPlayer)) Call PlayerWarp(Index, 18, 10, 11) Call PlayerWarp(CourtPlayer, 18, 15, 8) Call PlayerMSG(Courtplayer, "Você esta sendo levado ao tribunal por atos que contradizem a lei.", Yellow) Call GlobalMSG(Textsay(1) & " esta sendo levadoao tribunal por atos que contradizem a lei", Brightred) Call Putvar("court.ini", "jail", "start", 1) Call PutVar("court.ini", "jail", "Yes", 0) Call Putvar ("court.ini", "jail", "no", 0) Exit Sub End If End If Exit Sub Case "/juryvote" If GetPlayeraccess(index) => 4 then Call Putvar("court.ini", "jail", "start", 2) Call MapMSG(18, "Comecem a votar! Por favor votem somente uma vez!", Yellow) End If Exit sub Case "/jailyes" If GetPLayeraccess(index) >= 0 then If getPlayerMap(index) = 18 and GetVar("Court.ini", "Jail", "Start") = 2 and GetPlayername(index) <> GetVar("Court.ini", "Jail", "Player") Then call PutVar("Court.ini", "Jail", "Yes", GetVar("court.ini", "jail", "yes") +1) Call PlayerMSG(index, "Você votou para a prisão do jogador.", Yellow) End If If getPlayerMap(index) = 18 and GetVar("Court.ini", "Jail", "Start") = 1 and GetPlayername(index) <> GetVar("Court.ini", "Jail", "Player") Then call PLayerMSG(index, "Você não pode votar agora!", Brightred) End If If GetPlayername(index) = GetVar("Court.ini", "Jail", "Player") Then Call Playermsg(index, "O acusado não pode votar por sua liberdade!", Brightred) End If End If Exit Sub Case "/jailno" If GetPLayerAccess(index) >= 0 Then If getPlayerMap(index) = 18 and GetVar("Court.ini", "Jail", "Start") = 2 and GetPlayername(index) <> GetVar("Court.ini", "Jail", "Player") Then call PutVar("Court.ini", "Jail", "No", GetVar("court.ini", "jail", "No") +1) Call PlayerMSG(index, "Você votou para a liberdade do jogador!", Yellow) End If If getPlayerMap(index) = 18 and GetVar("Court.ini", "Jail", "Start") = 1 and GetPlayername(index) <> GetVar("Court.ini", "Jail", "Player") Then call PLayerMSG(index, "Você não pode votar agora!", Brightred) End If If GetPlayername(index) = GetVar("Court.ini", "Jail", "Player") Then Call Playermsg(index, "O acusado não pode votar por sua liberdade!", Brightred) End If End If Exit Sub case "/juryend" If getplayeraccess(index) >= 4 then Call Putvar("court.ini", "jail", "start", 1) Call MapMSG(18, "A votação foi encerrada. Vamos ver os resultados.", Yellow) End If Exit Sub Case "/courtend" Dim cC Dim Court2 For CC = 1 To Ubound(textsay) Court2 = Court2 & " " & Textsay(cc) CourtPlayer2 = FindPlayer(textsay(1)) Next If CourtPlayer2 < 1 Then Call PlayerMsg(Index, "O jogador está offline ou não existe.", WHITE) Else If getPlayerAccess(index) >= 4 then If GetVar("court.ini", "jail", "no") < GetVar("court.ini", "jail", "yes") Then Call PutVar("court.ini", "jail", "Jail", 1) End If If GetVar("court.ini", "jail", "Jail") = 0 Then Call PlayerMSG(Courtplayer2, "The Jury decided not to Jail you", Brightred) Call MapMSG(18, "Votes:" & " Yes = " & GetVar("court.ini", "jail", "yes") & " ; No = " & GetVar("court.ini", "jail", "no"), Yellow) Call MapMSG(18, GetPlayerName(CourtPlayer2) & " não foi preso!", Green) Call PlayerWarp(CourtPlayer2, 18, 10, 4) End If If GetVar("court.ini", "jail", "Jail") = 1 Then Call PlayerMSG(Courtplayer2, "The Jury decided to put you in Jail >:D", Brightred) Call MapMSG(18, "Votes:" & " Yes = " & GetVar("court.ini", "jail", "yes") & " ; No = " & GetVar("court.ini", "jail", "no"), Yellow) Call GlobalMsg(CourtPlayer2 & " has been jailed by the jury!", BRIGHTBLUE) Call MapMSG(18, GetPlayerName(CourtPlayer2) & " foi preso.", Brightred) Call PlayerWarp(CourtPlayer2, 801, 13, 11) End If Call PutVar("court.ini", "jail", "start", 0) Call PutVar("Court.ini", "Jail", "Player", 0) Call PutVar("court.ini", "jail", "Jail", 0) End If End If Exit Sub

Agora os comandos! [ES] Criando sistema de votos para tribunal! 965439

Use /julgar + nome do player para leva-lo ao jugamento!
Use /juryvote para dar inicio a votação!
Use /jailyes para indicar a prisão do acusado!
Use /jailno para indicar a liberdade do acusado!
Use /juryend para encerrar a votação ou para dar uma pausa!
Use /courtend para ter o resultado do julgamento!

Se ouver algum bug ou alguma duvida me avise. Este tutorial foi tirado do site oficial do eclipse, e foi traduzido e aprimorado por mim Pedro Karlos!