jeanslayer

Para verificar se tem um pk na tela eh c.BattleList.GetCreatures().FirstOrDefault(Function(i) i.Skull = Skull.Red Or i.Skull = Skull.White Or i.Skull = Skull.Yellow) qual seria a funçao para verificar se eh 1 player ou 1 npc ou 1 creature?

seis n sabem ler? como eles DEMORAM pra atualizar n falei q n atualiza, eu n quero os ADRESSES de mao beijada eu quero um tutorial ensinando como se usa algum programa pra pegar eles , o resto eu faço .... Baixei esse ai e compilei a maioria das funçoes funciona porem o full light esta dando debug no client...

Jah vi que o site do tibia API nao vai atualizar tao cedo, os membros de la soh sabem falar para atualizar por si mesmo, porem soh passam adresses errado e muitos faltando gostaria de um tutorial e exemplos se possiveis para mim aprender a achar os adress... A lista dos quais pretendo aprender Exemplo 8.71 BattleList.Start = 0x63FDE8; BattleList.StepCreatures = 0xAC; BattleList.MaxCreatures = 1300; BattleList.End = BattleList.Start + (BattleList.StepCreatures * BattleList.MaxCreatures); Client.StartTime = 0x80CAF0; Client.XTeaKey = 0x7C5CEC; Client.SocketStruct = 0x7C5CC0; Client.RecvPointer = 0x5B85E4; Client.SendPointer = 0x5B8610; Client.LastRcvPacket = 0x7C14A0; Client.DecryptCall = 0x45C6C5; Client.ParserFunc = 0x45C690; Client.GetNextPacketCall = 0x45C6C5; // Same as Client.DecryptCall = ParserFunc + 0x35 Client.RecvStream = 0x7C5CDC; Client.FrameRatePointer = 0x7C9DD4; Client.FrameRateCurrentOffset = 0x60; Client.FrameRateLimitOffset = 0x58; Client.MultiClient = 0x50BFC4; Client.Status = 0x7C928C; Client.SafeMode = 0x7C6114; Client.FollowMode = Client.SafeMode + 4; Client.AttackMode = Client.FollowMode + 4; Client.ActionState = 0x7C92EC; Client.ActionStateFreezer = 0x51EB10; Client.LastMSGText = 0x80CD60; Client.LastMSGAuthor = Client.LastMSGText - 0x28; Client.StatusbarText = Client.StartTime + 0x20; Client.StatusbarTime = Client.StatusbarText - 4; Client.ClickId = 0x7C932C; Client.ClickCount = Client.ClickId + 4; Client.ClickZ = Client.ClickId - 0x68; Client.SeeId = Client.ClickId + 12; Client.SeeCount = Client.SeeId + 4; Client.SeeZ = Client.SeeId - 0x68; Client.ClickContextMenuItemId = Client.SeeId; //Client.ClickContextMenuItemGroundId = ? Client.ClickContextMenuCreatureId = Client.ClickContextMenuItemId + 0x0C; Client.LoginServerStart = 0x7C0C28; Client.StepLoginServer = 112; Client.DistancePort = 100; Client.MaxLoginServers = 10; Client.RSA = 0x5B8980; Client.LoginCharList = 0x7C9240; Client.LoginCharListLength = Client.LoginCharList + 4; Client.LoginSelectedChar = Client.LoginCharList - 4; Client.GameWindowRectPointer = 0x67868C; Client.GameWindowBar = 0x80CB00; Client.DatPointer = 0x7C5D0C; Client.EventTriggerPointer = 0x520620; Client.DialogPointer = 0x67B9F4; Client.DialogLeft = 0x14; Client.DialogTop = 0x18; Client.DialogWidth = 0x1C; Client.DialogHeight = 0x20; Client.DialogCaption = 0x50; Client.LoginAccountNum = 0; Client.LoginPassword = Client.LoginCharList + 8; Client.LoginAccount = Client.LoginPassword + 32; Client.LoginPatch = 0; Client.LoginPatch2 = 0; Client.LoginPatchOrig = new byte[] { 0xE8, 0x0D, 0x1D, 0x09, 0x00 }; Client.LoginPatchOrig2 = new byte[] { 0xE8, 0xC8, 0x15, 0x09, 0x00 }; Container.Start = 0x679140; Container.StepContainer = 492; Container.StepSlot = 12; Container.MaxContainers = 16; Container.MaxStack = 100; Container.DistanceIsOpen = 0; Container.DistanceId = 4; Container.DistanceName = 16; Container.DistanceVolume = 48; Container.DistanceAmount = 56; Container.DistanceItemId = 60; Container.DistanceItemCount = 64; Container.End = Container.Start + (Container.MaxContainers * Container.StepContainer); ContextMenus.AddContextMenuPtr = 0x452BC0; ContextMenus.OnClickContextMenuPtr = 0x44F780; ContextMenus.OnClickContextMenuVf = 0x5BDB80; ContextMenus.AddSetOutfitContextMenu = 0x453ADC; ContextMenus.AddPartyActionContextMenu = 0x453A04; ContextMenus.AddCopyNameContextMenu = 0x453B6E; ContextMenus.AddTradeWithContextMenu = 0x453769; ContextMenus.AddLookContextMenu = 0x45361F; Creature.DistanceId = 0; Creature.DistanceType = 3; Creature.DistanceName = 4; Creature.DistanceX = 36; Creature.DistanceY = 40; Creature.DistanceZ = 44; Creature.DistanceScreenOffsetHoriz = 48; Creature.DistanceScreenOffsetVert = 52; Creature.DistanceIsWalking = 76; Creature.DistanceDirection = 80; Creature.DistanceOutfit = 96; Creature.DistanceColorHead = 100; Creature.DistanceColorBody = 104; Creature.DistanceColorLegs = 108; Creature.DistanceColorFeet = 112; Creature.DistanceAddon = 116; Creature.DistanceMountId = 120; Creature.DistanceLight = 124; Creature.DistanceLightColor = 128; Creature.DistanceBlackSquare = 136; Creature.DistanceHPBar = 140; Creature.DistanceWalkSpeed = 144; Creature.DistanceIsVisible = 148; Creature.DistanceSkull = 152; Creature.DistanceParty = 156; Creature.DistanceWarIcon = 164; Creature.DistanceIsBlocking = 168; DatItem.StepItems = 0x4C; DatItem.Width = 0; DatItem.Height = 4; DatItem.MaxSizeInPixels = 8; DatItem.Layers = 12; DatItem.PatternX = 16; DatItem.PatternY = 20; DatItem.PatternDepth = 24; DatItem.Phase = 28; DatItem.Sprite = 32; DatItem.Flags = 36; DatItem.CanLookAt = 0; DatItem.WalkSpeed = 40; DatItem.TextLimit = 44; DatItem.LightRadius = 48; DatItem.LightColor = 52; DatItem.ShiftX = 56; DatItem.ShiftY = 60; DatItem.WalkHeight = 64; DatItem.Automap = 68; DatItem.LensHelp = 72; DrawItem.DrawItemFunc = 0x4B5930; DrawSkin.DrawSkinFunc = 0x4B9640; Hotkey.SendAutomaticallyStart = 0x7C6310; Hotkey.SendAutomaticallyStep = 0x01; Hotkey.TextStart = 0x7C6338; Hotkey.TextStep = 0x100; Hotkey.ObjectStart = 0x7C6280; Hotkey.ObjectStep = 0x04; Hotkey.ObjectUseTypeStart = 0x7C6160; Hotkey.ObjectUseTypeStep = 0x04; Hotkey.MaxHotkeys = 36; Map.MapPointer = 0x680548; Map.StepTile = 168; Map.StepTileObject = 12; Map.DistanceTileObjectCount = 0; Map.DistanceTileObjects = 4; Map.DistanceObjectId = 0; Map.DistanceObjectData = 4; Map.DistanceObjectDataEx = 8; Map.MaxTileObjects = 10; Map.MaxX = 18; Map.MaxY = 14; Map.MaxZ = 8; Map.MaxTiles = 2016; Map.ZAxisDefault = 7; Map.NameSpy1 = 0x4F2789; Map.NameSpy2 = 0x4F2793; Map.NameSpy1Default = 0x4C75; Map.NameSpy2Default = 0x4275; Map.LevelSpy1 = 0x4F467A; Map.LevelSpy2 = 0x4F477F; Map.LevelSpy3 = 0x4F4800; Map.LevelSpyPtr = Client.GameWindowRectPointer; Map.LevelSpyAdd1 = 28; Map.LevelSpyAdd2 = 0x5BC0; Map.FullLightNop = 0x4EACF9; Map.FullLightAdr = 0x4EACFC; Map.FullLightNopDefault = new byte[] { 0x7E, 0x05 }; Map.FullLightNopEdited = new byte[] { 0x90, 0x90 }; Map.FullLightAdrDefault = 0x80; Map.FullLightAdrEdited = 0xFF; Player.Experience = 0x63FD50; Player.Flags = Player.Experience - 112; Player.Id = Player.Experience + 16; Player.Health = Player.Experience + 8; Player.HealthMax = Player.Experience + 4; Player.Level = Player.Experience - 8; Player.MagicLevel = Player.Experience - 12; Player.LevelPercent = Player.Experience - 16; Player.MagicLevelPercent = Player.Experience - 20; Player.Mana = Player.Experience - 24; Player.ManaMax = Player.Experience - 28; Player.Soul = Player.Experience - 32; Player.Stamina = Player.Experience - 36; Player.Capacity = Player.Experience - 40; Player.FistPercent = Player.Flags + 4; Player.ClubPercent = Player.FistPercent + 4; Player.SwordPercent = Player.FistPercent + 8; Player.AxePercent = Player.FistPercent + 12; Player.DistancePercent = Player.FistPercent + 16; Player.ShieldingPercent = Player.FistPercent + 20; Player.FishingPercent = Player.FistPercent + 24; Player.Fist = Player.FistPercent + 28; Player.Club = Player.FistPercent + 32; Player.Sword = Player.FistPercent + 36; Player.Axe = Player.FistPercent + 40; Player.Distance = Player.FistPercent + 44; Player.Shielding = Player.FistPercent + 48; Player.Fishing = Player.FistPercent + 52; Player.WhiteSquare = Player.Flags + 60; Player.GreenSquare = Player.Flags + 64; Player.RedSquare = Player.Flags + 68; Player.SlotHead = 0x6790C8; Player.SlotNeck = Player.SlotHead + 12; Player.SlotBackpack = Player.SlotHead + 24; Player.SlotArmor = Player.SlotHead + 36; Player.SlotRight = Player.SlotHead + 48; Player.SlotLeft = Player.SlotHead + 60; Player.SlotLegs = Player.SlotHead + 72; Player.SlotFeet = Player.SlotHead + 84; Player.SlotRing = Player.SlotHead + 96; Player.SlotAmmo = Player.SlotHead + 108; Player.MaxSlots = 10; Player.DistanceSlotCount = 4; Player.CurrentTileToGo = Player.Flags + 132; Player.TilesToGo = Player.CurrentTileToGo + 4; Player.GoToX = Player.Experience + 84; Player.GoToY = Player.GoToX - 4; Player.GoToZ = Player.GoToX - 8; //Player.AccessN = 0; //Player.AccessS = 0; Player.TargetId = Player.RedSquare; Player.TargetBattlelistId = Player.TargetId - 8; Player.TargetBattlelistType = Player.TargetId - 5; Player.TargetType = Player.TargetId + 3; Player.Z = 0x67BA30; Player.Y = Player.Z + 4; Player.X = Player.Z + 8; Player.AttackCount = 0x63D900; Player.FollowCount = Player.AttackCount + 0x20; TextDisplay.PrintName = 0x4F57E3; TextDisplay.PrintFPS = 0x45A6C8; TextDisplay.ShowFPS = 0x63D9FC; TextDisplay.PrintTextFunc = 0x4B4D70; TextDisplay.NopFPS = 0x45A604; Vip.Start = 0x63DA78; Vip.StepPlayers = 0x2C; Vip.MaxPlayers = 200; Vip.DistanceId = 0; Vip.DistanceName = 4; Vip.DistanceStatus = 34; Vip.DistanceIcon = 40; Vip.End = Vip.Start + (Vip.StepPlayers * Vip.MaxPlayers);

fiz aqui agora espera dar o error e ver se ele pega ontem a noite ele pego e deu esse erro 19/6/2011 23:48:40 - Form2 - CaveBotWork - Referência de objeto não definida para uma instância de um objeto.

Deixei de bot aqui um bot usando tibia api , porem depois de umas 5h ele da debug outra vez demoro 2h e deu debug, alguem sabe oq poder ? algum Adress errado sera? to usando em 8.7

ele jah pausa mais o char continua andando até o destino mais jah arrumei coloquei pra antes de atacar da um p.stop() q ai vai sussa

o exemplo de um dos meus componentes If c.LoggedIn Then Try If (FoodIdleWork.IsBusy = False) Then Me.FoodIdleWork.RunWorkerAsync() End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End If todos ja estao com essa rotina para verificar, porem mesmo assim quando o char morre ele da debug

como eu postei todas as funçoes verifica se esta online de fazelas porem quando morre morre jah toma debug e se fica offline ele trava

O targeting esta funcionando normal jah, e o cavebot tbm , porem quando ligo os dois junto ele fica atacando porem continua andando ai na hora que chega no waypoint que ele para de andar e mata tudo os monsters lurados e depois que nao tem nada para matar que ele volta a andar, tem alguma rotina que eu poderia por para ele para de andar jah quando ver o bixo? If c.LoggedIn = True Then If CreatList.Items IsNot Nothing And p.RedSquare < 1 Then Dim t As Integer For t = 0 To CreatList.Items.Count - 1 Dim findcreat = c.BattleList.GetCreatures.FirstOrDefault(Function(i) i.Name = CreatList.Items(t) And i.DistanceTo(p.Location) <= 5 And i.Z = p.Z) If findcreat IsNot Nothing Then findcreat.Attack() Exit For Else If CaveBotOn = False Then CaveBotOn = True End If End If Next Else If CaveBotOn = False Then CaveBotOn = True End If End If If CaveBotOn = True And p.RedSquare < 1 Then Dim myArray() As String = ScriptWaypoints.SelectedItem.ToString().Split(",") Dim myArray2() As String = ListBox1.SelectedItem.ToString().Split(",") If CStr(myArray2(0)) = "W" Then c.GetPlayer.GoTo = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) If c.GetPlayer.Location = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) Then If ScriptWaypoints.SelectedIndex >= (ScriptWaypoints.Items.Count - 1) Then ScriptWaypoints.SelectedIndex = 0 ListBox1.SelectedIndex = 0 Sleep(500) Else ScriptWaypoints.SelectedIndex = ScriptWaypoints.SelectedIndex + 1 ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1 Sleep(500) End If ElseIf c.GetPlayer.Location.Z <> myArray(2) Then If ScriptWaypoints.SelectedIndex >= (ScriptWaypoints.Items.Count - 1) Then ScriptWaypoints.SelectedIndex = 0 ListBox1.SelectedIndex = 0 Sleep(500) Else ScriptWaypoints.SelectedIndex = ScriptWaypoints.SelectedIndex + 1 ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1 Sleep(500) End If End If End If End If

Eu achei para mudar o attack offensive/balance/defensive porem nao achei de Chase/Stand alguem me podia passar qual eh o codigo em TibiaApi Visual Basic

Coloquei sempre antes de executar as coisas pra verificar If C.loggedIn then as funçoes depois Porem quando o char morre o bot trava e fecha o tibia junto e em alguns casos se fica muito tempo o char offline quando volto as funçoes do bot n funciona mais

por isso queria aprender a atualizar pq depende da boa vontade de alguem atualizar, e nenhum bot esta atualizando para o update o.O nem o MB q eh pago atualizo

Alguem sabe como posso atualizar meu TibiaApi? tenho o da versao 8.74 como atualizo ele para 9.0, se alguem puder me ajudar...

consegui arrumar aqui 100% o script e postei a resoluçao , vlw pela ajuda, tava dando problema q itens q n dava pra por 100 deles no msmo sqm n tava pushando se n colocasse o 1 no final la pra ele pushar 1 , e tava tentnado pushar o chao junto ...

no caso esse script funcionou, porem tipo ele começa a verificar do primeiro item da stack o la de baixo ai fica dando sorry not possible até chegar no ultimo item da stack e pushar, como eu faço para ele verificar de trais pra frente? Dim use As Tile If p.Direction = Direction.Right Then use = c.Map.GetTile(New Location(p.X + 1, p.Y, p.Z)) If LootList1.Items IsNot Nothing Then For r = 0 To LootList1.Items.Count - 1 For Each item As Item In use.Items If item.Id = CUInt(LootList1.Items®) Then item.Move(ItemLocation.FromContainer(0, 0)) End If Next Next End If End If

fiz um codigo q funciona, porem se tiver outros tipos de id no sqm ele fica tentando pegar o primeiro item da stack e fica dando sorry is not possible

Fica dando esse erro tanto com o meu quanto com o seu exemplo, e quando tenta no aplicativo aparece erro na referencia do objeto

para PEGAR tipo um cara com antipush , ai essa hotkey pegaria os gps embaixo dele e colocaria na minha bp , ou entaum estou caçando e jogo os loot num sqm soh ai depois eu uso o codigo para coletar automaticamente os itens desse sqm para mnha backapck

o Script funcionando, no caso ele pega os itens de 1 SQM ao sul de voce e joga no primeiro slot da primeira backpack... use = c.Map.GetTile(New Location(p.X, p.Y + 1, p.Z)) If LootList1.Items IsNot Nothing Then For Each item As Item In use.Items If item.Count < 2 And (Not item.GetFlag(Addresses.DatItem.Flag.IsImmovable)) Then item.Move(ItemLocation.FromContainer(0, 0), 1) Exit For ElseIf item.Count >= 2 And (Not item.GetFlag(Addresses.DatItem.Flag.IsImmovable)) Then item.Move(ItemLocation.FromContainer(0, 0), item.Count) Exit For End If Next End If

Eu logo o char ai o bot abre automatico a minha bp q esta no slot da bp certinho, ai no caso eu mando ele abrir 1 segunda bp soh que abre no msmo container como eu faço pra essa 2 bp abrir em baixo?, usando tibia api

Alguem ai sabe que dia vai lançar o TibiaApi.dll 8.73 para download?

Vi varios topicos ensinando pegar Adress com cheat engine de life e tals, mais depois que eu pego esses adress como eu faço pra em Visual Basic injetar num client proprio no qual jah testei e o bot usando tibia api n funciona?

Quando compilo em 86x aparece /\ esse erro Quando compilo em 64x (sistema do meu amigo) \/ aparece esse erro

Nas Referencias do meu projeto usa NET 2.0 e 3.5 e ele tem os dois

o bot funciona normalmente aqui em casa porem quando eu passa para alguem a pasta do bot ocorre esse erro de assembly falando que nao consegue carregar a DLL, como concertar?