Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Const
- BlankRuneID = 3147 // ID da Blank Rune
- Runar = 'adevo grav tera' // Nome do Speel Para Runar
- IdRuna = 3180 // Magic Wall "3180" Fire "3188"
- 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
- while not Terminated do
- begin
- UpdateWorld;
- if (Self.RightHand.ID <> BlankRuneID) or (Self.LeftHand.ID <> BlankRuneID) then
- begin
- Weapon := GetItemFromOpenBackpack(BlankRuneID);
- if Weapon <> nil then
- begin
- Weapon.MoveToBody(Self.RightHand, 0);
- Weapon.MoveToBody(Self.LeftHand, 0);
- Sleep(100);
- end
- end
- else
- begin
- if (Self.RightHand.ID = BlankRuneID) and (Self.LeftHand.ID = BlankRuneID) then
- Begin
- UpdateWorld;
- Self.Say(Runar);
- Sleep(1000);
- end;
- end
- if (Self.RightHand.ID = IdRuna) and (Self.LeftHand.ID = IdRuna) then
- Begin
- Self.RightHand.MoveToContainer(Self.Containers.Container[0], 0, 0);
- Self.LeftHand.MoveToContainer(Self.Containers.Container[0], 0, 0);
- Sleep(100);
- end
- Sleep(500);
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement