Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
  • 0

problema com scrypt


rafaelsonopelo
 Compartilhar

Pergunta

é o seguinte to usando ng para 8.74 to usando o seguinte scrypt para usar obsidian em mino

 

 

const

obsidian_knife = 5908; //id da obsidian ou woden stak

skin_body = [4011, 4047, 4052, 4057]; //id dor corpos

 

function searchIntArray(id:integer): boolean;

var

i: integer;

begin

result := false;

for i := low(skin_body) to high(skin_body) do begin

if skin_body = id then result := true;

end;

end;

 

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 SkinBodies(id:integer): Boolean;

var

x, y: integer;

knife: TItem;

t: integer;

begin

UpdateWorld;

knife := GetItemFromOpenBackpack(obsidian_knife);

if knife = nil then

begin

Self.DisplayText('An Obsidian Knife could not be found, please open a container with it.');

exit;

end;

t := -1;

for x := -1 to 1 do begin

for y := -1 to 1 do begin

// if Screen.Tile[7+x, 5+y].Count >= 3 then begin

// t := -2

// end else t := -1;

if searchIntArray(Screen.Tile[7+x, 5+y].Item[screen.Tile[7+x, 5+y].Count+t].ID) = true then begin

UpdateWorld;

knife := GetItemFromOpenBackpack(obsidian_knife);

if knife <> nil then begin

knife.UseWithGround(Self.X+X, Self.Y+Y, Self.Z);

Self.DisplayText('Attempted to skin a creature with the ID ' + IntToStr(Screen.Tile[7+x, 5+y].Item[screen.Tile[7+x, 5+y].Count-1].ID) + '.');

Sleep(100);

UpdateWorld;

end;

end;

end;

end;

end;

 

begin

while not terminated do begin

UpdateWorld;

SkinBodies(skin_body);

Sleep(100);

end;

end;

 

mas nao funciona aparece isso

[Exception] Untitled(11): Invalid variant operation when evaluating instruction OperEqual ($0,$0,$0,$0,''). Stack content is: [integer:1,Integer:1,Integer:-1...].

 

alguem sabe qual é o problema?

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Olá! Não sei se foi intencionalmente, mas você postou dois Tópicos com o mesmo conteúdo. Por favor não repita isto e ajude-nos a manter a área limpa! Você foi reportado.

 

Isto não é flood que eu saiba, expliquei o erro do membro!

 

Olá! Não sei se foi intencionalmente, mas você postou dois Tópicos com o mesmo conteúdo. Por favor não repita isto e ajude-nos a manter a área limpa! Você foi reportado.

 

Isto não é flood que eu saiba, expliquei o erro do membro!

Link para o comentário
Compartilhar em outros sites

  • 0

Olá! Não há nenhuma maneira de você apagar este Tópico! O que vai acontecer é o seguinte: Algum moderador virá aqui e fechara o Tópico, impossibilitando outros usuários de Responder ao Tópico.

 

Espero que não cometa o erro novamente!

nao foi de erro como apaga
Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.