Blazera 8.60
blazera.net
SOBRE O BLAZERA
Um fresh start em um servidor 8.6 clássico, com real map, focado na experiência raiz do Tibia. | Classic Real Map • Fresh Start • Client 8.6 • Old School Gameplay • Active Community
Inicia em:
--
Participar
Tricoder
Héroi
-
Registro em
-
Última visita
Tudo que Tricoder postou
-
INFORMAÇÕES Vocation: Paladin Level: 170+ Dificuldade: Normal Exp/hour: 200k para 350k Loot/hour: 20k para 50k ________________________________________________ LOCALIZAÇÃO Começo do Script: Edron Depot ou perto da entrada do spawn________________________________________________ HOTKEYS Potions: Strong Mana Potion Magias de Cura: Exura Gran Exura Exura San Exura Gran San Magias de Ataque: Exori San Exori Con Exevo Mas San CARACTERISTICAS Download: [RP 180+] Kazordoon Drunken Fellow Mine v1.0+.xml
-
Vou lhe dar três alternativas para tentar resolver isso, veja se pelo menos uma delas funciona e caso funcionar, por favor, avise qual foi para ajudar alguém que tenha a mesma dúvida. #1 JEITO Exporte sua database para .sql Abra com o notepad++ Vá em search and replace Coloque mb4 em search e em replace coloque nothing Veja se é substituido; utf8mb4_unicode_ci por utf8_unicode_ciAgora vá no seu phpmyadmin e em Operation > Collation, deixe como utf8_unicode_ci__________________________________________ #2 JEITO Salve o php script abaixo como db-convert.php e mude os dados para o nome da sua database, senha e user. Rode no seu phpmyadmin. <!DOCTYPE html> <html> <head> <title>DB-Convert</title> <style> body { font-family:"Courier New", Courier, monospace;" } </style> </head> <body> <h1>Convert your Database to utf8_general_ci!</h1> <form action="db-convert.php" method="post"> dbname: <input type="text" name="dbname"><br> dbuser: <input type="text" name="dbuser"><br> dbpass: <input type="text" name="dbpassword"><br> <input type="submit"> </form> </body> </html> <?php if ($_POST) { $dbname = $_POST['dbname']; $dbuser = $_POST['dbuser']; $dbpassword = $_POST['dbpassword']; $con = mysql_connect('localhost',$dbuser,$dbpassword); if(!$con) { echo "Cannot connect to the database ";die();} mysql_select_db($dbname); $result=mysql_query('show tables'); while($tables = mysql_fetch_array($result)) { foreach ($tables as $key => $value) { mysql_query("ALTER TABLE $value CONVERT TO CHARACTER SET utf8 COLLATE utf8_general_ci"); }} echo "<script>alert('The collation of your database has been successfully changed!');</script>"; } ?>Isso irá mudar utf8mb4/utf8mb4_unicode_ci para utf8/utf8_general_ci.__________________________________________ #3 JEITO Clique em "Export" Click the "Custom" radio button Vá para a seção chamada "Format-specific options" e terá um dropdown, coloque em algo como "Database system or older MySQL server to maximize output compatibility with:" Mude NONE para MYSQL40. Clique agora em "GO".
-
Aparentemente símbolos não são permitidos em nomes, fazendo com que dê o erro na distro.
-
config.lua do seu forgottenserverpasswordType = "sha1" ________________________________ Em install.php, procure por:Website::setPasswordsEncryption(Website::getServerConfig()->getValue('passwordType'));mude para:Website::setPasswordsEncryption(Website::getServerConfig()->getValue('passwordtype'));
-
Você fez que alteração no config.lua?
-
Você pode determinar o level de skill modificando as sources.
-
-
-
Posta print da mensagem
-
-
-
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;
-
-
//-------------------------------------------------------// 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
