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;