Líderes

Nome: Raids automáticos Autor: Antharaz Feito para: TFS 0.4 Descrição: Os raids acontecerão nos dias e horas programados por você neste script. Instalação Abra o arquivo globalevents.xml localizado em data/globalevents e coloque antes de </globalevents>: <globalevent name="raidautomatico" interval="1000" event="script" value="raidautomatico.lua"/> Ficaria assim se não tivesse outros globalevents: <?xml version="1.0" encoding="UTF-8"?> <globalevents> <globalevent name="raidautomatico" interval="1000" event="script" value="raidautomatico.lua"/> </globalevents> Agora crie o arquivo raidautomatico.lua em data/globalevents/scripts e coloque isto: local raid={{["nome"]="RatRaid",["dia_semana_ou_mes"]="semana",["dia"]={2,3,4,5,6},["hora"]=8,["minuto"]=0}, {["nome"]="Orshabaal",["dia_semana_ou_mes"]="mes",["dia"]={2,14,26},["hora"]=15,["minuto"]=0} } function onThink(interval) local time = os.date("*t") for _,a in pairs(raid) do if ((a["dia_semana_ou_mes"] == "semana" and isInArray(time.wday,a["dia"])) or (a["dia_semana_ou_mes"] == "mes" and isInArray(time.day,a["dia"]))) and a["hora"] == time.hour and a["minuto"] == time.min then executeRaid(a["nome"]) break end end return true end Configuração A configuração ocorre apenas nesta parte: local raid={{["nome"]="RatRaid",["dia_semana_ou_mes"]="semana",["dia"]={2,3,4,5,6},["hora"]=8,["minuto"]=0}, {["nome"]="Orshabaal",["dia_semana_ou_mes"]="mes",["dia"]={2,14,26},["hora"]=15,["minuto"]=0} } É bem simples entender como funciona: ["nome"] > Coloca o nome da raid já existente em data/raids/raids.xml. ["dia_semana_ou_mes"] > Coloca se está especificando os dias da semana ou do mês. ["dia"] > Coloca os dias da semana em números, começando pelo domingo representado por 1, segunda por 2 e assim por diante até o sábado representado por 7. ["hora"] > Coloca a hora que irá ocorrer. ["minuto"] > Coloca o minuto que irá ocorrer. No caso há 2 exemplos, um para ocorrer durante alguns dias do mês e outro para ocorrer durante alguns dias de toda semana. Caso queria adicionar mais elementos para mais raids aconselho que estude tables, não pretendo entrar em detalhes aqui.

OtLand IP Changer Na verdade esse IP Changer pega qual quer versão de OpenTibia. OtLand IP Changer: é uma aplicação desenhada para permitir que você se conectar a conectar a servidores de OpenTibia. A intenção é trabalhar para todas as versões do Tibia. Ele é escrito em C # com. NET Framework 3.5 por Kornholijo e Talaturen. Ele só roda em Windows. características: Lançador cliente. Detecta a versão mais recente Tibia instalado e registra-lo no aplicativo. Aplica-se a qualquer versão multiclient Tibia existentes (no caso, não iria trabalhar para alguma versão futura, você pode ativar o sinalizador gamemaster). Procura por locais de endereço de memória em vez de usar endereços estáticos, o que significa que ele deve trabalhar para qualquer cliente Tibia menos que a chave RSA ou hostnames servidor de login são mudados. OTServ: manipulador / / protocolo, você pode iniciar o cliente com alterações aplicadas diretamente do OTServ: / / links em que a versão do cliente é definido. Opção para armazenar arquivos de configuração do cliente (e arquivos automap) em pastas separadas, de modo que você não tem que perder as configurações que você tinha armazenado em clientes mais antigos. Opção para forçar o motor gráfico para clientes lançado. Se você encontrar qualquer problema ao tentar iniciar a aplicação, certifique-se que você tem. NET Framework 3.5 instalado. Ele pode ser baixado aqui: Download Details - Microsoft Download Center - .NET Framework 3.5. Download OtLand IP Changer:. OtLand IP Changer.zip

Bem a muito tempo eu comecei a desenvolver esse joguinho em VB. mas por falta de gente e tempo eu deixei de lado. Estou postando o fonte, caso alguem se interesse pode aprender alguma coisa. http://www.easy-share.com/1909106333/640-480.rar

Função de enviar hotkey. Função: Public Sub Hotkey(ByVal htk As String) Select Case htk Case "F1" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F1, 0) Case "F2" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F2, 0) Case "F3" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F3, 0) Case "F4" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F4, 0) Case "F5" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F5, 0) Case "F6" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F6, 0) Case "F7" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F7, 0) Case "F8" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F8, 0) Case "F9" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F9, 0) Case "F10" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F10, 0) Case "F11" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F11, 0) Case "F12" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F12, 0) Case "Shift+F1" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F1, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F1, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F2" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F2, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F2, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F3" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F3, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F3, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F4" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F4, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F4, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F5" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F5, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F5, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F6" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F6, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F6, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F7" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F7, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F7, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F8" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F8, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F8, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F9" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F9, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F9, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F10" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F10, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F10, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F11" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F11, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F11, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Shift+F12" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ShiftKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F12, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F12, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ShiftKey, 0&) Case "Ctrl+F1" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F1, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F1, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F2" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F2, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F2, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F3" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F3, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F3, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F4" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F4, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F4, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F5" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F5, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F5, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F6" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F6, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F6, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F7" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F7, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F7, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F8" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F8, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F8, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F9" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F9, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F9, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F10" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F10, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F10, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F11" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F11, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F11, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) Case "Ctrl+F12" SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.ControlKey, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYDOWN, Keys.F12, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.F12, 0&) SendMessage(Tibia.MainWindowHandle, WM_KEYUP, Keys.ControlKey, 0&) End Select End Sub Quem não souber como usar poste sua duvida/erro. ou comente qualquer coisa. Abraço

Faz uma class e usa esses ADR

Claro, mude nas propriedades Tudo pode ser mudado, vc tem todos os code da API

Se tiver usanod microsoft c# 2008 pode se for o 2010 não... d um erro com client choser por causa do framework

O C# não... basta voce ir ao site e registrar

Primeiro... quanod voce compila ela... ela já é uma dll Pra compilar ela corretamente precisa do c#2008 Depois tente isto http://code.google.com/p/tibiaapi/wiki/CompileFromSource

Rebuild Coisa mto simples cara

Crystal Server já possui Para utura vá em data/spells/scripts/helaing/recovery.lua copia qualquer um re renomeia pra recovery apaga tudo e dentro e coloca isso local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) local condition = createConditionObject(CONDITION_REGENERATION) setConditionParam(condition, CONDITION_PARAM_SUBID, 1) setConditionParam(condition, CONDITION_PARAM_BUFF, true) setConditionParam(condition, CONDITION_PARAM_TICKS, 1 * 60 * 1000) setConditionParam(condition, CONDITION_PARAM_HEALTHGAIN, 20) setConditionParam(condition, CONDITION_PARAM_HEALTHTICKS, 3000) setCombatCondition(combat, condition) function onCastSpell(cid, var) return doCombat(cid, combat, var) end No spells.xml adicione isto <instant name="Recovery" words="utura" lvl="50" mana="75" prem="1" selftarget="1" aggressive="0" exhaustion="60000" groups="2,1000" icon="159" needlearn="0" event="script" value="healing/recovery.lua"> <vocation id="4"/> <vocation id="8"/> <vocation id="3"/> <vocation id="7"/> </instant>

Tem um que uso pra criar actions... que tem essa função não sei se funciona em ots rescente http://otsadmin.desenvolvedoresonline.com/download.php?lang=1 Se te servir está ai