Tricoder

Const item_name = ['Short Sword', 'Sabre', 'Sword', 'Two Handed Sword', 'Battle Axe', 'Halberd', 'Mace', 'Battle Hammer', 'Chain Helmet', 'Chain Legs', 'Steel Shield', 'Battle Shield', 'Sentinel Shield', 'Salamander Shield', 'Chain Armor', 'Brass Armor', 'Plate Armor']; item_id = [3294, 3273, 3264, 3265, 3266, 3269, 3286, 3305, 3352, 3558, 3409, 3413, 3444, 3445, 3358, 3359, 3357, 3276]; function CountItemFromOpenBackpack(ID: integer): integer; var x: integer; y: integer; begin Result := 0; for x := 0 to Self.Containers.Count - 1 do begin if x >= Self.Containers.Count then Break; 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].ID = ID then begin Result := Result + 1; end; end; end; end; begin UpdateWorld; Self.Say('hi'); for i := 0 to 16 do begin UpdateWorld; NumberOfItem := CountItemFromOpenBackpack(item_id[i]); if NumberOfItem > 0 then begin Self.Say('sell '+ IntToSTr(NumberOfItem) + ' ' + item_name[i]); Sleep(1500); Self.Say('yes'); Sleep(1500); end; end; Self.Say('bye'); end; Créditos: ngmax

function Attacking: boolean; begin UpdateWorld; for x := 0 to Creatures.Count - 1 do begin UpdateWorld; if Creatures.Creature[x].Attacking then begin Result := True; Exit; end; end; Result := False; Exit; end; function GetFollowedCreatureID: integer; begin UpdateWorld; for x := 0 to Creatures.Count - 1 do begin UpdateWorld; if Creatures.Creature[x].Following then begin Result := Creatures.Creature[x].ID; Exit; end; end; end; var MotherSlime, X1, Y1: integer; begin MotherSlime := GetFollowedCreatureID; while not Terminated do begin UpdateWorld; if not Attacking then begin UpdateWorld; for x := 0 to Creatures.Count - 1 do begin UpdateWorld; if Creatures.Creature[x].ID <> MotherSlime then begin if (Creatures.Creature[x].Name <> Self.Name) and Creatures.Creature[x].NPC then begin UpdateWorld; X1 := Creatures.Creature[x].X; Y1 := Creatures.Creature[x].Y; if (X1 - Self.X = 1) or (X1 - Self.X = 0) or (X1 - Self.X = -1) then begin UpdateWorld; if (Y1 - Self.Y = 1) or (Y1 - Self.Y = 0) or (Y1 - Self.Y = -1) then begin Creatures.Creature[x].Attacking := true; Break; end; end; end; end; end; end; Sleep(1000); end; end; Créditos: ngmax

Const NumberOfMonsters = 3 /// Numero de monstros pra colocar arma forte StrongWeapon = 3324 /// ID da arma FORTE WearWeapon = 3304 /// ID da arma FRACA function GetItemFromOpenBackpack(ID: integer): TItem; var y: integer; begin Result := nil; for x := 0 to Self.Containers.Count - 1 do begin if x >= Self.Containers.Count then Break; 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].ID = ID then begin Result := Self.Containers.Container[x].Item[y]; Exit; end; end; end; end; function CountMonstersBesideYou:Integer; begin Result := 0; UpdateWorld; for i := 0 to creatures.Count -1 do begin if i >= Creatures.Count then break for x := -1 to 1 do begin if x >= 2 then break for y := -1 to 1 do begin if y > 1 then break; if Creatures.Creature[i].NPC then if (Creatures.Creature[i].x = Self.X +x) and (Creatures.Creature[i].y = Self.y + y) and (Creatures.Creature[i].Z = Self.Z) then Result := Result + 1; end; end; end; end; while not terminated do begin UpdateWorld; if CountMonstersBesideYou >= NumberOfMonsters then begin if Self.RightHand.ID <> StrongWeapon then begin Boots := GetItemFromOpenBackpack(StrongWeapon); if Boots <> nil then Boots.MoveToBody(Self.RightHand,0); else Self.Displaytext('Strong Weapon werent found in open backpack!'); end; end; if CountMonstersBesideYou < NumberOfMonsters then begin if Self.RightHand.ID <> WearWeapon then begin Boots := GetItemFromOpenBackpack(WearWeapon); if Boots <> nil then Boots.MoveToBody(Self.RightHand,0); else Self.Displaytext('Wear Weapon werent found in open backpack!'); end; end; End; Créditos: ngmax

B := 0; while not terminated do begin A := Random(1,5); if B <> A then case A of 1: begin Self.FaceUp; Sleep(400); end; 2: begin Self.FaceRight; Sleep(400); end; 3: begin Self.FaceDown; Sleep(400); end; 4: begin Self.FaceLeft; Sleep(400); end; end; B := A; sleep(10); end; Créditos: ngmax

Const // quando a mana é a baxo de ... // LowMana = 90 Weapon_ID = 7385 // quando a mana é acima de... // HighMana = 500 Wand_ID = 3065 function GetItemFromOpenBackpack(ID: integer): TItem; var x: integer; y: integer; begin Result := nil; for x := 0 to Self.Containers.Count - 1 do begin if x >= Self.Containers.Count then Break; 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].ID = ID then begin Result := Self.Containers.Container[x].Item[y]; Exit; end; end; end; end; while not terminated do begin UpdateWorld; if self.righthand.id <> Weapon_id then if self.mana < LowMana then begin Self.RightHand.MoveToContainer(Self.Containers.Container[0],19,0); Sleep(1000); Self.Arrow.MoveToBody(Self.RightHand,0); Sleep(1000); UpdateWorld; Self.RightHand.MoveToBody(Self.Arrow,0); Self.Offensive; end; if Self.RightHand.ID <> wand_id then if Self.Mana > HighMana then begin Self.RightHand.MoveToContainer(Self.Containers.Container[0],19,0); Sleep(1000); Self.Arrow.MoveToBody(Self.RightHand,0); Sleep(1000); UpdateWorld; Self.RightHand.MoveToBody(Self.Arrow,0); Self.Defensive; end; sleep(500); end; Créditos: ngmax

Const Minutes = 400 // depois de quantos minutos seu char vai sair do jogo begin Sleep(Minutes*60000); Self.Logout(True); end; Créditos: ngmax

Const VipNames = ['Pessoa1','Pessoa2','Pessoa3','Pessoa4'] // Nome das pessoas indesejaveis procedure Event_VIPLogOn(ID:integer); begin UpdateWorld; for i := 0 to VipList.Count -1 do begin If VipList.VIP[i].ID = ID then begin for x := Low(VipNames) to High(VipNames) do begin if VipNames[x] = VipList.VIP[i].Name then begin Self.Logout(True); exit; end end; end; end; end; While not terminated do begin UpdateWorld; ProcessEvents; Sleep(100); end; Créditos: ngmax

Const MinMonsters = 5 //Quantidade de Bixo na tela UeSpell = exevo gran mas frigo // qual ue vai usar Delay = 2000 // Exausted por runa (1000 = 1 segundo) ShootOnSelf = 1 // nao muda while not terminated do begin A := 0; UpdateWorld; for i := 0 to creatures.count - 1 do begin if (i >= Creatures.Count) or (Terminated) then break; if Creatures.Creature.Z = self.Z then if Creatures.Creature.NPC then A := A + 1; end; if A >= MinMonsters then begin if ShootOnSelf then Self.Say(UeSpell) else Self.Say(UeSpell) sleep(Delay); end; sleep(500); end; Créditos: ngmax

var head, primary, secondary, detail: integer; begin while not Terminated do begin UpdateWorld; head := Random(0,110); primary := Random(0,110); secondary := Random(0,110); detail := Random(0,110); Self.ChangeOutfit(Self.Outfit, head, primary, secondary, detail, 0); Sleep(100); end; end; Créditos: ngmax

Const FoodID = '3725' //id da food Sec = '10' // qto tempo pra come Begin While Not Terminated Do Begin Sleep(Sec * 1000) Self.Containers.UseItemWithSelf(FoodID); End End Créditos: ngmax

Bom, isso significa que não tem o sample de determinado vocação na sua database. Você precisa criar o sample de cada vocação.

Já há isso. Se encontra na lateral da índex do fórum.

const minMana = 20; // AQUI COLOQUE A QUANTIA DA MANA QUE PRECISA PARA USAR A MAGIA while not Terminated do begin UpdateWorld; if Self.Mana > minMana then begin if Self.Slowed then Self.Say('exura'); Sleep(300); end; end; Créditos: ngmax

Const MonsterName = 'dragon' // AQUI COLOQUE O NOME DO MONSTRO while not terminated do begin updateworld; for i:= 0 to creatures.count -1 do begin if Creatures.Creature.Name = MonsterName then playsound('C:\Windows\Media\Notify.wav'); sleep(100); end; sleep(100); end; Créditos: ngmax

while not terminated do begin UpdateWorld; if not Self.MagicShield then begin Self.Say('Utamo Vita')* Sleep(2000)* end; sleep(100)* end; Créditos: ngmax

Valeu a pena ter aguardado tantos dias esperando para ver o fórum disponível. Parabéns à equipe e à todos os envolvidos, o fórum está lindo! Agora é ser acostumar às novas mudanças dessa atualização, haha.

Const MonsterName = 'Demon' //Personagem Ou Criatura while not terminated do begin updateworld; for i := 0 to creatures.count - 1 do begin if creatures.creature.name = MonsterName then if Creatures.Creature.npc = true then if Creatures.Creature.Z = Self.Z then begin Self.say('utamo vita'); sleep(1000); end; end; end; Créditos: ngmax

Const minMana = 200; //Mana pra usar PotID = 268; //ID da potion. while not Terminated do begin UpdateWorld; if (Self.Mana < minMana) then begin Self.Containers.UseItemWithSelf(PotID) Sleep(1000); end; Sleep(100); end; Créditos: ngmax

Const minMana = 20; //Minimo de Mana para o exura minHealth = 600; //Vida para tomar potion maxHealth = 1000; //Vida pra usar exura. potionid = 266; //ID do potion spellnome = 'exura' //Nome da magia while not Terminated do begin UpdateWorld; if (Self.Health < minHealth) then begin Self.Containers.UseItemWithSelf(potionid); Sleep(1000); end; else begin if (Self.Health < maxHealth) and (Self.Mana > minMana ) then begin Self.Say(spellnome); Sleep(1500); end; end; Sleep(100); end; Créditos: ngmax

Const Monster = 'Chicken' //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; Créditos: ngmax

Const WaitTime = 1 //Tempo que vai esperar para jogar cada item 1 é 1 segundo ItemDrop = 3031 //Id do item que vai jogar ItemDrop2 = 283 //Id do item que vai jogar ItemDrop3 = 284 //Id do item que vai jogar ItemDrop4 = 285 //Id do item que vai jogar function GetItemFromOpenBackpack(ID: integer): TItem; var x: integer; y: integer; begin Result := nil; for x := 0 to Self.Containers.Count - 1 do begin if x >= Self.Containers.Count then Break; 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].ID = ID then begin Result := Self.Containers.Container[x].Item[y]; Exit; end; end; end; end; Var Flask : TItem; while not terminated do begin updateworld; Flask := GetItemFromOpenBackpack(ItemDrop); if Flask <> nil then Flask.MoveToGround(Self.x, Self.y, Self.z, 1); Flask2 := GetItemFromOpenBackpack(ItemDrop2); if Flask2 <> nil then Flask2.MoveToGround(Self.x, Self.y, Self.z, 1); Flask3 := GetItemFromOpenBackpack(ItemDrop3); if Flask3 <> nil then Flask3.MoveToGround(Self.x, Self.y, Self.z, 1); Flask4 := GetItemFromOpenBackpack(ItemDrop4); if Flask4 <> nil then Flask4.MoveToGround(Self.x, Self.y, Self.z, 1); sleep(WaitTime * 1000); end; Créditos: ngmax

const Items = [2777, 2794, 2808, 6372, 2793, 2806, 2792, 2801, 2811] BP = 1 Procedure PickUpLoot(Loot: TItem); begin if Self.Containers.Container[BP-1].Item[Self.Containers.Container[BP-1].Capacity-1] <> nil then if Self.Containers.Container[BP-1].Item[Self.Containers.Container[BP-1].Capacity-1].Properties.Container then Self.Containers.Container[BP-1].Item[Self.Containers.Container[BP-1].Capacity-1].Open; else Self.DisplayText('Your Loot backpacks is full.'); if Self.Containers.Container[BP-1].Count <> 0 then begin if Self.Containers.Container[BP-1].Item[0].Properties.Container then Loot.MoveToContainer(Self.Containers.Container[BP-1], Self.Containers.Container[BP-1].Capacity-1, 0); else Loot.MoveToContainer(Self.Containers.Container[BP-1], 0, 0); end else Loot.MoveToContainer(Self.Containers.Container[BP-1], 0, 0); end; Procedure FindLoot; var x, y, z, i, f: integer; Tile: TTile; begin for x := -1 to 1 do begin for y := -1 to 1 do begin Tile := Screen.Tile[x + 7, y + 5]; begin for i := 0 to Tile.Count-1 do begin if i >= Tile.Count then Break; for j := Low(Items) to High(Items) do if Tile.Item[Tile.Count-1-i].ID = Items[j] then begin if i = 0 then PickUpLoot(Tile.Item[Tile.Count-1-i]); else if not Tile.Item[Tile.Count-i].Properties.Movable then PickUpLoot(Tile.Item[Tile.Count-i-1]); else Tile.Item[Tile.Count-i].MoveToGround(Self.X+Random(-1,2), Self.Y+Random(-1,2), Self.Z, 0); end; end; end; end; end; end; while not terminated do begin UpdateWorld; if Self.Containers.Count >= BP then FindLoot; Sleep(500); end; Créditos: ngmax

Const DiagnoalWalking = 1 // 1- Ativar diagonal e 0- desativar. procedure Event_KeyDown(Key:integer); begin Updateworld; case Key of 87:Self.MoveUp; //W 65:Self.MoveLeft; //A 83:self.MoveDown; //S 68:Self.MoveRight; //D end; if DiagnoalWalking then Case Key of 81:Self.MoveUpLeft; //Q 69:Self.MoveUpRight; //E 90:Self.MoveDownLeft; //Z 67:Self.MoveDownRight; //C end; end; while not terminated do begin ProcessEvents; Sleep(100); end; Créditos: ngmax

Const FoodID = 3725 // ID da food MusicPath = 'C:\Windows\Media\Notify.wav' // This is the main alert of windows. while not terminated do begin UpdateWorld; a:=0; 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 = FoodID then a := 1; Sleep(100); end; sleep(100); end; sleep(100); if a = 0 then PlaySound(MusicPath); end; Créditos: ngmax

Const Cap = 20 while not terminated do begin UpdateWorld; if self.capacity < Cap then PlaySound('C:\Windows\Media\notify.wav'); Sleep(100); end; Créditos: ngmax