SkyDarkyes

Acho que só é possivel no OT-Client.

/\ Não funciona ...

http://www.xtibia.com/forum/topic/134875-matar-monstro-abrir-tp-remover-parede-ganhar-storage/ http://www.xtibia.com/forum/topic/103347-action-que-cria-e-remove-tp-apos-matar-monstro/ Procure usar a barra de busca.

Dbo ou NTO -.-

Falto os créditos =x

Não,para add funções só nas sources

8.54 muito dificil achar as sources,

Gostei do trailer

Curti xD

Oque tem de novo?

An?'-----'

Existiu sim o server,não sei se foi esse ano ou ano passado,

Naruto Shinobi Life,tinha um sv,mas fexou...

Copiar nome de um sv já falido?

Man,meu portugues?a por favor neh man para,nem chinguei nem nada,voce que vem com essa letra do do C#R#LH#

Vei,usa letra normal,ninguem é cego man.

Olha por min o tópico está reprovado,porém,ele tentou contribuir com aquilo que ele sabia,e explico de uma forma bem clara,eu gostei do tópico,só acho que era desnecessario. Mas oque vale é a intenção.

Gostei

/\ No caso o script deve estar na pasta MODS,Talkactions ou CreatureScript.

Dê mais informações sobre o projeto amigo.

De nada ^^ Reportado para que movam.

Irá precisar de:2 - Label 1 - ProgressBar - - Tutorial Programa:#Label: Label1 = Renomeie para "Atualizando :" Label2 = Deixe como está - #ProgressBar: Não é necessario modificar, deixe do tamanho que quiser. - - Tutorial Update:#Crie as pastas no seu FTP (Hospedagem) www\Update\ www\Update\Versao\ - Coloque os arquivos lá. Configure (NomePrograma1, NomePrograma2, NomePrograma3).exe , Links conforme seu ftp do seu jeito. Imports System.Net Imports System.Security.Cryptography Public Class Form1 Dim V_Programa As String = "" Dim V_Programa2 As String = "" Dim V_Programa3 As String = "" WithEvents wb As New WebClient Dim _arquivos As String Dim _arquivos1 As String Dim _arquivos2 As String Dim _arquivos3 As String Dim _arquivos4 As String Dim int As Integer = 0 WithEvents webclient1 As New WebClient WithEvents webclient2 As New WebClient WithEvents webclient3 As New WebClient WithEvents webclient4 As New WebClient WithEvents webclient5 As New WebClient WithEvents webclient6 As New WebClient WithEvents webclient7 As New WebClient Private Function getFileMd5(ByVal filePath As String) As String Dim File() As Byte = System.IO.File.ReadAllBytes(filePath) Dim Md5 As New MD5CryptoServiceProvider() Dim byteHash() As Byte = Md5.ComputeHash(File) Return Convert.ToBase64String(byteHash) End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load On Error Resume Next Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa = Clipboard.GetDataObject().GetData(DataFormats.Text).ToString() Clipboard.Clear() Else End If Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma2.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa2 = (Clipboard.GetDataObject().GetData(DataFormats.Text).ToString()) Clipboard.Clear() Else End If Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma3.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa3 = Clipboard.GetDataObject().GetData(DataFormats.Text).ToString() Clipboard.Clear() Else End If Dim versaodosite1 As String = webclient1.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma.php") If versaodosite1 = V_Programa Then Dim versaodosite2 As String = webclient2.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma2.php") If versaodosite2 = V_Programa2 Then Dim versaodosite3 As String = webclient3.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma3.php") If versaodosite3 = V_Programa3 Then Label2.Text = "Não há novas atualizações!" ProgressBar1.Value = "100" MsgBox("Os arquivos ja estão atualizados!", MsgBoxStyle.Information, "") Me.Close() Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If End Sub Private Sub wb_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wb.DownloadFileCompleted int = +1 If _arquivos.Contains("[nomedoprograma]") Then _arquivos = _arquivos.Replace("[nomedoprograma]", "") Label2.Text = "nomedoprograma.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma.exe"), Application.StartupPath & "\nomedoprograma.exe") 'Caso queira adicionar mais 1 arquivo para download so subistituir ElseIf _arquivos2.Contains("[nomedoprograma2]") Then _arquivos2 = _arquivos2.Replace("[nomedoprograma2]", "") Label2.Text = "nomedoprograma2.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma2.exe"), Application.StartupPath & "\nomedoprograma2.exe") ElseIf _arquivos3.Contains("[nomedoprograma3]") Then _arquivos3 = _arquivos3.Replace("[nomedoprograma3]", "") Label2.Text = "nomedoprograma3.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma3.exe"), Application.StartupPath & "\nomedoprograma3.exe") ElseIf _arquivos4.Contains("[Cancel]") Then _arquivos4 = _arquivos4.Replace("[Cancel]", "") Label2.Text = "ATUALIZAÇÃO CONCLUIDA !" MsgBox("Atualização dos programas foram atualizadas com sucesso !", MsgBoxStyle.Information, "") Me.Close() Else MsgBox("Erro ao atualizar arquivos tente novamente mais tarde.", MsgBoxStyle.Critical, "") End If End Sub Private Sub UpdateWC() On Error Resume Next If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma.exe") Then _arquivos &= "[nomedoprograma]" Else _arquivos &= "[nomedoprograma]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma2.exe") Then _arquivos2 &= "[nomedoprograma2]" Else _arquivos2 &= "[nomedoprograma2]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma3.exe") Then _arquivos3 &= "[nomedoprograma3]" Else _arquivos3 &= "[nomedoprograma3]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma3.exe") Then _arquivos4 &= "[Cancel]" Else _arquivos4 &= "[Cancel]" End If Call wb_DownloadFileCompleted(Nothing, Nothing) End Sub Private Sub wb_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wb.DownloadProgressChanged ProgressBar1.Maximum = e.TotalBytesToReceive ProgressBar1.Value = e.BytesReceived End Sub End Class

Mais simples é você digitar /attr group -.-

Gostei man.