Líderes

Olá gente, está ai mais um wpt feito por mim. Eu vi que muitos tem dificuldades em upar em Rook, então estou criando estes wpt's para melhorar a voda ipável de vocês, AUSHDASUD. Enfiim, eu aconselho estar nv4 com studded set pelo menos. Você irá upar muito rápido nessa Wolf Cave. Studded armor Studded shield Studded helmet Sabre Obs: não precisa de legs mesmo, não tem legs boas em rook. 4shared Wolf Cave in Rook - TibiaKing.com.wpt Basta sair da cidade principal de Rookgaard e ativar o wpt, ou seja, tem uma ponte na cidade que nela contém um guarda, saia dela indo em direção a fora, e desça a escada, e ative o wpt que ele irá seguir adiante sozinho. Espero ter ajudado, logo logo trarei uma wpt de Wolf Cave & Mino in Rook para vocês :] Só esperar.

Créditos no script. Explicação: simples, o player fala !sellvial e ele venderá todos os potions vazios que ele tem por X gps cada um. • Crie um arquivo LUA com o nome sellvial.lua em data/talkactions/scripts e ponha: --[Created by Renato Ribeiro to www.TibiaKing.com and others]-- function onSay (cid, words, param, channel) local preco = 5 -- gold coins local count = getPlayerItemCount(cid, 7636) + getPlayerItemCount(cid, 7634) + getPlayerItemCount(cid, 7635) local result = count*preco if count == 0 then doSendMagicEffect(getPlayerPosition(cid), 2) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você não tem potions para vender.") else doSendMagicEffect(getPlayerPosition(cid), 12) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você vendeu "..count.." potions por "..result.." gold coins.") doPlayerAddMoney(cid, result) return TRUE end end[/code] Altere o valor de cada potion em [i]local preco = 5 (substuindo 5)[/i] [b]• Depois em [color=#0000FF]data/talkactions/talkactions.xml[/color] ponha a tag em qualquer lugar:[/b] [code]<talkaction log="yes" words="!sellvial" access="0" event="script" value="sellvial.lua"> E prontinho! OBS: Script não testado</talkaction>

Felipe, tente usar o seguinte código Imports Tibia Imports Tibia.Util Imports Tibia.Objects Imports Tibia.Constants Public Class Form1 Public c As Client Public p As Player Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For Each cl In c.GetClients ComboBox1.Items.Add(cl) Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Close() End Sub End Class Eu mudei o Client.GetClients e coloquei c.GetClients ali no "For". Não testei (estou no trampo ).