Tricoder

http://www.tibiaking.com/forum/topic/10395-resolvido-rsa-key-ajudem/?do=findComment&comment=46200

Posta print da mensagem

O problema está no acesso dos arquivos. Mude as permissões para 777 e verifique se há esses arquivos no diretório indicado mesmo.

O que colocou no config.lua? Está entrando com que IP?

Executa no phpmyadmin e veja se corrige um dos erros: CREATE TABLE IF NOT EXISTS `live_casts` ( `player_id` int(11) NOT NULL, `cast_name` varchar(255) NOT NULL, `password` boolean NOT NULL DEFAULT false, `description` varchar(255), `spectators` smallint(5) DEFAULT 0, UNIQUE KEY `player_id_2` (`player_id`), FOREIGN KEY (`player_id`) REFERENCES `players`(`id`) ON DELETE CASCADE ) ENGINE=InnoDB;

Gostei da aparência do site, boa sorte, espero que tenha sucesso em seu projeto!

//-------------------------------------------------------// Const MinSelfHP = 0; //LIFE PRA DAR EXURA SIO EM VOCE MinPlayerHP = 30; // % DA HP DE OTROS PLAYERS PlayerName = ['Ash Katchup','Guido']; //Players PARA HEALAR //-------------------------------------------------------// var Creature: TCreature; CreatureName: string; 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 (AnsiLowerCase(Creatures.Creature[x].Name) = AnsiLowerCase(Name)) and (Creatures.Creature[x].Visible) then begin Result := Creatures.Creature[x]; Exit; end; end; end; while not Terminated do begin UpdateWorld; if (Self.Health <>140) then begin Self.Say('exura sio "'+Self.Name); Sleep(1000); end else for i := Low(PlayerName) to High(PlayerName) do begin Creature := GetCreatureByName(PlayerName[i]); If Creature<> nil then begin if (Creature.Health <> 140) then begin Self.Say('Exura Sio "'+PlayerName[i]) Sleep(1000); break; end; end; end; Sleep(100); end; Créditos: ngmax

Const WeaponID = 7368 //your weapon MUST be in your right hand and nothing in arrow slot SpearID = 7368 //change the IDs for stones/spears SpearOz = 2.00 SpearAmount = 100 //how many spears until it switches Fluid = [99, 2886, 2887, 2887, 2888, 2889, 2890, 2891] Procedure PickUpSpears(Spears: TItem); begin if (Self.Capacity <= (Spears.Amount * SpearOz)) then begin if (Self.Capacity/SpearOz) > 1 then Spears.MoveToContainer(Self.Containers.Container[0], 0, Int(Self.Capacity/SpearOz)); end else Spears.MoveToContainer(Self.Containers.Container[0], 0, 0); Sleep(500); end; Procedure FindSpears; 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; if Tile.Item[i].ID = SpearID then begin if i = 1 then PickUpSpears(Tile.Item[i]); else for f := Low(Fluid) to High(Fluid) do if Tile.Item[i-1].ID = Fluid[f] then PickUpSpears(Tile.Item[i]); else Tile.Item[i-1].MoveToGround(Self.X+Random(-2,3), Self.Y+Random(-2,3), Self.Z, 0); end; end; end; end; end; end; Function GetItemFromOpenBackpack(ID, Index: 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; if x = Index then Continue; 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 CountItemAmountFromOpenBackpack(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 + Self.Containers.Container[x].Item[y].Amount; end; end; end; end; while not terminated do begin UpdateWorld; FindSpears; Weapon := GetItemFromOpenBackpack(WeaponID, Self.Containers.Count); if Weapon <> nil then Weapon.MoveToBody(Self.Arrow, 0); Spear := GetItemFromOpenBackpack(SpearID, 0); if Spear <> nil then Spear.MoveToContainer(Self.Containers.Container[0], 0, 0); if (Self.RightHand.ID = SpearID) then begin if (Self.RightHand.Amount < 90) then begin Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count); if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0); end; end else begin SpearCount := CountItemAmountFromOpenBackpack(SpearID); if SpearCount >= SpearAmount then begin Self.RightHand.MoveToBody(Self.Arrow, 0); Sleep(500); Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count); if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0); end else if Self.RightHand.ID = 0 then Self.Arrow.MoveToBody(Self.RightHand, 0); end; Sleep(500); end; Créditos: ngmax

Const Wanted= 'Dragon'; // Nome da criatura MinCreatureHP = 0; // Vida do monstro q ele vai usar diagonal acima disso por porcentagem. RampsID = [1950, 1952, 1954, 1956, 385, 1947, 434, 414, 604] var x: Integer; function IsCreatureBesideYou(c: TCreature): boolean; begin UpdateWorld; if (abs(c.X-self.X) <= 1) and (abs(c.Y-self.Y) <= 1) then begin if c.Z = self.Z then begin Result := True; Exit; end; end; Result := False; end; function GetTileFromXYZ(X, Y, Z: integer): TTile; begin Result := nil; if abs((Self.X - 7) - X) > 14 then Exit; if abs((Self.Y - 5) - Y) > 11 then Exit; if Self.Z <> Z then Exit; Result := Screen.Tile[abs((Self.X - 7) - X), abs((Self.Y - 5) - Y)]; end; function IsTileWalkable(Tile: TTile): boolean; begin Result := True; for Z := 0 to Tile.Count - 1 do begin if Tile.Item[Z].Properties.Hole then begin Result := False; end else if Tile.Item[Z].Properties.Stairs then begin Result := False; end else if not Tile.Item[Z].Properties.Walkable then begin OutputDebugString('Not Walk: ' + IntToStr(Tile.Item[Z].ID)); Result := False; end; else begin for x := low(RampsID) to high(RampsID) do begin if Tile.Item[Z].ID = RampsID[x] then Result := False; end; end; end; end; function GetCreatureBesideYou: TCreature; begin UpdateWorld; Result := Nil; for x := 0 to Creatures.Count - 1 do begin UpdateWorld; if (Creatures.Creature[x].Name=Wanted) then if IsCreatureBesideYou(Creatures.Creature[x]) then begin if Creatures.Creature[x].ID <> Self.ID then begin UpdateWorld; Result := Creatures.Creature[x]; Exit; end; end; end; end; var Moved:boolean; begin G:=false; T:=false; while not terminated do begin updateworld; Creature:=GetCreatureBesideYou; if Creature<>nil then if Creatures.Creature[Wanted].Health > MinCreatureHP then begin if (Self.X<>Creature.X) and (Self.Y=Creature.Y) then begin Tile:=GetTileFromXYZ(Self.x,Self.y-1,self.z); if Tile<>nil then if IsTileWalkable(Tile) then begin Self.MoveUp; Moved:=true; end; If (Moved=False) then begin Tile:=GetTileFromXYZ(Self.x,Self.y+1,self.z); if Tile<>nil then if IsTileWalkable(Tile) then Self.MoveDown; end; end; Moved:=false; if (Self.X=Creature.X) and (Self.Y<>Creature.Y) then begin Tile:=GetTileFromXYZ(Self.x-1,Self.y,self.z); if Tile<>nil then if IsTileWalkable(Tile) then begin Self.MoveLeft; Moved:=true; end; If (Moved=False) then begin Tile:=GetTileFromXYZ(Self.x+1,Self.y,self.z); if Tile<>nil then if IsTileWalkable(Tile) then Self.MoveRight; end; end; end; sleep(1000); end; end; Créditos: ngmax

Const MinMonsters = 5 //Quantidade de Bixo na tela GFB_ID = 2304 // Id Da Gfb Delay = 2000 // Exausted por runa (1000 = 1 segundo) ShootOnSelf = 1 // 1: Usa a Runa no seu pé, 0: Usa a Runa no Monstro 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.Containers.UseItemWithSelf(GFB_ID) else Self.Containers.UseItemWithCreature(GFB_ID,Creatures.Creature); sleep(Delay); end; sleep(500); end; Créditos: ngmax

Const MonstersNames = ['Dragon', 'Dragon Lord']; //Nome dos monstros NumberOfMonsters = 4; //quantidade de monstros MinHealth = 800; //quanto de vida voce tem que estar, acima disso MinMana = 150; //mana que precisa pra usar 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.NPC then if (Creatures.Creature.x = Self.X +x) and (Creatures.Creature.y = Self.y + y) then begin for G := low(MonstersNames) to high(MonstersNames) do begin if Creatures.Creature.Name = MonstersNames[G] then Result := Result + 1; end; end; end; end; end; end; while not terminated do begin UpdateWorld; if CountMonstersBesideYou >= NumberOfMonsters then if Self.Mana >= MinMana then if Self.Health > MinHealth then Self.Say('exori'); sleep(100); end; Créditos: ngmax

var RingID: integer; 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; begin RingID := 3097; //id do ring que desejar begin UpdateWorld; if Self.Attacking <> 0 then begin if Self.Ring.ID = 0 then begin Ring := GetItemFromOpenBackpack(3097); if Ring <> nil then begin Ring.MoveToBody(Self.Ring, 0); end; end; end else begin if Self.Ring.ID <> 0 then begin Self.Ring.MoveToContainer(Self.Containers.Container[0], 0, 0); end; end; Sleep(100); end; end; Créditos: ngmax

Const frigo = ['Dragon', 'Dragon Lord']; flam = ['Tarantula', 'Giant Spider']; tera = ['Orc Warlord', 'Orc Leader']; vis = ['Frost Dragon', 'Frost Dragon Hatchling']; mort = ['Cyclops Smith', 'Cyclops Drone']; hur = ['Nome1', 'Nome2']; con = ['Nome1', 'Nome2']; san = ['Nome1', 'Nome2']; useWand = 1 //se estiver com Wand 1 sem wand 0 function GetExoriType(Crea: TCreature): String; begin Result := ''; for z := Low(frigo) to High(frigo) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(frigo[z]) then Result := 'Exori Frigo'; end; for z := Low(flam) to High(flam) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(flam[z]) then Result := 'Exori Flam'; end; for z := Low(tera) to High(tera) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(tera[z]) then Result := 'Exori Tera'; end; for z := Low(vis) to High(vis) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(vis[z]) then Result := 'Exori Vis'; end; for z := Low(mort) to High(mort) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(mort[z]) then Result := 'Exori Mort'; end; for z := Low(hur) to High(hur) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(hur[z]) then Result := 'Exori Hur'; end; for z := Low(con) to High(con) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(con[z]) then Result := 'Exori Con'; end; for z := Low(san) to High(san) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(san[z]) then Result := 'Exori San'; end; end; function GetCreatureByID(ID: integer): 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].ID = ID then begin Result := Creatures.Creature[x]; Exit; end; end; end; begin sleepTime := 1100; if useWand = 0 then sleepTime := 1000; while not terminated do begin updateworld; if Self.Attacking <> nil then begin creature := GetCreatureByID(self.attacking); if creature <> nil then begin exori := GetExoriType(creature); if exori <> '' then begin updateworld; if (abs(creature.x - self.x) <= 3) and (abs(creature.y - self.y) <= 3) then begin if Self.Attacking > 0 then if creature.visible then self.say(exori); end; end; end; end; sleep(sleepTime); end; end; Créditos: ngmax

Const Name= ['Necromancer', 'Hero', 'Orc Shaman', 'Minotaur Mage']; SwitchAt=30; // function GetPlace(st:string):integer; var x:integer; begin Result:=1000; for x:=Low(Name) To High(Name) do begin if Name[x]=st then Result:=x; end; end; function GetCreatureByID(ID: integer): 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].ID = ID then begin Result := Creatures.Creature[x]; Exit; end; end; end; function IsCreatureBesideYou(c: TCreature): boolean; begin UpdateWorld; Result := False; if (abs(c.X-self.X) <= 4) and (abs(c.Y-self.Y) <= 4) then begin if c.Z = self.Z then begin Result := True; end; end; end; var x:integer; b:boolean; begin while not terminated do begin b:=false; updateworld; If (Self.Attacking<>0) then begin Creature:=GetCreatureByID(Self.Attacking); if Creature<>nil then if SwitchAt= Creatures.Count then Break; if Creatures.Creature[x].NPC then if Creatures.Creature[x].z=self.z then if Creatures.Creature[x].Name<>self.name then if Creatures.Creature[x].Attacking = false then if IsCreatureBesideYou(Creatures.Creature[x]) then if GetPlace(Creature.Name)>GetPlace(Creatures.Creature[x].Name) then begin sleep(100); updateworld; Creatures.Creature[x].attacking:=true; B:=true; end; end; end; end; Sleep(100); end; end; Créditos: ngmax

Const IgnoreList = ['Hydra', 'Dragon', 'Dragon Lord'] // nome dos monstros MaxMonsters = 1 // qntidade de bixo para ele jogar a runa RuneID = 3155 function GetCreatureByID(ID: integer): 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].ID = ID then begin Result := Creatures.Creature[x]; Exit; end; end; end; 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.NPC) and (Creatures.Creature.Z = Self.Z) then begin B := 0; for g := Low(IgnoreList) To High(IgnoreList) do begin if AnsiLowerCase(Creatures.Creature.Name) = AnsiLowerCase(IgnoreList[g]) then begin B := 1; break; end; sleep(10); end; if B = 0 then A := A + 1; end; Sleep(10); end; if A > MaxMonsters then begin UpdateWorld; if Self.Attacking <> 0 then Target := GetCreatureByID(Self.Attacking); if Target <> nil then Self.Containers.UseItemWithCreature(RuneID,Target); Sleep(1000); end; Sleep(100); end; Créditos: ngmax

Const FoodList = [3595,3577,3578,3579,3582,3583,3584,3600,3584,3585,3586,3587,3588,3589,3590,3591,3592,3593,3594,3598,3599,3601,3602,3607,3725] procedure CheckAndMakeFood; begin updateworld; for i := 0 to self.containers.count -1 do begin if i >= Self.Containers.Count then break; for g := 0 to Self.Containers.Container.Count -1 do begin if g >= Self.Containers.Container.Count then break; for x := LoW(FoodList) to High(FoodList) do begin if Self.Containers.Container.Item[g].ID = FoodList[x] then exit; sleep(10); end; end; end; if Self.Mana >= 120 then Self.Say('exevo pan'); end; while not terminated do begin UpdateWorld; CheckAndMakeFood; sleep(100); Créditos: ngmax

Const Exana_Pox = 1 // 1- usa o exana pox, 0 nao usa. Procedure Event_Notice(Text:String); begin UpdateWorld; if Text = 'There is no way.' then Begin UpdateWorld; X := Self.X; Y := Self.Y; Z := Self.Z; repeat if (Self.X <> X) or (Self.Y <> Y) then exit; Self.MoveRight; sleep(1000); UpdateWorld; if (Self.X <> X) or (Self.Y <> Y) then exit; Self.MoveUp; Sleep(1000); UpdateWorld; if (Self.X <> X) or (Self.Y <> Y) then exit; Self.MoveLeft; Sleep(1000); UpdateWorld; if (Self.X <> X) or (Self.Y <> Y) then exit; Self.MoveDown; Sleep(1000); UpdateWorld; until (Self.X <> X) or (Self.Y <> Y); end; end; While not terminated do begin UpdateWorld; ProcessEvents; Sleep(100); if Self.Poisoned then if Exana_Pox then begin Self.Say('exana pox'); Sleep(3000); end; end; Créditos: ngmax

var x:integer; RedSkull: boolean WhiteSkull: boolean begin while not terminated do begin UpdateWorld; if Creatures.count>1 then for x := 0 to Creatures.Count - 1 do begin UpdateWorld; if (Creatures.Creature[x].RedSkull=true) or (Creatures.Creature[x].WhiteSkull=true) then Self.Logout(True); //Change to False if you dont want force logout end; sleep(1000); end; end; Créditos: ngmax

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