uns Scripts ai pra galera

[Lostter 0]

Script de responder

 

** 0 1 "oi" "oi"

** 0 2 "food|food plz|food?" "no have" "sry, no have"

** 2 3 "please" "¬¬°"

** 0 1 "botter" "haha your funny...|why you say that?|you would know...|ok, lol go with that"

** 0 2 "reported|botting|cheater|cave bot" "why do you think i am botting, lol such a noob... IGNORED!"

** 0 1 "what color are my shoes" "you tell me... im color blind, but i know your a gm so the chances are they are blue :D"

** 0 1 "no kill" "ok"

** 0 2 "training" "ok"

** 0 1 "can you rope me up|rope?|rope" "nah dont really feel like it right now, try game chat"

>= 2 3 "." "ignored... bye"

** 0 1 "noob" "im a noob, lol seen ur self lately...get blown!" "why you callin me a noob?" "get over your self"

** 0 1 "pl?|pl" "no"

** 0 1 "hola" "not spanish"

** 0 1 "no" "yes"

** 0 1 "lol" ":D" "rofl" "haha" "lmao"

** 0 1 "skills?|skill|skills" "veeery bad" "secret"

** 0 1 "vtf" "nao, brigado"

** 0 1 "nb" "ty"

** 0 1 "hi" "not english"

** 0 1 "blz?" "sim, e vc?"

** 0 1 "go drag|kill drag" "no, i die"

** 0 1 "me ajuda|vc pode me ajudar?" "aff, naum da"

** 0 1 "help|help me" "i can't"

 

Mostra quanto você tem de dinheiro

 

var

Gold: integer;

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;

Gold := CountItemAmountFromOpenBackpack(3031);

Self.PrivateMessage(self.name,'You Have ' + IntToStr(Gold) + ' Gold In Your Backpack');

sleep(20000);

end;

 

Ficar Na Diagonal De tal Monstro

 

Const

Wanted='Dragon';// aki vc pode trocar por outro, exemplo 'Dragon Lord'

AttackAt = 25

RampsID = [1950, 1952, 1954, 1956, 385, 1947, 434, 414, 604]

var

x,Bla:Integer;

Looting: boolean;

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

updateworld;

G:=false;

T:=false;

while not terminated do

begin

Bla:=Self.Containers.Count;

updateworld;

Creature:=GetCreatureBesideYou;

if Creature<>nil then

if Creatures.Creature[x].Health>AttackAt 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;

 

Alarme Quando Seu Character Up

 

var

Level: integer;

begin

UpdateWorld;

Level := Self.Level;

while not Terminated do

begin

UpdateWorld;

if Level <> Self.Level then

begin

PlaySound('C:\WINDOWS\Media\Notify.wav');

Level := Self.Level;//delete this line if you want continusly alarm

end;

Sleep(1000);

end;

end;

 

Tira Screen Shot Quando Up

 

var

Level: integer;

 

begin

UpdateWorld;

Level := Self.Level;

while not Terminated do

begin

UpdateWorld;

if Level <> Self.Level then

begin

Level := Self.Level;

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

end;

Sleep(1000);

end;

end;

 

Ataca um determinado monstro primeiro

 

Const

Name=['Orc Shaman']; //aki vc coloka o bixo q vc ker q ataque primeiro

SwitchAt=10;// the % of the current attacked monster

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) <= 6) and (abs(c.Y-self.Y) <= 6) 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<Creature.Health then

begin

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

begin

updateworld;

if b then break;

if x >= 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;

 

Ataca Os Bixo Que o bot não ataca

 

Const

Monster = 'Dog' //aki vc pode colokar outro bixo, exemplo: 'Chicken'

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;

 

Ponhar e tirar Soft Boots

 

Const

Soft=6529; //6529 ID Softboots na BP

Softbody=3549;//3549 ID soft in use

Bsteel=3079; // obs 3554 é id da stell boots pode alterar pelo da q vc usa

ManaMin=300;// mana para colocar a soft

ManaMax=500;//mana para retirar a soft

var

FeetID: 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

FeetID := Bsteel;

while not Terminated do

begin

UpdateWorld;

if Self.Mana > ManaMax then

begin

if Self.Feet.ID = Softbody then

begin

Feet := GetItemFromOpenBackpack(Bsteel);

if Feet <> nil then

begin

Feet.MoveToBody(Self.Feet, 0);

end;

end;

end

else

begin

Boh := GetItemFromOpenBackpack(Soft);

if Self.Mana < ManaMin then

if Self.Feet.ID = Bsteel then

begin

Boh.MoveToBody(Self.Feet, 0);

end;

end;

Sleep(100);

end;

end;

 

Stairjumping

 

Famoso Script De matar monstros desendo e subindo a escadinha

 

-O "Dragon" vc troca pelo monstro q vc quer matar com stairjumping.

 

Const

MonsterName = 'Dragon'

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;

While not terminated do

begin

UpdateWorld;

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

begin

If (Creatures.Creature.Name = MonsterName) and (not attacking)

then Creatures.Creature.Attacking := True;

sleep(100);

end;

sleep(100);

end;

 

Bom , dps eu hosteio tods os scripts para download (Claro que junto com o scan)

Tai!

Espero q Gostem!

[AlissonDelCastillo 0]

gostei dos scripts

;D

vlw por dividir conosco;.

[Lostter 0]

gostei dos scripts

;D

vlw por dividir conosco;.

 

Valeu ai espero q mais gente goste!

[pilpa10 0]

BIG Scripts vlwwww msm o q eu precisava

[guibecker 0]

Os créditos são seus mesmo?

Se for, parabéns, pelo tópico, obrigado por dividir isso com o fórum.

[Lostter 0]

Os créditos são seus mesmo?

Se for, parabéns, pelo tópico, obrigado por dividir isso com o fórum.

 

Sim São Meu Mesmo Obrigado por terem gostado.

[Mr.Bean* 0]

Valeeu ae vao ser uteis =D

[guibecker 0]

Uma dúvida... eu nunca usei script, eu sempre faço os meus... pra eu salvar isso, eu tenho que abrir um bloco de notas, copiar o arquivo e salvar com o nome que eu quiser com extensão '.ini'?

[Lostter 0]

Uma dúvida... eu nunca usei script, eu sempre faço os meus... pra eu salvar isso, eu tenho que abrir um bloco de notas, copiar o arquivo e salvar com o nome que eu quiser com extensão '.ini'?

 

 

guibecker

 

Scripter:

File > New - Para abrir limpar a janela e iniciar um novo script.

File > Open - Para abrir um script.

File > Save - Para salvar as mudanças no script.

File > Save As... - Para salvar o script em um determinado lugar.

File > Exit - Para sair da janela do scripter.

 

Execute Script:

Para executar o script.

 

Help:

Para abrir à página de ajuda do Scripter.

 

 

X: Y: Z:

Esses campos informam a localização do seu character em X, Y e Z.

 

 

só sei q para os scripts de responder tem q salvar .spk

 

Não,sei se é extensão ini é que eu comecei na areá de scripts esses dias.Mas vo ver aqui no meu pc jaja lhe informo

[guibecker 0]

Os scipts que eu salvo aqui quando eu faço, tipo, script pra treinar (não sei se é a mesma coisa)... eu salvo umas opções, boto pra fazer magia e salvo... daí tu uso e tals, no outro dia, eu abro o tibia, abro o ng, vou em load, e seleciono TREINAR.INI ... e sempre da certo...

 

eu não sei como usar script então, eu acho que estou confundindo as coisas :confused:

[Lostter 0]

:confused:Eu ja num estou entendendo mais nada, para usar scripts tem q ir em tools scripter cola o script la é bota em execute script para parar o script tem q clikar nele na parte de baixo no lado direto e clikar com o botão direito e botar Stop.

[guibecker 0]

A cara, quer saber, vou deixar meu agradecimento por me ajudar, mas eu não estou mais interessado, é muito confusão...

 

Mesmo assim obrigado.

[Lostter 0]

Rsrsrs valeu pelo agradecimento , desculpa se eu confundi as coisas.:eek:

[AlissonDelCastillo 0]

os scripts sao salvos em extensão .ini

[guibecker 0]

Pois é, bem por isso eu me confundi... ele tinha dito que era outra extensão...

[Lostter 0]

Pois é, bem por isso eu me confundi... ele tinha dito que era outra extensão...

 

Eu não disse q era outra extensão a que vc estava perguntando apenas disse q a extensão de script de responder era .spk

[shenow 7]

Lostter,faça um post assim denovo e será suspenso,essas letras servem para organização do topico e nao desorganização.

[Lostter 0]

Desculpa.

[Gaop 0]

Como faz pra usa o script do starjump ? De subi e desce escada

[AlissonDelCastillo 0]

Os scipts que eu salvo aqui quando eu faço, tipo, script pra treinar (não sei se é a mesma coisa)... eu salvo umas opções, boto pra fazer magia e salvo... daí tu uso e tals, no outro dia, eu abro o tibia, abro o ng, vou em load, e seleciono TREINAR.INI ... e sempre da certo...

 

eu não sei como usar script então, eu acho que estou confundindo as coisas :confused:

 

 

voce esta confundindo as coisas..

isso ai que voce salva são as Configuraçoes.

script eh otra coisa..

as Configurações são salvas em .ini ~

eh tipo um "Save" tá ligado?

 

os script sao outras coisas xdd

[DuffLoko 0]

parabens cara (y) mto bom mesmo, mais tinah q ter uns mais diferentes, tipso soft boots todo mundo bota, i kra, soft boots eh soh high lvl, e tem um tempo determiando pra upa ( pelo - qeu saiba )

[xuztek 0]

eeu ja tenho todos ,oq eu curti foi o starjumping taava atraz dele faiz tempo eentao por isso vlwe ;#

[Gaop 0]

Como usa stairjump ?