Puncker

Os arquivos .rar contém senha, por favor edite o post e nos forneça a senha para quem quer usar essas versões do NG.

Tem tudo aí:

http://www.tibiabot.com/scripting/

Caso esqueça o site abra o scripter do TibiaBotNG e clique em help que vai direto pro site

E os scripts do NG são como linguagem de programação Pascal (Delphi).

Não existe esse tipo de script.
Para andar sobre fire, poison, energy , etc... É preciso editar o arquivo tibia.dat e definir o BlocksPath como false desses fields.

Fala sua versão do tibia que já te mando um tibia.dat já editado.

Linguagem C Descomplicada - Portal de Vídeo Aulas Para Estudo de Programação

Eae galera do TK, hoje eu venho trazer um blog muito foda, onde o Dr. André Backes ensina C de forma bem simples, inclusive vou comprar o livro dele, pois vale a pena!

• Curso de Linguagem C

Vocês podem conferir sobre o projeto aqui!

Olá galera,
Essa aqui é para os programadores, e principalmente, para os aspirantes e iniciantes na programação.
 
Criei um repositório no github listando vários projetos open source do github, entre eles, servidores, clientes, map editors, utilitários, entre outros. Para você que quer aprender um pouco mais de alguma linguagem ou de como algo é feito, é uma ótima chance pra dar uma bisbilhotada nos códigos 
 
Link para o repositório: https://github.com/tibiaking/open-tibia-repos
 
Sinta-se livre para colaborar também com seus pull requests, e adicionar novos bons projetos e agregar à esta iniciativa. Se preferir também pode ajudar apenas dando uma estrelinha no repositório 
 
Abraços.

Você tem certeza que foi você que fez? Eu sei usar o google eim...

Bom, depois disso não posto mais. E também não vou postar nada de VB pois o povo ta vindo aqui só pra ctrl+c e ctrl+v e não querem saber de lógica querem ficar dependentes de outras pessoas mas sem aprender nada.

Olá pessoal, apartir do update 9.1, a Cipsoft botou um novo sistema, que agora os programadores precisam pegar a base do endereço para o seu bot funcionar perfeitamente em computadores com sistemas operacionais Windows 7 e Windows Vista.
Bom, foi um sistema falho...

Declare nas uses:

PsAPI Declare a função necessaria para pegar a base do endereço: function GetTibiaBaseAddress(ProcessID: Cardinal): Pointer; var Modules: Array of HMODULE; cbNeeded, i: Cardinal; ModuleInfo: TModuleInfo; ModuleName: Array [0 .. MAX_PATH] of Char; PHandle: THandle; begin Result := nil; SetLength(Modules, 1024); PHandle := OpenProcess(PROCESS_QUERY_INFORMATION + PROCESS_VM_READ, FALSE, ProcessID); if (PHandle <> 0) then begin EnumProcessModules(PHandle, @Modules[0], 1024 * SizeOf(HMODULE), cbNeeded); SetLength(Modules, cbNeeded div SizeOf(HMODULE)); for i := 0 to Length(Modules) - 1 do begin GetModuleBaseName(PHandle, Modules[i], ModuleName, SizeOf(ModuleName) ); if AnsiCompareText('Tibia.exe', ModuleName) = 0 then begin GetModuleInformation(PHandle, Modules[i], @ModuleInfo, SizeOf (ModuleInfo)); Result := ModuleInfo.lpBaseOfDll; CloseHandle(PHandle); Exit; end; end; end; end; Declare as variaveis: PH: THandle; PID, Thid: Dword; Offset: Integer; TibiaH: THandle Declare a função para ler os endereços de memoria: function ReadInteger(Address: Integer): Integer; var value: Integer; ler: Dword; begin Thid := GetWindowThreadProcessId(TibiaH, @PID); PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID); ReadProcessMemory(PH, Ptr(Address), @value, 4, ler); Result := value; end; Declare a função para pegar o ProcessID: function ProcessID: Integer; begin TibiaH := FindWindow('TibiaClient', nil); Thid := GetWindowThreadProcessId(TibiaH, @PID); PH := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID); Result := PID; end; Pronto, agora já podemos burlar o sistema da Cipsoft. Agora um simples exemplo de como você deve usar: Declare as consts: const adrXOR = $7ADFD0; adrMyHP = $943000; adrMyMana = $7AE024; Agora, declare a função para retornar o Health do seu character: function PlayerHealth: Integer; var HP: Integer; uXor: Integer; begin Offset := Integer(GetTibiaBaseAddress(ProcessID)); HP := ReadInteger((adrMyHP + Offset) - $400000); uXor := ReadInteger((adrXOR + Offset) - $400000); Result := HP xor uXor; end; Função para pegar a Mana do seu character: function PlayerMana: Integer; var Mana: Integer; uXor: Integer; begin Offset := Integer(GetTibiaBaseAddress(ProcessID)); Mana := ReadInteger((adrMyMana + Offset) - $400000); uXor := ReadInteger((adrXOR + Offset) - $400000); Result := Mana xor uXor; end; Vou deixar como o meu .pas ficou:

Qualquer duvida, só postar.

Inserindo Skin no seu projeto Delphi



{Iniciando em Delphi}


Muitos gostam de programas estilosos, com uma aparência bonita, mas não sabem como alterar isso. Então vou ensinar como colocar "Skins" em um projeto do Delphi.

Necessário:

VCL Skin
Pacote de Skins


O que é VCL Skin?
VCL Skin é um componente do Delphi, que pode ser integrado ao Delphi, após ele ser integrado ele aparece nas abas do Delphi, e você poderá usar as suas funções.


1 - Instalando o Componente


Após ter baixado o VCLSkin extraia ele, agora dentro das pastas extraídas haverá uma chamada Package, nessa pasta como você verá tem muitos arquivos. Destes arquivos abra o WinSkinD7R.dpk.
Irá aparecer algo parecido com um projeto de Delphi porém sem o form.


Agora clique em "Compile" e logo depois em "Install" depois de instalar aparecerá uma mensagem confirmando que foi instalado, agora feche o Delphi. E nas pastas extraídas do VCLSkin vá na pasta "Source" copie tudo que tem na pasta e cole em:
C:\Program Files\Borland\Delphi7\Lib (Pasta do Delphi Windows Vista/Windows 7)
C:\Arquivos de Programas\Borland\Delphi7\Lib (Pasta do Delphi Windows XP)

Pronto ele está prontinho para funcionar mas agora a parte de inserir "Skin" no projeto.


2 - Inserindo os Skins


Após ter completado a etapa de instalar o componente agora você poderá deixar seu programa mais bonito.
Abra o Delphi e inicie um novo projeto caso não exista um. Após fazer isso nas abas vá até o final usando a seta ">" e pare quando encontrar a aba "VCLSkin



Na aba "VCLSkin" selecione o componente SkinData e coloque-o no seu form. Após fazer isto clique no SkinData já no seu form apenas para selecionar as propriedades dele, altere a propriedade "Active" para "True"



Agora clique em "..." na propriedade "SkinStore" do SkinData e vá até a pasta extraída do pacote de skins e escolha o skin de sua preferência. Agora você pode compilar seu projeto e ver como ficou apertando F9.



Uma screenshoot do programa com o Skin Discoteca

{Manipulando arquivos de configuração .ini}


O que é um arquivo INI ?

Um arquivo INI é um arquivo texto usado para armazenar/fornecer configurações pessoais para sistemas/usuários ; Um arquivo INI é um arquivo com dados externo ao programa principal e esta formatado em : Secções(FileName) , Entradas e Valores.

Como por exemplo: Eu quero que o usuário digite algo em um "EditBox" mas que o que ele digite fique guardado e sempre seja usado, então irei gravar o que ele digitou em um arquivo .ini (Chamado de arquivo de inicialização mas também pode ser chamado de configuração) e quando eu quizer usar o que o usuário digitou eu busco dentro do arquivo .ini.




Funções

Primeiramente em seu projeto do VB adicione um novo "Module" chamado "INIread.vb" e outro chamado "INIwrite.vb".
(para criar um novo module, clique com botão direito no primeiro item da lista do Solution Explorer, Add > Module)

Dentro do INIread.vb apague tudo e cole isso:


Option Strict Off Option Explicit On Module INIread Public Function ReadIniValue(ByRef INIpath As String, ByRef KEY As String, ByRef Variable As String) As String Dim NF As Short Dim Temp As String Dim LcaseTemp As String Dim ReadyToRead As Boolean AssignVariables: NF = FreeFile ReadIniValue = "" KEY = "[" & LCase(KEY) & "]" Variable = LCase(Variable) EnsureFileExists: FileOpen(NF, INIpath, OpenMode.Binary) FileClose(NF) SetAttr(INIpath, FileAttribute.Archive) LoadFile: FileOpen(NF, INIpath, OpenMode.Input) While Not EOF(NF) Temp = LineInput(NF) LcaseTemp = LCase(Temp) If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False If LcaseTemp = KEY Then ReadyToRead = True If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then If InStr(LcaseTemp, Variable & "=") = 1 Then ReadIniValue = Mid(Temp, 1 + Len(Variable & "=")) FileClose(NF) : Exit Function End If End If End While FileClose(NF) End Function End Module E dentro do INIwrite.vb cole isso: Option Strict Off Option Explicit On Module INIwrite Public Function WriteIniValue(ByRef INIpath As String, ByRef PutKey As String, ByRef PutVariable As String, ByRef PutValue As String) As Object Dim Temp As String Dim LcaseTemp As String Dim ReadKey As String Dim ReadVariable As String Dim LOKEY As Short Dim HIKEY As Short Dim KEYLEN As Short Dim VAR As Short Dim VARENDOFLINE As Short Dim NF As Short Dim X As Short AssignVariables: NF = FreeFile ReadKey = vbCrLf & "[" & LCase(PutKey) & "]" & Chr(13) KEYLEN = Len(ReadKey) ReadVariable = Chr(10) & LCase(PutVariable) & "=" EnsureFileExists: FileOpen(NF, INIpath, OpenMode.Binary) FileClose(NF) SetAttr(INIpath, FileAttribute.Archive) LoadFile: FileOpen(NF, INIpath, OpenMode.Input) Temp = InputString(NF, LOF(NF)) Temp = vbCrLf & Temp & "[]" FileClose(NF) LcaseTemp = LCase(Temp) LogicMenu: LOKEY = InStr(LcaseTemp, ReadKey) If LOKEY = 0 Then GoTo AddKey HIKEY = InStr(LOKEY + KEYLEN, LcaseTemp, "[") VAR = InStr(LOKEY, LcaseTemp, ReadVariable) If VAR > HIKEY Or VAR < LOKEY Then GoTo AddVariable GoTo RenewVariable AddKey: Temp = Left(Temp, Len(Temp) - 2) Temp = Temp & vbCrLf & vbCrLf & "[" & PutKey & "]" & vbCrLf & PutVariable & "=" & PutValue GoTo TrimFinalString AddVariable: Temp = Left(Temp, Len(Temp) - 2) Temp = Left(Temp, LOKEY + KEYLEN) & PutVariable & "=" & PutValue & vbCrLf & Mid(Temp, LOKEY + KEYLEN + 1) GoTo TrimFinalString RenewVariable: Temp = Left(Temp, Len(Temp) - 2) VARENDOFLINE = InStr(VAR, Temp, Chr(13)) Temp = Left(Temp, VAR) & PutVariable & "=" & PutValue & Mid(Temp, VARENDOFLINE) GoTo TrimFinalString TrimFinalString: Temp = Mid(Temp, 2) Do Until InStr(Temp, vbCrLf & vbCrLf & vbCrLf) = 0 Temp = Replace(Temp, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf) Loop Do Until Right(Temp, 1) > Chr(13) Temp = Left(Temp, Len(Temp) - 1) Loop Do Until Left(Temp, 1) > Chr(13) Temp = Mid(Temp, 2) Loop OutputAmendedINIFile: FileOpen(NF, INIpath, OpenMode.Output) PrintLine(NF, Temp) FileClose(NF) End Function End Module Pronto as funções agora estão funcionando em seu projeto. Aparecerá 2 warnings mas ignore. Como usar as funções? Vamos definir uma variável "File" que será o caminho do arquivo .ini. Dim File as String Agora vamos atribuir um valor para a variável file. File = "C:\teste.ini" E agora? Como escrever/gravar ou ler este arquivo? Para escrever/gravar: WriteIniValue(File, "Teste", "Valor1", "Oi") Código inteiro (Coloque em algum botão ou algo do tipo): Dim File as String File = "C:\teste.ini" WriteIniValue(File, "Teste", "Valor1", "Oi") O arquivo .ini após ele executar isso ficara assim: [Teste] Valor1=Oi Agora vamos ler e exibir o que está escrito no arquivo .ini (Coloque em algum botão ou algo do tipo) Dim Str as String Str = ReadIniValue(File, "Teste", "Valor1") MsgBox(Str)

Com essas funções você pode criar várias idéias, use a sabedoria e crie idéias perfeitas com isto.

Desde ontem venho tentando entrar no site do iBot, e ao entrar no site o meu anti-vírus (Norton 360) simplesmente acusa uma tentativa de intrusão informando que o ataque é Styx Eploit Kit e isso ocorre toda vez que tento acessar o site do iBot, segue a screenshoot do aviso detalhado do norton:
 

 
Achei interessante isso você ir no site com o objetivo de comprar uma licensa e simplesmente recebe uma notificação/alerta do anti-vírus de uma tentativa de intrusão, como posso confiar em comprar algo em um site desses? Alguém saberia me informar o que exatamente seria isso? Ou se é algum falso alerta, pois no computador de um amigo também deu um alerta com o Avast.
 
@Edit
 
Dei uma pesquisada agora pouco e descobri que esse vírus pode ser usado para efetuar ataques DDoS, interessante que o servidor do XenoBot está sofrendo ataques DDoS faz alguns dias, já deu para ter uma idéia do porque está tentativa de intrusão está ocorrendo...

Bom, resolvi mostrar alguns exemplos de como pode ser usar as hotkeys do Tibia.

Procurar em todas as hotkeys e executa,
Control, Shift e F funcionando,
Mostra todas as suas hotkeys,
Executa uma determinada hotkey.

Hotkeys.rar

Bom pessoal, mais um script para vocês.

- Qual o motivo desse nome?
Não sei, estou meio sem ideias.

- Oque tem nesse sistema?
Bom, ele da o direito dos players do seu OTServer, serem ladrôes ou policiais,
Tambem tem uma cadeia, para aonde os criminosos vão para.

- Nossa, para oque ele serve?
Para seu servidor ficar com mais diversão,
Creio que ele seja meio inutil.

Vamos começar. !

Crie um arquivo .lua chamado Policial em \data\actions\scripts

function onUse(cid, item, fromPosition, itemEx, toPosition) local config = { minreward = 500, -- Minimo que o policial ira ganhar. maxreward = 2000, -- Maximo que o policial ira ganhar storage = 5569, -- Uma storage qualquer color = math.random(1, 255), prisonPos = {x=1014, y=1034, z=7}, -- Para aonde sera teleportado o ladrão. storagePreso = 5570, -- Uma storage qualquer time = 60, -- Tempo que o ladrão vai ficar preso } local player = getSpectators(getCreaturePosition(cid), 7, 5) local money = math.random(config.minreward, config.maxreward) if player and #player > 0 then for t, pid in pairs(player) do if isPlayer(pid) and pid ~= cid then if getPlayerStorageValue(pid, config.storage) == 1 then setPlayerStorageValue(pid, storagePreso, os.time()+config.time) doTeleportThing(pid, config.prisonPos) doPlayerAddMoney(cid, money) doPlayerSendTextMessage(pid, MESSAGE_EVENT_ADVANCE, "Você acaba de ser preso, por cometer delitos.") doSendAnimatedText(getCreaturePosition(cid), "+"..money.."", config.color) else doPlayerSendCancel(cid, "Esse player nao cometeu delitos.") end end end end return TRUE end Crie um arquivo .lua chamado Ladrao em \data\actions\scripts function onUse(cid, item, itemEx) local config = { minMoneyRemove = 30, -- Minimo que o ladrão ira ganhar maxMoneyRemove = 1400, -- Maximo que o ladrão ira ganhar storage = 5569, -- Uma storage qualquer color = math.random(1, 255), } local player = getSpectators(getCreaturePosition(cid), 7, 5) local money = math.random(config.minMoneyRemove, config.maxMoneyRemove) if player and #player > 0 then for t, pid in pairs(player) do if isPlayer(pid) and pid ~= cid then if doPlayerRemoveMoney(pid, money) then setPlayerStorageValue(cid, config.storage, 1) doPlayerAddMoney(cid, money) doPlayerSendTextMessage(pid, MESSAGE_EVENT_ADVANCE, "Você acaba de ser roubado e perdeu "..money.." gps.") doSendAnimatedText(getCreaturePosition(cid), "+"..money.."", config.color) else doPlayerSendCancel(cid, "O player nao possui "..money.." gps.") end end end end return TRUE end Crie um arquivo .lua chamado Cadeia em \data\actions\scripts function onUse(cid,item) local config = { storagePreso = 5570, -- Uma storage qualquer toPos = {x=1016, y=1022, z=7}, -- Para aonde o player irá quando o tempo acabar } timePreso = getPlayerStorageValue(cid, config.storage) - os.time() if getPlayerStorageValue(cid, config.storagePreso) == -1 then doPlayerSendCancel(cid, "Você nao está preso.") else if timePreso <= 0 then setPlayerStorageValue(cid, config.storagePreso, -1) doTeleportThing(cid, config.toPos) doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Espero que você pense bem agora, antes de cometer algum delito") else doPlayerSendCancel(cid, "Você ainda tem que esperar "..timePreso.." segundos, para ser solto.") end return TRUE end end Agora adicione os seguinte codigos em \data\actions\actions.xml <action actionid="1256" event="script" value="Cadeia.lua"/> <action itemid="2556" event="script" value="Policial.lua"/> <action itemid="10153" event="script" value="Ladrao.lua"/>


Adicione a ACTION ID na porta da cadeia, Depois edite os nomes dos items.
Para editar basta ir em \data\items\items.xml use a imaginação.

Até mais.

Primeiro você deve criar uma conta no site do bbot (a criação da conta é free) para ciar a conta é só clicar em premium area e depois no lado do login clicar em "Sign In", após criar a conta entre na area premium com ela e clique em "Buy Premium Time" e aparecerá uma tela com 2 opções "3 Months (90 days)" = 11 reais e "6 Months (180 days)" = 18 reais para comprar por telefone/celular selecione a opção DaoPay a opção de pagamento vem como padrão "Chamada" caso você queira por SMS mude para SMS e siga os passos que o site informa.

Primeiro de muitos? hmm... Ah sim rsrs, não queria dizer para ningúem mais o primeiro a conseguir tirar o TK do ar e travar ele foi eu, isso porque descobri uma brecha muito boba e é uma brecha que não pode ser corrigida pois é típica de forums, faz um bom tempo que não faço isso, quando descobri essa brecha logo desenvolvi uma ferramenta em Delphi que facilita a "utilização" dessa brecha, não usei programinhas já prontos eu criei minha PRÓPRIA ferramenta para fazer isso, essa ferramenta ainda existe e é poderosa, mais é poderosa por um motivo... O host do TK não é dos que você pode chamar de "bom" por isso minha ferramenta foi funcional e ainda é funcional, e facilmente consegui travar o site ou derrubá-lo e também sobrecarregar o servidor de banco de dados (SQL ou outro tipo de DB) do TK, que é o principal motivo do travamento e das caídas do site e isso é uma dica pro pessoal ou a pessoa que providencia o host do TK. E bom... irei dizer essa brechinha que não pode ser chamada de brecha... Ao clicar em um download/post a contagem/visitas é alterada, essa contagem é localizada dentro do Banco de Dados do TK, cada vez que eu clico em um link de download ou acesso um post o site executa uma alteração dentro do banco de dados em que é adicionado o valor 1 ao atual valor dentro do banco, um humano não é capaz de clicar tão rapidamente sendo capaz de criar uma sobrecarga no banco de dados mais um programa bem feito sim...

E partindo para o ponto hacker que o froostin diz ser... Froostin você não é hacker e desse jeito nunca vai ser... Usar brechas de SQL Injection e usar programas baixados da net de DDOs não é ser hacker, e ainda por cima programas de DDOs que você baixa da net são todos "FAIL" você bota o IP do site e bota pra atacar logo depois você acessa o site e o site está offline, mas sabe porquê? Porque o site bloqueou o seu IP e na hora que você acessa você não consegue acessá-lo pois ao verificar seu IP ele não permite o acesso do seu computador ao site, mas para as outras pessoas o site está em perfeita usabilidade, sem travamentos, sem caídas, só você que é o Bobo Mor se achando fodão que não consegue acessar o site sendo que você não consegue acessá-lo porque seu IP está bloqueado.

Dica: Sai dessa vida e vai pra escola, estude, estude muito faça pesquisas por conta própria sem ninguem mandar você fazer, faça faculdade ou seja revolucionário e use a própria internet para adquirir conhecimentos e coloque todo seu conhecimento em prática assim você poderá provar para nós que você é mesmo FODÃO, e pros babacas de plantão ser fodão não é catar toda a mulherada, ser fodão não é ser famoso, ser fodão é ser MUITO INTELIGENTE.

Não sei se com esse post posso receber uma punição, mas com punição ou não minha vida continuará a mesma e não ficarei revoltadinho com ninguém apenas seguirei meu rumo.

Execute isto no seu banco de dados e verifique se o erro persiste:


ALTER TABLE player_items ADD m_uid int NOT NULL DEFAULT '0'; ALTER TABLE player_depotitems ADD m_uid int NOT NULL DEFAULT '0';

Você fez alguma alteração no arquivo channels.xml dentro da pasta XML?

Creio que para corrigir o segundo erro, basta executar o seguinte comando no banco de dados:


ALTER TABLE players ADD lookmount int(11) NOT NULL DEFAULT '0'

Você fez alguma alteração no arquivo channels.xml dentro da pasta XML?

Creio que para corrigir o segundo erro, basta executar o seguinte comando no banco de dados:


ALTER TABLE players ADD lookmount int(11) NOT NULL DEFAULT '0'

Script:


Const Monster = 'Rabbit' //pode ser alterado para o bixo que vc quizer function GetCreatureByName(Name: string): TCreature; var x: integer; begin Result := nil; for x := 0 to Creatures.Count - 1 do begin if x >= Creatures.Count then Break; if Creatures.Creature[x].Z <> Self.Z then Continue; if Creatures.Creature[x].Name = Name then begin Result := Creatures.Creature[x]; Exit; end; end; end; while not Terminated do begin UpdateWorld; if not Self.Attacking then begin Creature := GetCreatureByName(Monster); if Creature <> nil then Creature.Attacking := True; end; Sleep(1000); end;

Desculpa a demora =\
Aqui está o Tibia.dat, substitua o tibia.dat original na pasta do tibia por este.

Tibia.dat

Scan

Gold to Platinum, Platinum to Crystal (OTs)


Script que transforma Gold em Platinum e Platinum em gold quando estiverem na quantidade 100, porém isso só funciona em OTs.

Script:

procedure StackItems; var T: array of integer; x, y, z: integer; Temp: integer; begin UpdateWorld; T := VarArrayCreate([0, 19] , 3); Temp := -1; for x := 0 to Self.Containers.Count - 1 do begin if x >= Self.Containers.Count then Break; for z := 0 to Self.Containers.Container[x].Count - 1 do begin T[z] := Self.Containers.Container[x].Item[z].ID; end; for y := 0 to Self.Containers.Container[x].Count - 1 do begin if y >= Self.Containers.Container[x].Count then Break; if Self.Containers.Container[x].Item[y].Properties.Pilable then begin if Self.Containers.Container[x].Item[y].Amount < 100 then begin for z := y + 1 to Self.Containers.Container[x].Count - 1 do begin if T[z] = Self.Containers.Container[x].Item[y].ID then begin if Self.Containers.Container[x].Item[z].Amount < 100 then begin Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0); end; end; end; end; end; end; end; end; while not Terminated do begin UpdateWorld; StackItems; for x := 0 to Self.Containers.Count - 1 do begin for y := 0 to Self.Containers.Container[x].Count - 1 do begin if Self.Containers.Container[x].Item[y].ID = 3031 then // ID do GOLD begin if Self.Containers.Container[x].Item[y].Amount = 100 then begin Self.Containers.Container[x].Item[y].Use; end; end else if Self.Containers.Container[x].Item[y].ID = 3035 then // ID do Platinum begin if Self.Containers.Container[x].Item[y].Amount = 100 then begin Self.Containers.Container[x].Item[y].Use; Break; end; end; end; end; Sleep(1000); end;

Ou baixe:
gold.ng

Eae Galera do TibiaKing hoje vou deomonstrar como converter imagens para OTBM, qualquer imagem mesmo.

Progamas requeridos:

Bitmap to Map (Créditos para DarkstaR).


http://www.4shared.c...itMapToMap.html

Scan:

http://www.virustota...3353-1325523955


1. Iniciando:

Depois que você fazer o Download do BitmapToMap selecione a imagem que você desejar.
 





Colorindo: Após selecionar a imagem você deve colori-la, para fazer isso você deve seguir os passos a seguir.

OBS: Como é apenas um tutorial não será usado muitos detalhes ou seja será uma imagem Policromática.
Em Range coloque a cor de sua borda, no nosso caso preto. Em Label4 coloque sua cor secundária, no nosso caso montaremos só o continente ou como outros falam o Shape, por isso não é necessário usar. Deixe a opção Place Ground marcada. Em Ground ID coloque o ID de qualquer ground. No caso usarei o 4526 (grass). Clique em Add e logo em seguida clique em Colorize Map.




Essa última etapa pode demorar alguns minutos dependendo do mapa.
 
Iniciando a conversão.
Depois de carregar tudo, é a hora de começarmos a conversão de sua imagem para OTBM.
Abaixo de Colorize Map coloque as coordenadas onde você quer que apareça o seu mapa foi usado X= 1000 e Y= 1000. Se quiser crie uma nova pasta para por o mapa ou salve em outra qualquer.
Clique em Export to .OTBM map.





Abrindo com seu RME:
Localize seu mapa onde você o salvou e abra-o.








Créditos:
EddyHavoc
Mythusz

Vai limpar as tabelas, recomendo um backup caso haja algo errado


http://dev.mysql.com/doc/refman/4.1/pt/truncate.html
Operações truncate apagam e recriam a tabela, o que é muito mais rápido que deletar registros um a um.
Operações truncate não são seguras a transação; você iráobter um erro se você tiver uma transação ativa ou ativar um travamento de tabela.

Por min Assembly é a linguagem mais poderosa e Java = Modinha, por isso da dinheiro e muitas vezes fama, e sky, saber programar java da emprego na IBM? Ai ai... A IBM tem parceria com o Java e com muitas outras empresas, mas não significa que ela contrata caras que sabem java, a IBM quer programadores de supercomputadores porque não existe quase nenhum programador mais no mundo que saiba programar para supercomputadores com perfeição '-' (Supercomputadores = Main Frame's e computadores poderosos em geral) e ainda por cima as chances de você entrar na IBM como programador são mínimas, geralmente você é jogada na área de análise e foda-se o resto, a IBM é uma empresa muito gananciosa.

Bom, fuji do assunto, minha opinião é essa: Java é uma merda, só faz sucesso porque as aplicações desenvolvidas em java podem ser facilmente executadas em qualquer lugar, fora isso java é uma merda e é um plágio do C# (não quer dizer que C# é uma merda, admiro muito a linguagem C#).

E repetindo, a linguagem mais poderosa é Assembly, porque sem ela as outras linguagens simplesmente não funcionariam, aliás nem existiriam, porque ela é a linguagem física, a linguagem mãe.

@Edit

Outra coisa... Você pode aprender a programar, a dominar a liguagem, mas do que adianta dominar a linguagem e não ter idéias? Programar não da dinheiro, ter idéias que da dinheiro, e muito dinheiro... Como alguns programadores dizem "idéias valem dinheiro". Você acha que o usuário do seu aplicativo vai ligar pra programação? Nem ferrando, ele só quer saber se abre e da pra usar e se é uma coisa diferente e creativa que possa mantê-lo entrertido, fora isso nada mais importa pro usuário, mais especificamente o seu "cliente".

Por min Assembly é a linguagem mais poderosa e Java = Modinha, por isso da dinheiro e muitas vezes fama, e sky, saber programar java da emprego na IBM? Ai ai... A IBM tem parceria com o Java e com muitas outras empresas, mas não significa que ela contrata caras que sabem java, a IBM quer programadores de supercomputadores porque não existe quase nenhum programador mais no mundo que saiba programar para supercomputadores com perfeição '-' (Supercomputadores = Main Frame's e computadores poderosos em geral) e ainda por cima as chances de você entrar na IBM como programador são mínimas, geralmente você é jogada na área de análise e foda-se o resto, a IBM é uma empresa muito gananciosa.

Bom, fuji do assunto, minha opinião é essa: Java é uma merda, só faz sucesso porque as aplicações desenvolvidas em java podem ser facilmente executadas em qualquer lugar, fora isso java é uma merda e é um plágio do C# (não quer dizer que C# é uma merda, admiro muito a linguagem C#).

E repetindo, a linguagem mais poderosa é Assembly, porque sem ela as outras linguagens simplesmente não funcionariam, aliás nem existiriam, porque ela é a linguagem física, a linguagem mãe.

@Edit

Outra coisa... Você pode aprender a programar, a dominar a liguagem, mas do que adianta dominar a linguagem e não ter idéias? Programar não da dinheiro, ter idéias que da dinheiro, e muito dinheiro... Como alguns programadores dizem "idéias valem dinheiro". Você acha que o usuário do seu aplicativo vai ligar pra programação? Nem ferrando, ele só quer saber se abre e da pra usar e se é uma coisa diferente e creativa que possa mantê-lo entrertido, fora isso nada mais importa pro usuário, mais especificamente o seu "cliente".