Scripts-By Skullzera

[Skullzera 0]

Aeew Povao ! :D , Baum ?

 

Viim Aqui postar uns scripts para vocês...

 

Se Tiiver Estes Scripts , Por Favor Informe

 

 

Attackar Tal Monstro Com Tal Magia

 

Obs: Nos locais destacados e onde vc ira colocar o nome das criaturas que vai ser atacadas com cada magia

 

const

frigo = ['banshee'];

flam = ['ancient scarab'];

tera = ['cyclops'];

vis = ['acolyte of the cult'];

mort = ['black knight'];

useWand = 0 //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;

 

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;

 

-------------------------------------------------------------------------------------------

 

Auto Dance

 

OBS: Tem que falar "Dance" sem aspas para ele Dançar

 

const

DanceTime = 10;

 

function Dance(T: Float);

var

T1: Float;

Rand: Integer;

begin

T1 := Time;

Sleep(1500);

repeat

UpdateWorld;

Rand := Random(0, 4);

case Rand of

0: Self.FaceUp;

1: Self.FaceRight;

2: Self.FaceDown;

3: Self.FaceLeft;

end;

Sleep(250);

until T1 + (T / 100000) <= FloatToStr(Time);

end;

 

procedure Event_Message(Channel: Integer; Name, Text: String);

begin

if Pos('dance',AnsiLowerCase(Text)) <> 0 then

Dance(DanceTime);

end;

 

begin

while not Terminated do

begin

Sleep(1000);

ProcessEvents;

end;

end;

 

---------------------------------------------------------------------------------

 

Hunt Com Summon

 

Obs : No local destacado e onde vc mudara o nome do summon que vc criou

 

Const

Ignore='Monk'; // if the creature is a Monk, we wont attack it.

var x : integer;

Looting:boolean;

 

function Attacking : boolean;

var x : integer;

begin

Result := False;

for x := 0 to Creatures.Count - 1 do

begin

if x >= Creatures.Count then Break;

if Creatures.Creature[x].Attacking then

begin

Result := True;

Exit;

end;

end;

end;

 

function PlayerOnScreen : Boolean;

var

x: integer;

begin

Result := False;

for x := 0 to Creatures.Count - 1 do

begin

if x >= Creatures.Count then Break;

if Creatures.Creature[x].z=self.z then

if Creatures.Creature[x].Name<>Self.Name then

if not Creatures.Creature[x].NPC then

begin

Result :=true;

Exit;

end;

end;

end;

 

function GetCreatureByID(ID: integer): TCreature;

var

x: integer;

begin

 

------------------------------------------------------------------------------

 

Enchanted Spear Maker

 

Const

SpearID = 3277

Spell = 'Exeta con'

MinMana = 600

MinSoul = 5

WeaponID = 3291

 

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;

 

While not terminated do

begin

UpdateWorld;

if Self.Mana >= MinMana then

if Self.Soul >= MinSoul then

begin

Spear := GetItemFromOpenBackpack(SpearID);

if Spear <> nil then

Spear.MoveToBody(Self.RightHand,1);

Sleep(800);

UpdateWorld;

If Self.RightHand.ID = SpearID then

Self.Say(Spell);

UpdateWorld;

Weapon := GetItemFromOpenBackpack(WeaponID);

if Weapon <> nil then

Weapon.MoveToBody(Self.RightHand,0);

end;

sleep(500);

end;

 

------------------------------------------------------------------

 

Auto-ScreenShot

 

Obs : Tira screen-shot quando subir de Nivel ou Skills

 

var

Level: integer;

MLevel: integer;

Axe: integer

Fishing: integer

Shielding: integer

begin

UpdateWorld;

Level := Self.Level;

MLevel := Self.Skills.Magic;

Axe := Self.Skills.Axe;

Fishing := Self.Skills.Fishing;

Shielding := Self.Skills.Shielding;

while not Terminated do

begin

UpdateWorld;

if Level <> Self.Level then

begin

Level := Self.Level;

ScreenShot('c:\level' + IntToStr(Level) + '.jpg');

Level := Self.Level;

end;

if MLevel <> Self.Skills.Magic then

begin

MLevel := Self.Skills.Magic;

ScreenShot('c:\Mlevel' + IntToStr(MLevel) + '.jpg');

MLevel := Self.Skills.Magic;

end;

if Axe <> Self.Skills.Axe then

begin

Axe := Self.Skills.Axe;

ScreenShot('c:\Axe' + IntToStr(Axe) + '.jpg');

Axe := Self.Skills.Axe;

end;

if Fishing <> Self.Skills.Fishing then

begin

Fishing := Self.Skills.Fishing;

ScreenShot('c:\Fishing' + IntToStr(Fishing) + '.jpg');

Fishing := Self.Skills.Fishing;

end;

if Shielding <> Self.Skills.Shielding then

begin

Shielding := Self.Skills.Shielding;

ScreenShot('c:\Shielding' + IntToStr(Shielding) + '.jpg');

Shielding := Self.Skills.Shielding;

end;

Sleep(1000);

end;

end;

 

-----------------------------------------------------------------------------------

 

Ficou Bom ? Ruim ? Por Favor... Comentem.

 

 

Credits : Tibia Scripts

[PoweR BoLT 92]

Gostei ...

só acho que precisa formatar melhor o tópico

fora isso

ta de parabens !

[Nike Boy 1]

omg,ficou muito bom.

mais procura dar um separada entre uma coisa e outra.

tem umas partes que ficaram juntas.

~ :D

 

-

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Skullzera 0]

Vlw~ E que e meu primeiro post , nao so muito de frequentar foruns

 

muito obrigado

 

@Power Bolt

É uma honra telo em meu post , na proxima formatarei melhor...

 

vlw

 

@Nike Boy

Vlw ae , vou separar mais na proxima ;D

 

Desculpem meus erros.

Vou melhorar e provarei que so digno de participar do WebCheats

[Nike Boy 1]

Desculpem meus erros.

Vou melhorar e provarei que so digno de participar do WebCheats

 

aa boy !

apenas de provar que quer ser digno do webcheats,você vira um membro digno do webcheats.

by : Nike Boy ~

;)

 

-

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[OriGami~ 3]

Realmente os scripts são bons. Já os conhecia, inclusive tenho 2 desses no meu pc. São bem úteis, principalmente o primeiro para mages. Contamos com você para ajudar a área ;)

[Nike Boy 1]

é o origami tem razão,é sempre bom ter script's no computador..pode vir a calhar alguma hora.

~:)

 

-

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[superbruno100 0]

como eu uso isso?

[OriGami~ 3]

como eu uso isso?

Veja: http://www.webcheats.com.br/forum/tutoriais-tibia/120128-tutorial-executando-scripts.html

[PoweR BoLT 92]

@Skullzera

 

Pesso sua altorização para editar o tópico

para TENTAR deixar um pouco mais fácil a visualização

autoriza ?

 

@off

um incentivo vai bem, não ?

[Nike Boy 1]

tem razão,alguem edita isso ai pra ficar realmente..

otimo -

:)

 

[superbruno100 0]

Veja: http://www.webcheats.com.br/forum/tutoriais-tibia/120128-tutorial-executando-scripts.html

 

você não sabe aonde eu posso achar os scripts prontos?